资源描述:
《fx5800计算器公路测量常用程序集23修改版本》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、FX58002.3版修改版支持原版兼容性功能,做以下修改1.三维坐标正反算2.高程序支持单交点3.宽度放样,加宽,坐标显示4.边坡放样边坡级数增加5.涵洞计算放样四点输出汇总程序名:0C1rMat:C1rVar:22àDimZ:Norm2:Do:”(XYZ=1,FS=2,GC=3,GDJS=4,BPFY=5,HD-XY=6,ZP=7,JS=8,SD=9)=èQINGAN1-9”:GetkeyàZ[3]:WhileZ[3]=35:Prog“1XYZ”:WhileEnd:WhileZ[3]=36:Pr
2、og”2FS”:WhileEnd:WhileZ[3]=37:Prog“3GC“:WhileEnd:WhileZ[3]=21:Prog“4GDJS”:WhileEnd:WhileZ[3]=22:Prog“5BPFY”:WhileEnd:WhileZ[3]=23:Prog“6HD-XY”:WhileEnd:WhileZ[3]=31:Prog“7ZP”:WhileEnd:WhileZ[3]=32:Prog“8JS”:WhileEnd:WhileZ[3]=33:Prog“9SD”:WhileEnd:LpW
3、hileZ[3]≠25:“Thinks865603453”:程序名:1XYZProg“DX”:Prog“QX”:Do:”KM”?Z=-1=>Stop:Prog“K”:?D:Porg“A”:Z[2]+90àA:I+Dcos(AàX:J+Dsin(AàY:Prog“XY”:Prog“H”:“Z=”:Locate6,4,H:“BF=”:Locate4,4,Z[2]◢Z[8]àM:”MO”?M:MàZ[8]:“SCGC=”:Locate7,4,Z[8]:“T+W-=”:Locate7,4,H-Z[8]:P
4、rog“JS”:LpWhileZ≠-1程序名:2FSProg“QX”:Do:”KM”?Z=-1=>Stop:Z=-2=>Break:Prog“K”:”XO”?X:”YO”?Y:Porg”B”:Porg”B”Porg”H”:Prog“ZD”:“Z=”:Locate6,4,H◢LbWhileZ≠-13.主程序:任意点高程计算及横坡程序名:3GCProg“QX-H”:0àB:“H-B”?B:BàZ[9]:Do:“KM”?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog“H”:Fix3:”
5、H=”:Locate6,4,H-Z[9]:Fix4:”ZPI=”:Locate6,4,I:LpWhileZ≠-1程序名:QX-H1àA:”QX:X1=1,X2=2”?A:AàZ[4]:IfA=0:Then”JDKM”?C:”HJD”?G:”RJD”?R:Z[21]àI:”I1”?I:Z[22]àN:”I2”?N:IfEnd4.主程序:标准路基宽度计算程序名:4GDJSProg“DX”:Prog“QX”:Do:“KM”?Z:Prog“K”:Z=-1=>Stop:Z=-2=>Break:-1àD:Pr
6、og“C”:LàP:-PàZ[20]:1àD:Prog“C”:LàZ[20]:Fix3:“LGD=”:Locate6,4,P:“LK=3.5+”:Locate8,4,P-3.5:”RGD=”:Locate6,4,L:“RK=3.5+”:Locate8,4,L-3.5:◢ZàZ:-Z[20]àD:Prog“4GD-1”:ZàZ:Z[19]àD:Prog“4GD-1”:LpWhileZ≠-1(3.5为路面半幅宽度,可以自己设置)子程序4GD-1IfD<0:Then“L-XY-AI-DI”◢Else“R
7、+XY-AI-DI”◢IfEnd:Prog“K”:Prog“A”:Z[2]+90àA:I+Dcos(AàX:J+Dsin(AàY:Prog“XY”:Prog“JS”5.主程序:路基开挖边线及填方坡放样程序程序名:5BPFYProg“DX”:Prog“QX”:0.5àB:“TH-GD”?B:BàZ[7]:Do:“KM”?Z:Z=-1=>Stop:Z=-2=>Break:Prog“K”:”XO”?X:”YO”?Y:Z[8]àM:“MO”?M:MàZ[8]:Prog“B”:DàP:Prog“C”:IfD
8、<0:The-LàD:ElseLàD:IfEnd:Prog“H”:H-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:IfHW+Z[16]:ThenL+Z[7]+V+Z[14]+Z[15](G-W