PureBytes Links
Trading Reference Links
|
You could do something like this:
Inputs:
MFLen(21),
PersistLen(65);
Var:
Persist(0),
PcntPersist(0),
AccDist(0),
MF(0),
TotalSum(0);
If H - L <> 0 and V <> 0 then AccDist = ((C - L) - (H - C)) / (H - L) * V;
Totalsum = Summation(V, MFLen);
If Totalsum <> 0 then MF = 100 * Summation(AccDist, MFLen) / TotalSum;
If MF > 0 then Persist = 1 else Persist = 0;
PcntPersist = 100 * Summation(Persist, PersistLen)/PersistLen;
Plot1 (MF, "Money Flow");
Plot2 (0, "Zero");
Plot3(PcntPersist, "Persist");
Note: I rescaled Money Flow (x100) in order to plot it on the same scale as PcntPersist.
The Omega Man
---- you wrote:
>
> Could someone kindly help transform the following ela code for Chaikin's
> Money Flow into his "Persistency of Money Flow."
>
> As I understand it, the Persistency of Money Flow is the percentage of times
> the moneyflow stays above zero for a given number of days --- ie 65 days.
> Thanks for any help.
>
> 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
>
> Plot1 (Mf, "money Flow");
>
> Plot2 (0, "0 line");
>
>
|