src/lisptests.lisp

   1 (asdf:oos 'asdf:load-op 'lispstat)
   2
   3 (in-package :ls-user)
   4
   5 #|
   6 (trace lisp-stat-linalg-data::la-allocate)
   7 (trace lisp-stat-linalg-data::la-put-double)
   8 (trace lisp-stat-linalg-data::la-data-to-matrix)
   9 (trace lisp-stat-linalg-data::la-matrix)
  10 (trace lisp-stat-linalg::lu-solve)
  11 |#
  12
  13 (lu-solve
  14  (lu-decomp #2A((2 3 4) (1 2 4) (2 4 5)))
  15  #(2 3 4))
  16 ;; #(-2.333333333333333 1.3333333333333335 0.6666666666666666)
  17
  18
  19 #|
  20 (dotimes (i 3)
  21  (declare (fixnum i))
  22  (let ((vec (lisp-stat-linalg-data::la-get-pointer mat i)))
  23    (format t "vec => ~A~%" vec)
  24    (dotimes (j 3)
  25      (format t "LA-PUT-DOUBLE ~A <- (~A ~A)~%" vec j (aref data i j))
  26      (lisp-stat-linalg-data::la-put-double vec j (aref data i j)))))
  27 |#