15 lines
462 B
Text
15 lines
462 B
Text
REAL :: n=10, x(n), y(n), m=3, p(m)
|
|
|
|
x = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
|
|
y = (1, 6, 17, 34, 57, 86, 121, 162, 209, 262, 321)
|
|
|
|
p = 2 ! initial guess for the polynom's coefficients
|
|
|
|
SOLVE(NUL=Theory()-y(nr), Unknown=p, DataIdx=nr, Iters=iterations)
|
|
|
|
WRITE(ClipBoard, Name) p, iterations
|
|
|
|
FUNCTION Theory()
|
|
! called by the solver of the SOLVE function. All variables are global
|
|
Theory = p(1)*x(nr)^2 + p(2)*x(nr) + p(3)
|
|
END
|