ВУЗ:
Составители:
Рубрика:
RR1 = PP1 * TAN(20 * 3.14 / 180): RR2 = PP2 * TAN(20 * 3.14 / 180)
Ha = (qp * ll1 * (.5 * ll1 + ll2) + PP1 * (ll1 + 2 * ll2 + ll3) - PP2 * ll3) / (2 * ll2 + ll1)
Hb = (qp * ll1 * (.5 * ll1 + ll2) + PP2 * (ll1 + 2 * ll2 + ll3) - PP1 * ll3) / (2 * ll2 + ll1)
Va = (qg * ll1 * (.5 * ll1 + ll2) - RR2 * ll3 + RR1 * (ll1 + 2 * ll2 + ll3)) / (2 * ll2 + ll1)
Vb = (qg * ll1 * (.5 * ll1 + ll2) - RR1 * ll3 + RR2 * (ll1 + 2 * ll2 + ll3)) / (2 * ll2 + ll1)
'PRINT "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va="; Va; "Vb="; Vb; "ll1="; ll1
'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)
fymax4 = (Va + Vb) * 1 / 6 * ll2 ^ 3 - (RR1 + RR2) * (1 / 4 * ll2 ^ 2 * ll3 - 1 / 6 * ll2 ^ 3)
fymax = 1 / EE / JJ1 * (fymax1 - fymax2 - fymax3) + 1 / EE / JJ2 * fymax4
fmax = (fxmax ^ 2 + fymax ^ 2) ^ .5
'PRINT "SIGb="; SIGb; "SIGz="; SIGz; "SIGp="; SIGp; "fmax="; fmax
'PRINT #1, "SIGb="; SIGb; "SIGz="; SIGz; "SIGp="; SIGp; "fmax="; fmax
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
CLS
'PRINT "x#(1)="; X#(1); "x#(2)="; X#(2); "x#(3)="; X#(3)
'PRINT #1, "x#(1)="; X#(1); "x#(2)="; X#(2); "x#(3)="; X#(3)
'PRINT "SIGb="; SIGb; "SIGz="; SIGz; "SIGp="; SIGp; "fmax="; fmax; ""
'PRINT #1, "SIGb="; SIGb; "SIGz="; SIGz; "SIGp="; SIGp; "fmax="; fmax; ""
'PRINT "Mkrc="; Mkrc; "Mkra="; Mkra; "Mkre="; Mkre
'PRINT #1, "Mkrc="; Mkrc; "Mkra="; Mkra; "Mkre="; Mkre
'PRINT "W0e="; W0e; "W0c="; W0c; "W0a="; W0a
'PRINT #1, "W0e="; W0e; "W0c="; W0c; "W0a="; W0a
'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
'PRINT "qp="; qp; "qg="; qg; "Fr="; Fr; "Mkr="; Mkr; "Mkr1="; Mkr1; "Mkr2="; Mkr2
'PRINT #1, "qp="; qp; "Fr="; Fr; "Mkr="; Mkr; "Mkr1="; Mkr1; "Mkr2="; Mkr2
'PRINT "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va="; Va; "Vb="; Vb; "ll1="; ll1
'PRINT #1, "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va="; Va; "Vb="; Vb; "ll1="; ll1; "ll2="; ll2; "ll3="; ll3
'ограничений в виде равенств нет
GOTO 300
'ограничения в виде неравенств
100
R#(1) = 1 - 40 / X#(1)
R#(2) = 120 / X#(1) - 1
