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

5800计算器匝道中边桩万能正反算程序 主程序匝道坐标正反算 程序名称:ZDZBZFS LB1A↙ Cls : 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 ↙ 子程序数据库SJK2 IfK<第一线元终点里程:THEN线元起点X→A:线元起点Y→B:线元起点半径(直线为1045)→T:线元起点里程→D:线元起点方位角→E:线元终点半径(直线为1045)→U:线元终点里程→G:线元偏向(左偏-1右偏+1)→W:Prog” ZDZBZS”: Return :IfEnd ↙ If………………………………Prog” ZDZBZS”: Return :IfEnd↙(匝道线元数据分段输入) 子程序匝道坐标正算ZDZBZS W*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: "FY J=":J→DMS◢(放样方位角) "FYD=":I◢(放样距离) Return↙ 子程序反算里程边桩,名称:FSLCBZ1 Lb11↙ "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:Go to2:Ifend:Ifend:Ifend↙ Lb14↙ Pol (X-Z[3],Y-Z[4]↙ "DP(-Z+Y)=":I◢(坐标点与线路偏距) "KP=":K+ Z[5]→K◢(里程)Return↙ 5800计算器线路、匝道中边桩万能程序 彭赐明改编网上类似程序于河南高速郑漯8标 LB1 1↙ Cls : 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 3↙ W*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=":V→DMS◢(计算点切线方位角) A+∫(Cos(E+(X/C+HX^2)*180/π,0,X)→Z : B+∫(Sin(E+(X/C+HX^2)*180/π,0,X)→Y : "XI=":Z◢(计算点中心X) "YI=":Y◢(计算点中心Y) "PJ="?P◢(输入计算点边桩偏角左-右+) "PD="?Q◢(输入计算点边桩偏距) Rec(Q,V+P):Z+I→Z :Y+J→Y: "XP=":Z◢(计算点边桩X) "YP=":Y◢(计算点边桩Y) Pol(Z-R,Y-S):J<0=>J+360→J: "FYJ=":J→DMS◢(放样方位角) "FYD=":I◢(放样距离) Goto 2↙回答人的补充2010-06-19 11:41 这里还有一个 5800计算器匝道中边桩万能正反算程序 主程序匝道坐标正反算 程序名称:ZDZBZFS LB1A↙ Cls : 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 ↙ 子程序数据库SJK2 IfK<第一线元终点里程:THEN线元起点X→A:线元起点Y→B:线元起点半径(直线为1045)→T:线元起点里程→D:线元起点 方位角→E:线元终点半径(直线为1045)→U:线元终点里程→G:线元偏向(左偏-1右偏+1)→W:Prog” ZDZBZS”: Return :IfEnd ↙ If………………………………Prog” ZDZBZS”: Return :IfEnd↙(匝道线元数据分段输入) 子程序匝道坐标正算ZDZBZS W*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↙ 子程序反算里程边桩,名称:FSLCBZ1 Lb11↙ "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]: TH ENK+ 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◢(里程)Return↙