CASIO FX-4800P圆曲线及缓和曲线上任意点切线方位角计算程序

曲线任意点切线方位角计算程序 CASIO FX-4800P圆曲线及缓和曲线上任意点切线方位角计算程序
程序内容
I=0：J=0：Norm：deg：Lbl 0:｛ABCDGXYR｝：A“KO”D“KOX”G“KOY”B“KN”X“KNX”Y“KNY”C“LS”R“R”：T“XX=Y：H”：V“FX=Y：Z”：L=Abs（B-A）：T=1=》Z=（L/2R）×（180/π）：≠》Z=19.10×L2/（R×LS）：POL（X-D，Y-G）：J＜0=》J+360ΔFix6：V=1=》N=J+Z：N“FWJ”=IntN+0.01Int (60 Frac N)+0.006 Frac (60 Frac N)▲：≠》N=J-Z：N“FWJ”=IntN+0.01Int (60 Frac N)+0.006 Frac (60 Frac N)▲：Goto0

说明：KO：线元起点桩号
      KOX：线元起点X坐标
KOY：线元起点Y坐标
KN：所求点桩号
KNX：所求点X坐标
KNY：所求点Y坐标
LS：缓和曲线长，如为圆曲线输为0
R：线元半径
“XX=Y：H”：线形，圆曲线输入1，缓和线输入2
“FX=Y：Z”：方向，右转为1，左转为2
FWJ：所求点切线方位角，为度分秒形式显示。例如100.1122=100°11′22″

 CASIO FX-4800P运行通过，希望对大家有所帮助，如有什么问题请高手指正。