卡西欧5800P放样程序

线路中、边桩测量放样程序 (Ver 3.2)
F1 XLCS （主程序，步数385）
L1 Norm:Deg:U=O″A0″:Prog 1:Q=U:C″X-JD″:D″Y-JD″:U=A″A:R+L-″:Prog 1: B=Abs U:R:S″L0″:E″K-ZH″
L2 M=.5S-Sxy3/240R2:P=S2/24R:T=(R+P)tan.5B+M:F=πRB/180+S+E
L3 K″ZJ:XY＝＞1″:K≠1＝＞{L}:V=L″K″:U=0:Prog 4: G=X:H=Y:≠＞G″X″:H″Y″{KJ}:K″HS:XY＝＞1″:K=1＝＞{I}:X=I″X″:Y=J″Y″:≠＞V=J″K″:U=0:Prog 4
L4 Pol(X-G,Y-H:N=W:U=0:{U}:U″AB″:Prog 1:K=U
L5 Lb1 0:U=0:{U}:U″CS:XY＝＞1″:U=0＝＞{UZ}:V=Z″K″: U″BZ:R+L-″:A<0＝＞U =-UProg 4: ≠＞{XY}:X:YProg 5: Prog 6:Goto 0
F2 1 （十进制→六十进制子程序，步数19）
L1 U=Int U+Frac U/.6+Frac 100U/90
F3 2 （六十进制→十进制子程序，步数22）
L1 60Frac W:W=Int W+.01Int Ans+.006Frac Ans
F4 3 （缓和曲线上任意点坐标计算子程序，步数57）
L1 Y=RS:X=V-Vxy5/40Y2:Y=Vxy3(1-Vxy4/56Y2)/6Y+URec(1,90V2/πY:X=X-UW
F5 4 （中桩、边桩坐标计算子程序，步数195）
L1 V＞F＝＞X=T-UsinB+Rec(V-F+T,B:Y=W+UcosB:Goto 0
L2 V＞F-S＝＞V=F-V:Prog 3: Rec(1,B:U=X:X=T+TV-XV-YW:Y=TW-UW+YV: Goto 0
L3 V＞E+S＝＞Y=P+R-Rec(R-U,180(V-E-.5S)/πR:X=M+W:Goto 0
L4 V＞E＝＞V=V-E:Prog 3: ≠＞X=V-E:Y=U
L5 Lbl 0: A<0＝＞Y=-YRec(1,Q:U=X:X=C-TV+XV-YW:Y=D-TW+UW+YV
F6 5 （测设数据输出子程序，步数76）
L1 Pol(X-G,Y-H:W=W-N:W＜0＝＞W=W+360W=K+W:W≥360＝＞W= W-360 Fix 4:Prog 2:W″AC″=W◢Fix 3:V″DC″=V◢Norm
F7 6 （测设时移桩数据计算子程序，步数92）
L1 Lbl 0:Norm:L=0:W=0
CASIO fx-4X00 L2 Lbl 1:U=0:{U}:U″SC″:U≠0＝＞W=W+U:L=L+1:Goto 1W≠0＝＞{U}:U″V″: Prog 1:Fix 3:W″SD″=W/L×sin U◢W″MOVE″=V-W◢Goto 0

100分是我的