inputs: 
 AvgLength( 14 ), 
 UpVolAlertPct( 5 ), { UpVol alert if Avg( UpVolPct - DnVolPct ) > UpVolAlertPct }
 DnVolAlertPct( -5 ), { DnVol alert if Avg( UpVolPct - DnVolPct ) <
  DnVolAlertPct }
 ColorNormLength( 14 ), { Number of bars over which to normalize the indicator
  for gradient coloring.  See also:  comments in function NormGradientColor. }
 UpColor( Yellow ), { Color to use for indicator values that are relatively high
  over ColorNormLength bars. }
 DnColor( Cyan ) ;  { Color to use for indicator values that are relatively low
  over ColorNormLength bars. }
   
 { Set either UpColor and/or DnColor to -1 to disable gradient plot coloring.
 When disabled, Plot1 color is determined by settings in indicator properties
 dialog box.  Plot2 (ZeroLine) color always comes from indicator properties
    dialog box. }
variables:
 TotalTicks( 0 ), 
 VolRatio( 0 ),
 VolRatioAvg( 0 ),
 ColorLevel( 0 ) ;
 
if BarType <= 1 then { ie, if tick or minute bars }
 begin
 TotalTicks = UpTicks + DownTicks ;
 if TotalTicks > 0 then
  VolRatio = 100 * ( UpTicks - DownTicks ) / TotalTicks 
 else
  VolRatio = 0 ;
 VolRatioAvg = XAverage( VolRatio, AvgLength ) ; 
 Plot1( VolRatioAvg, "VolRatioAvg" ) ;
 Plot2( 0, "ZeroLine" ) ;
 { Gradient coloring }
 if UpColor >= 0 and DnColor >= 0 then
  begin
  ColorLevel = NormGradientColor( VolRatioAvg, true, ColorNormLength, UpColor,
   DnColor ) ;
  SetPlotColor( 1, ColorLevel ) ;
  end ;
 { Alert criteria }
 if VolRatioAvg crosses over UpVolAlertPct then
  Alert( "UpVol alert" )
 else if VolRatioAvg crosses under DnVolAlertPct then
  Alert( "DnVol alert" ) ;
 end ;