Инженерная оптимизация экструзионного оборудования. Клинков А.С - 59 стр.

UptoLike

59
725 VZ = VZ / E / J0
730 A1 = (X ^ 5) / 20 – ((L ^ 2) * (X ^ 3)) / 6 + (14 * (L ^ 4) * X) / 120 – (4 * B)
* ((X ^ 6) / 30((L ^ 2) * (X ^ 4)) / 12 + (18 * (L ^ 5) * X) / 360) + 10 * (B ^ 2)
* ((X ^ 7) / 42((L ^ 2) * (X ^ 5)) / 20 + (22 * X * (L ^ 6)) / 840)
740 A1 = (1 / E / J0 / 3) * A1 * DEL * (PMAX * SIN(F1) / ((L ^ 2) * A)) * (D2
D1)
750 VZ = VZ + A1
755 PRINT "VZ = "; VZ
760 MOX = SQR(MY ^ 2 + MZ ^ 2)
770 VOX = SQR(VY ^ 2 + VZ ^ 2)
772 AWD = J1 / J2
773 PRINT "J1/J2"; AWD
780 SE = (E / (L ^ 2)) * ETA * J2
790 VX = VOX / (1 – NX / SE)
800 FX = (P1 / 4) * DX
810 WOX = (P1 / 32) * (DX ^ 3)
820 GMAX = ABS(ABS(NX) / FX + MOX / WOX + (ABS(NX) / WOX) * VX)
830 A1 = (((L ^ 3) / 12) * (D – D1)) – ((L ^ 3) / 32) * (D2 – D1)((D – D1) * (L
^ 3)) / (16 * (P1 ^ 2)) + ((D2 – D1) / (16 * (P1 ^ 2))) * L ^ 3
840 A1 = (A1 / L) * B * COS(F1)
850 A1 = A1 + ((P1 / 8) * L * (D ^ 2))
860 A2 = (L / 2) + B * (L ^ 2) + 6 * (B ^ 2) * (((L ^ 3) / 6) – ((L ^ 3) / (4 * (P1 ^
2)))) + (4 * (B ^ 3)) * (((L ^ 4) / 8) – ((3 / 8) * ((L ^ 4) / (P1 ^ 2))))
880 A3 = (B ^ 4) * ((L ^ 5) / 10 (L ^ 5) / (2 * (P1 ^ 2)) + (3 / 4 / P1 ^ 4) * L ^ 5)
890 A2 = A2 + A3
900 A2 = ((A2 * E * J1) / (L ^ 2)) * (P1 ^ 2): PMAXP = A2 / A1
920 TMAX = ABS(Mx / 2 / WOX): GR = SQR((GMAX ^ 2) + 4 * (TMAX ^ 2))
940 NU = PMAXP / PMAX
950 PRINT "Внутpеннее усилие NX = "; NX, "MX = "; Mx, "MY = "; MY,
"MZ = "; MZ
960 PRINT "Пpогибы VY = "; VY, "VZ = "; VZ, "Полный пpогиб VX = "; VX
970 PRINT "SIGMAMAX = "; GMAX, "Pmaxкp = "; PMAXP, "TAUmax = ";
TMAX; "NU = "; NU; "SIGMAR = "; GR