坐標正算主程序(命名為zbzs)

1、1.坐標正算主程序坐標正算主程序(命名為命名為ZBZS)第1行：Lbl0:WTB:W”K=”:T”LEN=”:B第2行：Prog“A”第3行：X=DTcos(FB)◢第4行：Y=ETsin(FB)◢第5行：F=F◢第6行：Goto0K——計算點的里程LEN——計算點到中樁的距離（左負右正）B——取前右夾角為正2.坐標反算樁號和偏距主程序坐標反算樁號和偏距主程序(命名為命名為ZBFS)第1行：UVK:U”X1”:V”Y1”:W”K1”第2

2、行：I=0:J=0第3行：Lbl0:Prog“A”第4行：Pol(UDVE):S=Icos(FJ):W=WS第5行：Abs(S)0.0001=Goto0△第6行：T=Isin(JF)第7行：K=W◢第8行：T”LEN”=T◢X1——取樣點的X坐標Y1——取樣點的Y坐標K1——輸入時為計算起始點(在線路內(nèi)即可)，輸出時為反算點的樁號T——偏距（左負右正）3.計算坐標子程序計算坐標子程序(命名為命名為XYF)為了簡潔，本程序由數(shù)據(jù)庫直接調(diào)用

3、，上述中的正反算主程序不直接調(diào)用此程序第1行：S=WA：I=(QP)L第2行：D=D∫(cos(FX(2PXI)90π)0S4)第3行：E=E∫(sin(FX(2PXI)90π)0S4)第4行：F=FS(2PSI)90π4.道路線元參數(shù)道路線元參數(shù)(命名為命名為A)第1行：W≤175.191=GoTo2△第2行：A=175.191:D=428513.730:E=557954.037:F=9226′40″:P=0:Q=1240:L=70.

4、417:W≤AL=GoTo1△第3行：A=245.607:D=428507.298:E=558024.092:F=10050′59.4″:P=1240:Q=1240:L=72.915:W≤AL=Goto1△第4行：A=318.522:D=428482.988:E=558092.538:F=11815′25.2″:P=1240:Q=0:L=55.104:W≤AL=Goto1△第5行：A=373.627:D=428453.283:E=558

5、138.912:F=12450′4.5″0:P=0:Q=1180:L=67.222:W≤AL=Goto1△Goto2第6行：Lbl1:Prog“XYF”:Goto3第7行：Lbl2:D=0:E=0:F=0第8行：Lbl3A——曲線段起點的里程D——曲線段起點的x坐標E——曲線段起點的y坐標F——曲線段起點的坐標方位角P——曲線段起點的曲率(左負右正)Q——曲線段終點的曲率(左負右正)L——曲線段長度（盡量使用長度，為計算斷鏈方便）說明：

6、（說明：（1）正算主程序可以計算一般邊樁的坐標，如要計算類似涵洞端墻的坐標需增加兩個變）正算主程序可以計算一般邊樁的坐標，如要計算類似涵洞端墻的坐標需增加兩個變量，具體方法參考本程序集中的第量，具體方法參考本程序集中的第1篇辛普生公式的坐標計算通用程序篇辛普生公式的坐標計算通用程序（2）程序規(guī)定，左偏曲線曲率（半徑倒數(shù)）輸入負值，右偏曲線曲率輸入正值，直線上點曲率）程序規(guī)定，左偏曲線曲率（半徑倒數(shù)）輸入負值，右偏曲線曲率輸入正值，直線上

7、點曲率輸入輸入0。（3）本程序精度極高，不受曲線半徑大小影響，即使極小半徑的螺旋曲線等誤差僅為萬分之一）本程序精度極高，不受曲線半徑大小影響，即使極小半徑的螺旋曲線等誤差僅為萬分之一（0.1mm），可以忽略。），可以忽略。（4）若是從大里程向小里程的反方向計算，則曲率取正方向時的負值，方位角減去）若是從大里程向小里程的反方向計算，則曲率取正方向時的負值，方位角減去(或加上或加上)180度。度。（5）有多個匝道的項目，可隨時更改正反算主程

8、序中的紅色字體部分來調(diào)用其它線路的數(shù)據(jù)）有多個匝道的項目，可隨時更改正反算主程序中的紅色字體部分來調(diào)用其它線路的數(shù)據(jù)（6）反算樁號偏差為）反算樁號偏差為1mm（7）可以計算任意線型的任意點坐標）可以計算任意線型的任意點坐標5.坐標計算通用程序坐標計算通用程序(命名為命名為ZB)本程序與上述中的幾個程序無關(guān)，是在計算坐標時采用輸入曲線元參數(shù)模式下的程序，為臨時使用方便。第1行：A”K0“:D”X0“:E”Y0“:F”F0“:P”1R1“: