展开角.bas

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

10  LPRINT "锥管展开角对应半径计算程序(大半径为对称轴)"
15  LPRINT "R1:切线小半径   B:切线斜切角   A:锥顶半角   AN:展开角"
20   INPUT R1, B, A, AN
21   LPRINT "R1="; R1; TAB(15); "B="; B; TAB(30); "A="; A; TAB(45); "AN"; AN
22    K = 3.1415926537#
25   B = B * K / 180: A = A * K / 180: AN = AN * K / 180
30      R2 = R1 * (1 + TAN(B) * TAN(A)) / (1 - TAN(B) * TAN(A))
40    QN = ATN(1 / (TAN(A) * COS(AN)))
50   R = R2 - R2 * (1 - COS(AN)) * SIN(QN) * SIN(B) * TAN(A) / SIN(QN - B)
LPRINT "R="; R
END