本次更新內容:
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");
=====================================
僅在我自己使用的週期測試,不保證也不負責程式正確性。有興趣的同學請自行取用,不必告知,也不必取得同意。但若有優化,希望能比照公布、分享。
本文內容僅供參考,無任何買賣建議,投資人應謹慎評估,風險自負。