求卡西欧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 : ≠>L<B-T=>Z=0:P=I: ≠>L<B=>Z=1:P=I :≠>L<B+T=>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步,进行下一个桩点的放样工作.

竖曲线（凸）

”LC[K=]”?->K

K-（BPK）->N 注解：BPK为变坡里程 ；

IF N＜0:THEN H+N×-I1->G 注解：H为变坡点高程，I1为第一变坡坡度；

:ELSE H+N×-I2->G:IFEND注解：I2为第二变坡坡度；

IF AbsN＜T:THEN G+(T-AbsN)2÷2÷R÷-1->H:IFEND 注解宴盯伏：T为切线长；R为半径；当为凹型曲线时-1为1。

“H=”:H▲

说明：在计算器中每句程则如序可以用“:”来连接；“▲”为计算器晌携中的暂停符号；程序中的蓝色字母为可变量。

---