TO1N:=REF(O,SUMBARS(IF(C>=O,1,0),1));
TO2N:=REF(O,SUMBARS(IF(C>=O,1,0),2));
AAN:=C>=TO1N OR C>=TO2N OR C>REF(C,1);
ATJ1N:=BACKSET(REF(C>O,2) AND REF(CREF(O,1),1)
AND C ATJ2N:=BACKSET(REF(C>O,1) AND C A1N:=NOT(ATJ1N) AND NOT(ATJ2N) AND AAN AND REF(NOT(AAN),1);
NAN:=BARSLAST(A1N);
A2N:=REF(COUNT(AAN,NAN+1)=NAN+1,1) AND AAN AND H=HHV(H,NAN+1);
ABN:=DRAWLINE(A1N,LLV(L,3),A2N,H,0),COLORYELLOW;
A2TJN:=BACKSET(ABN>REF(ABN,1) AND REF(NOT(ABN>REF(ABN,1)),1),2);
A22N:=A2N AND A2TJN=1;
DIN:=REF(ABN,NAN),COLORRED;
NBN:=BARSLAST(A22N);
DINGN:=IF(NOT(REF(ABN,NBN) TC1N:=REF(O,SUMBARS(IF(C TC2N:=REF(O,SUMBARS(IF(C BBN:=C BTJ1N:=BACKSET(REF(CO,1) AND REF(C AND C>REF(O,2),3);
BTJ2N:=BACKSET(REF(CREF(O,1),2);
B1N:=NOT(BTJ1N) AND NOT(BTJ2N) AND BBN AND REF(NOT(BBN),1);
NBBN:=BARSLAST(B1N);
B2N:=REF(COUNT(BBN,NBBN+1)=NBBN+1,1) AND BBN AND L=LLV(L,NBBN+1);
BBBN:=DRAWLINE(B1N,HHV(H,3),B2N,L,0);
W2N:=H-BBBN=HHV(H-BBBN,BARSLAST(B1N)) AND NOT(BBBN=DRAWNULL);
X:=DRAWLINE(B1N,H,W2N,H,1) COLORMAGENTA;
CROSS(EXPMA(CLOSE,5),X);