公路测量中的万能计算程序
使用卡西欧（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---起点坐标和起点方位角
R0---------起点半径(直线为0)
R1---------终点半径(直线为0)
1----------线路转向:-1为线路左偏,1为线路右派偏
DK0--------起点桩号
DK1--------终点桩号
DKP--------计算点桩号
J----------计算点方位角
Q----------所计算边距坐标与线路的任意夹角(右角).法线角度为90度
BZ---------中桩到边桩的水平距离,负为左边距,正为右边距.
XP.YP------计算点桩号的坐标.
使用卡西欧（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---起点坐标和起点方位角
R0---------起点半径(直线为0)
R1---------终点半径(直线为0)
1----------线路转向:-1为线路左偏,1为线路右派偏
DK0--------起点桩号
DK1--------终点桩号
DKP--------计算点桩号
J----------计算点方位角
Q----------所计算边距坐标与线路的任意夹角(右角).法线角度为90度
BZ---------中桩到边桩的水平距离,负为左边距,正为右边距.
XP.YP------计算点桩号的坐标.