急需卡西欧5800计算器圆曲线坐标计算程序？

(CASIO-4850)竖曲线标高计算程序--全线贯通
(CASIO-4850)竖曲线标高计算程序
1,加了水准点数据.
2,加了竖曲线数据库(实现了全线贯通)
3,加了测量仪器的选择功能
4,能进行现场高程放样工作
(能计算除了超高段以外的任意桩号的中桩及任意距离边桩高程)
[SJG]------------------主程序
E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘
L ≤0=>{AO}:Goto 0 : ≠>LZ=0:P=I: ≠>LZ=1:P=I :≠>L Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘
Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘
Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢
Goto 0←┘
[SQX]------------------子程序
L≤932.25(第二竖曲线起点桩号)=>H=179.17(第一竖曲线交点高程):B=160(第一竖曲线交点桩号):R=7000(第一竖曲线半径):I=-0.003(第一竖曲线前坡度):J=0.005(第一竖曲线后坡度):Goto 1⊿
L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿
Lbi 1
…………………………继续添加竖曲线要素(坡度上+下-),括号内的数据供测试程序用
说明:
选择主程序进入
1, LGP?----------输入路拱坡度,负值 (按EXE键)
2, JGC?----------输入结构层厚度 (按EXE键)
3, BM?-----------输入水准点高程 (按EXE键)
4, HS?------------输入后视读数(全站仪测量时带+,-号) (按EXE键)
5, 1,SZY
-1,QZY
SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)
6, K≤0 BREAK
K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)
7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)
8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)
显示:
9, 12.3-------------设计高程
11.2-------------实测高程
+T,-W
1.1(填挖量,+填-挖)
(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.