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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

121
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 
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




                           121

Страницы