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

ZHU XIAN（全线程序）LBl 0 : Norm 1“ K(P)= ”? H 待求点桩号Prog “SUB0-1”Goto 0SUB 0 1（数据库1）数据库1和2是程序自动判断位置的部分，根据桩号判断要运行的位置。If H待求点桩号25947.486綫元起点桩号 And H26504.782 线元终点桩号:Then Goto AElse If H26504.782 And H 27162.807 :Then Goto BElse If H27162.807 And H 28174.138 :Then Goto C：Ifend: Ifend: IfendIf H28174.138：Then Prog “SUB 0- 2”: IfendReturnLBl A661826.8F线元起点坐标方位角26226.933K交点桩号2901677.688X交点X坐标534830.565Y交点Y坐标1650R曲线半径200L缓和曲线长122425.2 A转角-1 I转向Prog “SUB3”ReturnLBL BLBIA,B部分为缓和曲线数据库53541.6F26837.454K 2902038.342X535325.154Y:1100R200L235126A 1IProg “SUB3”LBL C774527.61F27162.807K2902108.884A535650.262BProg “SUB1”Return该部分为直线段计算的数据SUB 0-2(数据库2)LBL 0If H28815.982:Then Goto DElse If H28815.982 And H L:Then Goto 0:IfendM+2Rsin(90C(R)cos(F+I90C(R) BN+2Rsin(90C(R)sin(F+I90C(R) DB+Wcos(F+I180(R)+V) ED+Wsin(F+I180(R)+V) G“X(p)=”:E“Y(p)=”:GReturnSUB 3（对称缓和曲线计算程序）Lbl 08DimZL2(24R)PL2-L3(240R2)Q90L（R）B（R+P）tg（A2）+QTR（A-2B）180OK-TZ1Z1+LZ2Z2+OZ3Z3+LZ4X+Tcos（F+180）UY+Tsin（F+180）CL-L3（90R2）GU+Gcos(F+30IL(R) )DC+Gsin(F+30IL(R) ELbl 1If HZ2:Then Goto 2Else If HZ2And HZ3:Then Goto 3Else If HZ3 And HZ4:Then Goto 4:Ifend Ifend : IfendLbl 2“PIAN JIAO -L ,+R = ”? V“PIAN JU = ”? WH Z1JJ J5 (90R2L2)SU+S cos(F+30IJ2(RL)Z5C+S sin(F+30IJ2(RL)Z6Z5+Wcos(F+90IJ2(RL +V) MZ6+Wsin(F+90IJ2(RL +v) N“ X(p)= ”:M“ Y(p)= ”:NRuturnLbL 3“PIAN JIAO -L ,+R = ”?V“PIAN JU = ”? WH Z2JD+2Rsin(90J(R)cos(F+90IJ(R)+90IL(R)Z5E+2Rsin(90J(R)sin(F+90IJ(R)+90IL(R)Z6Z5+Wcos(F+90IL(R)+180IJ(R)+V) MZ6+Wsin(F+90IL(R)+180IJ(R)+V) N“ X(p)= ”:M“ Y(p)= ”:NRuturnLbl 4“PIAN JIAO -L ,+R = ” ? V“PIAN JU = ”? WZ4 H JJJ5(90R2L2)SX+Tcos（F+IA）Z5Y+Tsin（F+IA）Z6Z5+Scos(F+IA+180-30IJ2(RL)Z7Z6+Ssin(F+IA+180-30IJ2(RL)Z8Z7+Wcos(F+IA-90IJ2(RL)+V) MZ8+Wsin(F+IA-90IJ2(RL)+V) N“ X(p)= ”:M“ Y(p)= ”:NRuturn程序输完后运行ZHUXIAN（全线程序）即可本程序自带数据库，线形如下图：K029+793.000-2.800 2902592.604 538193.803 K029+793.000-9.700 2902599.248 538195.665 K029+823.000-2.800 2902584.558 538222.692 K029+823.000-9.700 2902591.209 538224.528 K029+853.000-2.800 2902576.681 538251.617 K029+853.000-9.700 2902583.346 538253.403 K029+880.300-0.010 2902567.048 538277.299 K029+880.300-13.750 2902580.356 538280.719 K029+887.200-0.010 2902565.341 538283.984 K029+887.200-13.750 2902578.659 538280.719 K029+521.6102.650 2902649.218 537928.695 K029+521.6109.850 2902642.086 538287.364 K029+525.1102.650 2902648.735 537932.153 K029+525.1109.850 2902641.606 537927.710 K029+553.0002.800 2902644.326 537959.619 K029+553.0009.700 2902637.522 537958.472 K029+583.0002.800 2902638.950 537989.057 K029+583.0009.700 2902632.179 537987.728 K028+381.862-1.331 2902371.990 536840.471 K028+377.802-8.340 2902377.711 536834.741 K028+384.449-2.834 2902374.112 536842.586 K028+380.377-9.837 2902379.823 53683