Fx5800计算器路测量程序设计211版.docVIP

CASIO fx-5800P计算器测量程序设计2.1版 作者：汤海波 QQ PAGE 3 FX5800计算器公路测量常用程序集2.1 版 ?一、程序功能????主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。 二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名：0ZCXLbI 0: 17→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＂: ＂XO＂?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=＂:Lcoate 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[17]: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＂3FBX Fix 2: P→D:Abs（P）-S→O: ＂ L0=＂:Locate 6,4,O： Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F: LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂KM＂?Z:Z=-1=Goto 0:Z=-2=Goto G:Prog＂KM＂:?D:Prog＂THB＂: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:Abs(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]: