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

330 F(12) = B1: H(12) = B2: L(12) = A3: K(12) = B4: F(13) = A1
340 H(13) = A2: L(13) = B3: K(13) = B4: F(14) = B1: H(14) = A2
350 L(14) = B3: K(14) = B4: F(15) = A1: H(15) = B2: L(15) = B3
360 K(15) = B4: F(16) = B1: H(16) = B2: L(16) = B3: K(16) = B4
370 IF X = 16 GOTO 580
380 M(1) = A5: M(2) = A5: M(3) = A5: M(4) = A5: M(5) = A5
390 M(6) = A5: M(7) = A5: M(8) = A5: M(9) = A5: M(10) = A5
400 M(11) = A5: M(12) = A5: M(13) = A5: M(14) = A5: M(15) = A5
410 M(16) = A5: F(17) = A1: H(17) = A2: L(17) = A3: K(17) = A4
420 M(17) = B5: F(18) = B1: H(18) = A2: L(18) = A3: K(18) = A4
430 M(18) = B5: F(19) = A1: H(19) = B2: L(19) = A3: K(19) = A4
440 M(19) = B5: F(20) = B1: H(20) = B2: L(20) = A3: K(20) = A4
450 M(20) = B5: F(21) = A1: H(21) = A2: L(21) = B3: K(21) = A4
460 M(21) = B5: F(22) = B1: H(22) = A2: L(22) = B3: K(22) = A4
470 M(22) = B5: F(23) = A1: H(23) = B2: L(23) = B3: K(23) = A4
480 M(23) = B5: F(24) = B1: H(24) = B2: L(24) = B3: K(24) = A4
490 M(24) = B5: F(25) = A1: H(25) = A2: L(25) = A3: K(25) = B4
500 M(25) = B5: F(26) = B1: H(26) = A2: L(26) = A3: K(26) = B4
510 M(26) = B5: F(27) = A1: H(27) = B2: L(27) = A3: K(27) = B4
520 M(27) = B5: F(28) = B1: H(28) = B2: L(28) = A3: K(28) = B4
530 M(28) = B5: F(29) = A1: H(29) = A2: L(29) = B3: K(29) = B4
540 M(29) = B5: F(30) = B1: H(30) = A2: L(30) = B3: K(30) = B4
550 M(30) = B5: F(31) = A1: H(31) = B2: L(31) = B3: K(31) = B4
560 M(31) = B5: F(32) = B1: H(32) = B2: L(32) = B3: K(32) = B4
570 M(32) = B5
580 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
585 PRINT "IF I0=7 GOTO 610-ПРОДОЛЖЕНИЕ"
590 INPUT I0: IF I0 = 6 GOTO 40
600 IF I0 = 7 GOTO 610
610 PRINT "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ ПО ПЛАНУ Y(J)"
611 PRINT #1, "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ В СООТВЕТСТВИИ С ПЛАНОМ Y(J)"
615 FOR J = 1 TO X: PRINT "ВВОД Y("; J; ")": INPUT Y(J)
620 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
630 PRINT "IF I0=1 GOTO 610-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
635 PRINT "IF I0=2 GOTO 660-ПРОДОЛЖЕНИЕ"
640 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 610
650 IF I0 = 2 GOTO 660
660 IF X = 2 GOTO 710
670 IF X = 4 GOTO 720
680 IF X = 8 GOTO 730
690 IF X = 16 GOTO 740
700 IF X = 32 GOTO 760
710 GOSUB 2490: GOTO 780
720 GOSUB 2490: GOSUB 2500: GOTO 780
730 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOTO 780
740 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520
750 GOTO 780
760 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520
770 GOSUB 2530: GOTO 780
780 S = 0: O(1) = 0: FOR J = 1 TO X: S = S + Y(J): O(1) = O(1) + 1: NEXT J
790 B(1) = S / O(1): S = 0: O(2) = 0: FOR J = 1 TO X: S = S + I(J) * Y(J)
800 O(2) = O(2) + I(J) ^ 2: NEXT J: B(2) = S / O(2): IF X = 2 GOTO 1440
810 S = 0: O(3) = 0: FOR J = 1 TO X: S = S + P(J) * Y(J): O(3) = O(3) + P(J) ^ 2
820 NEXT J: B(3) = S / O(3): S = 0: O(4) = 0: FOR J = 1 TO X
830 S = S + I(J) * P(J) * Y(J): O(4) = O(4) + (I(J) * P(J)) ^ 2: NEXT J
840 B(4) = S / O(4): IF X = 4 GOTO 1440
850 S = 0: O(5) = 0




                                             14