MB/ADX EZ Dynamic

Type : Indicator, Name : MB/ADX EZ Dynamic
input:
adxlen(28),
adxavg(2),
dmilen(28),
dmiavg(2),
factor(0),
min(10),
max(50);

Value1=(ADX(adxlen));
var:zone(0);
zone=highest((TrueRange[(adx(max))]+min),max);

{min is an adjustment that should be set acording to the market, 10 will
work for most and 50 for the max}

If Value1[0]>factor then begin

{factor is the setting that the adx must be greater than before it starts to plot, I have found that by setting this to 5 or 10 I can see more indicator in the sub plot and greater detail. The setting is at zero as a default, you may want to play with it}

Plot2(ADX(adxlen),"Trend");end;
if adx(adxlen)>zone then begin
if (Average(dmiplus(dmilen),dmiavg))>(Average(dmiminus(dmilen),dmiavg))
then begin Plot3(Zone,"TrendBuy");end;end;
if adx(adxlen)>zone then begin
if (Average(dmiplus(dmilen),dmiavg))<(Average(dmiminus(dmilen),dmiavg))
then begin Plot4(Zone,"TrendSell") ;
end;
end;

if adx(adxlen)>zone then begin
If Value1[0]>(average(value1[1],adxavg)) then
Plot1(ADX(adxlen),"TrendStart") ;end;
IF CheckAlert Then Begin IF Plot1 Crosses Above zone - 1 Then Alert = TRUE;
End;