5800计算器匝道中边桩万能正反算程序.docVIP

5800计算器匝道中边桩万能正反算程序主程序 匝道坐标正反算程序名称：ZDZBZFSLB1ACls : Fix 4 : 10→Dim Z :"0=ZS,1=FS"?Z ↙IfZ=0:ThenGoto B:IfEnd↙(Z=0进入里程点坐标正算）IfZ=1:ThenProg"FSLCBZ 1": Goto A:IfEnd(Z=1进入反算里程边桩）Lb1 B“K=”?K ：（计算里程） Prog"SJK2 ":Prog” ZDZBFY1” :Goto A子程序数据库SJK2IfK<第一线元终点里程：THEN线元起点X→A:线元起点Y→B:线元起点半径（直线为1045）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线为1045）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Prog” ZDZBZS”: Return :IfEndIf………………………………Prog” ZDZBZS”: Return :IfEnd↙（匝道线元数据分段输入）子程序 匝道坐标正算ZDZBZSW*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→Z[1]:E+( Z[1]/C+H Z[1]2)×180/π→V:V<0=>V+360→V:A+∫(Cos(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[3] :B+∫(Sin(E+( Z[1]/C+H Z[1]2)*180/π，0，Z[1])→Z[4]:Return子程序 匝道坐标放样 ZDZBFY1"XZJ="?R(输入置镜点X）"YZJ="?S(输入置镜点Y）"XHS="?M(输入后视点X）"YHS="?N(输入后视点Y）Pol(M-R,N-S):J<0=>J+360→J:"HJ=":J→DMS(后视方位角）"HD=":I(后视距离）"XI=": Z[3](计算点中心X）"YI=": Z[4](计算点中心Y）"PJ="?P(输入计算点边桩偏角左－右＋）"PD="?Q(输入计算点边桩偏距）Rec(Q,V+P): Z[3]+I→Z[7] : Z[4]+J→Z[8]:"XP=": Z[7](计算点边桩X）"YP=": Z[8](计算点边桩Y）Pol(Z[7]-R, Z[8]-S):J<0=>J+360→J:"FYJ=":J→DMS(放样方位角）"FYD=":I(放样距离）Return子程序 反算里程边桩，名称：FSLCBZ1Lb11"XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K？=”?K （试算里程,输入匝道范围内任意里程点号，接近里程号可以加快反算速度）Lb12↙Prog"SJK2 ":V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[5]↙If Z[5]<0.0001:ThenGoto4:ElseGoto 3:Ifend↙Lb13↙K+ Z[5]→K: Prog"SJK2": V-90 →Z[2]: Z[2]<0=>360+ Z[2]→Z[2]:Abs((Y-Z[4])*Cos Z[2]-(X-Z[3])*Sin Z[2])→Z[6]↙IfZ[6]<0.0001 :Then Z[6]→Z[5]: Goto4:Else IF Z[6]< Z[5]: THENK+ Z[6]→K: Goto2 :Else IF Z[6]> Z[5]:THENK- Z[6]→K:Goto2:Ifend:Ifend:Ifend↙Lb14↙Pol (X-Z[3],Y-Z[4]↙"DP(-Z+Y)=":I◢(坐标点与线路偏距）"KP=":K+ Z[5]→K（里程）Return5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1 1Cls : Fix 4 : Deg :"XZJ="?R◢ (输入置镜点X）"YZJ="?S (输入置镜点Y）LB1 2"K="?K◢ (输入计算点里程）If K<第一线元终点里程 ：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto 3:IfEnd………………………………（线元数据分段输入）LB1 3W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ="