Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 29 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

29
2930 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2940 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
2950 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
2960 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J),"
2970 IF X = 8 GOTO 3250
2975 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2990 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
3000 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
3010 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J)+"; B(9); "*Q(J)+"
3020 PRINT #1, " +"; B(10); "*I(J)*Q(J)+"; B(11); "*P(J)*Q(J)+"
3030 PRINT #1, " +"; B(12); "*I(J)*P(J)*Q(J)+"; B(13); "*U(J)*Q(J)+"
3040 PRINT #1, " +"; B(14); "I(J)*U(J)*Q(J)+"; B(15); "*P(J)*U(J)*Q(J)+"
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-НАЧАЛО" 
2930 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2940 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
2950 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
2960 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J),"
2970 IF X = 8 GOTO 3250
2975 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2990 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
3000 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
3010 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J)+"; B(9); "*Q(J)+"
3020 PRINT #1, " +"; B(10); "*I(J)*Q(J)+"; B(11); "*P(J)*Q(J)+"
3030 PRINT #1, " +"; B(12); "*I(J)*P(J)*Q(J)+"; B(13); "*U(J)*Q(J)+"
3040 PRINT #1, " +"; B(14); "I(J)*U(J)*Q(J)+"; B(15); "*P(J)*U(J)*Q(J)+"
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-НАЧАЛО"

                                            29

Страницы