N:=5;
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
HD:=FILTER(C1,N);
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
LD:=FILTER(C2,N);
A:=REF(H,BARSLAST(HD));
B:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(T1,A,A),COLORFF00FF,POINTDOT;
波谷:IF(T2,B,B),COLOR80FF00,POINTDOT;
DRAWTEXT(T1,A*1.008,'波峰'),COLORFF00FF;
DRAWTEXT(T2,B*0.995,'波谷'),COLOR80FF00;
STICKLINE(T1,A,A*1.005,8,0),COLORFF00FF;
STICKLINE(T2,B,B*0.995,8,0),COLOR80FF00;
