CASIO fx-5800P放样程序

正算主程序[KB-MN]­

“1,2,3,4,5”?Z:“1,2,3”?R:Prog“DX-1”:?X:?Y­

Lbl 1:Fix 3:X→S:?K:?B:90→A:0→P:0→R­

Z=1＝＞Prog“YS-1”­

Z=2＝＞Prog“YS-2”­

Z=3＝＞Prog“YS-3”­

Z=4＝＞Prog“YS-4”­

Z=5＝＞Prog“YS-5”­

Prog“ZDYS”:S→X:M-X→I:N-Y→J:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 8,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 6,4,N◢­

Cls:Goto 1­

­

反算主程序[MN-KB]­

“1,2,3,4,5”?Z:?K ­

Lbl 0:Fix 3:?M:?N:M→E:N→Q­

Lbl 1:90→A:0→B:0→P:0→R­

Z=1＝＞Prog“YS-1”­

Z=2＝＞Prog“YS-2”­

Z=3＝＞Prog“YS-3”­

Z=4＝＞Prog“YS-4”­

Z=5＝＞Prog“YS-5”­

Prog“ZDYS”:Pol(E-M+×10-9,Q-N+×10-9:Isin(O-J→A:Icos(O-J→B­

If Abs(A)＞0.001:Then K+A→K:Goto 1:Else E→M:Q→N:Cls:Locate 1,1,“K=”:Locate 6,2, K:Locate 1,3,“B=”:Locate 8,4,B◢­

IfEnd:Goto 0­

­

数据库子程序[YS-1]­

If K＜线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEnd­

If K＜下一条线元终点里程:Then线元起点切线方位角→C:线元起点X坐标→U:线元起点Y坐标→V:线元起点里程→O:线元长度→F:±线元起点曲率半径(左转为负，右转为正，直线为零)→P:±线元止点曲率半径(左转为负，右转为正，直线为零)→R:Return:IfEnd­

­

子程序[C]­

I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J­

­

子程序[ZDYS]­

P=0＝＞×1045→P:R=0＝＞×1045→R:0.5(1÷R -1÷P)÷F→D:K-O→X­

U+∫(cos(C+180(X÷P+DX2)÷π,0,X)→M­

V+∫(sin(C+180(X÷P+DX2)÷π,0,X)→N ­

C+A+180÷π(X÷P+DX2→O:M+Bcos(O→M:N+Bsin(O→N­

编程：SENDY CHAN QQ：82811489­

导线数据库子程序[DX-1]­

If R=1:Then 导线点G1的X坐标→X:导线点G1的Y坐标→Y:IfEnd­

If R=2:Then 导线点G2的X坐标→X:导线点G2的Y坐标→Y:IfEnd­

If R=2.1:Then 导线点G2-1的X坐标→X:导线点G2-1的Y坐标→Y:IfEnd­

If R=2.2:Then 导线点G2-2的X坐标→X:导线点G2-2的Y坐标→Y:IfEnd­

If R=3:Then 导线点G3的X坐标→X:导线点G3的Y坐标→Y:IfEnd­

­

­

正算主程序[KB-MN]­

输入：1,2,3,4,5---选择待正算的线路 1,2,3,4---选择导线点­

X---测站X坐标 Y---测站Y坐标 K---桩号 B---距中（左负 右正 中零）­

­

结果：J=测站到放样点的方位角 I=测站到放样点的平距­

M=放样点X坐标 N=放样点Y坐标­

­

输程序时，例“M-X+×10-9→I”的小“×10”为计算器面板的白色键“×10X”­

若果求斜交时边桩坐标，主程序[KB-MN]中90→A修改为 斜交角度→A­

­

­

反算主程序[MN-KB]­

输入：1,2,3,4,5---选择待反算的线路­

K---待反算点附近的大概桩号 M---待反算点X坐标 N---待反算点Y坐标­

­

结果：K=反算点的桩号 B=反算点的距中（左负 右正 中零）­

­

使用说明：(数据库[YS-1]中，当P或R的值为零时，可以省略输入0→P或0→R)­

1、当线元为直线时，其起点、止点曲率半径为零。­

2、当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。­

3、当线元为完整缓和曲线时，起点与直线相接时，曲率半径为零；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为零；与圆曲线相接时，曲率半径等于圆曲线的半径。­

4、当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。­

­