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

UptoLike

50
540 A1 = A1 – A2
550 MZ = MZ * A1
560 A1 = DEL * PMAX * COS(F1) / 8
570 A2 = (D ^ 2 – D1 ^ 2) / L * (SIN(A * X) / A ^ 2 – X * COS(A * X) /
A + X / A)
580 A3 = 2 * D1 * (D1 – D2) / L ^ 2
590 A4 = 2 * X * SIN(A * X) / A ^ 2 – (X ^ 2 / A – 2 / A ^ 3) *
COS(A * X) + L * X / A – 2 / A ^ 3
600 A3 = A3 * A4
610 A4 = (3 * X ^ 2 / A ^ 2 – 6 / A ^ 4) * SIN(A * X) – (X ^ 3 / A – 6 * X /
A ^ 3) * COS(A * X) + L ^ 2 * X / A – 6 * X / A ^ 3
620 A4 = A4 * (D1 – D2) ^ 2 / L ^ 3
630 MZ = MZ – A1 * (A2 + A3 – A4)
635 PRINT "MZ"; MZ
636 REM
******************VY(X)**************************************
640 VY = 3 * DEL / 2 * PMAX * SIN(F1) * (D2 – D1) / L ^ 2 / A ^ 2 – 2 *
D1 * (D2 – D1) * DEL * PMAX / 8 * COS(F1) / L ^ 2 / A
650 VY = VY / J0 / E
660 VY = VY * (X ^ 4 / 12 – L / 6 * X ^ 3 + L ^ 3 * X / 12 – 4 * B * (X ^ 5 /
20 – L * X ^ 4 / 12 + L ^ 4 * X / 30) + 10 * B ^ 2 * (X ^ 6 / 30 – L * X ^ 5 /
20 + L ^ 5 * X / 60)): PRINT "VY"; VY
670 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)
680 A1 = A1 / E / J0
690 A1 = A1 * DEL / 8 * PMAX * COS(F1) / L ^ 3 / A * (D2 – D1) ^ 2
700 VY = VY – A1
703 PRINT "VY"; VY
704 REM
****************VZ(Z)***************************************
710 VZ = (3 * DEL / 8 * PMAX * COS(F1) * (D2 – D1) ^ 2 / L ^ 3 /
A ^ 2 – DEL / 2 * PMAX * SIN(F1) / L / A * (D – D1)) / E / J0
720 VZ = VZ * (X ^ 4 / 12 – L / 6 * X ^ 3 + L ^ 3 / 12 * X – 4 * B * (X ^ 5 /
20 – L * X ^ 4 / 12 + L ^ 4 * X / 30) + 10 * B ^ 2 * (X ^ 6 / 30 – L * X ^ 5 /
20 + L ^ 5 / 60 * X))
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)