公路中线坐标计算程序 [casio 4500]
ZXCLCX 
Defm16 
Lbl1 
X=1:{X}:X“ZJF-1 ZBF-2 TT-3 SJD-4 P2L-5 B2A-6” 
X=1＝>Prog"ZJF"△ 
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) 
Y<0=>Y=Y+360△ 
Y“I”◢C“L”=Abs(P-T)◢ 
X=0=>V=P:Goto2△ 
V“JDB(X+Yi)”=Arg(V-P) 
D<0=>D=D+360△ 
D“I”◢Z“L”=Abs(V-P)◢Prog"FP":A=B 
Lbl2 
W“QJD(X+Yi)”=Arg(W-V) 
D<0=>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=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”△ 
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]◢Prog"BZ":Goto1△ 
Z≤W=>Z=W-Z=H=Z[2]:Q=Z[4]rog"H"ol(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 
B>180=>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”◢△