帶成交量的均線

 因為朋友提問，要計算每一根K棒裡面把成交量的作為價格權重的均線，雖然印象中我以前有分享過，不過．．．連我自己都找不到，乾脆就寫一個放上來。

先做成函數，未來取用都方便。

 

函數的程式碼(MultiCharts)內容： 

   input:Price(Numeric),length(Numeric);
   Var:step(0),AllPV(1),AllVol(1),BarVol(1);

     AllPV=0;
     AllVol=0;
     BarVol=Ticks;

     for step=0 to length begin
       AllPV = Price[step]*BarVol[step] + AllPV;
       AllVol = Ticks[step] + AllVol;
     end;

     if BarNumber > length then
       _MAwithVol=AllPV/AllVol; 

做成指標： 

 

指標的程式碼(MultiCharts)內容：

   input:length(10);
     Value1= _MAwithVol(C,length);
     plot1(Value1,"VolMA"); 

ＨＴＳ版的函數程式碼： 

     Param:Price(Numeric),length(Numeric);
     Var:i(0),AllPV(1),AllVol(1);

       AllPV=0;
       AllVol=0;
       for i=0 to length
         AllPV = Price[i]*V[i] + AllPV;
         AllVol = V[i] + AllVol;
       end for

       if BarNumber > length then
         _MAwithVol=AllPV/AllVol;
       end if

本文內容僅供參考，無任何買賣建議，投資人應謹慎評估，風險自負。