5800匝道通用中边桩正反算程序.docVIP

5800匝道通用中边桩正反算程序 ?5800计算器匝道中边桩万能正反算程序主程序?? 匝道坐标正反算程序名称：ZDZBZFSLB1??ACls : Fix 4 : 10→Dim Z :0=ZS,1=FS?Z ↙If??Z=0:Then??Goto B:IfEnd↙(Z=0进入里程点坐标正算）If??Z=1:Then??ProgFSLCBZ 1: Goto A:IfEnd(Z=1进入反算里程边桩）Lb1 B??“K=”?K ：（计算里程） ProgSJK2 :Prog” ZDZBFY1” :Goto A子程序??数据库??SJK2If??K第一线元终点里程??：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:V0=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↙子程序 匝道坐标放样 ZDZBFY1XZJ=?R??(输入置镜点X）YZJ=?S??(输入置镜点Y）XHS=?M(输入后视点X）YHS=?N(输入后视点Y）Pol(M-R,N-S):J0=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):J0=J+360→J:FYJ=:J→DMS◢(放样方位角）FYD=:I(放样距离）Return子程序 反算里程边桩，名称：FSLCBZ1Lb1??1XK=?X:YK=?Y↙（输入任意测点的XY坐标）:“K？=”?K （试算里程,输入匝道范围内任意里程点号，接近里程号可以加快反算速度）Lb1??2↙ProgSJK2 :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:Then??Goto??4:Else??Goto 3:Ifend↙Lb1??3↙K+ Z[5]→K: ProgSJK2: 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]↙If??Z[6]0.0001 :Then Z[6]→Z[5]: Goto??4:Else IF Z[6] Z[5]: THEN??K+ Z[6]→K: Goto??2 :Else IF Z[6] Z[5]??:THEN??K- Z[6]→K:Goto??2:Ifend:Ifend:Ifend↙Lb1??4↙Pol (X-Z[3],Y-Z[4]↙DP(-Z+Y)=:I◢(坐标点与线路偏距）KP=:K+ Z[5]→K（里程）Return谢谢发贴：+2 分 【测量空间】[0 本文可共享补充??点击修改共享补充New!??查看楼主其它文章??返回 ??→?回复内容??????只查看楼主与本人回复 沙发：ale0419 09-3-7 21:17 回 评：+2 分 支持楼主，谢谢，下下来先用用 2 楼：0000 09-3-10 17:18 回 V→DMS◢计算到此程序发生错误晕! 3 楼：彭赐明 楼主 09-3-10 22:23 回 →DMS是转换为度分秒格式，具体操作为按FUNCTION键加5键加4键调出DMS,→为DMS前面的竖三角符号，电子文档里找不到这个符号，所以用→代替，不过不看说明书的会误认为是赋值语句！=为非＝加,而是一个编程命令，在编程命令里可以找到 4 楼：彭赐明 楼主 09-3-2