卡西欧5800程序_卡西欧5800程序，看得懂的拿走

一、程序功能

本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.

二、源程序

1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)

程序名: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:Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ◢

＂ Ｙ＝＂：Locate 6,4,Ｙ◢

Ｐrog＂3JS”:Goto 0:

Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢

＂Ｄ＝＂：Locate 6,4,Ｄ◢

Ｇoto 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

3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)

程序名：3JS

X：Y：

1268．123→K(置仪点X坐标)

2243．545→L(置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)

Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)

Fix 3:” S=”:Locate 6,4,I◢

4．主程序4：涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序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: ＂ Ｘ=＂：Locate 6,4,Ｘ◢

＂ Ｙ＝＂：Locate 6,4,Ｙ◢

Ｐrog＂3JS”:Goto 0:

5．主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)

程序名&#