CASIO5800P程序.doc

CASIO5800P 1：程序名：QXJS CO “L=”？L:“LI CHENG =”?W↓ 提示输入里程桩号 LbI A↓ For 1→N To 20↓ 输入交点编号为1至20 L=1=＞Prog“1XY” ← 当输入L=1时，启用数据库“1XY” 。。。。。。 If WRep(Z)And WImp(Z):Then Pr og“MP”:Goto 0: IfEnd:Next↓ “--LI CHENG---？ ”:Stop↓ 当输入里程Z大于或小于所启用的数据库的里程范围时停止计算 LbI 0↓ If K0:Then Q→X: 0→Q:0→J:S+C→I:Ab S(K) →K:Goto 3 :If End↓ Goto 2↓ LbI 1↓ Q0=＞360+Q→Q↓ “LI CHENG=”?W↓ If WRep(Z) And WImp(Z):Then Go to 2:EIse“” :Goto A :IfEnd↓ LbI 2↓ 0→J↓ μ0+Abs(W-Abs(K)) →I↓ W:K0=＞-W↓ If AnsK:Then 0→ U:-I:Goto 4:IfEn d↓ IS+C=＞S+C→I↓ LbI 3↓ If IS:Then I2r÷(2RS) →U:I-I∧(5) ÷ (40R2S2)+i(I∧(3) ÷(6RS)-I∧(7) ÷(33 6R∧(3)S∧(3)) :EIs e (2I-S) r ÷(2R) →U :Z[2]+R(Sin(U)-i cos(U)+i):IfEnd↓ LbI 4↓ J+Anscos(Q)+Ansi Sin(Q) →J↓ If I=S+C:Then Q+ A→Q: -K-I-T→K:T→I :S→T:I→S:-R→R:Pr og“MP”:Goto 3:I IfEnd↓ If Q+A=0:Then X- A-180→Q:K+Rep(J) +Imp(J) ÷tan(A) →K :O+Imp(J)(cos(Q) +isin(Q)) ÷sin(A) →O:Goto 2:IfEnd↓ If I=S:Then Q-18 0→Q:O+J→O:Goto 2 :IfEnd↓ K 0=＞U-180→U↓ Q+U→U↓ “BIAN JU=”?E↓ Rep(O)+Rep(J)-Es in(U) →X:Imp(O)+I mp(J)+Ecos(U) →Y↓ CIs:Fix3:Locate 1,1, “X=”: Locate 7,2,X: Locate 1, 3, “Y=”: Locate 7, 4,Y▲ If E=x10-6:Then P rog “BYXY”:Goto 1:IfEnd↓ Goto 1↓ Prog“ZBFS”:Goto 1↓ 备注： 程序中“↓”为回车键，“-”CASIO计算器的（-）键， “i”虚数i。 2：程序名： ZBFS CO “X=”?X:X→B:Prog 提示输入X坐标，并进入“NO”程序 “NO” ↓ X=Ans=＞“Y”?Y↓ X→B:Rep(Y) →J↓ “NO=”?F:F→X: Prog “NO” ↓ X=Ans=＞“Y0=”?G↓ If X0:Then -X→F :Rep(Y) →G:Imp(Y) →L:IfEnd↓ B→X:J→Y↓ Pol(Abs(X)-F,Y-G ) ↓ If X0:Then “B0= ”?H:H-J→Z [1]: IfE nd↓ J+Z [1] →J↓ J0=＞J+360→J↓ J360=＞J-360→J↓ 60Frac(J):Int(J) + Int(Ans) ÷100+6m Frac(Ans) →J↓ Cls:Fix 4: ”Locate 1,1, “w0 0 0 0=” :L Ocate 7,2,J↓ Locate 1,3,”---- ---“: Locate 7,4, I▲ LbI 0↓ Cls: “S=”?U↓ U=0=＞Return↓ Locate 1,1, “S..= ”: Locate 7,2,U-I ▲ Goto 0↓ 注：“X”为后视点-X坐标，“Y”为后视点Y坐标; “X0” 为测站点X坐标，“Y0”为测站点Y坐标; 3：程序名：BYXY CO “MO=”?M: “P=”?P↓ 提示输入后视点X，Y坐标 U+90→H↓ 提示输入代测点的高程 Pol(X-M,Y-P) ↓ Isin(J-H) →H↓ J0=＞360+J→J↓ U0=＞360+U→U↓ U-J→J↓ J0=＞360+J→J↓ J269=＞-I→I↓ If Abs(H)≤x10-5:T hen Cls: Locate 1 ,1, “W OK!”: Locat e7,2,W: Locate 1 ,3,