牛腿计算程序

130 FV = 1842 * 10 ^ 3 140 FH = 59 * 10 ^ 3 200 FVK = 1521 * 10 ^ 3 210 FHK = 59 * 10 ^ 3 / 1.25 REM FVK=FU/1.25 ,FHK=FH/1.25 220 FCUK = 25 230 FY = 300 240 A = 1050 + 20 250 B = 700 260 H = 1900 270 ASS = 40 + 12.5 + 25 280 B1 = 500 290 H1 = 400 300 BT = .8 310 IF FCUK = 20 THEN FC = 9.6: FTK = 1.54 320 IF FCUK = 25 THEN FC = 11.9: FTK = 1.78 330 IF FCUK = 30 THEN FC = 14.3: FTK = 2.01 335 IF FCUK = 35 THEN FC = 16.7: FTK = 2.2 338 IF FCUK = 40 THEN FC = 19.1: FTK = 2.39 340 A1 = BT * (1 - .5 * FHK / FVK) * FTK * B 350 h0 = H - ASS 355 IF A > h0 THEN PRINT "TLTL" 360 FVK1 = A1 * h0 / (.5 + A / h0) 365 PRINT "Fvkmax(LF)="; FVK1, "Fvk="; FVK 370 H0MIN = (FVK * .5 + SQR((FVK * .5) ^ 2 + 4 * A1 * FVK * A)) / 2 / A1 380 PRINT "H0min(LF)="; INT(H0MIN + .5), "H0="; h0 385 IF H0MIN > H - ASS THEN PRINT "H*0000" 390 FL = .75 * FC * B1 * H1 395 IF FVK > FL THEN PRINT "Flmax="; FL, "Fvk="; FVK 398 AA = A 410 IF A < .3 * h0 THEN A = .3 * h0 415 ASFV = FV * A / .85 / FY / h0 418 ASFH = 1.2 * FH / FY 420 AS1 = ASFV + ASFH 430 PRINT "As="; INT(AS1 + .5) 440 P = ASFV / B / h0 445 PI = 3.141592654# 450 IF P > .006 THEN PRINT "P*9999" 460 IF P < .002 THEN P = .002 470 IF P < 45 * FT / FY / 100 THEN P = 45 * FT / FY / 100 480 ASFV = P * B * h0 482 IF ASFV < 4 * PI * 6 * 6 THEN ASFV = 4 * PI * 6 * 6 485 AS1 = ASFV + ASFH 490 PRINT "As+G="; INT(AS1 + .5) 495 PRINT "2*h0/3="; INT(2 * h0 / 3), "Ash(2*h0/3)="; INT(ASFV / 2 + .5) 500 IF AA / h0 < .3 THEN GOTO 600 510 ASB = ASFV / 2 520 IF ASB < 2 * PI * 6 * 6 THEN ASB = 2 * PI * 6 * 6 530 PRINT "Asb(l/6-l/2)=", INT(ASB + .5) 540 L = SQR(H ^ 2 + (A - 20) ^ 2) 570 AX = (180 - 45) * PI / 180 - ATN(H / (A - 20)) 580 LX = L / 3 / SIN(45 * PI / 180) * SIN(AX) 590 PRINT "LX="; INT(LX + .5) 600 END