Химические методы анализа. Танганов Б.Б. - 134 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

267
51200 next t:print “Единственного решения нет”:
goto 63999
51300 gosub 53000
51400 c=1/a(s,s)
51500 gosub 54000
51600 for t=1 to N
51700 if t=s then 52000
51800 c=-a(t,s)
51900 gosub 55000
52000 next t
52100 next s
52200 gosub 56000:goto 63999
53000 rem Подпрограмма для обмена уравнений
53100 for j=1 to N+1
53200 b=a(s,j):a(s,j)=a(t,j):a(t,j)=b
53300 next j
53400 return
54000 rem Подпрограмма для деления строки на
диагональный элемент
54100 for j=1 to N+1
54200 a(s,j)=c⋅a(s,j): next j
54400 return
55000rem*******************************************
55002rem*Подпрограмма для вычитания умноженной**
55004rem* на с s-той строки из t-строки **
55005rem****************************************
55100 for j=1 to N+1
55200 a(t,j)=a(t,j)+c⋅a(s,j)
55300 next j
55400 return
56000 rem Подпрограмма для вывода решения на экран
56100 for t=1 to N
56200 print “x(“;t;”)= “ using “####.#####”; a(t,N+1)
56300 next t
268
56400 return
63999 end
Приложение V
Программа расчета функции по аргументам
методом множественной регрессии
10 rem Множественная регрессия
15 cls: screen 0,0
20 M$= “! X1 X2 X3 X4 Y Y(расч) !”
30 input “Количество переменных: “;N
31 if N<3 goto 610
35 dim (N),X1(N),X2(N),X3(N),X4(N),O(N),O1(N),
O2(N),O3(N),O4(N),K(N),VO(N)
40 Z1=):Z2=):Z3=0:Z4=0:Z5=0
60 for i=1 to N
65 print: print “Значение номер “; i
70 input “Значение Y”; Y(i)
85 Z5=Z5+Y(i)
90 input “Значение Х1”; X1(i)
105 Z1=Z1+X1(i)
110 input “Значение Х2”;Х2(i)
125 Z2=Z2+X2(i)
130 input “Значение Х3”;Х3(i)
145 Z3=Z3+X3(i)
150 input “Значение Х4”;Х4(i)
165 Z4=Z4+X4(i) 
                           267                                                       268


51200 next t:print “Единственного решения нет”:            56400 return
      goto 63999                                           63999 end
51300 gosub 53000
51400 c=1/a(s,s)
51500 gosub 54000
51600 for t=1 to N
51700 if t=s then 52000
51800 c=-a(t,s)
51900 gosub 55000
52000 next t
52100 next s                                                                                    Приложение V
52200 gosub 56000:goto 63999                                     Программа расчета функции по аргументам
53000 rem Подпрограмма для обмена уравнений                          методом множественной регрессии
53100 for j=1 to N+1
53200 b=a(s,j):a(s,j)=a(t,j):a(t,j)=b                       10 rem Множественная регрессия
53300 next j                                                15 cls: screen 0,0
53400 return                                                20 M$= “! X1 X2         X3     X4    Y  Y(расч)   !”
54000 rem Подпрограмма для деления строки на                30 input “Количество переменных: “;N
     диагональный элемент                                   31 if N<3 goto 610
54100 for j=1 to N+1                                        35 dim (N),X1(N),X2(N),X3(N),X4(N),O(N),O1(N),
54200 a(s,j)=c⋅a(s,j): next j                                       O2(N),O3(N),O4(N),K(N),VO(N)
54400 return                                                40 Z1=):Z2=):Z3=0:Z4=0:Z5=0
55000rem*******************************************         60 for i=1 to N
55002rem*Подпрограмма для вычитания умноженной**            65 print: print “Значение номер “; i
55004rem* на с s-той строки из t-строки               **    70 input “Значение Y”; Y(i)
55005rem****************************************            85 Z5=Z5+Y(i)
55100 for j=1 to N+1                                        90 input “Значение Х1”; X1(i)
55200 a(t,j)=a(t,j)+c⋅a(s,j)                               105 Z1=Z1+X1(i)
55300 next j                                               110 input “Значение Х2”;Х2(i)
55400 return                                               125 Z2=Z2+X2(i)
56000 rem Подпрограмма для вывода решения на экран         130 input “Значение Х3”;Х3(i)
56100 for t=1 to N                                         145 Z3=Z3+X3(i)
56200 print “x(“;t;”)= “ using “####.#####”; a(t,N+1)      150 input “Значение Х4”;Х4(i)
56300 next t                                               165 Z4=Z4+X4(i)

Страницы