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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

15
860 FOR J = 1 TO X: S = S + U(J) * Y(J): O(5) = O(5) + U(J) ^ 2
870 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
880 S = S + I(J) * U(J) * Y(J): O(6) = O(6) + (I(J) * U(J)) ^ 2: NEXT J
890 B(6) = S / O(6): S = 0: O(7) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Y(J)
900 O(7) = O(7) + (P(J) * U(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0: O(8) = 0
910 FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Y(J)
920 O(8) = O(8) + (I(J) * P(J) * U(J)) ^ 2: NEXT J: B(8) = S / O(8)
930 IF X = 8 GOTO 1440
940 S = 0: O(9) = 0: FOR J = 1 TO X
950 S = S + Q(J) * Y(J): O(9) = O(9) + Q(J) ^ 2: NEXT J: B(9) = S / O(9)
960 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
970 O(10) = O(10) + (I(J) * Q(J)) ^ 2: NEXT J: B(10) = S / O(10): S = 0
980 O(11) = 0: FOR J = 1 TO X: S = S + P(J) * Q(J) * Y(J)
990 O(11) = O(11) + (P(J) * Q(J)) ^ 2: NEXT J: B(11) = S / O(11): S = 0
1000 O(12) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * Q(J) * Y(J)
1010 O(12) = O(12) + (I(J) * P(J) * Q(J)) ^ 2: NEXT J: B(12) = S / O(12)
1020 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * Y(J)
1030 O(13) = O(13) + (U(J) * Q(J)) ^ 2: NEXT J: B(13) = S / O(13): S = 0
1040 O(14) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
1050 O(14) = O(14) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(14) = S / O(14): S = 0
1060 O(15) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Q(J) * Y(J)
1070 O(15) = O(15) + (P(J) * U(J) * Q(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
1080 O(16) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Q(J) * Y(J)
1090 O(16) = O(16) + (I(J) * P(J) * U(J) * Q(J)) ^ 2: NEXT J: B(16) = S / O(16)
1100 IF X = 16 GOTO 1440
1110 S = 0: O(17) = 0: FOR J = 1 TO X
1120 S = S + V(J) * Y(J): O(17) = O(17) + V(J) ^ 2: NEXT J: B(17) = S / O(17)
1130 S = 0: O(18) = 0: FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J)
1140 O(18) = O(18) + (I(J) * V(J)) ^ 2: NEXT J: B(18) = S / O(18): S = 0
1150 O(19) = 0: FOR J = 1 TO X: S = S + P(J) * V(J) * Y(J)
1160 O(19) = O(19) + (P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19): S = 0
1170 O(20) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
1180 O(20) = O(20) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(20) = S / O(20)
1190 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + U(J) * V(J) * Y(J)
1200 O(21) = O(21) + (U(J) * V(J)) ^ 2: NEXT J: B(21) = S / O(21)
1210 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * V(J) * Y(J)
1220 O(22) = O(22) + (I(J) * U(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
1230 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * V(J) * Y(J)
1240 O(23) = O(23) + (P(J) * U(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
1250 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * V(J) * Y(J)
1260 O(24) = O(24) + (I(J) * P(J) * U(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
1270 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
1280 O(25) = O(25) + (Q(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
1290 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
1300 O(26) = O(26) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(26) = S / O(26)
1310 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + P(J) * Q(J) * V(J) * Y(J)
1320 O(27) = O(27) + (P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27)
1330 S = 0: O(28) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * Q(J) * V(J) * Y(J)
1340 O(28) = O(28) + (I(J) * P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(28) = S / O(28)
1350 S = 0: O(29) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * V(J) * Y(J)
1360 O(29) = O(29) + (U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(29) = S / O(29)
1370 S = 0: O(30) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * V(J) * Y(J)
1380 O(30) = O(30) + (I(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(30) = S / O(30)
1390 S = 0: O(31) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Q(J) * V(J) * Y(J)
1400 O(31) = O(31) + (P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(31) = S / O(31)
1410 S = 0: O(32) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Q(J) * V(J) * Y(J)
1420 O(32) = O(32) + (I(J) * P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J 
860 FOR J = 1 TO X: S = S + U(J) * Y(J): O(5) = O(5) + U(J) ^ 2
870 NEXT J: B(5) = S / O(5): S = 0: O(6) = 0: FOR J = 1 TO X
880 S = S + I(J) * U(J) * Y(J): O(6) = O(6) + (I(J) * U(J)) ^ 2: NEXT J
890 B(6) = S / O(6): S = 0: O(7) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Y(J)
900 O(7) = O(7) + (P(J) * U(J)) ^ 2: NEXT J: B(7) = S / O(7): S = 0: O(8) = 0
910 FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Y(J)
920 O(8) = O(8) + (I(J) * P(J) * U(J)) ^ 2: NEXT J: B(8) = S / O(8)
930 IF X = 8 GOTO 1440
940 S = 0: O(9) = 0: FOR J = 1 TO X
950 S = S + Q(J) * Y(J): O(9) = O(9) + Q(J) ^ 2: NEXT J: B(9) = S / O(9)
960 S = 0: O(10) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * Y(J)
970 O(10) = O(10) + (I(J) * Q(J)) ^ 2: NEXT J: B(10) = S / O(10): S = 0
980 O(11) = 0: FOR J = 1 TO X: S = S + P(J) * Q(J) * Y(J)
990 O(11) = O(11) + (P(J) * Q(J)) ^ 2: NEXT J: B(11) = S / O(11): S = 0
1000 O(12) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * Q(J) * Y(J)
1010 O(12) = O(12) + (I(J) * P(J) * Q(J)) ^ 2: NEXT J: B(12) = S / O(12)
1020 S = 0: O(13) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * Y(J)
1030 O(13) = O(13) + (U(J) * Q(J)) ^ 2: NEXT J: B(13) = S / O(13): S = 0
1040 O(14) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
1050 O(14) = O(14) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(14) = S / O(14): S = 0
1060 O(15) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Q(J) * Y(J)
1070 O(15) = O(15) + (P(J) * U(J) * Q(J)) ^ 2: NEXT J: B(15) = S / O(15): S = 0
1080 O(16) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Q(J) * Y(J)
1090 O(16) = O(16) + (I(J) * P(J) * U(J) * Q(J)) ^ 2: NEXT J: B(16) = S / O(16)
1100 IF X = 16 GOTO 1440
1110 S = 0: O(17) = 0: FOR J = 1 TO X
1120 S = S + V(J) * Y(J): O(17) = O(17) + V(J) ^ 2: NEXT J: B(17) = S / O(17)
1130 S = 0: O(18) = 0: FOR J = 1 TO X: S = S + I(J) * V(J) * Y(J)
1140 O(18) = O(18) + (I(J) * V(J)) ^ 2: NEXT J: B(18) = S / O(18): S = 0
1150 O(19) = 0: FOR J = 1 TO X: S = S + P(J) * V(J) * Y(J)
1160 O(19) = O(19) + (P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19): S = 0
1170 O(20) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
1180 O(20) = O(20) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(20) = S / O(20)
1190 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + U(J) * V(J) * Y(J)
1200 O(21) = O(21) + (U(J) * V(J)) ^ 2: NEXT J: B(21) = S / O(21)
1210 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * V(J) * Y(J)
1220 O(22) = O(22) + (I(J) * U(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
1230 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * V(J) * Y(J)
1240 O(23) = O(23) + (P(J) * U(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
1250 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * V(J) * Y(J)
1260 O(24) = O(24) + (I(J) * P(J) * U(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
1270 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
1280 O(25) = O(25) + (Q(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
1290 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
1300 O(26) = O(26) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(26) = S / O(26)
1310 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + P(J) * Q(J) * V(J) * Y(J)
1320 O(27) = O(27) + (P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27)
1330 S = 0: O(28) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * Q(J) * V(J) * Y(J)
1340 O(28) = O(28) + (I(J) * P(J) * Q(J) * V(J)) ^ 2: NEXT J: B(28) = S / O(28)
1350 S = 0: O(29) = 0: FOR J = 1 TO X: S = S + U(J) * Q(J) * V(J) * Y(J)
1360 O(29) = O(29) + (U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(29) = S / O(29)
1370 S = 0: O(30) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * V(J) * Y(J)
1380 O(30) = O(30) + (I(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(30) = S / O(30)
1390 S = 0: O(31) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * Q(J) * V(J) * Y(J)
1400 O(31) = O(31) + (P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J: B(31) = S / O(31)
1410 S = 0: O(32) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * U(J) * Q(J) * V(J) * Y(J)
1420 O(32) = O(32) + (I(J) * P(J) * U(J) * Q(J) * V(J)) ^ 2: NEXT J




                                                      15

Страницы