N:=8;
80,POINTDOT,COLORGRAY; 
20,POINTDOT,COLOR00BCBE;

R:SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100,COLORWHITE; 
A1:=REF(R,N)=HHV(R,2*N+1); 
B1:=FILTER(A1,N); 
C1:=BACKSET(B1,N+1); 
D1:=FILTER(C1,N);{高点}
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1);
DRAWLINE(D1,R,S11,R,1),COLORBLUE;
A2:=REF(R,N)=LLV(R,2*N+1); 
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1); 
D2:=FILTER(C2,N);{低点}
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1);
DRAWLINE(D2,R,U11,R,1),COLORBLUE;
M:=INTPART(3*N/5);
A12:=REF(R,M)=HHV(R,2*M+1); 
B12:=FILTER(A12,M); 
C12:=BACKSET(B12,M+1); 
D12:=FILTER(C12,M);{高点}
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1); S112:=R112>REF(R112,1);
DRAWLINE(D12,R,S112,R,1),COLORYELLOW;
A22:=REF(R,M)=LLV(R,2*M+1); 
B22:=FILTER(A22,M);
C22:=BACKSET(B22,M+1); 
D22:=FILTER(C22,M);{低点}
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1);
DRAWLINE(D22,R,U112,R,1),COLORYELLOW;