江恩16角度線

{n=8~1000}
AA:=REF(H,N)=HHV(H,2*N+1),LINETHICK0;
BB:=BACKSET(AA,N+1),LINETHICK0;
CC:=FILTER(BB,N) AND H=HHV(H,N+1);
AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:=FILTER(BB2,N) AND L=LLV(L,N+1);
{定位分形峰位高低点}
GG:=ISLASTBAR AND REF(CC,BARSLAST(CC));
DD:=BACKSET(GG,BARSLAST(CC)+1);
II:=DD>REF(DD,1);{定位第一高点}
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
EE:=KK>REF(KK,1);{定位第一高点之前高点}
GG2:= ISLASTBAR AND REF(CC2,BARSLAST(CC2));
DD2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=DD2>REF(DD2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
EE2:=KK2>REF(KK2,1);
HH:=REF(H,BARSLAST(II)),LINETHICK0,COLORWHITE;
LL:=REF(L,BARSLAST(II2)),LINETHICK0,COLORWHITE;
HD:=BARSLAST(II),LINETHICK0,COLORWHITE;
LD:=BARSLAST(II2),LINETHICK0,COLORWHITE;
DRAWLINE(II2=1,LL,LD=1,LL,2),colorblue,linethick2;
DRAWLINE(II2=1,LL,LD=1,LL*0.08+LL,2),COLORMAGENTA;
DRAWLINE(II2=1,LL,LD=1,LL*0.07+LL,2),color82B610;
DRAWLINE(II2=1,LL,LD=1,LL*0.06+LL,2),colorred;
DRAWLINE(II2=1,LL,LD=1,LL*0.05+LL,2),color70824B;
DRAWLINE(II2=1,LL,LD=1,LL*0.04+LL,2),COLORCYAN;
DRAWLINE(II2=1,LL,LD=1,LL*0.03+LL,2),colorgreen;
DRAWLINE(II2=1,LL,LD=1,LL*0.02+LL,2),colorwhite;
DRAWLINE(II2=1,LL,LD=1,LL*0.015+LL,2),colorAB9CE9;
DRAWLINE(II2=1,LL,LD=1,LL*0.01+LL,2),colorred,linethick2;
DRAWLINE(II2=1,LL,LD=1,LL/1.5*0.01+LL,2),colorAB9CE9;
DRAWLINE(II2=1,LL,LD=1,LL/2*0.01+LL,2),colorwhite;
DRAWLINE(II2=1,LL,LD=1,LL/3*0.01+LL,2),colorgreen;
DRAWLINE(II2=1,LL,LD=1,LL/4*0.01+LL,2),COLORCYAN;
DRAWLINE(II2=1,LL,LD=1,LL/5*0.01+LL,2),color70824B;
DRAWLINE(II2=1,LL,LD=1,LL/6*0.01+LL,2),colorred;
DRAWLINE(II2=1,LL,LD=1,LL/7*0.01+LL,2),color82B610;
DRAWLINE(II2=1,LL,LD=1,LL/8*0.01+LL,2),COLORMAGENTA;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.08,2),COLORMAGENTA;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.07,2),color82B610;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.06,2),colorred;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.05,2),color70824B;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.04,2),COLORCYAN;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.03,2),colorgreen;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.02,2),colorwhite;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.015,2),colorAB9CE9;
DRAWLINE(II=1,HH,HD=1,HH-HH*0.01,2),colorred,linethick2;
DRAWLINE(II=1,HH,HD=1,HH-HH/1.5*0.01,2),colorwhite,colorAB9CE9;
DRAWLINE(II=1,HH,HD=1,HH-HH/2*0.01,2),colorwhite;
DRAWLINE(II=1,HH,HD=1,HH-HH/3*0.01,2),colorgreen;
DRAWLINE(II=1,HH,HD=1,HH-HH/4*0.01,2),COLORCYAN;
DRAWLINE(II=1,HH,HD=1,HH-HH/5*0.01,2),color70824B;
DRAWLINE(II=1,HH,HD=1,HH-HH/6*0.01,2),colorred;
DRAWLINE(II=1,HH,HD=1,HH-HH/7*0.01,2),color82B610;
DRAWLINE(II=1,HH,HD=1,HH-HH/8*0.01,2),COLORMAGENTA;
DRAWLINE(II=1,HH,HD=1,HH,2),COLORblue,linethick2