CASIO实用测量程序..docVIP

CASIO fx-4X00 实用工程测量程序 中铁二十四局福建公司工程部·洪淮斌 2004年4月28日  线路中、边桩测量放样程序 (Ver 3.2) XLCS （主程序，步数385） 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″ Fix 3:M=.5S-Sxy3/240R2:P=S2/24R:T″T″=(R+P)tan.5B+M◢F″L″=πRB/180+S◢F=F+E:Norm 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◣Fix 3 V″D0″=Pol(X-G,Y-H◢Fix 4:N=W:W0＝＞W=W+360◣Prog 2:W″A0″=W◢Norm:U=0:{U}:U″AB″:Prog 1:K=U Lb1 0:U=0:{U}:U″CS:XY＝＞1″:U=0＝＞{UZ}:V=Z″K″: U″BZ:R+L-″:A0＝＞U=-U◣Prog 4: ≠＞{XY}:X:Y◣Prog 5: Prog 6:Goto 0 1 （十进制→六十进制子程序，步数19） U=Int U+Frac U/.6+Frac 100U/90 2 （六十进制→十进制子程序，步数22） 60Frac W:W=Int W+.01Int Ans+.006Frac Ans 3 （缓和曲线上任意点坐标计算子程序，步数57） Y=RS:X=V-Vxy5/40Y2:Y=Vxy3(1-Vxy4/56Y2)/6Y+URec(1,90V2/πY:X=X-UW 4 （中桩、边桩坐标计算子程序，步数195） V＞F＝＞X=T-UsinB+Rec(V-F+T,B:Y=W+UcosB:Goto 0◣ V＞F-S＝＞V=F-V:Prog 3: Rec(1,B:U=X:X=T+TV-XV-YW:Y=TW-UW+YV:Goto 0◣ V＞E+S＝＞Y=P+R-Rec(R-U,180(V-E-.5S)/πR:X=M+W:Goto 0◣ V＞E＝＞V=V-E:Prog 3: ≠＞X=V-E:Y=U◣ Lbl 0: A0＝＞Y=-Y◣Rec(1,Q:U=X:X=C-TV+XV-YW:Y=D-TW+UW+YV 5 （测设数据输出子程序，步数76） Pol(X-G,Y-H:W=W-N:W＜0＝＞W=W+360◣W=K+W:W≥360＝＞W= W-360◣Fix 4:Prog 2:W″AC″=W◢Fix 3:V″DC″=V◢Norm 6 （测设时移桩数据计算子程序，步数92） Lbl 0:Norm:L=0:W=0 Lbl 1:U=0:{U}:U″SC″:U≠0＝＞W=W+U:L=L+1:Goto 1◣W≠0＝＞{U}:U″V″:Prog 1:Fix 3:W″SD″=W/L×sin U◢W″MOVE″=V-W◢Goto 0◣ 【使用说明】 程序说明 本程序特点：可置镜任意点放样任意点（中桩点、边桩点、导线点）；人性化设计，提示信息全面，并充分考虑工程术语和习惯；专门设计的角度输入输出方式；绝对优秀的存储器分配方案。 本程序适用于放射螺旋线作为缓和曲线且前、后缓和曲线长度相同的单曲线放样，可放样线路中桩和边桩，按里程和坐标放样均可。 角度输入（出）方式：度.分秒，如 56°3′19″ 输入（出）为 56.0319。注意：分、秒必须为两位数，当小于10时，应在前面加“0”。 放样前应准备的数据：建立统一的施工坐标系（正测量坐标系、右手坐标系），计算控制点和曲线交点坐标、曲线第一切线方位角；整理曲线要素和放样点桩号、相应的边桩距离（或放样点坐标）。 若按坐标放样，则当程序提示输入曲线要素时，可输入任意值，仅在提示输入置镜点、后视点和放样点属性时输入“1”，然后输入相应坐标值。 如果要实时显示放样点的坐标，可在子程序F6行L1的“Fix 4:”后增加以下语句(双引号内)：“X◢Y◢”或者“X″X″=X◢Y″Y″=Y◢”。 子程序F1行L4中“:U=0:{U}:U″AB″:Prog 1:K=U”（输入仪器后视读数）和行L5中“Prog 6:”（调用移桩计算子程序）、子程序F6行L1中“W=K+W:W≥360＝＞W= W-360◣”（计算仪器前视读数，必须与前述“输入仪器后视读数”同时取舍）、子程序F8（移桩计算子程序）可根据需要取舍。 本程序按CASIO fx-4500P计算器设计。若使用CASI