MN:MA(C,21);
UP:MN+2*STD(C,21),COLORGREEN;
DN:MN-2*STD(C,21),COLORRED;
A1:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);
A2:=BACKSET(A1=0 AND REF(A1,1)=1,2);
A3:=IF(A2=1 AND REF(A2,1)=0,-1,0);
B1:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);
B2:=BACKSET(B1=0 AND REF(B1,1)=1,2);
B3:=IF(B2=1 AND REF(B2,1)=0,1,0);
CP:=A3+B3;
PT:IF(A3=-1,L,IF(B3=1,H,NULL)),CIRCLEDOT,COLORYELLOW;
E5:=EMA(C,5),COLORCYAN,NODRAW;
GK:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));
TH:=BARSLAST(B3=1);
TL:=BARSLAST(A3=-1);
SZ:=NEWLBARS(L,1);
DZ:=NEWHBARS(H,1);
R1:=IF(A3=-1 AND REF(TH,1)>REF(TL,1) AND LLV(L,TH+1)<REF(LLV(L,TH+1),1),-1,0);
R2:=IF(A3=-1 AND REF(TH,1)<=REF(TL,1) AND (TH>=4 OR LLV(GK,TH)=-1 OR LLV(L,TL+2)<REF(LLV(L,TL+1),1)),-1,0);
RS:=IF((R1=-1 OR R2=-1) AND L<REF(H,TH+1),-1,0);
Y1:=IF((TL<4 AND HHV(GK,TL)<>1) OR REF(RS,TL)=0,1,0);
Y2:=IF(B3=1 AND REF(TL,1)<=REF(TH,1) AND Y1=1 AND DZ>REF(SZ,TL+1) AND DZ>REF(SZ,TL) AND DZ>REF(DZ,TH),1,0);
G1:=IF(B3=1 AND REF(TL,1)>REF(TH,1) AND HHV(H,TL+1)>REF(HHV(H,TL+1),1),1,0);
G2:=IF(B3=1 AND REF(TL,1)<=REF(TH,1) AND REF(RS,TL)=-1 AND (TL>=4 OR HHV(GK,TL)=1),1,0);
GS:=IF((G1=1 OR G2=1 OR Y2=1) AND H>REF(L,TL+1),1,0);
Y3:=IF((TH<4 AND HHV(GK,TH)<>1) OR REF(GS,TH)=0,1,0);
Y4:=IF(A3=-1 AND REF(TH,1)<=REF(TL,1) AND Y3=1 AND SZ>REF(DZ,TH+1) AND SZ>REF(DZ,TH) AND SZ>REF(SZ,TL),-1,0);
R3:=IF(A3=-1 AND REF(TH,1)>REF(TL,1) AND LLV(L,TH+1)<REF(LLV(L,TH+1),1),-1,0);
R4:=IF(A3=-1 AND REF(TH,1)<=REF(TL,1) AND (TH>=4 OR LLV(GK,TH)=-1 OR Y4=-1),-1,0);
LS:=IF((R3=-1 OR R4=-1) AND L<REF(H,TH+1),-1,0);
XD:=IF(GS=1 AND LS=-1 AND H>REF(H,REF(TH,1)+2),1,IF(GS=1 AND LS=-1 AND L<REF(L,REF(TL,1)+2),-1,0));
KP:=IF(XD=0,GS+LS,XD);
E6:=EMA(C,5),COLORCYAN,NODRAW;
JP:IF(KP=-1,L,IF(KP=1,H,NULL)),CIRCLEDOT,COLORYELLOW;
DRAWLINE1(BACKSET(KP=1,BARSLAST(KP=-1)+1),JP,BACKSET(KP=-1,BARSLAST(KP=1)+1),JP,0),COLORYELLOW;
DRAWLINE1(BACKSET(KP=-1,BARSLAST(KP=1)+1),JP,BACKSET(KP=1,BARSLAST(KP=-1)+1),JP,0),COLORYELLOW;
