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

1456 PRINT #1, "N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ
УРОВНЕ ФАКТОРОВ"
1455 INPUT N0
1460 PRINT #1, "N0="; N0
1470 IF X = 2 GOTO 1520
1480 IF X = 4 GOTO 1530
1490 IF X = 8 GOTO 1540
1500 IF X = 16 GOTO 1550
1510 IF X = 32 GOTO 1560
1520 GOSUB 2540: GOTO 1570
1530 GOSUB 2550: GOTO 1570
1540 GOSUB 2570: GOTO 1570
1550 GOSUB 2600: GOTO 1570
1560 GOSUB 2670: GOTO 1570
1570 PRINT #1, "РАСЧЕТНЫЕ.ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J)
ДО АНАЛИЗА B(J)"
1580 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
1590 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
1600 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J) * (100 / Y(J))"
1601 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
1602 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) -
Z(J)) * (100 / Y(J))
1603 NEXT J
1604 PRINT "ВВОД F8=N0-1": INPUT F8: PRINT #1, "F8=N0-1=";
N0; "-1="; F8
1620 PRINT "IF I0=3 GOTO 1710-ВВОД РЕЗУЛЬТАТОВ ОПЫТОВ"
1622 PRINT "                НА СРЕДНЕМ УРОВНЕ ФАКТОРОВ"
1625 PRINT "IF I0=4 GOTO 1760-ВВОД ДИСПЕРСИИ ОПЫТОВ"
1630 PRINT "IF I0=5 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И"
1633 PRINT "              РАСЧЕТЫ ПО МОДЕЛИ"
1635 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1640 PRINT "IF I0=20 GOTO 6830-КОНЕЦ"
1641 PRINT "IF I0=25 GOTO 2820-МАТЕМАТИЧЕСКАЯ МО-
ДЕЛЬ"
1642 PRINT "IF I0=27 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ
Z(K5)"
1646 PRINT "         С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И"
1647 PRINT "          ПОСТРОЕНИЕ ГРАФИКОВ"
1650 PRINT "ВВОД I0": INPUT I0: IF I0 = 3 GOTO 1710
1660 IF I0 = 4 GOTO 1760
1670 IF I0 = 5 GOTO 2150
1680 IF I0 = 6 GOTO 40
1690 IF I0 = 20 GOTO 6830


                                   111