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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

135
2210 O(19) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
2220 O(19) = O(19) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19)
2230 S = 0: O(20) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
2240 O(20) = O(20) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(20) = S / O(20)
2250 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * K(J) * Y(J)
2260 O(21) = O(21) + (P(J) * U(J) * K(J)) ^ 2: NEXT J: B(21) = S / O(21)
2270 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + K(J) * V(J) * Y(J)
2280 O(22) = O(22) + (K(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
2290 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
2300 O(23) = O(23) + (Q(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
2310 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
2320 O(24) = O(24) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
2330 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * V(J) * Y(J)
2340 O(25) = O(25) + (P(J) * K(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
2350 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Q(J) * Y(J)
2360 O(26) = O(26) + (U(J) * K(J) * Q(J)) ^ 2: NEXT J: B(26) = S / O(26)
2370 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + K(J) * Q(J) * V(J) * Y(J)
2380 O(27) = O(27) + (K(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27):
GOTO 2390
2390 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
2395 PRINT #1, "B("; J; ")="; B(J)
2397 NEXT J: GOTO 2400
2400 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВ-
НЕ ФАКТОРОВ"
2407 INPUT N0
2408 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАК-
ТОРОВ"
2410 PRINT #1, "N0="; N0
2415 IF X = 3 GOTO 2510
2420 IF X = 4 GOTO 2520
2430 IF X = 5 GOTO 2530
2440 IF X = 9 GOTO 2540
2450 IF X = 12 GOTO 2550
2460 IF X = 15 GOTO 2560
2470 IF X = 16 GOTO 2570
2480 IF X = 20 GOTO 2580
2490 IF X = 25 GOTO 2590
2500 IF X = 27 GOTO 2600
2510 GOSUB 4390: GOTO 2610
2520 GOSUB 4400: GOTO 2610
2530 GOSUB 4420: GOTO 2610 
2210 O(19) = 0: FOR J = 1 TO X: S = S + I(J) * P(J) * V(J) * Y(J)
2220 O(19) = O(19) + (I(J) * P(J) * V(J)) ^ 2: NEXT J: B(19) = S / O(19)
2230 S = 0: O(20) = 0: FOR J = 1 TO X: S = S + I(J) * U(J) * Q(J) * Y(J)
2240 O(20) = O(20) + (I(J) * U(J) * Q(J)) ^ 2: NEXT J: B(20) = S / O(20)
2250 S = 0: O(21) = 0: FOR J = 1 TO X: S = S + P(J) * U(J) * K(J) * Y(J)
2260 O(21) = O(21) + (P(J) * U(J) * K(J)) ^ 2: NEXT J: B(21) = S / O(21)
2270 S = 0: O(22) = 0: FOR J = 1 TO X: S = S + K(J) * V(J) * Y(J)
2280 O(22) = O(22) + (K(J) * V(J)) ^ 2: NEXT J: B(22) = S / O(22)
2290 S = 0: O(23) = 0: FOR J = 1 TO X: S = S + Q(J) * V(J) * Y(J)
2300 O(23) = O(23) + (Q(J) * V(J)) ^ 2: NEXT J: B(23) = S / O(23)
2310 S = 0: O(24) = 0: FOR J = 1 TO X: S = S + I(J) * Q(J) * V(J) * Y(J)
2320 O(24) = O(24) + (I(J) * Q(J) * V(J)) ^ 2: NEXT J: B(24) = S / O(24)
2330 S = 0: O(25) = 0: FOR J = 1 TO X: S = S + P(J) * K(J) * V(J) * Y(J)
2340 O(25) = O(25) + (P(J) * K(J) * V(J)) ^ 2: NEXT J: B(25) = S / O(25)
2350 S = 0: O(26) = 0: FOR J = 1 TO X: S = S + U(J) * K(J) * Q(J) * Y(J)
2360 O(26) = O(26) + (U(J) * K(J) * Q(J)) ^ 2: NEXT J: B(26) = S / O(26)
2370 S = 0: O(27) = 0: FOR J = 1 TO X: S = S + K(J) * Q(J) * V(J) * Y(J)
2380 O(27) = O(27) + (K(J) * Q(J) * V(J)) ^ 2: NEXT J: B(27) = S / O(27):
GOTO 2390
2390 PRINT #1, "B(J) ДО АНАЛИЗА": FOR J = 1 TO X
2395 PRINT #1, "B("; J; ")="; B(J)
2397 NEXT J: GOTO 2400
2400 PRINT "ВВОД N0-КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВ-
НЕ ФАКТОРОВ"
2407 INPUT N0
2408 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ НА СРЕДНЕМ УРОВНЕ ФАК-
ТОРОВ"
2410 PRINT #1, "N0="; N0
2415 IF X = 3 GOTO 2510
2420 IF X = 4 GOTO 2520
2430 IF X = 5 GOTO 2530
2440 IF X = 9 GOTO 2540
2450 IF X = 12 GOTO 2550
2460 IF X = 15 GOTO 2560
2470 IF X = 16 GOTO 2570
2480 IF X = 20 GOTO 2580
2490 IF X = 25 GOTO 2590
2500 IF X = 27 GOTO 2600
2510 GOSUB 4390: GOTO 2610
2520 GOSUB 4400: GOTO 2610
2530 GOSUB 4420: GOTO 2610




                                   135

Страницы