资源描述：
《fx5800计算器公路测量程序设计(3)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、CASIOfx-5800P计算器测量程序设计2.1版作者：汤海波QQ:13119703FX5800计算器公路测量常用程序集2.1版 一、程序功能 主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。二、源程序1.总
2、主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbI0:17→DimZ：Norm2:1→A：＂A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:19CA
3、SIOfx-5800P计算器测量程序设计2.1版作者：汤海波QQ:13119703A=1=>Goto1:A=2=>Goto2:A=3=>Goto3:A=4=>Goto4:A=5=>Goto5:A=6=>Goto6:A=7=>Goto7:A=8=>Goto8:A=9=>Goto9LbI1:Prog＂DX＂:LbIA:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→Z[1]:C→Z[8]:LbIB:1→F:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Z=-3=>GotoX:Prog＂KM＂:?D:P
4、org＂THB＂:O→L:＂L0＂?L:Z[2]+Z[1]-Z[8]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Prog＂XY＂:Prog＂JS＂:GotoBLbI2:2→F:90→Z[1]:Prog＂QX＂:LbIC:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto2:Z=-3=>GotoX:Prog＂KM＂:＂XO＂?X:＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:GotoC:LbI3:Prog＂QX＂:0→B:＂H-B＂?B:B→Z[9]:LbID:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Go
5、to3:?D:Porg＂H＂:Fix3:＂H=＂:Lcoate6,4,H-Z[9]：＂I=＂:Locate6,4,I：GotoDLbI4:Prog＂QX＂:LbIE:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto4:?D:Prog＂GD＂:Fix3:＂SJGD=＂:Locate7,4,L：GotoELbI5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:LbIF:2→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>Goto5:Prog＂KM＂:＂X0＂?X:＂Y0＂?Y:0→M:”M
6、0”?M:M→Z[4]:Prog＂3FBX＂Fix2:P→D:Abs（P）-S→O:＂L0=＂:Locate6,4,O：Prog＂ZD＂:Z[4]→T:＂TW=＂:Lcoate6,4,T◢GotoF:19CASIOfx-5800P计算器测量程序设计2.1版作者：汤海波QQ:13119703LbI6: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→
7、M:＂M0＂?M:Fix2:H-M→T:＂TW=＂:Locate6,4,T◢GotoH:LbI7:Prog＂DX＂:LbII:Prog＂QX＂:0→D:＂LD:Z-,Y+＂?D:Abs(D)→R:＂LR＂?R:＂Z0＂?Z:D→Z[6]:R→Z[7]:Z→Z[8]:LbIJ:0→Y:＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto0:Y=-2=>GotoI:Prog＂ZP＂:GotoJ:LbI8:Prog＂DX＂:LbIK:?X:X=-1=>Goto0:X=-2=>Goto8:?Y:Prog＂JS＂:GotoK:LbI9:Porg＂D
8、X＂:LbIL:Prog”QX”:LbIM:2→F:90→Z[1]:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoL:Z=-3=>GotoX:Prog＂SD1＂:0.5→A:“CQHD＂?A:“
