CASIO fx-5800P计算器测量程序设计2.1版

CASIO fx-5800P计算器测量程序设计2.1版

一、程序功能

主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。

二、源程序

1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCX

LbI Q: 15→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:

A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:

A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:

A=9=>Goto 9

LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto B

LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:

Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X O＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C:

LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂H=＂:Lc oate 6,4,H-Z[9] ◢

＂I=＂:Locate 6,4,I◢Goto D

LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂SJGD=＂:Locate7,4,L◢Goto E LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂:

＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂TW=＂:Lcoate 6,4,T◢Goto F:

LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂TH

B＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2: H-M→T: ＂TW=＂:Locate 6,4,T◢Goto H:

LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Ab s(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂: Goto J:

LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>

Goto 8:?Y:Prog＂JS＂:Goto K:

LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD 1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M: M→Z[8]:A→Z[15]:Prog＂5SD＂：Goto M:

LbI X:Mat F◢Goto 0

2、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）

程序名：3FBX

Prog”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H: Else L-0.75→D:Goto H:IfEnd

LbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:The n –Z[4] →G:Goto W:Else Z[4] →G:Goto T:

LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:

LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:

LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:

LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:

LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z [15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:

LbI Z

3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SD

Prog”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z [8]>Z[10]:Then Goto R:Else Goto S:IfEnd:

LbI R: √((Z[13]-Z[9])2+(Z[8]-Z[5])2 )- Z[4]-Z[15] →L:Goto L:LbI S: Z[4]-Z[6] →S: √(S2-(Z[7]-Z[5])2 ) ×S÷Abs(S)→T:Abs(Z[13] -Z[9])-T→T:√(T2+(Z[8]-Z[7])2 )- Z[6]-Z[15] →L:Goto L:LbI L: Fi x 2:”L0=”: Locate 6,4,L◢

Prog”ZD”:“H0=”: Locate 6,4,Z[8]-H◢

4：极坐放样计算程序(计算放样点至置仪点方位角及距离)

程序名：JS