MIMA1:=EMA(EMA(C,13),13);
MIMA2:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
MIMA3:=MA(MIMA2,18);
MIMA4:=MIMA1+1.618*MIMA3,COLOR454545;
MIMA5:=MIMA1-1.618*MIMA3,COLOR454545;
MIMA6:=IF(CROSS(EMA(C,2),REF(MIMA4,1)),1,IF(CROSS(REF(MIMA5,1),EMA(C,2)),-1,0));
MIMA7:=IF(MIMA6=0 && EMA(C,2)>REF(MIMA4,1),1,IF(MIMA6=0 && EMA(C,2)<REF(MIMA5,1),-1,MIMA6));
MIMA8:=REF(MIMA7,BARSLAST(MIMA7));
MIMA9:= MIMA8=1,COLORYELLOW ,NODRAW;
MIMA10: =MIMA8=-1,COLORLIGHTGREEN,NODRAW ;
DRAWICON(MIMA9,MIMA5,1);
DRAWICON(MIMA10,MIMA4,2);
DRAWSL(CROSS(MIMA10,0.5),REF(MIMA5,BARSLAST(CROSS(MIMA9,0.5))),0,-BARSLAST(CROSS(MIMA9,0.5)),0,COLORYELLOW);
DRAWSL(CROSS(MIMA9,0.5),REF(MIMA4,BARSLAST(CROSS(MIMA10,0.5))),0,-BARSLAST(CROSS(MIMA10,0.5)),0,COLORYELLOW);
DRAWNUMBER(CROSS(MIMA10,0.5),REF(MIMA5,BARSLAST(CROSS(MIMA9,0.5))),REF(MIMA5,BARSLAST(CROSS(MIMA9,0.5))),0,COLORYELLOW);
DRAWNUMBER(CROSS(MIMA9,0.5),REF(MIMA4,BARSLAST(CROSS(MIMA10,0.5))),REF(MIMA4,BARSLAST(CROSS(MIMA10,0.5))),0,COLORYELLOW);