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,COLORBB0000,NODRAW;
MIMA10:=MIMA8=-1,COLOR00BB00,NODRAW;
DRAWICON(MIMA9,MIMA5,4);
DRAWICON(MIMA10,MIMA4,5);
MIMA11:=MIMA4,COLOR005959;
MIMA12:=MIMA5,COLOR590000;
MIMA13:=REF(CLOSE,1);
MIMA14:=SMA(MAX(CLOSE-MIMA13,0),7,1)/SMA(ABS(CLOSE-MIMA13),7,1)*100,NODRAW;
MIMA15:=IF(CROSS(MIMA14>65,0.9),1,IF(CROSS(45>MIMA14,0.9),-1,0));
MIMA16:=REF(MIMA15,BARSLAST(MIMA15));
MIMA17:=IF(MIMA16=1,45,IF(MIMA16=-1,65,0)),NODRAW;
IF(MIMA14>=MIMA17,MIMA1,NULL),COLORRED;
IF(MIMA14<=MIMA17,MIMA1,NULL),COLORCYAN;
MIMA18:=OPEN-CLOSE;
STICKLINE(MIMA9,H,L,0,0),COLORFF0000;
STICKLINE(MIMA10,H,L,0,0),COLOR00FFFF;
STICKLINE(MIMA18<=0 && MIMA9,C, O ,0.5,1),COLORFF0000;
STICKLINE(MIMA18>0 && MIMA9,C, O ,0.5,0),COLORFF0000;
STICKLINE(MIMA18<=0 && MIMA10,C, O ,0.5,1),COLOR00FFFF;
STICKLINE(MIMA18>0 && MIMA10,C, O ,0.5,0),COLOR00FFFF;
MIMA19:=(MIMA9 && MIMA14<=MIMA17) || (MIMA10 && MIMA14>=MIMA17);
MIMA20:=((SMA(MAX((CLOSE-REF(CLOSE,1)),0),3,1)/SMA(ABS((CLOSE-REF(CLOSE,1))),3,1))*100);
MIMA21:=CROSS(MIMA20,12);
MIMA22:=ABS( O -C)/3;
STICKLINE(MIMA21,L,L+MIMA22,0.2,0),COLORFFFFFF;
MIMA23:=CROSS(88,MIMA20);
STICKLINE(MIMA23,H,H-MIMA22,0.2,0),COLORFFFFFF;
DRAWICON(MIMA9 AND REF(MIMA10,1) ,L , 4);
DRAWICON(MIMA10 AND REF(MIMA9,1) ,H , 5);
