欢迎来到天天文库
浏览记录
ID:23554126
大小:806.51 KB
页数:25页
时间:2018-11-08
《fx5800计算器公路测量程序设计(2)》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、CASIOfx-5800P计算器测量程序设计2.3版作者:汤海波QQ:13119703FX5800计算器公路测量常用程序集2.3版 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序(绿色为程序名;蓝色为输入计算器内容)红色为网友调试后修改笔误。0.
2、总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名:0(数子0)ClrMat:ClrVar:12→DimZ:Norm2:Do:"(XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9)===>QINGAN1-9":Getkey→Z[3]:While
3、Z[3]=35:Prog"1XY”:WhileEnd:WhileZ[3]=36:Prog"2ZD":WhileEnd:WhileZ[3]=37:Prog"3GC":WhileEnd:WhileCASIOfx-5800P计算器测量程序设计2.3版作者:汤海波QQ:13119703Z[3]=21:Prog"4GD":WhileEnd:WhileZ[3]=22:Prog"5BP":WhileEnd:WhileZ[3]=23:Prog"6FM":WhileEnd:WhileZ[3]=31:Prog"7ZP":WhileEnd:WhileZ[3]=32:Prog"8JS":Wh
4、ileEnd:WhileZ[3]=33:Prog"9SD":WhileEnd:LpWhileZ[3]≠25:”XIEXIESHIYONG”:1.主程序:一般坐标计算及放样程序程序名:1XYProg"DX":Prog"QX":90→A:"PJ1"?A:A→B:"PJ2"?B:A→Z[1]:B→Z[9]:Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break:Prog"K":?D:0→L:"L0"?L:L→Z[10]:Porg"A":Z[2]+Z[1]→A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→
5、Y:Prog"XY":Prog"JS":LpWhileZ≠-12.主程序:由大概桩号及坐标反算桩号及距离程序名:2ZDProg"QX":Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break:Prog"K":"XO"?X:"Y0"?Y:Porg"B":Prog"ZD":LpWhileZ≠-13.主程序:任意点高程计算及横坡程序名:3GCProg"QX":0→B:"H-B"?B:B→Z[9]:Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog"H":Fix3:"H=":Locate6,4,H-Z[9]:"I=":Locate6,4
6、,I:LpWhileZ≠-1CASIOfx-5800P计算器测量程序设计2.3版作者:汤海波QQ:131197034.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg"QX":Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog"C":L→P:1→D:Prog"C":Fix3:"LGD=":Locate6,4,P:"RGD=":Locate6,4,L:LpWhileZ≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名:5BPProg"DX":Prog"QX":0.5→B:"TH-GD"?B:B→Z[7]:Do:"KM"
7、?Z:Z=-1=>Stop:Z=-2=>Break:Prog"K":“X0"?X:"Y0"?Y:Z[8]→M:"M0"?M:M→Z[8]:Porg"B":D→P:Prog"C":IfD<0:Then0.75-L→D:ElseL-0.75→D:IfEnd:Prog“H”:H-0.03-Z[8]→G:Prog“W1”:IfG>0:ThenGotoT:IfEnd:-G→H:IfH>E+F:ThenL+M+N+U+C(H-E-F)+BF+AE→S:Goto0:IfEnd:IfH>E:ThenL+M+N+B(H-E)+AE→S:Goto0:IfEnd:IfH<
此文档下载收益归作者所有