fx-5800p全线中边桩计算程序，带数据库.docxVIP

ZHU XIAN（全线程序） LBl 0 : Norm 1 “ K(P)= ”? H 待求点桩号 Prog “SUB0-1” Goto 0 SUB 0 – 1（数据库1）数据库1和 数据库1和2是程序自动判断位置的部分，根据桩号判断要运行的位置。 If H待求点桩号≥25947.486綫元起点桩号 And H26504.782 线元终点桩号:Then Goto A 待求点桩号 綫元起点桩号 线元终点桩号 Else If H≥26504.782 And H 27162.807 :Then Goto B Else If H≥27162.807 And H 28174.138 :Then Goto C：Ifend: Ifend: Ifend If H≥28174.138：Then Prog “SUB 0- 2”: Ifend Return LBl A 66°18′26.8″→F线元起点坐标方位角 线元起点坐标方位角 26226.933→K交点桩号 交点桩号 2901677.688→X交点X坐标 交点X坐标 534830.565→Y交点Y坐标 交点Y坐标 1650→R曲线半径 曲线半径 200→L缓和曲线长 缓和曲线长 12°24′25.2″ →A转角 转角 -1 →I转向 转向 Prog “SUB3” Return LBL BLBIA,B部分为缓和曲线数据库 LBIA,B部分为缓和曲线数据库 53°54′1.6″→F 26837.454→K 2902038.342→X 535325.154→Y: 1100→R 200→L 23°51′26″→A 1→I Prog “SUB3” LBL C 77°45′27.61″→F 27162.807→K 2902108.884→A 535650.262→B Prog “SUB1” Return 该部分为直线段计算的数据 该部分为直线段计算的数据 SUB 0-2(数据库2) LBL 0 If H28815.982:Then Goto D Else If H≥28815.982 And H 29776.351 :Then Goto E Else If H≥29776.351And H≤31064.967 :Then Goto F Ifend: Ifend: Ifend Return LBL D 77°45′27.61″→F 28495.941→K 2902391.571→X 536953.079→Y 2000→R 220→L 12°05′05.7″→A. -1→I Prog “SUB3” Return LBL E 65°40′21.9″→F 29312.642 →K 2902728.735→X 537698.868→Y 1060→R 220→L 40°01′08″→A 1→I Prog “SUB3” Return LBL F 105°41′30″→F 30478.231→K 2902404.578→X 538852.740→Y 970→R 250→L 61°20′55.8″→A -1→I Prog “SUB3” Return SUB 1（直线计算程序） Lbl 0 H-K→D A+Dcos(F) →X B+Dsin(F) →Y 待求点X,Y坐标计算“PIAN JIAO –L,+R=”?V 待求点X,Y坐标计算 “PIAN JU=”?W 为边桩计算：V值是边桩与中桩夹角，一般为 为边桩计算：V值是边桩与中桩夹角，一般为90°，输入左偏为负，又偏为正。W值为边桩与中桩的距离，为正。如果V、W值输入0的话，所得结果为待求点P的中桩坐标。 Y+Wsin(F+V+360) →N “X(p)=”:M▲ “Y(p)=”:N▲ 显示最后结果Return 显示最后结果 SUB 2（圆曲线计算程序） Lbl 0 R× tg(A÷2) →T切线长 切线长 R×A×π÷180→L圆曲线长 圆曲线长 X+Tcos(F+180) →M Y+Tsin(F+180) →N ZY点坐标计算Lbl 1 ZY点坐标计算 “PIAN JIAO –L,+R=”?V “PIAN JU=”?W H-(K-T) →C If CL:Then Goto 0:Ifend M+2R×sin(90×C÷(πR))cos(F+I×90×C÷(πR)) →B N+2R×sin(90×C÷(πR))sin(F+I×90×C÷(πR)) →D B+Wcos(F+I×180÷(πR)+V) →E D+Wsin(F+I×180÷(πR)+V) →G “X(p)=”:E▲ “Y(p)=”:G▲ Return SUB 3（对称缓和曲线计算程序） Lbl 0 8→DimZ L2÷(24×R)→P L÷2-L3÷(240×R2)→