精品文档

精品文档

PAGE

PAGE9

精品文档

PAGE

FILE

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

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

Deg：Fix3↓(换行)

Lbl0↓

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

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

JL=〞：I◢〝FWJ=〞：J：?DMSGoto0

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

Deg：Fix3↓(换行)

X0=〞A；〝Y0=〞B：〝L=〞L：〝C=〞C↓(换行)A+Lcos(C)→X↓B+Lsin(C)→Y↓

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

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

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

2、Lbl1↓程序标签

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、Goto1↓转向程序标签循环执行计算

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

1、Deg：Fix3↓(换行)

2、Lbl0：

3、〝K0=〞K：X：Y：A：R：4、〝L=-1，R=+1〞：G：

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

6、S≠0=＞Goto1↓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、Goto0↓

20.、Lbl1：

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↓

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

、Goto0

说明：

设置小数保留三位。程序0赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。

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

选择正算S=0，或反算S≠0.如果S≠0，进入反算程序。

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

计算弦切角B。

计算弦长D。

计算中桩坐标Xi并显示。计算中桩坐标Yi并显示。

计算i点走向方位角O。

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

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

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

输入右边桩距中桩的距离F。计算右边桩坐标XiR并显示。

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

到程序0。

反算程序1。

输入测量坐标XC、YC。

计算圆心X坐标M。

计算圆心Y坐标N。计算圆心与测点距离H。

计算圆心到测点的走向方位角。计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。

计算垂足坐标XCCZ并显示

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

计算垂足到起点弦长Z。计算垂足桩号CZZH并显示

到程序0。

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

1、Lbl0：“LK(JD)=”M：“H(JD)=”N：“R=”R：“I1=”I：“I2=”J：

I-J→P：IfP﹥0：Then1→K：Else-1→KIfEnd↓2、“T=”：Abs(R×(J－I)÷200)→T◢

3、“E=”T2÷2÷R→E◢

4、Lbl1

：“LK=”L：IfL≤M-T：ThenGoto6

：ElseGoto2

：IfEnd↓

5、Lbl2

：IfL

≤M：ThenGoto7：ElseGoto3

：IfEnd↓

6、Lbl3

：IfL

≤M﹢T：ThenGoto8：ElseGoto9：IfEnd↓

7、Lbl6

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

Goto0↓

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

Goto0↓

9、Lbl8：“H=”(L-M)×J÷100﹢