program tu 134 uses crt const n6 x

  • Slides: 16
Download presentation

ПРИМЕР АППРОКСИМАЦИИ КВАДРАТИЧНОЙ ФУНКЦИЕЙ program tu 134; uses crt; const n=6; x: array[1. .

ПРИМЕР АППРОКСИМАЦИИ КВАДРАТИЧНОЙ ФУНКЦИЕЙ program tu 134; uses crt; const n=6; x: array[1. . n] of real=(300, 400, 500, 600, 700, 800); y: array[1. . n] of real=(6. 97, 7. 01, 7. 12, 7. 28, 7. 45, 7. 62); var i: integer; s 3, s 5, xx, s 7, s 4, s 6, s 1, s 2, a 0, a 1, a 2, yy, d 1, d 2, d 3, d 4: real; begin clrscr; for i: =1 to n do begin s 1: =s 1+x[i]; s 2: =s 2+y[i]; s 3: =s 3+sqr(x[i]); s 5: =s 5+sqr(x[i])*x[i]; s 7: =s 7+x[i]*x[i]*x[i]; s 4: =s 4+x[i]*y[i]; s 6: =s 6+sqr(x[i])*y[i]; end; d 1: =n*s 3*s 7+s 1*s 5*s 3 -s 3*s 3 -s 1*s 7 -n*s 5; d 2: =s 2*s 3*s 7+s 4*s 5*s 3+s 6*s 1*s 5 -s 6*s 3 -s 2*s 5 -s 4*s 1*s 7; d 3: =n*s 4*s 7+s 1*s 6*s 3+s 3*s 2*s 5 -s 3*s 4 -s 1*s 2*s 7 -s 6*s 5*n; d 4: =n*s 3*s 6+s 1*s 5*s 2+s 1*s 4*s 3 -s 3*s 2 -s 5*s 4*n-s 1*s 6; a 0: =d 2/d 1; a 1: =d 3/d 1; a 2: =d 4/d 1; writeln('y=', a 0: 5: 3, a 1: 5, '*x+', a 2: 5, '*x*x'); xx: =800; yy: =a 0+a 1*xx+a 2*sqr(xx); writeln('yy= ', yy: 5: 2); end.