深梁计算程序

10 NL0 = 2 20 KZ = 0 30 M = 901 * 1 * 10 ^ 6 40 V = 1541 * 10 ^ 3 45 VK = 1244 * 10 ^ 3 REM VK = V / 1.25 50 F = 1: A = 1050 80 B = 700 REM B>=140 90 H = 1400 110 ASS = 37.5 120 L0 = 1050 * 2 125 LN = 550 * 2 REM L0=L0T*2,LN=LNT*2 130 FY = 300 135 ES = 2 * 10 ^ 5 140 NV = 2 145 DV = 12 REM D>=8 150 NH = 2 155 DH = 12 160 FYV = 210 170 FYH = 210 180 FCUK = 25 190 IF FCUK = 20 THEN LET FC = 9.6: FT = 1.1: FTK = 1.54 200 IF FCUK = 25 THEN LET FC = 11.9: FT = 1.27: FTK = 1.78 210 IF FCUK = 30 THEN LET FC = 14.3: FT = 1.43: FTK = 2.01 215 IF FCUK = 35 THEN LET FC = 16.7: FT = 1.57: FTK = 2.2 218 IF FCUK = 40 THEN LET FC = 19.1: FT = 1.71: FTK = 2.39 220 IF L0 > 1.15 * LN THEN L0 = 1.15 * LN 230 IF L0 / H >= 5 THEN PRINT "LLLL" 240 SL = 1 250 IF L0 / H > 2 AND NL0 = 1 THEN SL = 0 260 IF L0 / H > 2.5 AND NL0 > 1 THEN SL = 0 270 IF SL = 1 AND L0 / H >= 1 AND H / B > 25 THEN PRINT "B*1111": END 280 IF L0 / H < 1 AND L0 / B > 25 THEN PRINT "B*1111": END 290 IF L0 / H <= 2 THEN ASS = .2 * H 300 IF L0 / H <= 2 AND KZ = 1 THEN LET ASS = .1 * H 305 H0 = H - ASS 310 ECU = .0033 - (FCUK - 50) * 10 ^ (-5) 311 EB = .8 / (1 + FY / ES / ECU) 312 IF M > FC * B * H0 * H0 * EB * (1 - .5 * EB) THEN PRINT "M*9999" 313 IF M < 2 * FC * B * A1 * (H0 - A1) THEN PRINT "M*1111" 315 HH = H: IF SL = 0 THEN HH = H0 318 AD = .8 + .04 * L0 / H 320 IF L0 < H THEN P = M / FY / .6 / L0 / B / HH: GOTO 380 340 X = H0 * (1 - SQR(1 - 2 * M / FC / B / AD / H0 / H0)) 350 IF X < .2 * H0 THEN X = .2 * H0 360 AS1 = M / FY / (AD * (H0 - .5 * X)) 370 P = AS1 / B / HH 380 PMIN = .0025 390 IF SL = 0 OR FY >= 300 THEN PMIN = .002 400 IF P < PMIN THEN LET P = PMIN 405 IF SL = 0 AND P < 45 * FT / FY / 100 THEN LET P = 45 * FT / FY / 100 410 AS1G = P * B * HH 415 PRINT "As+G="; INT(AS1G + .5) 420 IF KZ = 0 AND L0 / H > 1.5 AND L0 / H <= 2.5 THEN PRINT "2As/3="; INT(2 * AS1G / 3 + .5), "As/3="; INT(AS1G / 3 + .5) 425 IF KZ = 0 AND L0 / H > 1 AND L0 / H <= 1.5 THEN PRINT "As/2="; INT(AS1G / 2 + .5), "As/2="; INT(AS1G / 2 + .5) 430 IF KZ = 0 AND L0 / H <= 1 THEN PRINT "As/3="; INT(AS1G / 3 + .5), "2As/3="; INT(2 * AS1G / 3 + .5) 440 IF L0 / H <= 1 AND NL0 > 1 AND KZ = 0 THEN PRINT "0.2L0-0.6L0:ASG>="; .005 * B * H 450 P1 = FC * H0 / HH / FY * (1 - SQR(1 - 2 * M / FC / B / H0 / H0 / AD)) 460 X1 = FY * P1 * HH / FC 470 IF X1 < .2 * H0 THEN X1 = .2 * H0 480 AS2 = M / FY / (AD * (H0 - .5 * X1)) 490 AS3 = FC * B * X1 / FY REM ???? AS2<>AS3,bucase x1<.2*h0,x1=.2*h0,no x1=fy*p*h0/fc 500 IF AS1 <> AS2 AND L0 > H THEN PRINT "****" 550 IF SL = 0 THEN GOTO 590 555 VKLF = .5 * FTK * B * H0 560 IF VK <= VKLF THEN PRINT "ASV*GZGZ": PRINT "VK(LF)="; VKLF, "VK="; VK: END 570 H0LF = VK / .5 / FTK / B 580 PRINT "H0(LF)="; INT(H0LF + .5), "H0="; H0 590 PI = 3.141592654# 595 ASV = NV * PI * (DV / 2) ^ 2 600 ASH = NH * PI * (DH / 2) ^ 2 610 HW = H0 620 L00 = L0 630 IF L0 < 2 * H THEN LET L0 = 2 * H 640 V1 = 1 / 60 * (10 + L0 / H) * FC * B * H0 650 V2 = 1 / 60 * (7 + L0 / H) * FC * B * H0 660 IF HW / B <= 4 AND V > V1 THEN PRINT "V*99999": END 670 IF HW / B >= 6 AND V > V2 THEN PRINT "V*99999": END 680 IF HW / B > 4 AND HW / B < 6 AND V > (V1 - V2) / 2 * (V - V2) + V2 THEN PRINT "V*99999": END 690 PSH = .0025 700 IF FYH >= 300 THEN PSH = .002 710 SVG = INT(ASH / B / PSH) 730 PSV = .002 740 IF FYV >= 300 THEN PSV = .0015 750 IF SL = 0 THEN PSV = .24 * FT / FYV 760 SHG = INT(ASV / B / PSV) 770 IF F = 1 THEN GOTO 820 775 VC = .7 * (8 - L0 / H) / 3 * FT * B * H0 780 IF V <= VC THEN PRINT "Sh-G="; SHG, "Sv-G="; SVG: END 790 SH = INT(1.25 * (L0 / H - 2) / 3 * FYV * ASV * H0 / (V - VC - (5 - L0 / H) / 6 * FYH * PSH * B * H0)) 795 SV = INT((5 - L0 / H) / 6 * FYH * ASH * H0 / (V - VC - 1.25 * (L0 / H - 2) / 3 * FYV * PSV * B * H0)) 796 SH1 = INT(1.25 * (L0 / H - 2) / 3 * FYV * ASV * H0 / (V - VC - (5 - L0 / H) / 6 * FYH * 2 * PI * 4 * 4 / 200 * H0)) 797 SV1 = INT((5 - L0 / H) / 6 * FYH * ASH * H0 / (V - VC - 1.25 * (L0 / H - 2) / 3 * FYV * 2 * PI * 4 * 4 / 200 * H0))