ВУЗ:
Составители:
298
'PRINT #1, "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va=";
Va; "Vb="; Vb; "ll1="; ll1; "ll2="; ll2; "ll3="; ll3
Mxa = -RR1 * ll3: Mya = -PP1 * ll3
Mxc = -RR1 * (ll2 + ll3) + Va * ll2
Myc = -PP1 * (ll2 + ll3) + Ha * ll2
Mxe = -RR1 * (ll2 + ll3 + .5 * ll1) + Va * (ll2 + .5 * ll1)
Mye = -PP1 * (ll2 + ll3 + (Ha – PP1) / qp) + Ha * (ll2 + (Ha – PP1) /
qp) – qp * .5 * ((Ha – PP1) / qp) ^ .5
Mua = (Mxa ^ 2 + Mya ^ 2) ^ .5: Muc = (Mxc ^ 2 + Myc ^ 2) ^ .5: Mue
= (Mxe ^ 2 + Mye ^ 2) ^ .5:
'PRINT "Mxa="; Mxa; "Mea="; Mya; "Mxc="; Mxc; "Mxe="; Mxe;
"Mye="; Mye; "Mua="; Mua; "Mue="; Mue
'PRINT #1, "Mxa="; Mxa; "Mea="; Mya; "Mxc="; Mxc; "Mxe="; Mxe;
"Mye="; Mye; "Mua="; Mua; "Mue="; Mue
Mkrc = Mkr2: Mkra = Mkr2: Mkre = (Mkr + Mkr2) / 2
IF X#(1) < 0 THEN X#(1) = dd0
IF X#(2) < 0 THEN X#(2) = dd0
IF X#(3) < 0 THEN X#(3) = dd0
W0e = 3.14 * DD ^ 3 / 32 * (1 – (X#(1) / DD) ^ 4)
W0c = 3.14 * dd2 ^ 3 / 32 * (1 – (X#(2) / dd2) ^ 4)
W0a = 3.14 * dd3 ^ 3 / 32 * (1 – (X#(3) / dd3) ^ 4)
SIGb = (Mue ^ 2 + Mkre ^ 2) ^ .5 / W0e
SIGz = (Muc ^ 2 + Mkrc ^ 2) ^ .5 / W0c
SIGp = (Mua ^ 2 + Mkra ^ 2) ^ .5 / W0a
'расчет максимального прогиба валка
JJ1 = 3.14 * DD ^ 4 / 64 * (1 – (X#(1) / DD) ^ 4)
JJ2 = 3.14 * dd2 ^ 4 / 64 * (1 – (X#(2) / dd2) ^ 4)
JJ3 = 3.14 * dd3 ^ 4 / 64 * (1 – (X#(3) / dd3) ^ 4)
fxmax1 = (Ha + Hb) * (.5 * ll2 * ll1 * (.5 * ll2 + 1 / 8 * ll1) + 1 / 8 * ll1
^ 2 * (.5 * ll2 + 1 / 6 * ll1))
fxmax2 = (PP1 + PP2) * ((ll2 + ll3) * (.5 * ll2 + 1 / 8 * ll1) * .5 * ll1 – 1
/ 8 * ll1 ^ 2 * (.5 * ll2 + 1 / 6 * ll1))
fxmax3 = 1 / 24 * qp * ll1 ^ 3 * (.5 * ll2 + 3 / 16 * ll1)
fxmax4 = (Ha + Hb) * 1 / 6 * ll2 ^ 3 – (PP1 + PP2) * (1 / 4 * ll2 ^ 2 *
ll3 – 1 / 6 * ll2 ^ 3)
fxmax = 1 / EE / JJ1 * (fxmax1 – fxmax2 – fxmax3) + 1 / EE / JJ2 *
fxmax4
fymax1 = (Va + Vb) * (.5 * ll2 * ll1 * (.5 * ll2 + 1 / 8 * ll1) + 1 / 8 * ll1
^ 2 * (.5 * ll2 + 1 / 6 * ll1))
fymax2 = (RR1 + RR2) * ((ll2 + ll3) * (.5 * ll2 + 1 / 8 * ll1) * .5 * ll1 –
1 / 8 * ll1 ^ 2 * (.5 * ll2 + 1 / 6 * ll1))
fymax3 = 1 / 24 * qg * ll1 ^ 3 * (.5 * ll2 + 3 / 16 * ll1)
Страницы
- « первая
- ‹ предыдущая
- …
- 296
- 297
- 298
- 299
- 300
- …
- следующая ›
- последняя »
