公路測量中的萬能計算程序
使用卡西歐（CASIO—fx4850P）計算器進行編制：
文件名：ZHY
程序式：Lbl 0:A“X0” :B“Y0” :C“A0” :D“1÷R0” :E“1÷R1” :F“DK0” :G“DK1”： Lbl 1:{P}:P“DKP” :I=(E-D)÷Abs(G-F):Q= Abs(P-F): “J=” :J= Abs(C+90Q(IQ+2D÷π) ▲S“X”= A +∫（COS（Cπ÷180+(2D+IX)X÷2）г,0,Q）:C＞0=＞Goto 2:≠＝＞Goto 3△: Lbl 2:T“Y”=B+∫(Sin(Cπ÷180+(2D+IX)X÷2）г,0,Q）: Goto 4: Lbl 4:Lbl 3:T“Y”=B-∫(Sin(Cπ÷180+(2D+IX)X÷2）г,0,Q）: Goto 4: Lbl 4:{Z}:Z“BZ” :M=J+R“Q” : “XP=” :V=S+Z COS M▲“YP=” :N=T+Z Sin M▲Goto 1
說明: X0.Y0.A0---起點坐標(biāo)和起點方位角
R0---------起點半徑(直線為0)
R1---------終點半徑(直線為0)
1----------線路轉(zhuǎn)向:-1為線路左偏,1為線路右派偏
DK0--------起點樁號
DK1--------終點樁號
DKP--------計算點樁號
J----------計算點方位角
Q----------所計算邊距坐標(biāo)與線路的任意夾角(右角).法線角度為90度
BZ---------中樁到邊樁的水平距離,負(fù)為左邊距,正為右邊距.
XP.YP------計算點樁號的坐標(biāo).