用全站仪测设公路中桩和边桩程序.doc

《用全站仪测设公路中桩和边桩程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用全站仪测设公路中桩和边桩程序 用全站仪测设公路中桩和边桩程序[转帖]由本人从网络是整理而得。供大家使用！！(原程序是这样的，我未加整理，见谅)程序说明：本程序用于用全站仪测设中桩和边桩，采用坐标变换的方法编制而成，在使用fx-4500计算器时，可直接输入以下程序便可使用；而在使用fx-4800计算器时，见fx-4800程序清单。注意：因程序的0(零)和O易混淆,所以字母O用较大的全角符号，零仍用标准字。程序输入时应连续输入，无空格。而且输入时文件名需和给出的一样，否则会出现调用文件错误。变量说明：<程序运算符定义>X输入摆站点的x坐标C输入第一个

2、曲线角桩x坐标I输入中间曲线角桩的x坐标Y输入摆站点的y坐标D输入第一个曲线角桩y坐标J输入中间曲线角桩的y坐标E最后一个曲线角桩x坐标R中间曲线半径L中间曲线缓和曲线长F最后一个曲线角桩y坐标K第一个K为中间角桩桩号S中间角桩曲线总长，检验用K第二个K为要测设的桩号B测中桩时输入0，测边桩时输入宽度（左输负值，右输正值）程序清单注释文件:F1文件名：1L1L2L3Defm8XYCDIJEFRLK:Fixm:Z[2]=0:ProgBZ[5]=0.5L-LXy3/240R2:Z[3]=Z[5]+(R+L2/24R)AbstanT┛2:Z=K-Ans:

3、S=RAbsTπ/180+L:S◢H=Z+Ans:G=RL:Prog2文件:F2文件名：2L1Lbl0:Fixm:{K}L2Lbl6:{B}:Norm:K(-1)XyZ[2]>(H-L)(-1)XyZ[2]＝>Goto4⊿FracZ[2]┛2=0=>Z[6]=Z:≠>Z[6]=H⊿A=90T/AbsTL3B<0＝>N=0:≠>N=1⊿B=AbsBL4０=Abs(K-Z[6]:K(-1)XyZ[2]>Z[6](-1)XyZ[2]＝>Goto2⊿Q=Z[3]+０:Z[4]=BL5B≠0＝>ProgC⊿ProgD:P=0L6ProgE:Goto0L7Lb

4、l2:０≥L＝>Goto3⊿L8Q=Z[3]-０+０Xy5/40G2:Z[4]=０Xy3/6G-０Xy7/336GXy3:ProgD:P=BL9B≠0＝>ProgF⊿ProgE:Goto0L10Lbl3:Q=Z[3]-Z[5]:Z[4]=R+L2/24R:ProgDL11Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝>ProgG:≠>P=R⊿ProgE:Goto0L12Lbl4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:ProgB:Goto6文件:F3文件名：0L1Pol(M,０):W<0＝>W=W+3

5、60文件:F4文件名：BL1L2M=E-I:０=F-J:Prog0:T=W:M=I-C:０=J-D:Prog0:U=W:T=T-WT<-180＝>T=T+360⊿T>180＝>T=T-360文件:F5文件名：CL1A=-90(-1)Xy(N+Z[2])文件:F6文件名：DL1Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A)文件:F7文件名：EL1L2M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog0W◢Fix3:V◢Norm文件:F8文件名：FL1Z[8]=U+A

6、+A０2/πG+90+A(-1)Xy(N+Z[2])文件:F9文件名：GL1P=R+AB(-1)Xy(N+Z[2])/90此处L2句加入：M+X◢０+Y◢可显示测点坐标值