Pullback Percent

Pullback Percent Stocks that have pulled back 10 to 20 percent after making a new high.

output = "pullbacks.lst";

exchange = nyse,amex,nasdaq;

float recentHi , maxHi;

DaysToLoad = 280;
DaysRequired = 271;

if ( avgvol( 0 , -29 ) > 50000 ) then
  if ( close(0) > 10 ) then

    recentHi := max( -5 , -20 , hi );
    maxHi := max( -21 , -270 , hi );

    if ( recentHi > maxHi ) then
      if ( close(0) > recentHi * .8 ) and ( close(0) \< recentHi * .9 ) then
      
       println symbol:-6 , "," , description , "," , close(0):7:2 , "," , recentHi:7:2;

      endif;
     endif;
  endif;
endif;