Rosetta Code

Polynomial regression: Difference between revisions

Page Discussion

Polynomial regression (view source)

Revision as of 11:10, 21 February 2022

34 bytes removed ,  2 years ago
Emacs Lisp: Fix formatting, avoid use of format
No edit summary
(Emacs Lisp: Fix formatting, avoid use of format)
Line 746:
=={{header|Emacs Lisp}}==
 
<libheader|Calc>
Simple solution by Emacs Lisp and built-in Emacs Calc.
<lang Lisp>(setqlet ((x '[(0 1 2 3 4 5 6 7 8 9 10]))▼
 
(setq (y '[(1 6 17 34 57 86 121 162 209 262 321])))▼
<lang emacs-lisp>
(formatcalc-eval "fit(a*x^2+b*x+c,[x],[a,b,c],[%s$1 %s$2])" nil (cons 'vec x) (cons 'vec y)))</lang>▼
▲(setq x '[0 1 2 3 4 5 6 7 8 9 10])
▲(setq y '[1 6 17 34 57 86 121 162 209 262 321])
(calc-eval
▲ (format "fit(a*x^2+b*x+c,[x],[a,b,c],[%s %s])" x y))
</lang>
 
{{out}}
 
<pre>
"3. x^2 + 1.99999999996 x + 1.00000000006"
</pre>
 
=={{header|Fortran}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/53624"