任意点经纬仪放样程序(fx-4800).doc

3任意点经纬仪放样程序(fx-4800)程序清单符号说明条件转移成立符号Goto无条件转移命令条件转移失败符号Lbl标记命令条件转移结束符号Dsz减量命令结果显示命令Isz增量命令fx-4800计算器乘方符号Pause暂停命令Fixm变数锁住命令变数输入命令Prog转移至子程式命令Abs取数值绝对值Int取数值整数部分Pol()直角坐标-极坐标变换Ran#随机数Rec()极坐标-直角坐标变换分数符号回车换行Xyfx-4500计算器乘方符号根号字母O你的位置：首页公路程序FX程序专区任意点经纬仪放样程序(fx-4800）程序说明： 本程序的作用是经纬仪在任意点放样中桩，未经过测试，有兴趣的可参考。 变量说明：程 序 清 单注 释文件:F1 文件名：YYDFY Y=999:IRESETYNYGoto 6 Defm 1:BJDAPJ(DEG):C=90HLhR:P=H224R:Q=H2-H3240R2:T=Q+(R+P)tan A2:L=2H+R(A-2C)180:D=B-T:F=D+H:K=D+L2:S=D+L:N=S-H:YH=:Pause 0:Z1E=(R+P)cos A2-R Lbl 6:Fixm:Z:H=S-N:D=F-H:B=D+T:Z(INSTAL)KM+m(r,；X,Y）=888CVWJUE:C(ZPJ)=1;(YPJ)1VXWY(Z-,Y+)JXhUYh(Z-,Y+)E(DMS）:Goto 6 ZDX=Z-D：Y=0：P=0：Goto 9ZSX=T+cos A(Z-S+T):Y=sin A(Z-S+T):P=0:Goto 9ZFZGoto 8ZF=Z-D:=S-Z H0X=-540R2H2:Y=36RH-7336R3H3:P=3tan-1YX:ZNG=Ytan A:I=Ysin A:=X-G:X=T(1+cos A)-cos A-I:Y=sin A(T-)Goto 9 Lbl 8:P=180(K-Z)R:X=R(2-2cos Abs P):I=(X2+Z12-2XZ1cos(90+Abs P2):=sin-1(Xsin(90+Abs P2)I:G=A2+:X=T-Isin G:Y=Icos G ZKGoto 9A2G=-A2:X=T+Isin G:Y=Icos G:Goto 9X=T-Isin(A2-):Y=Icos(A2-) Lbl 9:C=1Y=-YB=X:H=Y Lbl 3:XXpYYp:X=VG=0:YWG=90YG=270Goto 1G=Abs tan-1(Y-W)(X-V) XYWG=180+G:G=180-GYG=360-G Lbl 1:J=VUWI=270:I=90Goto 2I=Abs tan-1(U-W)(J-V) JVUWI=360-IJUWI=180+I:I=180-I Lbl 2:(X-V)2+(Y-W)2):DIST(r)=:Pause 0:G=G+I+E:G720G=G-720G360G=G-360GDEG()= Lbl 5:D=F+N-S:MLGXY:MK(X,Y);h(r,);B(FBZ)=AGoto 4M=hGoto 3M=BLJU ZHONG(m)(Z-);(Y+):Goto 6 C=1L=-LZNX=B-Lsin(A-P):C=1L=-LY=H+Lcos(A-P):Goto 3ZFX=B-Lsin P:C=1L=-LY=H+Lcos P:Goto 3X=B-Lsin(A2-P):C=1L=-LY=H+Lcos(A2-P):Goto 3 Lbl 4:D=L