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

4190 FOR J = 1 TO X: U(J) = L(J) ^ J3 + V3
4200 V(J) = L(J) ^ O3 + U3 * L(J) ^ J3 + Q3: NEXT J: RETURN
4390 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * K(J): NEXT J: RETURN
4450 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4460 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J)
4470 N5 = B(8) * P(J) * K(J) + B(9) * K(J) * Q(J)
4480 Z(J) = N3 + N4 + N5: NEXT J: RETURN
4770 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4780 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4790 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J) + B(12) * P(J) * U(J)
4800 N6 = B(13) * I(J) * P(J) * U(J) + B(14) * V(J) + B(15) * I(J) * V(J)
4810 N7 = B(16) * P(J) * V(J) + B(17) * U(J) * K(J) + B(18) * U(J) * Q(J)
4820 R0 = B(19) * I(J) * P(J) * V(J) + B(20) * I(J) * U(J) * Q(J)
4830 R4 = B(21) * P(J) * U(J) * K(J) + B(22) * K(J) * V(J) + B(23) * Q(J) * V(J)
4840 R5 = B(24) * I(J) * Q(J) * V(J) + B(25) * P(J) * K(J) * V(J)
4850 R6 = B(26) * U(J) * K(J) * Q(J) + B(27) * K(J) * Q(J) * V(J)
4860 Z(J) = N3 + N4 + N5 + N6 + N7 + R0 + R4 + R5 + R6: NEXT J: RETURN
4880 PRINT #1, "МАТЕМАТИЧЕСКАЯ МОДЕЛЬ": IF X = 3 GOTO 4910
4890 IF X = 9 GOTO 4930
4900 IF X = 27 GOTO 4980
4910 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J),"
4920 IF X = 3 GOTO 5110
4930 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J)+"
4940 PRINT #1, "+"; B(4); "*P(J)+"; B(5); "*I(J)*P(J)+"
4950 PRINT #1, "+"; B(6); "*Q(J)+"; B(7); "*I(J)*Q(J)+"
4960 PRINT #1, "+"; B(8); "*P(J)*K(J)+"; B(9); "*K(J)*Q(J),"
4970 IF X = 9 GOTO 5110
4980 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J)+"
4990 PRINT #1, "+"; B(4); "*P(J)+"; B(5); "*I(J)*P(J)+"
5000 PRINT #1, "+"; B(6); "*Q(J)+"; B(7); "*I(J)*Q(J)+"
5010 PRINT #1, "+"; B(8); "*P(J)*K(J)+"; B(9); "*K(J)*Q(J)+"
5020 PRINT #1, "+"; B(10); "*U(J)+"; B(11); "*I(J)*U(J)+"
5030 PRINT #1, "+"; B(12); "*P(J)*U(J)+"; B(13); "*I(J)*P(J)*U(J)+"
5040 PRINT #1, "+"; B(14); "*V(J)+"; B(15); "*I(J)*V(J)+"
5050 PRINT #1, "+"; B(16); "*P(J)*V(J)+"; B(17); "*U(J)*K(J)+"
5060 PRINT #1, "+"; B(18); "*U(J)*Q(J)+"; B(19); "*I(J)*P(J)*V(J)+"
5070 PRINT #1, "+"; B(20); "*I(J)*U(J)*Q(J)+"; B(21); "*P(J)*U(J)*K(J)+"
5080 PRINT #1, "+"; B(22); "*K(J)*V(J)+"; B(23); "*Q(J)*V(J)+"
5090 PRINT #1, "+"; B(24); "*I(J)*Q(J)*V(J)+"; B(25); "*P(J)*K(J)*V(J)+"
5100 PRINT #1, "+"; B(26); "*U(J)*K(J)*Q(J)+"; B(27); "*K(J)*Q(J)*V(J),"
5110 PRINT #1, "ГДЕ"
5120 PRINT #1, "I(J)=F(J)^"; J1; "+"; V1; ";"
5130 PRINT #1, "K(J)=F(J)^"; O1; "+"; U1; "*F(J)^"; J1; "+"; Q1
5131 PRINT #1, "ОБОЗНАЧЕНИЕ: F(J)- 1-й ФАКТОР "
5140 IF X = 3 GOTO 6790
5150 PRINT #1, "P(J)=H(J)^"; J2; "+"; V2; ";"
5160 PRINT #1, "Q(J)=H(J)^"; O2; "+"; U2; "*H(J)^"; J2; "+"; Q2
5161 PRINT #1, "ОБОЗНАЧЕНИЕ: H(J)- 2-й ФАКТОР"
5170 IF X = 9 GOTO 6790
5180 PRINT #1, "U(J)=L(J)^"; J3; "+"; V3; ";"
5190 PRINT #1, "V(J)=L(J)^"; O3; "+"; O3; "+"; U3; "*L(J)^"; J3; "+"; Q3
5191 PRINT #1, "ОБОЗНАЧЕНИЕ: L(J)- 3-й ФАКТОР"

                                              21