文档介绍：5800计算器公路测量常用程序
 
一、程序功能
    本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.
二、源程序
:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)
程序名:1ZD-XY
Lb1 0:Norm 2
F=1:(正反算判别,F=1正算,F=2反算,也可以改F前加?,改F为变量)
Z[1]=90(与路线右边夹角)
Prog"THB":F=1=>Goto 1:F=2=>Goto 2
Lb1 1:Fix 3:"   X=":Locate 6,4,X◢
"   Y=":Locate 6,4,Y◢
Prog"3JS”:Goto 0:
Lb1 2:Fix 3:" KM=":Locate 6,4,Z◢
" D=":Locate 6,4,D◢
Goto 0
:高程序横坡程序(设计任意点高程及横坡)
程序名:2GC
LbI 0:Norm 2
“KM”?Z:?D:
Prog”H”:Fix 3:”   H=”:Locate 6,4,H◢
“   I=”: Locate 6,4,I◢
  Goto 0
:极坐放样计算程序(计算放样点至置仪点方位角及距离)
程序名:3JS
X:Y:
→K(置仪点X坐标)
→L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)
Y-L→E:X-K→F:Pol(F,E):IF J<0:Then J+360→J:Int(J)+(60Frac(J))+(60Frac(J)) →J:(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)
Fix 3:”   S=”:Locate 6,4,I◢
:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中
输入置仪点坐标后计算放样点至置仪点方位角及距离)
程序名:4JH-XY
LbI 0:Norm 2
90→Z[1](涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)
1→F:Prog”THB”:?L:
Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: "   X=":Locate 6,4,X◢
"   Y=":Locate 6,4,Y◢
Prog"3JS”:Goto 0:
:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)
程序名:5FBX
LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then -L→D:Goto H:Else L-→D:Goto H:IfEnd
LbI H:Prog”H”