CASIO5800P程序.doc

CASIO5800P 1：程序名：QXJS CO“L=”？L:“LI CHENG=”?W 提示输入里程桩号LbI AFor 1N To 20 输入交点编号为1至20L=1=Prog“1XY” 当输入L=1时，启用数据库“1XY”。If WRep(Z)And WImp(Z):Then Prog“MP”:Goto 0: IfEnd:Next “-LI CHENG-？”:Stop 当输入里程Z大于或小于所启用的数据库的里程范围时停止计算LbI 0If K0:Then QX:0Q:0J:S+CI:AbS(K) K:Goto 3 :IfEndGoto 2LbI 1QRep(Z) AndW”:Goto A :IfEndLbI 20J0+Abs(W-Abs(K)IW:K0=-WIf AnsS+C=S+CILbI 3If IS:Then I2r(2RS) U:I-I(5) (40R2S2)+i(I(3)(6RS)-I(7) (336R(3)S(3) :EIse (2I-S) r (2R) U:Z2+R(Sin(U)-icos(U)+i):IfEndLbI 4J+Anscos(Q)+AnsiSin(Q) JIf I=S+C:Then Q+AQ: -K-I-TK:TI:ST:IS:-RR:Prog“MP”:Goto 3:IIfEndIf Q+A=0:Then X-A-180Q:K+Rep(J)+Imp(J) tan(A) K:O+Imp(J)(cos(Q)+isin(Q) sin(A)O:Goto 2:IfEndIf I=S:Then Q-180Q:O+JO:Goto 2:IfEndK 0=U-180UQ+UU“BIAN JU=”?ERep(O)+Rep(J)-Esin(U) X:Imp(O)+Imp(J)+Ecos(U) YCIs:Fix3:Locate1,1, “X=”: Locate7,2,X: Locate 1,3, “Y=”: Locate 7,4,YIf E=x10-6:Then Prog “BYXY”:Goto1:IfEndGoto 1Prog“ZBFS”:Goto1备注：程序中“”为回车键，“-”CASIO计算器的（-）键， “i”虚数i。2：程序名： ZBFS CO“X=”?X:XB:Prog 提示输入X坐标，并进入“NO”程序“NO” X=Ans=“Y”?YXB:Rep(Y) J“NO=”?F:FX: Prog“NO” X=Ans=“Y0=”?GIf X0:Then -XF:Rep(Y) G:Imp(Y)L:IfEndBX:JYPol(Abs(X)-F,Y-G) If X0:Then “B0=”?H:H-JZ 1: IfEndJ+Z 1 JJ360=J-360J60Frac(J):Int(J)+ Int(Ans) 100+6mFrac(Ans) JCls:Fix 4: ”Locate1,1, “w0 0 0 0=” :LOcate 7,2,JLocate 1,3,”-“: Locate 7,4,ILbI 0Cls: “S=”?UU=0=ReturnLocate 1,1, “S.=”: Locate 7,2,U-IGoto 0注：“X”为后视点-X坐标，“Y”为后视点Y坐标;“X0” 为测站点X坐标，“Y0”为测站点Y坐标;3：程序名：BYXY CO “MO=”?M: “P=”?P 提示输入后视点X，Y坐标U+90H 提示输入代测点的高程Pol(X-M,Y-P) Isin(J-H) HJ0=360+JJU0=360+UUU-JJJ0=360+JJJ269=-IIIf Abs(H)x10-5:Then Cls: Locate 1,1, “W OK!”: Locate7,2,W: Locate 1,3, “I”: Locate 7,4,IIfEndW+HWReturn4；程序名：FANG PO COLbI 0CIs: “M=”?M: “P=”?P: “H=”?D: “H0=”?H: “1:M0=”?VPol(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. =” : Locate 7,4,Isin(J-U-90) Goto 05：程序名：MP CO(S+T+2C)r(2R) AS2(24 R2) S2-0.1SAns+RiAnsZ 2 : Return6：程序名：NO COIf X=1:Then-5X:7+6iY: IfEndIf X=2: Then-10X:25+30 iY: IfEndReturn7：数据库：1XY COIf N=交点编号：Then 第一缓和曲线长S:第二缓和曲线长T: 曲线半径R(左-，右+，即JD在线路的前进的方向的左边为-，在线路的前进方向的右边为+):圆曲线