Компьютерные дополненные программы математического моделирования и расчетов по математическим моделям. Черный А.А. - 42 стр.

           ДОБАВЛЕНИЯ И ИЗМЕНЕНИЯ В ПРОГРАММЕ VN0 –
           ПОДПРОГРАММЫ СИСТЕМНОГО ПРЕДСТАВЛЕНИЯ
             ДЛЯ АНАЛИЗОВ РЕЗУЛЬТАТОВ РАСЧЕТОВ ПО
          МАТЕМАТИЧЕСКИМ МОДЕЛЯМ ПРИ ПЛАНИРОВАНИИ
       3 (Х=3), 32 (Х=9), 33 (Х=27), 41 (Х= 4), 42 (Х=16), 51 (Х=5), 52 (Х=25),
        1

                        3·4 (Х=12), 3·5 (Х=15), 4·5 (Х=20)

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: GOТO 3190
3182 GOSUB 12710: GOТO 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)




                                           42