PVI 正量指標 NVI 負量指標

請教如何改寫??
=============
初始值 NVI=100
IF VOL<REF(VOL,1)
NVI=REF（NVI,1）+(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*REF(NVI,1)=CLOSE/REF(CLOSE,1)*REF(NVI,1)

IF VOL>=REF(VOL,1)
NVI=REF(NVI,1)


初始值 PVI=100

IF VOL>REF(VOL,1)
PVI=REF(PVI,1)+(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*REF(PVI,1)

否則 PVI=REF（PVI，1）

==========================
以上如何改寫成奇狐公式

以 PVI 給您當範例參考

原碼:


cc:=close;

vv:=vol;

BeginNo:=lbound(vv);

EndNo:=ubound(vv);

PVI:vol*0;

PVI[BeginNo]:=100;

for i=BeginNo+1 to EndNo do begin

  if vv[i] > vv[i-1] then begin

    PVI[i]:=PVI[i-1]+(cc[i]-cc[i-1])/cc[i-1]*PVI[i-1];

  end;

  else begin

    PVI[i]:=PVI[i-1];

  end;

end;

CGJJ,

Thank you !!