FX5800P计算器坐标正反算程序

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。)

卡西欧fx5800p计算器坐标正反算程序

一、程序功能

本程序由 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: 路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）

程序名： 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 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd

LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5]

→G:Goto W:Else Z[5] →G:Goto T:

LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If

G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:

LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:G oto Z:

LbI 3:L+Z[12]+G×Z[7]:Goto z:

LbI T:L+0.5→N:If G>Z[17]:Then

(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else

(N+G×Z[15])→S:Goto z:

LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:” L0=”:L Locate 6,4,T◢

＂ＫＭ＝＂： Locate 6,4, Ｚ◢

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

“ TW=”: Locate 6,4,Z[5]◢

Goto 0

6 ．主程序 6 ：路基标准半幅宽度计算程序 ( 对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至 L)

程序名： 6GD

Prog “G0”Z-C→E:(B-A)×E/S+A→L:L:

7 ．坐标计算次程序（ＴＨＢ）

程序名： THB

18→DimZ ：＂ＫＭ＂ ?Z ： Prog ＂Ｘ０＂

1÷P→ Ｃ： (P-R)÷(2HPR) → Ｓ：180÷π→ Ｅ：Ｆ =1=>Goto 1 ：Ｆ

=2=>Goto 2←┘

Lbl 1 ： ? Ｄ： Abs( Ｚ－O) →W ： Prog " Ａ " ： X ：Ｙ：Ｇ oto 3 LbI 2: Ｘ：Ｙ：Ｘ→I ：Ｙ→J ： Prog ＂Ｂ＂：Ｏ＋Ｗ→Z ：Ｄ→ Ｄ：Ｇ oto 3

LbI 3:IF Ｆ＝１ Then Ｘ：Ｙ： Else Ｚ：Ｄ

8. 正算子程序 ( Ａ )