更新-自訂函數(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");  
=====================================

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

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

你可能感興趣

    精選文章

    更多
    金控狂賺5,789億!第一保(2852)靠核保本業賺錢,不看股市臉色。
    週四外資賣超3025億、空單破9.7萬口創紀錄!下周大盤守47100先求穩再求彈
    大甲跌停打開,台郡、和碩齊強攻,聯電破季線,華通、時碩隨特斯拉飛天,下周盤勢重點
    台股遭外資暴賣、期貨空單同創歷史新高,ETF買盤卻更積極!是買點還是股災起點
    大盤創高49968後6天跌3173點!大戶籌碼9/9持續偏空,這訊號早透露方向!
    為什麼有錢人勇敢借錢,普通人急著還錢:差別不是膽量,而是他比你更懂怎麼算