CASIO fx-4800P 程序大全.docVIP

公路全站仪中线放样程序 注意：因程序的0(零)和O易混淆,所以字母O用较大的全角符号，零仍用标准字。程序输入时应连续输入，无空格。而且输入时文件名需和给出的一样，否则会出现调用文件错误。 变量说明： 程序运算符定义 X 输入摆站点的x坐标 C 输入第一个曲线角桩x坐标 I 输入中间曲线角桩的x坐标 Y 输入摆站点的y坐标 D 输入第一个曲线角桩y坐标 J 输入中间曲线角桩的y坐标 E 最后一个曲线角桩x坐标 R 中间曲线半径 L 中间曲线缓和曲线长 F 最后一个曲线角桩y坐标 K 第一个K为中间角桩桩号 S 中间角桩曲线总长，检验用 K 第二个K为要测设的桩号 B 测中桩时输入0，测边桩时输入宽度（左输负值，右输正值） 文件:F1??? 文件名：1 L1 L2 L3 Defm 8 XYCDIJEFRLK:Fixm:Z[2]=0:Prog B Z[5]=0.5L-L Xy 3/240R2:Z[3]=Z[5]+(R+L2/24R)Abs tan T┛2:Z=K-Ans:S=R Abs Tπ/180+L:S◢H=Z+Ans:G=RL:Prog 2 文件:F2??? 文件名：2 L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12 Lbl 0:Fixm:{K} Lbl 6:{B}:Norm:K(-1) Xy Z[2](H-L)(-1) Xy Z[2]＝Goto 4⊿Frac Z[2]┛2=0=Z[6]=Z:≠Z[6]=H⊿A=90T/Abs T B0＝N=0:≠N=1⊿B=Abs B ０=Abs(K-Z[6]:K(-1) Xy Z[2]Z[6](-1) Xy Z[2]＝Goto 2⊿Q=Z[3]+０:Z[4]=B B≠0＝Prog C⊿Prog D:P=0 Prog E:Goto 0 Lbl 2:０≥L＝Goto 3⊿ Q=Z[3]-０+０ Xy 5/40G2:Z[4]=０ Xy 3/6G-０ Xy 7/336G Xy 3:Prog D:P=B B≠0＝Prog F⊿Prog E:Goto 0 Lbl 3:Q=Z[3]-Z[5]:Z[4]=R+L2/24R:Prog D Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝Prog G:≠P=R⊿Prog E:Goto 0 Lbl 4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:Prog B:Goto 6 文件:F3??? 文件名：0 L1 Pol(M,０):W0＝W=W+360 文件:F4??? 文件名：B L1 L2 M=E-I:０=F-J:Prog 0:T=W:M=I-C:０=J-D:Prog 0:U=W:T=T-W T-180＝T=T+360⊿T180＝T=T-360 文件:F5??? 文件名：C L1 A=-90(-1) Xy (N+Z[2]) 文件:F6??? 文件名：D L1 Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A) 文件:F7??? 文件名：E L1 L2 M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog 0 W◢Fix 3:V◢Norm 文件:F8??? 文件名：F L1 Z[8]=U+A+A０2/πG+90+A(-1) Xy (N+Z[2]) 文件:F9??? 文件名：G L1 P=R+AB(-1) Xy (N+Z[2])/90 任意点经纬仪放样程序 文件:F1??? 文件名：YYDFY Y=999:IRESET[Y┛N]≠Y＝Goto 6⊿? ← Defm 1:BJDAPJ(DEG):C=90HLh÷πR:P=H2÷24R:Q=H┛2-H＾3÷240R2:T=Q+(R+P)tan A┛2:L=2H+πR(A-2C)÷180:D=B-T:F=D+H:K=D+L┛2:S=D+L:N=S-H:YH=:Pause 0:Z[1]E=(R+P)cos A┛2-R◢ ← Lbl 6:Fixm:{Z}:H=S-N:D=F-H:B=D+T:Z888＝(INSTAL)KM+m(r,σ；X,Y）=888＝{CVWJUE}:C(ZPJ)=1;(YPJ)≠1VXπWYπ(Z-,Y+)JXhUYh(Z-,Y+)E(D°M°S°）:Goto 6⊿← Z≤D＝X=Z-D：Y=0：P=0：Goto 9⊿Z≥S＝X=T+cos A(Z-S+T):Y=sin A(Z-S+T):P=0:Goto 9⊿ZF＝ZN＝Goto 8⊿⊿Z≤F＝０=Z-D:≠０=S-Z⊿? ← H≠0＝X=０-０＾5÷40R2H2:Y=０