ВУЗ:
Составители:
Рубрика:
74
h=b(i)
for j=i+1 to n
h=h-a(j-1)*am(i,j)
next j
a(i-1)=h/am(i,i)
next i
print "Коэффициенты полинома"
for i=0 to n-1
print "a(";i;") = ";a(i)
next i
' Расчет погрешности аппроксимации
e=0
for i=1 to nt
s=y(i)
r=1
for j=1 to n
s=s-r*a(j-1)
r=r*x(i)
next j
e=e+s*s
next i
e=SQR(e/nt)
print " Погрешность аппроксимации Е=";e
else
cls
locate 8
print
" ПОТЕРЯ ПОРЯДКА ПРИ ВЫЧИСЛЕНИИ КОЭФФИЦИЕНТОВ"
print " Повторите ввод с другими координатами,"
print " или увеличьте число точек."
end if
74 h=b(i) for j=i+1 to n h=h-a(j-1)*am(i,j) next j a(i-1)=h/am(i,i) next i print "Коэффициенты полинома" for i=0 to n-1 print "a(";i;") = ";a(i) next i ' Расчет погрешности аппроксимации e=0 for i=1 to nt s=y(i) r=1 for j=1 to n s=s-r*a(j-1) r=r*x(i) next j e=e+s*s next i e=SQR(e/nt) print " Погрешность аппроксимации Е=";e else cls locate 8 print " ПОТЕРЯ ПОРЯДКА ПРИ ВЫЧИСЛЕНИИ КОЭФФИЦИЕНТОВ" print " Повторите ввод с другими координатами," print " или увеличьте число точек." end if