更新-自訂函數(anAverageD):計算全日盤中指定時間收盤價平均

安哥

本頁為更新版,舊版及其他說明請到舊文章

本次更新內容:
1. 圖表使用週期必須為分鐘,非分鐘一律傳回 0。
2. 不需指定圖表使用週期。

修改後函數如下:
=====================================
//anAverageD-函數
//anAverageD-類別:時序
//anAverageD-計算全日盤中指定時間收盤價平均
//anAverageD-該指定時間必須為某根K棒結束時間(如:240分K可以計算1245收盤價平均,但300分K不行)
//anAverageD-本次修改:1.圖表使用週期必須為分鐘,非分鐘一律傳回 0
//anAverageD-本次修改:2.使用本函數不需指定圖表使用週期
//anAverageD-參數:Len=>均線週期,取近幾根K棒數來計算平均
//anAverageD-20250510

Inputs:PriceValue(numericseries),Len(numericsimple);

IF BarType_Ex=2 Then Begin  //圖表週期為分鐘
  IF Mod(5*60,BarInterval)=0 Then Begin
    Value1=IntPortion(5*60/BarInterval);
  End Else Begin
    Value1=IntPortion(5*60/BarInterval)+1;
  End;

  IF Mod(14*60,BarInterval)=0 Then Begin
    Value2=IntPortion(14*60/BarInterval);
  End Else Begin
    Value2=IntPortion(14*60/BarInterval)+1;
  End;

  Value3=Value1+Value2;

  Value4=0;
  For Value91=0 To (Len-1)*Value3 Begin
    IF Mod(Value91,Value3)=0 Then Begin
      Value4=Value4+PriceValue[Value91];
    End;
  End;

  anAverageD=Value4/Len;
End Else Begin
  anAverageD=0;
End;
=====================================

減少一個參數,所以指標可以這樣寫:
=====================================
Inputs:Len1(5),Len2(10);

IF Time=1345 Then Begin
  Value1=anAverageD(Close,Len1);
  Value2=anAverageD(Close,Len2);
End;

Plot1(Value1,"AVG_1");
Plot2(Value2,"AVG_2");  
=====================================

僅在我自己使用的週期測試,不保證也不負責程式正確性。有興趣的同學請自行取用,不必告知,也不必取得同意。但若有優化,希望能比照公布、分享。

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

你可能感興趣

    精選文章

    更多
    低軌衛星不同調,昇達科跌停,華通續漲,當心!SpaceX軍方訂單80億藏玄機
    費半跌3.5%台股開低!MSCI權重生效最後一盤爆量上拉189點,5均驚險保住!
    國巨、聯電、南電、欣興同框比拼,用壓力支撐表,看懂誰還能漲!
    輝達財報過關台股續漲但博通財報下周四登場,財報好但股價卻跌12%,這次還會重演?
    大立光獵地成亮點,光寶科創歷史高,被動元件華新科、信昌電齊反攻,下周盤勢重點
    為什麼你的股票沒跌那麼多,大盤卻說崩了?因為大盤不是你以為的大盤。