此指標程式碼已經使用很久,這次改版後在指數變得無法計算出數值(TSE/OTC),個股正常,請小幫手幫忙看一下。
vars:
AdjClose(0),
AdjLow(0),
AdjHigh(0),
Price(0),
VWAP(0),
VWAPD(0),
VolumeSum(0),
ValueSum(0);
if Date <> Date[1] then begin
VWAPD = VWAP[1];
VolumeSum = 0;
ValueSum = 0;
end;
AdjClose = GetField("Close", "1", Adjusted:=true);
AdjHigh = GetField("High", "1", Adjusted:=true);
AdjLow = GetField("Low", "1", Adjusted:=true);
Price = (AdjHigh + AdjLow + AdjClose) / 3;
VolumeSum = VolumeSum + Volume;
ValueSum = ValueSum + Price * Volume;
if VolumeSum <> 0 then VWAP = ValueSum / VolumeSum;
Plot1(VWAPD, "VWAP D", Checkbox:=1);
Plot2(VWAP, "VWAP", Checkbox:=1);

4 評論