股池盤中排行問題

(1)我猜測你使用1分鐘頻率。若是，則090000開始計算AL，用[1]抓的是昨天收盤的最後一根K棒。這樣的運算邏輯是否是你想要的？

(2)計算跌幅的迴圈不需要再寫入商品代號。

(3)空單加碼應該使用setposition(position-1)，而非setposition(-1)。

(4)既然只針對跌幅最大的三檔下單，最後一個迴圈只要跑三圈。

(5)以下的程式沒有驗證，請自行驗證是否符合需求。

if barFreq<>"Min" or Barinterval<>1 then raiseRunTimeError("限用1分鐘");
input:mygroup(group,"股池");
var: mygroupsize(0),i(0);
var:intraBarPersist groupratio(0);
var:intraBarPersist symbolratio(0);
array:rankRT[1500,3](0);
mygroupsize=groupSize(mygroup);
var:intraBarPersist flag1(false);
var: intraBarPersist AL(0);
var:intraBarPersist Price(0);
var:intraBarPersist count(0);
var:intraBarPersist syb(0);
var:intraBarPersist syb1(0);
var:intraBarPersist syb2(0);
var:intraBarPersist mytime(090000);
if getinfo("isrealtime")=0 then return;
if GetSymbolInfo("買賣現沖")=false then return;
if date<>date[1] then 
    begin
        flag1=false;
        count=0;
        mytime=090000;
    end;
if (currenttime>=090600 and currenttime<091000) or (currenttime>=091100 and currenttime<091500)  and flag1=true then
    begin
        flag1=false;
        count = 0;
        syb = 0;
        syb1 = 0;
        syb2 = 0;
    end;
once(currentTime>=090000) //計算SL
    begin
        for i=1 to mygroupsize
            begin
                AL = (GetsymbolField(mygroup[i],"High", "D")[1] + GetsymbolField(mygroup[i],"LOW", "D")[1] + 2*getsymbolField(mygroup[i], "收盤價","D")[1])/4 - GetsymbolField(mygroup[i],"High", "D")[1]+GetsymbolField(mygroup[i],"LOW", "D")[1];
                rankRT[i, 1] = strtonum(leftStr(mygroup[i], 4));
                rankRT[i, 3] = AL;
                print(file("D:\print\[date]王董策略AL計算(0413修改).csv"),time,text(numtostr(rankRT[i, 1], 0), ".TW") ,"CDP追賣點",numtoStr(rankRT[i,3],2));
            end;
    end;
if mytime<>time then  //計算跌幅
    begin
        mytime=time;
        for i=1 to mygroupsize
            begin
                symbolratio = (getsymbolField(mygroup[i], "收盤價","1")[1]-getsymbolField(mygroup[i], "參考價","D"))/getsymbolField(mygroup[i], "參考價","D")*100;
                rankRT[i, 2] = symbolratio;
                print(file("D:\print\[date]王董策略跌幅(0413修改).csv"),time,text(numtostr(rankRT[i, 1], 0), ".TW") ,"個股漲跌幅",numtoStr(rankRT[i,2],2));
            end;
    end;
Array_Sort2d(rankRT, 1, mygroupsize, 2, true);
if (currenttime>=090500 and currenttime<090600) {or (currenttime>=091000 and currenttime<091100) or (currenttime>=091500 and currenttime<091600) or (currenttime>=093300 and currenttime<093400))} and flag1 = false then
    begin
        flag1 = true;
        for i = 1 to 3
            begin
                if symbol = text(numtostr(rankRT[i, 1], 0), ".TW") and
                    getsymbolField(mygroup[i], "收盤價","1")>=rankRT[i, 3] and 
                    rankRT[i, 2]>-7 and 
                    rankRT[i, 2]<0 then //現價>AL & 跌幅<7%
                    begin
                        print(file("D:\print\[date]王董策略跌幅排名結果(0413修改).csv"),time,text("排名", numtostr(i, 0), "商品: "),
                        text(numtostr(rankRT[i, 1], 0), ".TW"),rankRT[i, 2],rankRT[i, 3],count);
                        if filledAtBroker<0 and position=filled  then setposition(position-1);
                    end;
            end;
    end;