n=3


a1:=REF(H,N)=HHV(H,2*N+1);
B:=FILTER(A1,N);
D:=BACKSET(B,N+1);
HD:=FILTER(D,N);
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
Dd2:=BACKSET(B2,N+1);
LD:=FILTER(Dd2,N);
STICKLINE(REF(HD,1),REF(H,1),REF(H,1),18,0),Color00FF00,linethick1;
STICKLINE(REF(LD,1),REF(L,1),REF(L,1),18,0),Color0000FF,linethick1;
drawtext(REF(LD,1),REF(L,1)*0.999,'B'),Color0000FF;
drawtext(REF(HD,1),REF(H,1)*1.001,'S'),Color00FF00;