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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

57
270 NX = NX – ((PMAX * P1 * D * D) / 4)
275 REM
**************Mx(X)*********************************************
280 A1 = ((D ^ 2) / 2) * ((X ^ 2) / (L ^ 2) – 1)
290 A2 = .5 – (((2 / 3) * (X / L)) + ((X ^ 2) / (4 * (L ^ 2))))
300 A2 = A2 * ((X ^ 2) / (L ^ 2))
310 A2 = A2 – (1 / 12)
320 A2 = (D1 ^ 2) * A2
330 Mx = (DEL * PMAX * SIN(F1) * L) / 8: PRINT Mx
340 A3 = ((1 / 3) – (X / 4 / L)) * ((X ^ 3) / (L ^ 3)) – (1 / 12)
350 A3 = A3 * 2 * D1 * D2
360 A4 = D2 ^ 2 / 4 * (X ^ 4 / L ^ 4 – 1)
370 Mx = (-Mx) * (A1 – A2 – A3 – A4)
373 PRINT "NX"; NX, "Mx"; Mx
376 REM
***************MY(X)********************************************
380 A1 = (D – D1) * ((((-2) * COS(A * X)) / (A ^ 3)) – ((X * SIN(A * X)) / (A ^
2)) + (2 / (A ^ 3)))
390 A2 = ((D2 – D1) / L) * (((6 / (A ^ 4)) * SIN(A * X)) – (((4 * X) / (A ^ 3)) *
COS(A * X)) – (((X ^ 2) / (A ^ 2)) * SIN(A * X)) + ((4 * X) / (A ^ 3)))
400 MY = ((DEL * PMAX * SIN(F1)) / (2 * L)) * (A1 – A2): PRINT "A1"; A1,
A2
410 A1 = (COS(A * X) / (A ^ 2)) + ((X * SIN(A * X)) / A) – (1 / (A ^ 2))
420 A1 = ((D ^ 2) – (D1 ^ 2)) / L * A1
430 A2 = (2 * D1 * (D1 – D2)) / (L ^ 2)
440 A3 = (((2 * X * COS(A * X)) / (A ^ 2)) + (((X ^ 2) / A) – (2 / (A ^ 3))) *
SIN(A * X) – ((2 * X) / (A ^ 2)))
450 A2 = A2 * A3
460 A3 = ((3 * ((X ^ 2) / (A ^ 2))) – (6 / (A ^ 4))) * COS(A * X)
470 A4 = ((((X ^ 3) / A) – ((6 * X) / (A ^ 3))) * SIN(A * X)) + ((6 / (A ^ 4)) – ((3
* L * X) / (A ^ 2)))
480 A3 = A3 + A4
490 A3 = (((D2 – D1) ^ 2) / (L ^ 3)) * A3
500 MY = MY – ((DEL * PMAX * COS(F1)) / 8) * (A1 + A2 – A3)
502 PRINT "MY"; MY
505 REM
******************MZ(Z)*****************************************
510 MZ = -DEL * PMAX * SIN(F1) / 2 / L
520 A1 = (D – D1) * (((2 * SIN(A * X)) / (A ^ 3)) – ((X * COS(A * X)) / (A ^
2)) + (X / (A ^ 2)))

Страницы