PVI indicator

[mvs]

Hallo

Ik krijg deze PVI / NVI indicator niet aan de gang.
Misschien dat iemand anders het wel lukt???
http://my.dreamwiz.com/y9567/volume.htm
http://www.beursbrief.be/technische_ana ... _trend.asp

---
Inputs: Length(255), Displace(0);
Variables: PVI(100), InitValue(100);
If PVI <> 0 then
InitValue = 0;

IF volume > volume[1] then
PVI = (PVI[1] + InitValue) + (((close - close[1])/close[1]) * (PVI[1] + InitValue));
IF volume <= volume[1] then
PVI = PVI[1];
Plot1(PVI);

If Displace >= 0 OR CurrentBar > AbsValue(Displace) Then Begin
Plot2[Displace](AverageFC(PVI, Length), "PVI-MA");
end;
--------

[Paul M]

Hallo Martin,

Het is even behelpen, maar ik denk dat dit binnen Vestics in de buurt komt.
Zie ook eerder bericht van Pierre onder Vesticode-Foutmelding.

Inputs: LookBack(1),Price(close),Length(255), Displace(0);
Variables: PVI(0),Plotvalue(0),BarNo(0);

PVI = PVI[1] + Iff ( volume > volume[LookBack], ROC(Price,LookBack), 0 ) ;
Plot1(PVI,"PVI");
Plotvalue=Average(PVI, Length);

If Displace > 0 Then Begin
for BarNo := 1 to Displace do Plot2[BarNo] := Plotvalue;
Plot2(Plotvalue, "PVI-MA");
end
else Plot2(Average(PVI, Length), "PVI-MA");

Paul