Пористые материалы и изделия, их улучшение на основе математического моделирования. Черный А.А - 29 стр.

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
3400 IF I0 = 19 GOTO 2080
3410 IF I0 = 35 GOTO 610
3420 IF I0 = 44 GOTO 6830
3430 IF I0 = 50 GOTO 40
3440 IF I0 = 51 GOTO 2150
3445 IF I0 = 52 GOTO 7000
6830 CLOSE #1
6832 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ СМОТРИ В ";
6835 PRINT "ФАЙЛЕ "; FA$
6840 END
7000 PRINT #1, "ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
7004 PRINT #1, " ПО МАТЕМАТИЧЕСКОЙ МОДЕЛИ"
7005 PRINT #1, " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ"
7006 PRINT #1, "И ПОСТРОЕНИЕ ГРАФИКОВ"
7030 PRINT "ВВОД I0=63 ПРИ Х=2,Х=4,Х=8,X=16,X=32"
7040 PRINT "IF I0=64 GOTO 40-НАЧАЛО"

                                          29