锥管.bas

来自「这些程序均为单位上水电站压力管道计算程序！」· BAS 代码 · 共 15 行

5 LPRINT "锥管展开平切钢板素线坐标计算程序"
10  INPUT R, A, AN
15 LPRINT "R="; R; TAB(30); "A="; A; TAB(45); "AN"; AN
18 LPRINT
20  K = 3.1415926537#
25   A = A * K / 180: AN = AN * K / 180
30  FOR AI = 0 TO AN STEP K / 36
35  x = R * COS(AN * SIN(A)) * TAN(AI * SIN(A)) / SIN(A)
40   LPRINT "X="; INT(x * 10 + .5) / 10; TAB(30); "AI="; INT((AI * 180 / K) * 10 + .5) / 10
45  NEXT AI
50   END