CASIO5800P程序

《CASIO5800P程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO5800P1：程序名：QXJSCO“L=”？L:“LICHENG=”?W↓提示输入里程桩号LbIA↓For1→NTo20↓输入交点编号为1至20L=1=＞Prog“1XY”←当输入L=1时，启用数据库“1XY”。。。。。。IfW>Rep(Z)AndW

2、Q<0=＞360+Q→Q↓“LICHENG=”?W↓IfW>Rep(Z)AndW>>>”:GotoA:IfEnd↓LbI2↓0→J↓μ0+Abs(W-Abs(K))→I↓W:K<0=＞-W↓IfAnsS+C=＞S+C→I↓LbI3↓IfI

3、)+i):IfEnd↓LbI4↓J+Anscos(Q)+AnsiSin(Q)→J↓IfI=S+C:ThenQ+A→Q:-K-I-T→K:T→I:S→T:I→S:-R→R:Prog“MP”:Goto3:IIfEnd↓IfQ+A=0:ThenX-A-180→Q:K+Rep(J)+Imp(J)÷tan(A)→K:O+Imp(J)(cos(Q)+isin(Q))÷sin(A)→O:Goto2:IfEnd↓IfI=S:ThenQ-180→Q:O+J→O:Goto2:IfEnd↓K<0=＞U-180→U↓Q+U→U↓“BIANJU=”?E↓Rep(O)+Rep(J)-E

4、sin(U)→X:Imp(O)+Imp(J)+Ecos(U)→Y↓CIs:Fix3:Locate1,1,“X=”:Locate7,2,X:Locate1,3,“Y=”:Locate7,4,Y▲IfE=x10-6:ThenProg“BYXY”:Goto1:IfEnd↓Goto1↓Prog“ZBFS”:Goto1↓备注：程序中“↓”为回车键，“-”CASIO计算器的（-）键，“i”虚数i。2：程序名：ZBFSCO“X=”?X:X→B:Prog提示输入X坐标，并进入“NO”程序“NO”↓X=Ans=＞“Y”?Y↓X→B:Rep(Y)→J↓“NO=”?F:F→X:P

5、rog“NO”↓X=Ans=＞“Y0=”?G↓IfX<0:Then-X→F:Rep(Y)→G:Imp(Y)→L:IfEnd↓B→X:J→Y↓Pol(Abs(X)-F,Y-G)↓IfX<0:Then“B0=”?H:H-J→Z[1]:IfEnd↓J+Z[1]→J↓J<0=＞J+360→J↓J>360=＞J-360→J↓60Frac(J):Int(J)+Int(Ans)÷100+6mFrac(Ans)→J↓Cls:Fix4:”Locate1,1,“w0000=”:LOcate7,2,J↓Locate1,3,”-------“:Locate7,4,I▲LbI0↓Cl

6、s:“S=”?U↓U=0=＞Return↓Locate1,1,“S..=”:Locate7,2,U-I▲Goto0↓注：“X”为后视点-X坐标，“Y”为后视点Y坐标;“X0”为测站点X坐标，“Y0”为测站点Y坐标;3：程序名：BYXYCO“MO=”?M:“P=”?P↓提示输入后视点X，Y坐标U+90→H↓提示输入代测点的高程Pol(X-M,Y-P)↓Isin(J-H)→H↓J<0=＞360+J→J↓U<0=＞360+U→U↓U-J→J↓J<0=＞360+J→J↓J<269=＞-I→I↓IfAbs(H)≤x10-5:ThenCls:Locate1,1,“WOK

7、!”:Locate7,2,W:Locate1,3,“I”:Locate7,4,I▲IfEnd↓W+H→W↓Return↓4；程序名：FANGPOCOLbI0↓CIs:“M=”?M:“P=”?P:“H=”?D:“H0=”?H:“1:M0=”?V↓Pol(X-M,Y-P)↓Cls:Locate1,1,“1:M”Locate7,2,I÷(D-H)▲Locate1,1,“S..=”:Locate7,2,I-V(D-H):Locate1,3,“W..=”:Locate7,4,Isin(J-U-90)▲Goto0↓5：程序名：MPCO(S+T+2C)r÷(2R)→A↓S

8、2÷(24R2)↓S÷2-0.1SAns+RiAns