Математическое моделирование в литейном производстве. Черный А.А. - 134 стр.

2470 IF X = 16 GOTO 2570
2480 IF X = 20 GOTO 2580
2490 IF X = 25 GOTO 2590
2500 IF X = 27 GOTO 2600
2510 GOSUB 4390: GOTO 2610
2520 GOSUB 4400: GOTO 2610
2530 GOSUB 4420: GOTO 2610
2540 GOSUB 4450: GOTO 2610
2550 GOSUB 4490: GOTO 2610
2560 GOSUB 4530: GOTO 2610
2570 GOSUB 4580: GOTO 2610
2580 GOSUB 4630: GOTO 2610
2590 GOSUB 4690: GOTO 2610
2600 GOSUB 4770: GOTO 2610
2610 PRINT #1, "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ Z(J)
ДО АНАЛИЗА B(J)"
2620 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
2630 PRINT "ВВОД F8=N0-1": INPUT F8
2633 PRINT #1, "F8=N0-1="; F8
2635 PRINT "F8="; F8
2640 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
2641 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J)) * (100/Y(J))"
2650 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
2651 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) -
Z(J)) * (100 / Y(J))
2655 NEXT J
2660 PRINT "IF I0=3 GOTO 2720-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ
"
2663 PRINT "            НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
2666 PRINT "IF I0=4 GOTO 2770-ВВОД ДИСПЕРСИИ ОПЫТОВ"
2670 PRINT "IF I0=5 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И "
2672 PRINT "             РАСЧEТЫ ПО МОДЕЛИ"
2773 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
2677 PRINT "IF I0=20 GOTO 6830-КОНЕЦ"
2678 PRINT "IF I0=25 GOTO 4880-МАТЕМАТИЧЕСКАЯ МО-
ДЕЛЬ"
2679 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ
Z(K5)"
2681 PRINT "              С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
2684 PRINT "              ПОСТРОЕНИЕ ГРАФИКОВ"
2689 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 2720
2690 IF I0 = 4 GOTO 2770
2700 IF I0 = 5 GOTO 3240


                                   134