Изобретения и совершенствование на их основе процессов и материалов с применением математического моделирования. Черный А.А - 114 стр.

UptoLike

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

114
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
1430 B(32) = S / O(32): GOTO 1440
1440 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
1445 PRINT #1, "B("; J; ")="; B(J)
1450 NEXT J: GOTO 1454
1454 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВ-
НЕ ФАКТОРОВ"
1456 PRINT #1, "N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ
ФАКТОРОВ"
1455 INPUT N0
1460 PRINT #1, "N0="; N0
1470 IF X = 2 GOTO 1520
1480 IF X = 4 GOTO 1530
1490 IF X = 8 GOTO 1540
1500 IF X = 16 GOTO 1550
1510 IF X = 32 GOTO 1560
1520 GOSUB 2540: GOTO 1570
1530 GOSUB 2550: GOTO 1570
1540 GOSUB 2570: GOTO 1570
1550 GOSUB 2600: GOTO 1570
1560 GOSUB 2670: GOTO 1570
1570 PRINT #1, "РАСЧЕТНЫЕ.ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J) ДО
АНАЛИЗА B(J)"
1580 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
1590 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
1600 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J) * (100 / Y(J))"
1601 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
1602 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) *
(100 / Y(J))
1603 NEXT J
1604 PRINT "
ВВОД F8=N0-1": INPUT F8: PRINT #1, "F8=N0-1="; N0; "-
1="; F8
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
1430 B(32) = S / O(32): GOTO 1440
1440 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
1445 PRINT #1, "B("; J; ")="; B(J)
1450 NEXT J: GOTO 1454
1454 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВ-
НЕ ФАКТОРОВ"
1456 PRINT #1, "N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ
ФАКТОРОВ"
1455 INPUT N0
1460 PRINT #1, "N0="; N0
1470 IF X = 2 GOTO 1520
1480 IF X = 4 GOTO 1530
1490 IF X = 8 GOTO 1540
1500 IF X = 16 GOTO 1550
1510 IF X = 32 GOTO 1560
1520 GOSUB 2540: GOTO 1570
1530 GOSUB 2550: GOTO 1570
1540 GOSUB 2570: GOTO 1570
1550 GOSUB 2600: GOTO 1570
1560 GOSUB 2670: GOTO 1570
1570 PRINT #1, "РАСЧЕТНЫЕ.ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J) ДО
АНАЛИЗА B(J)"
1580 FOR J = 1 TO X: PRINT #1, "Z("; J; ")="; Z(J): NEXT J
1590 PRINT #1, "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-Z(J)"
1600 PRINT #1, "В ПРОЦЕНТАХ (Y(J)-Z(J) * (100 / Y(J))"
1601 FOR J = 1 TO X: PRINT #1, "Y("; J; ")-Z("; J; ")="; Y(J) - Z(J)
1602 PRINT #1, "(Y("; J; ")-Z("; J; ")) * (100 / Y("; J; ")) = "; (Y(J) - Z(J)) *
(100 / Y(J))
1603 NEXT J
1604 PRINT "ВВОД F8=N0-1": INPUT F8: PRINT #1, "F8=N0-1="; N0; "-
1="; F8




                                      114