我的5800p测量程序及公式

FILE

非常好用的卡西欧5800p程序

一、坐标反算(XY--FD)

Deg：Fix 3↓(换行)

Lbl 0↓

〝X0=〞?A:〝Y0=〞?B:〝XN=〞?C:〝YN=〞?D↓(换行)

Pol（（C-A）,(D-B)）J＜0＝＞J+360→J↓(换行)

〝JL=〞：I◢〝FWJ=〞：J：▶DMS

Goto 0

二、坐标正算(DF--XY)

Deg：Fix 3↓(换行)

〝X0=〞?A；〝Y0=〞?B：〝L=〞?L：〝C=〞?C↓(换行)

A+Lcos(C)→X↓ B+Lsin(C)→Y↓

〝X=〞：X◢〝Y=〞：Y◢

三、直线段中桩、边桩坐标计算（该程序从起点往终点计算）(ZX)

1、Deg：Fix 3↓(换行) 设置小数保留位数

2、Lbl 1↓程序标签

3、〝X0〞?X：〝Y0=〞?Y：〝K0=〞?E：〝FWJ=〞?J↓赋值起点坐标、桩号、走向方位角

4、?K：?L：?A↓输入所求的桩号、边距、相对于主线的方位角

（如果只计算中桩坐标，边距及方位角皆为0）5、X+(K-E)cos(J)+Lcos(J+A)→C↓计算坐标X

6〝XP=〞：C◢显示坐标X

7、Y+(K-E)sin(J)+Lsin(J+A)→D↓计算坐标Y

8、〝YP=〞：D◢显示坐标Y

9、Goto 1↓转向程序标签循环执行计算

四、圆曲线坐标计算程序（该程序从起点往终点计算）(YQX)

1、Deg：Fix 3↓(换行)

2、Lbl 0：

3、〝K0=〞?K：?X：?Y：?A：?R：

4、〝L=-1，R=+1〞：?G：

5、〝ZS=0，FS≠0〞：?S：

6、S≠0 =＞Goto 1↓

7、〝Ki〞?Z↓

8、90(Z-K)÷(∏R)→B↓

9、2RsinB→D↓

10、〝Xi=〞：X+Dcos（A+GB）→P◢

11、〝Yi=〞：Y+Dsin（A+GB）→Q◢

12、A+180G(Z-K)÷(∏R)→0↓

13、〝ZBJ〞？E↓

14、〝XiL=〞:P+Ecos(0-90) ◢

15、〝YiL=〞:Q+Esin(0-90) ◢

16. 〝YBJ〞？F↓

17、“XiR=”:P+Fcos(O+90)◢

18、“YiR=”:Q+Fsin(O+90)◢

19、Goto 0↓

20.、Lbl 1：

21、“XC”?U: “YC”?V↓

22、X+Rcos(A+90G)→M↓

23、Y+Rsin(A+90G)→N↓

24、Pol(U-M,V-N)→H↓

25、J＜0 =＞J+360→J↓

26.、“PJ=”:R-H→L◢

27、“XCCZ=”:M+Rcos(J)→T◢

28.、“YCCZ=”:N+Rsin(J)→W◢

29 、Pol(T-X,W-Y) →Z↓

30.、“CZZH=”: K+sin-1(Z÷2÷R)πR÷90◢

31.、Goto 0

说明：

1.设置小数保留三位。

2.程序0

3.赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。

4.赋值曲线转向，左转为-1，右转为+1。

5.选择正算S=0，或反算S≠0.

6.如果S≠0，进入反算程序。

7.正算程序：输入所求桩号Ki。

8.计算弦切角B。

9.计算弦长D。

10.计算中桩坐标Xi并显示。

11.计算中桩坐标Yi并显示。

12.计算i点走向方位角O。

13.输入左边桩距中桩的距离E。

14.计算左边桩坐标XiL并显示。

15.计算左边桩坐标YiL并显示。

16.输入右边桩距中桩的距离F。

17.计算右边桩坐标XiR并显示。

18.计算右边桩坐标YiR并显示。

19.到程序0。

20.反算程序1。

21.输入测量坐标XC、YC。

22.计算圆心X坐标M。

23.计算圆心Y坐标N。

24.计算圆心与测点距离H。

25.计算圆心到测点的走向方位角。

26.计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。

27.计算垂足坐标XCCZ并显示

28.计算垂足坐标YCCZ并显示。。

29.计算垂足到起点弦长Z。

30.计算垂足桩号CZZH并显示

31.到程序0。

五、竖曲线高程计算程序(SQX)

1、Lbl 0：“LK(JD)=”？M：“H(JD)=”？N：“R=”？R：“I1=”？I：“I2=”？

J：

I-J→P：If P﹥0：Then 1→K：Else -1→K If End↓

2、“T=”：Abs （R×(J－I)÷200）→T◢

3、“E=”T²÷2÷R→E◢

4、Lbl 1：“LK=”？L：If L≤M-T：Then Goto 6：Else Goto 2：If End↓

5、Lbl 2：If L≤M：Then Goto 7：Else Goto 3：If End↓

6、Lbl 3：If L≤M﹢T：Then Goto 8：Else Goto 9：If End↓

7、Lbl 6：“H=”：(L-M)×I÷100﹢N→H◢

Goto 0↓

8、Lbl 7：“H=”：(L-M)×I÷100﹢N－K×(L－M＋T)²÷2÷R→H◢

Goto 0↓

9、Lbl 8：“H=”（L-M）×J÷100﹢N-K×(L－M－T)²÷2÷R→H◢

Goto 0↓

10、Lbl 9：“H=”：(L-M)×J÷100﹢N→H◢

Goto 0