ela for Chaikin's Persistency of Money Flow

["Barry Silberman" <barry@xxxxxxxxxxxxxxxxxxxxx>]

The August 2000 article called "Chaikin's Money FLow" in Technical Analysis
of Stocks & Commodities seemed very powerful.

Listed below is the code for this oscillator.   Can anyone help converting
this code to the "Persistency of Money Flow," which is the percentage of
times the money flow stays above zero for a given period, for say 65 days.
The article pointed out that this is the indicator Investor Business Daily
uses to rate its accumulation/distribution on stocks.

Any help would be appreciated.

Barry
===================================================================

Inputs:  length(21), UpVolColor(green), DownVolColor(Red),
low10color(white), uptencolor(white), topcolor(blue);
Variable: AccDist(0),  MF(0), totalsum(0);

If high - low <> 0 and volume <> 0 then
 AccDist = ((close-low) - (high - close)) / (high - low) * volume;

Totalsum = summation(volume, length);

If Totalsum <>0 then
 MF = summation(AccDist, Length) / totalsum ;

    If MF > 0 Then
  SetPlotColor(1, UpVolColor)
 Else
  SetPlotColor(1, DownVolColor);

 setplotcolor(2, low10color);
    setplotcolor(3, uptencolor);
 setplotcolor(4, topcolor);

 Plot1 (Mf, "money Flow");

 Plot2 (-.10, "-.10 line");

 Plot3 (.1, ".1 line");

 Plot4 (.25, ".25 line");