RosettaCodeData/Task/QR-decomposition/Common-Lisp/qr-decomposition-5.lisp
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

6 lines
205 B
Common Lisp

;; Finally use the data:
(let ((x #2A((0 1 2 3 4 5 6 7 8 9 10)))
(y #2A((1 6 17 34 57 86 121 162 209 262 321))))
(polyfit x y 2))
#2A((0.999999966345088) (2.000000015144699) (2.99999999879804))