文档库

最新最全的文档下载
当前位置:文档库 > 5800公路测量程序2.2+版(6条路线)

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

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,则显示本段曲线要素。
程序名:0ZCX
Lbl 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 U<0: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