公路中线坐标计算程序&nbsp[casio&nbsp4500]
ZXCLCX&nbsp
Defm16&nbsp
Lbl1&nbsp
X=1:{X}:X“ZJF-1&nbspZBF-2&nbspTT-3&nbspSJD-4&nbspP2L-5&nbspB2A-6”&nbsp
X=1＝>Prog"ZJF"△&nbsp
X=2＝>Prog“ZBF”△&nbsp
X=3＝>Prog“TT"△&nbsp
X=4＝>Prog“SJD"△&nbsp
X=5＝>Prog“P2L"△&nbsp
X=6＝>Prog“B2A"△&nbsp
Goto1&nbsp
ZBF&nbsp
“—–ZXZBjs—–”:{YD}:Y“I1”“I2”&nbsp
Y≠D=>Z=0rog“FP”:A=B:B=0:Goto3△&nbsp
X=0:{TPXVWU}:T“HJD(X+Yi)”&nbsp
Lbl1&nbsp
X“XJA=1”“JD(X+Yi)”:U“JDLC”:Y=Arg(P-T)&nbsp
Y<0=>Y=Y+360△&nbsp
Y“I”◢C“L”=Abs(P-T)◢&nbsp
X=0=>V=P:Goto2△&nbsp
V“JDB(X+Yi)”=Arg(V-P)&nbsp
D<0=>D=D+360△&nbsp
D“I”◢Z“L”=Abs(V-P)◢Prog"FP":A=B&nbsp
Lbl2&nbsp
W“QJD(X+Yi)”=Arg(W-V)&nbsp
D<0=>D=D+360△&nbsp
D“I”◢C“L”=Abs(W-V)◢&nbsp
Lbl4&nbsp
Prog“FP”&nbsp
X=1=>B=B-A△&nbsp
X=0=>A=B:B=0:Z=0:E=Rep&nbspP:F=ImpP:Goto3△&nbsp
M=Rep(P-T):N=Imp(P-T):I=Rep(W-V):J=Imp(W-V):F“Y”=(M&nbspImp&nbspT÷N-I&nbspImp&nbspV÷J+Rep&nbspV-Rep&nbspT)÷(M÷N-I÷J)◢E“X”=M(F-Imp&nbspT)÷N+Rep&nbspT◢C“L1”=√((E-Rep&nbspP)2+(F-Imp&nbspP)2)◢U=U+C:C“L2”=√((E-Rep&nbspV)2+(F-Imp&nbspV)2)◢&nbsp
Lbl3&nbsp
X=0:{X}:X“ZBF(0)ZJF(1)”&nbsp
X=1=>O=Zrog"ZJF"△A=A+Brog"ZBjs"&nbsp
ZBjs&nbsp
I=0:J=0:B=0:{RGH}:R:G“LS1”:H“LS2”rog“TWE”&nbsp
Z=0=>E“JD(X)”:F“JD(Y)”:U“JDLC”△&nbsp
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”&nbsp
C=Z[6]&nbsp
Lbl1&nbsp
{C}:C“JIAZHUANG”:Z=C-Z[6]&nbsp
Z≤0=>Rec(Z,Y):Z[11]“X”=I+Z[15]◢Z[12]“Y”=J+Z[16]◢Prog“BZ”:Goto1△&nbsp
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△&nbsp
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△&nbsp
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△&nbsp
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△&nbsp
FP&nbsp
B=Y-D&nbsp
B>180=>B=B-360△&nbsp
B<-180=>B=B+360△&nbsp
O=B÷Abs&nbspB:B=Abs&nbspB&nbsp
TWE&nbsp
S=Grog“PQ”:Z[1]=P:Z[3]=Q=Hrog“PQ”:Z[2]=P:Z[4]=Q&nbsp
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&nbspB÷sin(A+B):Z[10]=Z[8]-Osin&nbspA÷sin(A+B)&nbsp
B≠0=>Z[9]“TA”◢&nbsp
Z[10]“TB”◢△