1、1公路中线坐标计算程序CASIO4500公路中线坐标计算程序 CASIO 4500 转帖公路中线坐标计算程序 casio 4500ZXCLCX Defm16 Lbl1 X=1:X:X“ZJF-1 ZBF-2 TT-3 SJD-4 P2L-5 B2A-6” X=1Prog“ZJF“ X=2Prog“ZBF” X=3Prog“TT“ X=4Prog“SJD“ X=5Prog“P2L“ X=6Prog“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“X
2、JA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(P-T) YY=Y+360 Y“I”C“L ”=Abs(P-T) X=0=V=P:Goto2 V“JDB(X+Yi)”=Arg(V-P) DD=D+360 D“I”Z“L ”=Abs(V-P)Prog“FP“:A=B Lbl2 W“QJD(X+Yi)”=Arg(W-V) DD=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“
3、Y”=(M Imp TN-I Imp VJ+Rep V-Rep T)(MN-IJ)E “X”=M(F-Imp T)N+Rep TC“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=Zrog“ZJF“A=A+Brog“ZBJS“ 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” 2Rec(-Z7,Y):Z15=I+E:Z16=J+F:Rec(Z8,D):Z13
4、=I+E:Z14=J+F:C=U-Z7:Z6“ZH”=CProg“ZDZ” C=Z6 Lbl1 C:C“JIAZHUANG”:Z=C-Z6 Z0=Rec(Z,Y):Z11“X”=I+Z15Z12“Y”=J+Z16Prog “BZ”:Goto1 ZG=S=G=Z1:Q=Z3rog“H”ol(Z11,Z12):Rec(I,Y-JO):Z11“X”=I+Z15Z12“Y”=J+Z16 Prog“BZ ”:Goto1 ZW-H=S=G=Z1:Q=Z3rog“Y”ol(Z11,Z12):Rec(I,Y-JO):Z11“X”=I+Z15Z12“Y”=J+Z16 Prog“BZ“:Goto1 ZW=Z=W-
5、Z=H=Z2:Q=Z4rog“H“ol(Z11,Z12):Rec(I,D+180+JO):Z11“X“=I+Z13Z12“Y“=J+Z14Z=W-Zrog“BZ”:Goto1 ZW=Z=Z-W:Rec(Z,D):Z11“X“=I+Z13Z12“Y“=J+Z14Z=W+Zrog“BZ”:Goto1 FP B=Y-D B180=B=B-360 BB=B+360 O=BAbs B:B=Abs B TWE S=Grog“PQ”:Z1=P:Z3=Q=Hrog“PQ”:Z2=P:Z4=Q Z7“T1”=(R+Z2-(R+Z1)cos(A+B)sin(A+B)+Z3Z8“T2”=(R+Z1-(R+Z2)cos(A+B)sin(A+B)+Z4W“L ”=R(A+B)180+.5G+.5HX “E”=(R+Z1)cos(tan-1(R+Z2)(R+Z1)-cos(A+B)sin(A+B)-RZ9=Z7-Osin Bsin(A+B):Z10=Z8-Osin Asin(A+B) B0=Z9“TA” Z10“TB”
