Тяговый расчет гусеничной транспортно-тяговой машины. Парфенов А.П - 74 стр.

UptoLike

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