[日积月累]：公路中线坐标计算程序 [casio 4500

mengzh

公路中线坐标计算程序 [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”◢△

tsjwxd

程序可在简化点