使用策略雷達監控創當日新高/新低

大家好，

分享如何使用策略雷達監控創當入新高／新低。

大致撰寫邏輯：

1. 使用 input 宣告輸入時間參數，當過此時段（HHMMSS）才開始監控。

2. 使用 IntrabarPersist 宣告記錄創新高／新低的紀錄變數。

3. 使用 getinfo 在即時成交更新資料才開始進行條件判斷。

4. 使用 once 執行一次更新目前的最高／低價。

5. 使用 if 判斷當收盤價創當日新高／當日新低，則觸發警示，並在使用 retmsg 在執行紀錄秀出觸發警示時的相關資料。

警示腳本範例程式碼如下：

input:_time(100000, "過此時段(HHMMSS)才開始監控");
variable:IntrabarPersist DHigh(0), IntrabarPersist DLow(0),strDHigh(""),strDLow("");

if currenttime < _time then return;  //在指定時段後才開始判斷。

if getinfo("IsRealTime") <> 1 then return;    //即時成交更新資料才開始判斷。

//只需要執行一次去更新目前的最高價與最低價。
once(true)  begin
    DHigh = high;
    DLow = low;
end;

//用以下 if 判斷當收盤價創當日新高／當日新低，則觸發警示，並在執行紀錄秀出相關資料。
if close > DHigh then begin
    strDHigh = Text("收盤價=",close,"創當日新高。前次新高價為=",DHigh);
    retmsg = strDHigh;
    ret = 1;
    DHigh = close;
end else if close < DLow then begin  
    strDLow = text("收盤價=",close,"創當日新低。前次新低價為=",DLow);
    retmsg = strDLow;
    ret = 1;
    DLow = close;
end;                    

範例策略雷達匯出檔如附檔，提供給大家參考，若有問題歡迎大夥一起討論。