Композиционные материалы в технике и перспективы их получения при производстве отливок. Черный А.А - 49 стр.

3574 PRINT #1, "ФАКТОРЫ H("; S; ")="; H(S); "L("; S; ")="; L(S)
3580 GOSUB 4150: GOSUB 4170: GOSUB 4190: GOSUB 4770: GOTO 3590
3590 PRINT #1, "Z("; S; ")="; Z(S): NEXT S: GOTO 3610
3610 PRINT "IF I0=10 GOTO 3240-ПРОВЕРКА ТОЧНОСТИ И ";
3611 PRINT "РАСЧЕТЫ ПО МОДЕЛИ"
3612 PRINT "IF I0=11 GOTO 4880 - МАТЕМАТИЧЕСКАЯ МОДЕЛЬ"
3615 PRINT "IF I0=14 GOTO 7000-ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
3616 PRINT "             С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ И "
3617 PRINT "              ПОСТРОЕНИЕ ГРАФИКОВ"
3620 PRINT "IF I0=12 GOTO 6830-КОНЕЦ"
3625 PRINT "ВВОД I0": INPUT I0
3630 IF I0 = 10 GOTO 3240
3640 IF I0 = 11 GOTO 4880
3650 IF I0 = 12 GOTO 6830
3653 IF I0 = 14 GOTO 7000
3660 N0 = (A ^ N + B ^ N + E ^ N) / 3: R0 = (A ^ R + B ^ R + E ^ R) / 3
3670 L2 = 2 * N: N3 = (A ^ L2 + B ^ L2 + E ^ L2) / 3: N4 = N + R
3680 N5 = (A ^ N4 + B ^ N4 + E ^ N4) / 3: V0 = -N0
3690 U0 = (N0 * R0 - N5) / (N3 - N0 ^ 2): Q0 = -(R0 + U0 * N0)
3700 PRINT #1, "КОЭФФИЦИЕНТЫ ОРТОГОНАЛИЗАЦИИ": RETURN
4150 FOR J = 1 TO X: I(J) = F(J) ^ J1 + V1
4160 K(J) = F(J) ^ O1 + U1 * F(J) ^ J1 + Q1: NEXT J: RETURN
4170 FOR J = 1 TO X: P(J) = H(J) ^ J2 + V2
4180 Q(J) = H(J) ^ O2 + U2 * H(J) ^ J2 + Q2: NEXT J: RETURN
4190 FOR J = 1 TO X: U(J) = L(J) ^ J3 + V3
4200 V(J) = L(J) ^ O3 + U3 * L(J) ^ J3 + Q3: NEXT J: RETURN
4390 FOR J = 1 TO X: Z(J) = B(1) + B(2) * I(J) + B(3) * K(J): NEXT J: RETURN
4450 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4460 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J)
4470 N5 = B(8) * P(J) * K(J) + B(9) * K(J) * Q(J)
4480 Z(J) = N3 + N4 + N5: NEXT J: RETURN
4770 FOR J = 1 TO X: N3 = B(1) + B(2) * I(J) + B(3) * K(J) + B(4) * P(J)
4780 N4 = B(5) * I(J) * P(J) + B(6) * Q(J) + B(7) * I(J) * Q(J) + B(8) * P(J) * K(J)
4790 N5 = B(9) * K(J) * Q(J) + B(10) * U(J) + B(11) * I(J) * U(J) + B(12) * P(J) * U(J)
4800 N6 = B(13) * I(J) * P(J) * U(J) + B(14) * V(J) + B(15) * I(J) * V(J)
4810 N7 = B(16) * P(J) * V(J) + B(17) * U(J) * K(J) + B(18) * U(J) * Q(J)
4820 R0 = B(19) * I(J) * P(J) * V(J) + B(20) * I(J) * U(J) * Q(J)
4830 R4 = B(21) * P(J) * U(J) * K(J) + B(22) * K(J) * V(J) + B(23) * Q(J) * V(J)
4840 R5 = B(24) * I(J) * Q(J) * V(J) + B(25) * P(J) * K(J) * V(J)
4850 R6 = B(26) * U(J) * K(J) * Q(J) + B(27) * K(J) * Q(J) * V(J)
4860 Z(J) = N3 + N4 + N5 + N6 + N7 + R0 + R4 + R5 + R6: NEXT J: RETURN
4880 PRINT #1, "МАТЕМАТИЧЕСКАЯ МОДЕЛЬ": IF X = 3 GOTO 4910
4890 IF X = 9 GOTO 4930
4900 IF X = 27 GOTO 4980
4910 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J),"
4920 IF X = 3 GOTO 5110
4930 PRINT #1, "Z(J)="; B(1); "+"; B(2); "*I(J)+"; B(3); "*K(J)+"
4940 PRINT #1, "+"; B(4); "*P(J)+"; B(5); "*I(J)*P(J)+"




                                                                                          49