资源描述：
《5800公路测量程序2.2-版(7条路线)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、CASIOfx-5800P计算器测量程序设计2.2版（7条线路）作者：路甲人FX5800计算器公路测量常用程序集2.2版一、程序功能 主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准
2、宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbl0:24→DimZ：Norm2:1→A：＂A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:A=1=>Goto1:A=2=>Goto2:A=3=>Goto3:A=4=>Goto4:A=5=>Goto5:A=6=>Go
3、to6:A=7=>Goto7:A=8=>Goto8:A=9=>Goto98Lbl1:Prog＂DX＂:LbIA:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:LblB:1→F:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Z=-3=>GotoX:Prog＂KM＂:?D:Porg＂THB＂:0→L:＂L0＂?L:Z[2]+Z[1]-Z[8]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Prog＂XY＂:Prog＂JS＂:GotoB8Lbl2:2→F:90→Z[1]:Prog＂QX＂:LblC:＂D
4、KLC＂?Z:Z=-1=>Goto0:Z=-2=>Goto2:Z=-3=>GotoX:Prog＂KM＂:＂X0＂?X:＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:GotoC814CASIOfx-5800P计算器测量程序设计2.2版（7条线路）作者：路甲人LbI3:Prog＂QX＂:1.5→K:＂W÷2＂?K:K→Z[24]:0→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:LblD:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto3:?D:＂ZS＂?P:Porg＂H＂:Fix3:＂SJG=＂:Lcoate6,4,H-Z[9]:＂SCG=＂:Lco
5、ate6,4,F:＂I=＂:Locate6,4,I×100:IfU<0:Then＂W=＂:Locate6,4,U:Else＂T=＂:Locate6,4,U:IfEnd◢GotoD8Lbl4:Prog＂QX＂:LbIE:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto4:?D:Prog＂GD＂:Fix3:＂SJGD=＂:Locate7,4,L:GotoE8Lbl5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[23]:LblF:2→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto5:Prog＂KM＂:＂X0＂?X:＂Y
6、0＂?Y:0→M:＂M0＂?M:M→Z[4]:Prog＂FBX＂:Fix2:P→D：Abs（D）-S→O:＂L0=＂:Locate6,4,O:Prog＂ZD＂:Z[4]→T:＂TW=＂:Lcoate6,4,T◢GotoF8Lbl6:Prog＂DX＂:LbIG:Prog＂QX＂:LbIH:1→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoG:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M:＂M0＂?M:Fix2:H-M→T:＂TW=＂:Locate6,4,T◢GotoH8Lbl7:P
7、rog＂DX＂:LbII:Prog＂QX＂:＂Z0＂?Z:0→D:＂LD:Z-,Y+＂?D:Abs(D)→R:＂LR＂?R:D→Z[6]:R→Z[7]:Z→Z[8]:LbIJ:0→Y:＂L0:DZH+,XZH-＂?Y:Y=-1=>Goto0:Y=-2=>GotoI:Prog＂ZP＂:GotoJ8Lbl8:Prog＂DX＂:LblK:?X:X=-1=>Goto0:X=-2=>Goto8:?Y:Prog＂JS＂:GotoK8Lbl9:Porg＂DX＂:LblL:Prog”QX”:LblM:2→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto0:Z=
