5800公路测量程序2.2+版(6条路线).docVIP

CASIO fx-5800P计算器测量程序设计2.2版 作者：蓝星 QQ  PAGE 16 FX5800计算器公路测量常用程序集2.2 版 程序功能??主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处) 二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选??1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名：0ZCXLbl 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 : Lbl 1:Prog＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:Lbl B:1→F:＂KM＂?Z:Z= -1=Goto 0:Z=-2=Goto A:Z=-3=Goto X:Prog＂KM＂:?D:Porg＂THB＂:0→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 ? Lbl 2:2→F:90→Z[1]:Prog＂QX＂: Lbl C:＂DKLC＂?Z: Z=-1=Goto 0:Z=-2=Goto 2:Z=-3=Goto X:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C? LbI 3:Prog＂QX＂:0→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:Lbl D:＂KM＂?Z: Z=-1=Goto 0:Z=-2=Goto 3:?D:＂ZS＂?P: Porg＂H＂:Fix 3:＂SJG=＂:Lcoate 6,4,H-Z[9]:＂SCG=＂:Lcoate 6,4,F:＂I=＂:Locate 6,4,I×100: If U0:Then ＂W=＂: Locate 6,4, U: Else＂T=＂: Locate 6,4, U : IfEnd◢ Goto D? Lbl 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? Lbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:Lbl 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（D）-S→O: ＂ L0=＂:Locate 6,4,O: Prog＂ZD＂: Z[4]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F? Lbl 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? Lbl 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? Lbl 8:Prog＂DX＂:Lbl K:?X:X=-1=Goto 0:X=-