Системный анализ результатов расчетов по математическим моделям. Черный А.А. - 43 стр.

47 DIM Z1(50)
3150 IF F6 <= F7 GOTO 3152
3151 IF F6 > F7 GOTO 3153
3152 PRINT "АДЕКВАТНО": PRINT #1, "АДЕКВАТНО, ТАК КАК F6<=F7": GOTO 3154
3153 PRINT "НЕАДЕКВАТНО": PRINT #1, "НЕАДЕКВАТНО,ТАК КАК F6>F7": GOTO 3190
3154 PRINT #1, "СИСТЕМНОЕ ПРЕДСТАВЛЕНИЕ"
3155 PRINT #1, "ДЛЯ АНАЛИЗОВ РЕЗУЛЬТАТОВ РАСЧЕТОВ"
3156 PRINT #1, "ПО МАТЕМАТИЧЕСКОЙ МОДЕЛИ"
3157 S = 0: FOR J = 1 TO X: S = S + ABS(Z(J)): NEXT J
3158 Z1 = 0: FOR J = 1 TO X: Z1(J) = Z(J) / (S / X): NEXT J
3159 PRINT #1, "ОТНОСИТЕЛЬНАЯ ВЕЛИЧИНА ПОКАЗАТЕЛЯ"
3160 PRINT #1, "Z1(J)=Z(J)/(S/X),ГДЕ S-СУММА"
3161 PRINT #1, "АБСОЛЮТНЫХ ВЕЛИЧИН ПОКАЗАТЕЛЕЙ,S="; S
3162 PRINT #1, "S/X- СРЕДНЯЯ АРИФМЕТИЧЕСКАЯ ВЕЛИЧИНА,S/X="; S / X
3163 IF X = 3 GOTO 3173
3164 IF X = 9 GOTO 3174
3165 IF X = 27 GOTO 3175
3166 IF X = 4 GOTO 3176
3167 IF X = 16 GOTO 3177
3168 IF X = 5 GOTO 3178
3169 IF X = 25 GOTO 3179
3170 IF X = 12 GOTO 3180
3171 IF X = 15 GOTO 3181
3172 IF X = 20 GOTO 3182
3173 GOSUB 10150: GOTO 3190
3174 GOSUB 10190: GOTO 3190
3175 GOSUB 10380: GOTO 3190
3176 GOSUB 11200: GOTO 3190
3177 GOSUB 11250: GOTO 3190
3178 GOSUB 11580: GOTO 3190
3179 GOSUB 11640: GOTO 3190
3180 GOSUB 12150: GOTO 3190
3181 GOSUB 12400: GOTO 3190
3182 GOSUB 12710: GOTO 3190

10150 PRINT #1, "1.1."; "A1="; A1; "Z(1)="; Z(1); "Z1(1)="; Z1(1)
10160 PRINT #1, "1.2."; "E1="; E1; "Z(3)="; Z(3); "Z1(3)="; Z1(3)
10170 PRINT #1, "1.3."; "B1="; B1; "Z(2)="; Z(2); "Z1(2)="; Z1(2)
10180 RETURN
10190 PRINT #1, "1.1."; "A2="; A2; "A1="; A1; "Z(1)="; Z(1); "Z1(1)="; Z1(1)
10200 PRINT #1, "1.2."; "A2="; A2; "E1="; E1; "Z(7)="; Z(7); "Z1(7)="; Z1(7)
10210 PRINT #1, "1.3."; "A2="; A2; "B1="; B1; "Z(2)="; Z(2); "Z1(2)="; Z1(2)
10220 PRINT #1, "2.1."; "E2="; E2; "A1="; A1; "Z(5)="; Z(5); "Z1(5)="; Z1(5)
10230 PRINT #1, "2.2."; "E2="; E2; "E1="; E1; "Z(9)="; Z(9); "Z1(9)="; Z1(9)
10240 PRINT #1, "2.3."; "E2="; E2; "B1="; B1; "Z(6)="; Z(6); "Z1(6)="; Z1(6)
10250 PRINT #1, "3.1."; "B2="; B2; "A1="; A1; "Z(3)="; Z(3); "Z1(3)="; Z1(3)
10260 PRINT #1, "3.2."; "B2="; B2; "E1="; E1; "Z(8)="; Z(8); "Z1(8)="; Z1(8)
10270 PRINT #1, "3.3."; "B2="; B2; "B1="; B1; "Z(4)="; Z(4); "Z1(4)="; Z1(4)
10280 PRINT #1, "4.1."; "A1="; A1; "A2="; A2; "Z(1)="; Z(1); "Z1(1)="; Z1(1)
10290 PRINT #1, "4.2."; "A1="; A1; "E2="; E2; "Z(5)="; Z(5); "Z1(5)="; Z1(5)
10300 PRINT #1, "4.3."; "A1="; A1; "B2="; B2; "Z(3)="; Z(3); "Z1(3)="; Z1(3)
10310 PRINT #1, "5.1."; "E1="; E1; "A2="; A2; "Z(7)="; Z(7); "Z1(7)="; Z1(7)
10320 PRINT #1, "5.2."; "E1="; E1; "E2="; E2; "Z(9)="; Z(9); "Z1(9)="; Z1(9)
10330 PRINT #1, "5.3."; "E1="; E1; "B2="; B2; "Z(8)="; Z(8); "Z1(8)="; Z1(8)
10340 PRINT #1, "6.1."; "B1="; B1; "A2="; A2; "Z(2)="; Z(2); "Z1(2)="; Z1(2)
10350 PRINT #1, "6.2."; "B1="; B1; "E2="; E2; "Z(6)="; Z(6); "Z1(6)="; Z1(6)
10360 PRINT #1, "6.3."; "B1="; B1; "B2="; B2; "Z(4)="; Z(4); "Z1(4)="; Z1(4)




                                                   43