Математическое моделирование при двух уровнях факторов по программам на языках Бейсик и Турбо Паскаль. Черный А.А. - 20 стр.

2770 Z3 = B(27) * P(J) * Q(J) * V(J) + B(28) * I(J) * P(J) * Q(J) * V(J)
2780 Z4 = B(29) * U(J) * Q(J) * V(J) + B(30) * I(J) * U(J) * Q(J) * V(J)
2790 Z5 = B(31) * P(J) * U(J) * Q(J) * V(J) + B(32) * I(J) * P(J) * U(J) * Q(J) * V(J)
2800 Z(J) = N3 + N4 + N5 + N6 + N7 + R0 + R4 + R5 + R6 + Z2 + Z3 + Z4 + Z5
2810 NEXT J: RETURN
2820 PRINT #1, "МАТЕМАТИЧЕСКАЯ МОДЕЛЬ": GOTO 2830
2830 IF X = 2 GOTO 2880
2840 IF X = 4 GOTO 2900
2850 IF X = 8 GOTO 2930
2860 IF X = 16 GOTO 2975
2861 IF X = 32 GOTO 3070
2880 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J),"
2890 IF X = 2 GOTO 3250
2900 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2910 PRINT #1, " +"; B(4); "*I(J)*P(J),"
2920 IF X = 4 GOTO 3250
2930 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2940 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
2950 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
2960 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J),"
2970 IF X = 8 GOTO 3250
2975 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
2990 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
3000 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
3010 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J)+"; B(9); "*Q(J)+"
3020 PRINT #1, " +"; B(10); "*I(J)*Q(J)+"; B(11); "*P(J)*Q(J)+"
3030 PRINT #1, " +"; B(12); "*I(J)*P(J)*Q(J)+"; B(13); "*U(J)*Q(J)+"
3040 PRINT #1, " +"; B(14); "I(J)*U(J)*Q(J)+"; B(15); "*P(J)*U(J)*Q(J)+"
3050 PRINT #1, " +"; B(16); "I(J)*P(J)*U(J)*Q(J),"
3060 IF X = 16 GOTO 3250
3070 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*P(J)+"
3080 PRINT #1, " +"; B(4); "*I(J)*P(J)+"; B(5); "*U(J)+"
3090 PRINT #1, " +"; B(6); "*I(J)*U(J)+"; B(7); "*P(J)*U(J)+"
3100 PRINT #1, " +"; B(8); "*I(J)*P(J)*U(J)+"; B(9); "*Q(J)+"
3110 PRINT #1, " +"; B(10); "*I(J)*Q(J)+"; B(11); "*P(J)*Q(J)+"
3120 PRINT #1, " +"; B(12); "*I(J)*P(J)*Q(J)+"; B(13); "*U(J)*Q(J)+"
3130 PRINT #1, " +"; B(14); "I(J)*U(J)*Q(J)+"; B(15); "*P(J)*U(J)*Q(J)+"
3140 PRINT #1, " +"; B(16); "I(J)*P(J)*U(J)*Q(J)+"; B(17); "*V(J)+"
3150 PRINT #1, " +"; B(18); "*I(J)*V(J)+"; B(19); "P(J)*V(J)+"
3160 PRINT #1, " +"; B(20); "*I(J)*P(J)*V(J)+"; B(21); "*U(J)*V(J)+"
3170 PRINT #1, " +"; B(22); "*I(J)*U(J)*V(J)+"; B(23); "*P(J)*U(J)*V(J)+"
3180 PRINT #1, " +"; B(24); "*I(J)*P(J)*U(J)*V(J)+"; B(25); "*Q(J)*V(J)+"
3190 PRINT #1, " +"; B(26); "*I(J)*Q(J)*V(J)+"; B(27); "*P(J)*Q(J)*V(J)+"
3200 PRINT #1, " +"; B(28); "*I(J)*P(J)*Q(J)*V(J)+"
3210 PRINT #1, " +"; B(29); "*U(J)*Q(J)*V(J)+"
3220 PRINT #1, " +"; B(30); "*I(J)*U(J)*Q(J)*V(J)+"
3230 PRINT #1, " +"; B(31); "*P(J)*U(J)*Q(J)*V(J)+"
3240 PRINT #1, " +"; B(32); "*I(J)*P(J)*U(J)*Q(J)*V(J),"
3250 PRINT #1, "ГДЕ"
3260 PRINT #1, "I(J)=F(J)^"; J1; "+"; V1
3261 PRINT #1, "ОБОЗНАЧЕНИЕ:F(J)- 1-й ФАКТОР "
3270 IF X = 2 GOTO 3350
3280 PRINT #1, "P(J)=H(J)^"; J2; "+"; V2
3281 PRINT #1, "ОБОЗНАЧЕНИЕ:H(J)- 2-й ФАКТОР"
3290 IF X = 4 GOTO 3350
3300 PRINT #1, "U(J)=L(J)^"; J3; "+"; V3
3301 PRINT #1, "ОБОЗНАЧЕНИЕ:L(J)- 3-й ФАКТОР"




                                                       20