Пористые материалы и изделия, их улучшение на основе математического моделирования. Черный А.А - 27 стр.

2270 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: Z(S) = 0
2280 PRINT "ВВОД F("; S; "),H("; S; "),L("; S; ")"
2290 INPUT F(S), H(S), L(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S)
2300 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S): GOSUB 2490
2302 GOSUB 2500: GOSUB 2510: GOSUB 2570: GOTO 2304
2304 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 2430
2310 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: K(S) = 0
2320 Z(S) = 0: PRINT "ВВОД F("; S; "),H("; S; "),L("; S; "),"; "K("; S; ")"
2330 INPUT F(S), H(S), L(S), K(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S)
2340 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S)
2345 PRINT #1, "K("; S; ")="; K(S)
2350 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520: GOSUB 2600: GOTO 2352
2352 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 2430
2360 FOR S = 1 TO X: F(S) = 0: H(S) = 0: L(S) = 0: K(S) = 0
2370 M(S) = 0: Z(S) = 0: PRINT "ВВОД F("; S; "),H("; S; "),L("; S; ")"
2380 INPUT F(S), H(S), L(S): PRINT "ВВОД K("; S; "),M("; S; ")"
2390 INPUT K(S), M(S): PRINT #1, "ФАКТОРЫ F("; S; ")="; F(S)
2400 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S)
2410 PRINT #1, "ФАКТОРЫ K("; S; ")="; K(S); "M("; S; ")="; M(S)
2420 GOSUB 2490: GOSUB 2500: GOSUB 2510: GOSUB 2520: GOTO 2422
2422 GOSUB 2530: GOSUB 2670: GOTO 2425
2425 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 2430
2430 PRINT "IF I0=10 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И РАСЧЕТЫ ПО МОДЕЛИ"
2431 PRINT "IF I0=11 GOTO 2820 -МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
2435 PRINT "IF I0=14 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
2436 PRINT "              С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И"
2437 PRINT "              ПОСТРОЕНИЕ ГРАФИКОВ"
2440 PRINT "IF I0=12 GOTO 6830-КОНЕЦ"
2445 PRINT "ВВОД I0": INPUT I0
2450 IF I0 = 10 GOTO 2150
2460 IF I0 = 11 GOTO 2820
2465 IF I0 = 14 GOTO 7000
2470 IF I0 = 12 GOTO 6830
2480 V0 = -(A ^ N + B ^ N) / 2
2485 PRINT #1, "КОЭФФИЦИЕНТ ОРТОГОНАЛИЗАЦИИ": RETURN
2490 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1: NEXT J: RETURN
2500 FOR J = 1 TO X: P(J) = H(J) ^ J2 + V2: NEXT J: RETURN
2510 FOR J = 1 TO X: U(J) = L(J) ^ J3 + V3: NEXT J: RETURN
2520 FOR J = 1 TO X: Q(J) = K(J) ^ J4 + V4: NEXT J: RETURN
2530 FOR J = 1 TO X: V(J) = M(J) ^ J5 + V5: NEXT J: RETURN
2540 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J): NEXT J: RETURN
2550 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * P(J) + B(4) * I(J) * P(J)
2560 NEXT J: RETURN
2570 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * P(J) + B(4) * I(J) * P(J)
2580 N4 = B(5) * U(J) + B(6) * I(J) * U(J) + B(7) * P(J) * U(J)
2590 Z(J) = N3 + N4 + B(8) * I(J) * P(J) * U(J)
2595 NEXT J: RETURN
2600 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * P(J) + B(4) * I(J) * P(J)
2610 N4 = B(5) * U(J) + B(6) * I(J) * U(J) + B(7) * P(J) * U(J)
2620 N5 = B(8) * I(J) * P(J) * U(J) + B(9) * Q(J) + B(10) * I(J) * Q(J)
2630 N6 = B(11) * P(J) * Q(J) + B(12) * I(J) * P(J) * Q(J) + B(13) * U(J) * Q(J)
2640 N7 = B(14) * I(J) * U(J) * Q(J) + B(15) * P(J) * U(J) * Q(J)

                                        27