Fx5800计算器公路测量程序设计21版.doc

FX5800计算器公路测量常用程序集2.1 版 ?一、程序功能主要功能：线型及立交匝道，包括C型，S型、卵型、回头曲线等二、源程序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:XY1， ZD2 ，GC3， GD4， BP5， FM6， ZP7， JS8， SD9＂?A: A1Goto 1:A2Goto 2:A3Goto 3:A4Goto 4: A5Goto 5:A6Goto 6:A7Goto 7:A8Goto 8: A9Goto 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 -1Goto 0:Z-2Goto A:Z-3Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cosE →X:Y+LsinE →Y:Prog＂XY＂:Prog＂JS＂:Goto B LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z: Z-1Goto 0:Z-2Goto 2:Z-3Goto 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-1Goto 0:Z-2Goto 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-1Goto 0:Z-2Goto 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-1Goto 0:Z-2Goto 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:AbsD →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y-1Goto 0:Y-2Goto I:Prog＂ZP＂:Goto J: LbI 8:Prog＂DX＂:LbI K:?X:X-1Goto 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]: ＂KM＂?Z:Z-1Goto 0:Z-2Goto L:Z-3Goto X: Prog＂SD1＂: 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 D0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog“H