Эффективное математическое моделирование в литейном производстве при ортогонализации матриц. Черный А.А. - 149 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

149
3190 PRINT "IF I0=7 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
3193 PRINT " РАСЧЕТЫ ПО МОДЕЛИ"
3194 PRINT "IF I0=8 GOTO 40-НАЧАЛО"
3197 PRINT "IF I0=17 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3198 PRINT "IF I0=22 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3200 PRINT " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3203 PRINT " ПОСТРОЕНИЕ ГРАФИКОВ"
3207 PRINT "IF I0=9 GOTO 6830-КОНЕЦ": PRINT "ВВОД I0": INPUT I0
3210 IF I0 = 7 GOTO 3240
3220 IF I0 = 8 GOTO 40
3227 IF I0 = 17 GOTO 4880
3228 IF I0 = 22 GOTO 7000
3230 IF I0 = 9 GOTO 6830
3240 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
3241 PRINT "F(S),H(S),L(S)-1, 2, 3-й ФАКТОРЫ,"
3243 PRINT "ГДЕ S=X="; X; "-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ"
3245 PRINT #1, "РАСЧЕТЫ ПО МОДЕЛИ"
3250 IF X = 3 GOTO 3350
3260 IF X = 4 GOTO 3350
3270 IF X = 5 GOTO 3350
3280 IF X = 9 GOTO 3420
3290 IF X = 12 GOTO 3420
3300 IF X = 15 GOTO 3420
3310 IF X = 16 GOTO 3420
3320 IF X = 20 GOTO 3420
3330 IF X = 25 GOTO 3420
3340 IF X = 27 GOTO 3560
3350 FOR S = 1 TO X: F(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; ")"
3360 INPUT F(S): PRINT #1, "ФАКТОР F("; S; ")="; F(S)
3365 IF X = 3 GOTO 3390
3370 IF X = 4 GOTO 3400
3380 IF X = 5 GOTO 3410
3390 GOSUB 4150: GOSUB 4390: GOTO 3412
3400 GOSUB 4210: GOSUB 4400: GOTO 3412
3410 GOSUB 4290: GOSUB 4420: GOTO 3412
3412 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3420 FOR S = 1 TO X: F(S) = 0: H(S) = 0: Z(S) = 0
3430 PRINT "ВВОД F("; S; "),H("; S; ")": INPUT F(S), H(S)
3432 PRINT #1, " ФАКТОРЫ F("; S; ")="; F(S); "H("; S; ")="; H(S)
3440 IF X = 9 GOTO 3500
3450 IF X = 12 GOTO 3510
3460 IF X = 15 GOTO 3520
3470 IF X = 16 GOTO 3530
3480 IF X = 20 GOTO 3540
3490 IF X = 25 GOTO 3550
3500 GOSUB 4150: GOSUB 4170: GOSUB 4450: GOTO 3552
3510 GOSUB 4150: GOSUB 4250: GOSUB 4490: GOTO 3552
3520 GOSUB 4150: GOSUB 4340: GOSUB 4530: GOTO 3552
3530 GOSUB 4210: GOSUB 4250: GOSUB 4580: GOTO 3552
3540 GOSUB 4210: GOSUB 4340: GOSUB 4630: GOTO 3552 
3190 PRINT "IF I0=7 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
3193 PRINT "             РАСЧЕТЫ ПО МОДЕЛИ"
3194 PRINT "IF I0=8 GOTO 40-НАЧАЛО"
3197 PRINT "IF I0=17 GOTO 4880-МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3198 PRINT "IF I0=22 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3200 PRINT "             С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3203 PRINT "             ПОСТРОЕНИЕ ГРАФИКОВ"
3207 PRINT "IF I0=9 GOTO 6830-КОНЕЦ": PRINT "ВВОД I0": INPUT I0
3210 IF I0 = 7 GOTO 3240
3220 IF I0 = 8 GOTO 40
3227 IF I0 = 17 GOTO 4880
3228 IF I0 = 22 GOTO 7000
3230 IF I0 = 9 GOTO 6830
3240 PRINT "ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
3241 PRINT "F(S),H(S),L(S)-1, 2, 3-й ФАКТОРЫ,"
3243 PRINT "ГДЕ S=X="; X; "-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ"
3245 PRINT #1, "РАСЧЕТЫ ПО МОДЕЛИ"
3250 IF X = 3 GOTO 3350
3260 IF X = 4 GOTO 3350
3270 IF X = 5 GOTO 3350
3280 IF X = 9 GOTO 3420
3290 IF X = 12 GOTO 3420
3300 IF X = 15 GOTO 3420
3310 IF X = 16 GOTO 3420
3320 IF X = 20 GOTO 3420
3330 IF X = 25 GOTO 3420
3340 IF X = 27 GOTO 3560
3350 FOR S = 1 TO X: F(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; ")"
3360 INPUT F(S): PRINT #1, "ФАКТОР F("; S; ")="; F(S)
3365 IF X = 3 GOTO 3390
3370 IF X = 4 GOTO 3400
3380 IF X = 5 GOTO 3410
3390 GOSUB 4150: GOSUB 4390: GOTO 3412
3400 GOSUB 4210: GOSUB 4400: GOTO 3412
3410 GOSUB 4290: GOSUB 4420: GOTO 3412
3412 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3420 FOR S = 1 TO X: F(S) = 0: H(S) = 0: Z(S) = 0
3430 PRINT "ВВОД F("; S; "),H("; S; ")": INPUT F(S), H(S)
3432 PRINT #1, " ФАКТОРЫ F("; S; ")="; F(S); "H("; S; ")="; H(S)
3440 IF X = 9 GOTO 3500
3450 IF X = 12 GOTO 3510
3460 IF X = 15 GOTO 3520
3470 IF X = 16 GOTO 3530
3480 IF X = 20 GOTO 3540
3490 IF X = 25 GOTO 3550
3500 GOSUB 4150: GOSUB 4170: GOSUB 4450: GOTO 3552
3510 GOSUB 4150: GOSUB 4250: GOSUB 4490: GOTO 3552
3520 GOSUB 4150: GOSUB 4340: GOSUB 4530: GOTO 3552
3530 GOSUB 4210: GOSUB 4250: GOSUB 4580: GOTO 3552
3540 GOSUB 4210: GOSUB 4340: GOSUB 4630: GOTO 3552


                                149

Страницы