//Inside Day AND NR4 identification
id=H<Ref(H,-1) AND L>Ref(L,-1);
nr=H-L;
nr1=Ref(H,-1)-Ref(L,-1);
nr2=Ref(H,-2)-Ref(L,-2);
nr3=Ref(H,-3)-Ref(L,-3);

Vr= ADX()>40;
mk1=ADX()>Ref(ADX(),-1) AND Ref(ADX(),-1)<Ref(ADX(),-2);

mk2=ADX()<Ref(ADX(),-1) AND Ref(ADX(),-1)>Ref(ADX(),-2);

select1=nr<nr1 AND nr<nr2 AND nr<nr3 ;
select2=id; 
//Min(a,nr1)AND Min(a,nr2) AND Min(a,nr3) AND Vr;
Buy=select1;
PlotOHLC(O,H,L,C, "",colorBlack, styleCandle);
PlotShapes( select1 * shapeDigit4, colorBlue, 0, L, -20 );
PlotShapes( select2 * shapeDigit1, colorBlack, 0, L, -30 );


"\n Open = " + O ;
"\n High = " + H;
"\n Low = " + L;
"\n Close = " + C;
yr=Ref(H,-1)-Ref(L,-1);
"\n Yday Range = " + yr;
tht = (yr/2);
"\n Thrust = " + tht;
el=(O+tht);
es=(O-tht);
"\n Entry Long = " + el;
"\n Long Profit = " + (H-el);

"\n Entry Short = " + es;
"\n Short Profit = " + (es-L);

tr=H-L;
"\n Today's Range = " + tr;
ttht = (tr/2);
"\n Today's Thrust = " + ttht;