don't record PDF files in repo
[CommonLispStat.git] / src / lisptests.lisp
bloba8f413800c62037fb8f136e82a2157b330eeb621
1 (asdf:oos 'asdf:load-op 'lispstat)
3 (in-package :ls-user)
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)
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)
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)))))