Изобретения и совершенствования с применением математического моделирования. Черный А.А. - 220 стр.

3050 PRINT #1, " +"; B(16); "I(J)*P(J)*U(J)*Q(J),"
3060 IF X = 16 GOTO 3250
3070 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
3080 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
3090 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
3100 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J)+"; B(9); "*Q(J)+"
3110 PRINT #1, " +"; B(10); "*I(J)*Q(J)+"; B(11); "*P(J)*Q(J)+"
3120 PRINT #1, " +"; B(12); "*I(J)*P(J)*Q(J)+"; B(13); "*U(J)*Q(J)+"
3130 PRINT #1, " +"; B(14); "I(J)*U(J)*Q(J)+"; B(15); "*P(J)*U(J)*Q(J)+"
3140 PRINT #1, " +"; B(16); "I(J)*P(J)*U(J)*Q(J)+"; B(17); "*V(J)+"
3150 PRINT #1, " +"; B(18); "*I(J)*V(J)+"; B(19); "P(J)*V(J)+"
3160 PRINT #1, " +"; B(20); "*I(J)*P(J)*V(J)+"; B(21); "*U(J)*V(J)+"
3170 PRINT #1, " +"; B(22); "*I(J)*U(J)*V(J)+"; B(23); "*P(J)*U(J)*V(J)+"
3180 PRINT #1, " +"; B(24); "*I(J)*P(J)*U(J)*V(J)+"; B(25); "*Q(J)*V(J)+"
3190 PRINT #1, " +"; B(26); "*I(J)*Q(J)*V(J)+"; B(27); "*P(J)*Q(J)*V(J)+"
3200 PRINT #1, " +"; B(28); "*I(J)*P(J)*Q(J)*V(J)+"
3210 PRINT #1, " +"; B(29); "*U(J)*Q(J)*V(J)+"
3220 PRINT #1, " +"; B(30); "*I(J)*U(J)*Q(J)*V(J)+"
3230 PRINT #1, " +"; B(31); "*P(J)*U(J)*Q(J)*V(J)+"
3240 PRINT #1, " +"; B(32); "*I(J)*P(J)*U(J)*Q(J)*V(J),"
3250 PRINT #1, "ГДЕ"
3260 PRINT #1, "I(J)=F(J)^"; J1; "+"; V1
3261 PRINT #1, "ОБОЗНАЧЕНИЕ:F(J)- 1-й ФАКТОР "
3270 IF X = 2 GOTO 3350
3280 PRINT #1, "P(J)=H(J)^"; J2; "+"; V2
3281 PRINT #1, "ОБОЗНАЧЕНИЕ:H(J)- 2-й ФАКТОР"
3290 IF X = 4 GOTO 3350
3300 PRINT #1, "U(J)=L(J)^"; J3; "+"; V3
3301 PRINT #1, "ОБОЗНАЧЕНИЕ:L(J)- 3-й ФАКТОР"
3310 IF X = 8 GOTO 3350
3320 PRINT #1, "Q(J)=K(J)^"; J4; "+"; V4
3321 PRINT #1, "ОБОЗНАЧЕНИЕ:K(J)- 4-й ФАКТОР"
3330 IF X = 16 GOTO 3350
3340 PRINT #1, "V(J)=M(J)^"; J5; "+"; V5
3341 PRINT #1, "ОБОЗНАЧЕНИЕ:M(J)- 5-й ФАКТОР"
3350 PRINT "IF I0=18 GOTO 1620-ПЕРЕХОДЫ"
3355 PRINT "IF I0=19 GOTO 2080-ПЕРЕХОДЫ"
3360 PRINT "IF I0=35 GOTO 610-ВВОД НОВЫХ Y(J)"
3365 PRINT "IF I0=44 GOTO 6830-КОНЕЦ"
3370 PRINT "IF I0=50 GOTO 40-НАЧАЛО"
3371 PRINT "IF I0=51 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И"
3372 PRINT "            РАСЧЕТЫ ПО МОДЕЛИ"
3373 PRINT "IF I0=52 GOTO 7000-"
3376 PRINT "         ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5) "
3378 PRINT "         С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
3379 PRINT "         И ПОСТРОЕНИЕ ГРАФИКОВ"
3380 PRINT "ВВОД I0": INPUT I0
3390 IF I0 = 18 GOTO 1620




                                          220