5800 交点法程序(对称的缓和曲线).doc

正确 CASIO fx-5800P综合曲线坐标计算程序 说明：该程序适用于计算器CASIO fx-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。主程序：QXZB？LL=0= Goto0L=1= Goto1L=2= Goto2Lbl 0：？Z If Z缓直：Then 转角A：半径R：缓和曲线长度C：交点里程桩号D：交点X 坐标N：交点Y 坐标E：方位角F：ProgZHQX：Goto0：IfEnd 输入下一段交点，与上一致（主线要素） （方位角F，为JD的上方位角，左转为“-”右转为“+”）Lbl 1：？Z If Z缓直：Then 转角A：半径R：缓和曲线长度C：交点里程桩号D：交点X 坐标N：交点Y 坐标E：方位角F：ProgZHQX：Goto1：IfEnd 输入下一段交点，与上一致（分离式右线要素）Lbl 2：？Z If Z缓直：Then 转角A：半径R：缓和曲线长度C：交点里程桩号D：交点X 坐标N：交点Y 坐标E：方位角F：ProgZHQX：Goto2：IfEnd 输入下一段交点，与上一致（分离式左线要素） 程序名：ZHQX 10DimZ C224R-C（4）2688R（3）P C2-C（3）240R2Q 90C兀RB (R+P)tan(Abs(A)2)+QT （Abs（*）为一个整体） (R+P)cos(A2)-RW （ “+ -”为加减号） (Abs(A)-2B)兀R180+2CL D-TG G+CZ1 G+L2I G+L-CZ2 G+LZ3 ?J If A0:Then -1S:Else 1S:IfEnd（本行中0为数字） F+A2+90SU W+RV N+Vcos(U)B E+Vsin(U)O（本行中O 为字母） Lbl 1 If ZG:Then T+G-ZL F+180V FWJ= :FU Goto 2 IfEnd If ZZ1:Then Z-GL L-L(5)(90R2C2)V 30L2S(兀RC)L F+180P F+LQ FWJ= :F+3LU Goto 4 IfEnd If ZZ2:Then F+A2+90S+180+180(Z-I)SR兀L FWJ= :L+90SU Goto 5 IfEnd If ZZ3:Then Z3-ZL L-L(5)(90R2C2)V 30SL2(兀RC)L F+AP F+A+180-LQ FWJ= :F-3L+AU Goto 4 IfEnd If Z Z3:Then Z- Z3+TL F+AU UV Goto 2 Lbl 2 X= :N+Lcos(V)X Y= :E+Lsin(V)Y Goto 6 IfEnd Lbl 4 X= :N+Tcos(P)+Vcos(Q)X Y= :E+Tsin(P)+Vsin(Q)Y Goto 6 Lbl 5 X= :B+Rcos(L)X Y= :O+Rsin(L)Y（本行中O为字母） Goto 6 Lbl 6 J=1= ProgBZ（“=”输入步 ：Function下翻下翻3：=） 程序名：BZBZK?H:L,R?K: FWJ?MXZ=:X+HK cos(U+M)PYZ=:Y+HK sin(U+M)Q注： 1、为输出指令。 2、（）括号中为说明，无需输入。 3、为回车键标识，每句语句完了之后都用或结束，来换行。4、调用程序时带有？号为输入项，无？号则为程序计算项。计算说明：进入主程序QXZB L：计算线路：输0表示主线，输1表示右线，输2表示左线。本程序用于多条线路。 Z：表示计算点桩号。 J：是否计算边桩，计算输1，反之输0。 FWJ=：表示计算点切线方位角，不用输。 X；计算点X坐标。 Y：计算点Y坐标。 BZK：表示计算边桩距离。 L，R：表示计算边桩的左右。右边桩输1，左边桩输-1。 FWJ？：表示边桩与中桩的夹角，正交输90，斜交输夹角角数。 XZ=：边桩X坐标 YZ=：边桩Y坐标 注意：本程序是能计算对称式缓和曲线。 1、A 输入转角:左转为负，右转为正 2、R 输入圆曲线半径 3、C 输入缓和曲线长度 4、D