FX-5800p编程

CASIO fx-5800P放样程序（比积分公式快速）

正算主程序[ZD-KB] “1,2,3,4,5”?Z:?X:?Y

Lbl 1:Fix 4:?K:?B:?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”:M-X→I:N-Y→J:Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 7,3,M:Locate 1,4,“N=”:Locate 7,4,N◢

Cls:Goto 1

反算主程序[ZD-MN] “1,2,3,4,5”?Z:?K

Lbl 0:Fix 4:?M:?N:M→D:N→E 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(D-M+×10-9,E-N+×10-9:Isin(L-J→A:Icos(L-J→B

If Abs(A)＞0.001:Then K+A→K:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 9,2, K:Locate 1,3,“B=”:Locate 10,4,B◢

IfEnd:Goto 0

子程序[C] I+×10-9→I:J+×10-9→J:Pol(I,J:J＜0＝＞J+360→J

数据库子程序[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

子程序[ZDYS]

P=0＝＞×1045→P:R=0＝＞×1045→R:If PR＞0:Then 1→Q:Else -1→Q:IfEnd:PR≥×1

090＝＞0→Q:R＜0＝＞-1→Q:Abs(P→P:Abs(R→R:1÷P→H:180÷π→J:(P-R)÷(2FPR→I:Abs(K-O→W:0.1739274226→N:0.3260725774→M:0.0694318442→S:0.3300094782→L:1-L→G:C+QJSW(H+SWI→T:C+QJLW(H+LWI→L:C+QJGW(H+GWI→G:C+QJW(1-S)(H+WI(1-S→F:A+C+QJW(H+WI→C

U+W(Ncos(T)+Mcos(L)+Mcos(G)+Ncos(F→I:V+W(Nsin(T)+Msin(L)+Msin(G)+Nsin(F→J:C→L:I+Bcos(L→M:J+Bsin(L→N 正算主程序[KB-MN]

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

X---测站X坐标 Y---测站Y坐标 K---桩号 B---距中（左负 右正 中零） 结果：J=测站到放样点的方位角 I=测站到放样点的平距 M=放样点X坐标 N=放样点Y坐标

若果求斜交时边桩坐标，主程序[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) 输程序时，例“×1045→P”的小“×10”为计算器面板的白色键“×10X” 子程序[ZDYS]中

×1045→P相当于10∧(45)→P

PR≥×1090＝＞0→Q即PR≥10∧(90)＝＞0→Q

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

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

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

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