公路测量计算程序.docVIP

公路中线坐标计算程序 [CASIO 4500] ? [转帖]公路中线坐标计算程序 [casio 4500]ZXCLCX Defm16 Lbl1 X=1:{X}:X“ZJF-1 ZBF-2 TT-3 SJD-4 P2L-5 B2A-6” X=1＝ProgZJF△ X=2＝Prog“ZBF”△ X=3＝Prog“TT△ X=4＝Prog“SJD△ X=5＝Prog“P2L△ X=6＝Prog“B2A△ Goto1 ZBF “-----ZXZBJS-----”:{YD}:Y“I1”“I2” Y≠D=Z=0rog“FP”:A=B:B=0:Goto3△ X=0:{TPXVWU}:T“HJD(X+Yi)” Lbl1 X“XJA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(P-T) Y0=Y=Y+360△ Y“I”◢C“L”=Abs(P-T)◢ X=0=V=P:Goto2△ V“JDB(X+Yi)”=Arg(V-P) D0=D=D+360△ D“I”◢Z“L”=Abs(V-P)◢ProgFP:A=B Lbl2 W“QJD(X+Yi)”=Arg(W-V) D0=D=D+360△ D“I”◢C“L”=Abs(W-V)◢ Lbl4 Prog“FP” X=1=B=B-A△ X=0=A=B:B=0:Z=0:E=Rep P:F=ImpP:Goto3△ M=Rep(P-T):N=Imp(P-T):I=Rep(W-V):J=Imp(W-V):F“Y”=(M Imp T÷N-I Imp V÷J+Rep V-Rep T)÷(M÷N-I÷J)◢E“X”=M(F-Imp T)÷N+Rep T◢C“L1”=√((E-Rep P)2+(F-Imp P)2)◢U=U+C:C“L2”=√((E-Rep V)2+(F-Imp V)2)◢ Lbl3 X=0:{X}:X“ZBF(0)ZJF(1)” X=1=O=ZrogZJF△A=A+BrogZBJS ZBJS I=0:J=0:B=0:{RGH}:R:G“LS1”:H“LS2”rog“TWE” Z=0=E“JD(X)”:F“JD(Y)”:U“JDLC”△ Rec(-Z[7],Y):Z[15]=I+E:Z[16]=J+F:Rec(Z[8],D):Z[13]=I+E:Z[14]=J+F:C=U-Z[7]:Z[6]“ZH”=C◢Prog“ZDZ” C=Z[6] Lbl1 {C}:C“JIAZHUANG”:Z=C-Z[6] Z≤0=Rec(Z,Y):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△ Z≤G=S=G=Z[1]:Q=Z[3]rog“H”ol(Z[11],Z[12]):Rec(I,Y-JO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△ Z≤W-H=S=G=Z[1]:Q=Z[3]rog“Y”ol(Z[11],Z[12]):Rec(I,Y-JO):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢ProgBZ:Goto1△ Z≤W=Z=W-Z=H=Z[2]:Q=Z[4]rogHol(Z[11],Z[12]):Rec(I,D+180+JO):Z[11]“X=I+Z[13]◢Z[12]“Y=J+Z[14]◢Z=W-Zrog“BZ”:Goto1△ Z＞W=Z=Z-W:Rec(Z,D):Z[11]“X=I+Z[13]◢Z[12]“Y=J+Z[14]◢Z=W+Zrog“BZ”:Goto1△ FP B=Y-D B180=B=B-360△ B-180=B=B+360△ O=B÷Abs B:B=Abs B TWE S=Grog“PQ”:Z[1]=P:Z[3]=Q=Hrog“PQ”:Z[2]=P:Z[4]=Q Z[7]“T1”=(R+Z[2]-(R+Z[1])cos(A+B))÷sin(A+B)+Z[3]◢Z[8]“T2”=(R+Z[1]-(R+Z[2])cos(A+B))÷sin(A+B)+Z[4]◢W“L”=πR(A+B)÷180+.5G+.5H◢X“E”=(R+Z[1])÷cos(tan-1(((R+Z[2])÷(R+Z[1])-cos(A+B))÷sin(A+B)))-R◢Z[9]=Z[7]-Osin B÷sin(A+B):Z[10]=Z[8]-Osin A÷sin(A+B) B≠0=Z[9]“TA”◢ Z[10]“TB”◢△ ? ? ? ? ? 中文版权所有 COPYRIGHT(c) 2004 由测量天地进行维护 ? ? 用全站仪测