Теория и практика эффективного математического моделирования. Черный А.А. - 226 стр.

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
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 = 4 GOTO 3176
3168 IF X = 5 GOTO 3178
3170 IF X = 12 GOTO 3180
3171 IF X = 15 GOTO 3181
3172 IF X = 20 GOTO 3182
3173 GOSUB 10150: GOTO 3190
3176 GOSUB 11200: GOTO 3190
3178 GOSUB 11580: GOTO 3190
3180 GOSUB 12150: GOTO 3190
3181 GOSUB 12400: GOGO 3190
3182 GOSUB 12710: GOGO 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)
10370 RETURN
10380 PRINT #1, "1.1."; "A2="; A2; "A3="; A3; "A1="; A1; "Z(1)="; Z(1); "Z1(1)="; Z1(1)
10390 PRINT #1, "1.2."; "A2="; A2; "A3="; A3; "E1="; E1; "Z(23)="; Z(23); "Z1(23)="; Z1(23)
10400 PRINT #1, "1.3."; "A2="; A2; "A3="; A3; "B1="; B1; "Z(2)="; Z(2); "Z1(2)="; Z1(2)
10410 PRINT #1, "2.1."; "A2="; A2; "E3="; E3; "A1="; A1; "Z(15)="; Z(15); "Z1(15)="; Z1(15)
10420 PRINT #1, "2.2."; "A2="; A2; "E3="; E3; "E1="; E1; "Z(11)="; Z(11); "Z1(11)="; Z1(11)
10430 PRINT #1, "2.3."; "A2="; A2; "E3="; E3; "B1="; B1; "Z(16)="; Z(16); "Z1(16)="; Z1(16)




                                                   226