Глава 3Текст программы и результат расчётов параметров на эвм.

4.1. Схемы алгоритмов

Схема алгоритма основной программы:

i=0; i<n; i++

i=0; i<n; i++

i i

metodgaussa(A[m][m],B[m],C[m])

koeff(A[m][m],B[m],x[n],y[n])

i=0; i<n; i++

res(X[n],Y[n],C[m],G[n])

j=0; j<n; j++

approk(G[n])

оtkl(G[n],X[n])

j

i

koeff -схема алгоритма функции расчёта коэффициентов

i=0; i<m; i++

j=0; j<m; j++

Sum=0

I=0; I<n; I++

Sum=Sum + fi(i,x[I])*fi(j,x[I])

I

A[i][j]=Sum

j

Sum=0

I=0; I<n; I++

Sum=Sum + fi(i,x[I])*y[I]

I

B[i]=Sum

i

vivodres - Схема алгоритма функции расчёта F[i], D[i]

i=0; i<n; i++

F[i]=C[0]+C[1]*ln(x[i])+C[2]*(x[i]))

D[i]=Y[i]-F[i]

i

approk- cхема алгоритма функции расчёта и вывода Kr

Kr=0

i=0; i<n; i++

Kr=Kr+D[i]*D[i]

i

otkl - подпрограммы поиска и вывода максимального отклонения по модулю

g=|D[0]|

max=0

i=0; i<n; i++

Нет

Да

g=|D[i]|

max=i

i

metodgaussa- главная функция метода

i=0; i<m-1; i++ j

C[i]=(B[i]-Sum)/(A[i][i])

k=0; k<m; k++

C[i]=A[k][i]/A[i][i]

i

A[k][i]=0

j=i+1; j<m; j++

A[k][j]=A[k][j]-C[i]*A[i][j]

j

B[k]=B[k]-C[i]*B[i]

k

i

i=m-1;i>=0;i--

Sum=0

j=i+1;j<m;j++

Sum=Sum+ A[i][j]*C[j]

fi - схема алгоритма функции выбора функций

Возрат 1

Возрат ln(x)

Возрат x