Рафинирование металлов и сплавов и возможности улучшения процессов на основе математического моделирования. Черный А.А - 15 стр.

5 PRINT "ПРОГРАММА WN3,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN3"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА WN31"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN3 ЗАНОСЯТСЯ В ФАЙЛ
"; FA$
40 PRINT " РАЗРАБОТКИ ДЛЯ X=3,X=9,X=27"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN3, РАЗРАБОТАННОЙ
А.А. ЧЕРНЫМ"
42 DIM F(50), H(50), L(50), Y(27), I(50), K(50), M(50), P(50)
44 DIM Q(50), U(50), V(50), O(27), B(27), Z(50), G(20), T(27)
46 DIM K6(50), K7(50), K8(50), J7(50), J8(50), J9(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
120 PRINT "ВВОД A1,E1,B1,J1,O1": INPUT A1, E1, B1, J1, O1
130 PRINT #1, "A1="; A1; " E1="; E1; " B1="; B1
133 PRINT #1, "J1="; J1; " O1="; O1: A = A1: B = B1: E = E1: N = J1: R = O1
140 GOSUB 3660: V1 = V0: U1 = U0: Q1 = Q0
144 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
150 IF X = 9 GOTO 350
160 IF X = 27 GOTO 350
190 IF X = 3 GOTO 590
350 PRINT "ВВОД A2,E2,B2,J2,O2": INPUT A2, E2, B2, J2, O2
360 PRINT #1, "A2="; A2; " E2="; E2; " B2="; B2
363 PRINT #1, "J2="; J2; " O2="; O2
365 A = A2: B = B2: E = E2: N = J2: R = O2
370 GOSUB 3660: V2 = V0: U2 = U0: Q2 = Q0
375 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2
380 IF X = 27 GOTO 550
390 IF X = 9 GOTO 620
550 PRINT "ВВОД A3,E3,B3,J3,O3"
555 INPUT A3, E3, B3, J3, O3
560 PRINT #1, "A3="; A3; " E3="; E3; " B3="; B3
563 PRINT #1, "J3="; J3; " O3="; O3
565 A = A3: B = B3: E = E3: N = J3: R = O3
570 GOSUB 3660: V3 = V0: U3 = U0: Q3 = Q0
575 PRINT #1, "V3="; V3; " U3="; U3; " Q3="; Q3
580 GOTO 990
589 REM ПЛАНЫ
590 F(1) = A1: F(2) = B1: F(3) = E1: GOTO 1130
620 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
630 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
640 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
650 GOTO 1130
990 F(1) = A1: H(1) = A2: L(1) = A3: F(2) = B1: H(2) = A2: L(2) = A3

                                     15