Code For PVI & NVI Indicators

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;

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

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

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