Casio4800P匝道放线程序
A“QDLC”B“ZDLC”R“
QDR”V“ZDR”C“XA”D
“YA”E“ALFA”:LB1
0:{L}:L“Li”:T=(1
÷V-1÷R)÷(B-A):H=
(L-A)÷N÷P=THN+1÷
R:S=90H÷π :W=E+(P
+1÷R)NS▲
G=1:X“Xi”=C+H÷6×
(cosE+cosW+4×∑
(cos(E+((G+0.5)
HT+2÷R)(G+0.5)S)
,G.0,(N-1))+2∑(c
OS(E+(THG+2÷R)G
S),G,1,(N-1))) ▲
Y“Yi”=D+H÷6×sin
E+sinW+4×∑(sin
(E+((G+0.5)HT+2
÷R)(G+0.5)S,G,0,
(N-1))+2×∑(sin(
E+(THG+2÷R)GS,G,
1,(N-1))) ▲
{IF}:I“ZBJ”:F“YB
J”:Z“XZ”=X+Icos
(W-90o) ▲
J“YZ”=Y+Isin(W-
90 o) ▲
Z“XY”=X+Fcos(W+
90 o) ▲
J“YY”=Y+Fsin(W+
90 o) ▲
GoTo0:△
R左转为负,N=2,直线R=9∧9,Li为里程