11 lines
515 B
Common Lisp
11 lines
515 B
Common Lisp
;; example 2
|
|
CL-USER> (setf a '((18 22 54 42) (22 70 86 62) (54 86 174 134) (42 62 134 106)))
|
|
((18 22 54 42) (22 70 86 62) (54 86 174 134) (42 62 134 106))
|
|
CL-USER> (cholesky a)
|
|
((4.2426405 0 0 0) (5.18545 6.565905 0 0) (12.727922 3.0460374 1.6497375 0) (9.899495 1.6245536 1.849715 1.3926151))
|
|
CL-USER> (format t "~{~{~10,5f~}~%~}" (cholesky a))
|
|
4.24264 0.00000 0.00000 0.00000
|
|
5.18545 6.56591 0.00000 0.00000
|
|
12.72792 3.04604 1.64974 0.00000
|
|
9.89950 1.62455 1.84971 1.39262
|
|
NIL
|