SID Name	Description	Rating	Updated
	527 ADX	ADX indicator	Not Approved	2008-07-13

The logic for this technical analysis indicator:

#The ADX is part of directional movement developed by Welles Wider.
my ($period)=@_;  
ValidatePeriods($period);  

my $yeshigh=Ref(High,-1);
my $yeslow=Ref(Low,-1);

my $PlusDM= If(High>$yeshigh & Low>=$yeslow, High-$yeshigh, 
            If(High>$yeshigh  & Low<$yeslow & High-$yeshigh >$yeslow-Low,High-$yeshigh,0));

my $MinusDM= If(Low<$yeslow & High<=$yeshigh, $yeslow-Low, 
             If(High>$yeshigh & Low<$yeslow& High-$yeshigh<$yeslow-Low,$yeslow-Low,0));

my $diplus= 100 * WWS($PlusDM,$period) / ATR($period);
my $diminus= 100 * WWS($MinusDM,$period) / ATR($period);

my $adx= 100 * WWS(abs($diplus-$diminus)/($diplus+$diminus), $period,$period);
#Name the columns
my $name="ADX($period)";
SetColumnName($adx,$name);
SetColumnName($diplus,"+DI:$period");
SetColumnName($diminus,"-DI:$period");

return ($adx,$diplus,$diminus);