選股程式碼如下,執行頻率為日
settotalBar(500);
var: intrabarpersist DB1(0) , intrabarpersist DS2(0) , intrabarpersist WB3(0) ,intrabarpersist WS4(0) ;
if ema(close,12) cross Over ema(close,26) then begin
DB1=currentBar;//EMA 12 向上 26,紀錄日多K號
value1=DB1;
end;
if ema(close,12) cross under ema(close,26) then begin
DS2=currentBar; //EMA 12 向下 26,紀錄日空K號
value2=DS2;
end;
if xf_EMA("W", Close,12) cross Over xf_EMA("W", Close,26) then begin
WB3=currentBar; //周頻率 EMA金叉,紀錄周多K號
value3=WB3;
end;
if xf_EMA("W", Close,12) cross under xf_EMA("W", Close,26) then begin
WS4=currentBar;//周頻率 EMA死叉,紀錄周空K號
value4=WS4;
end;
MACD(WeightedClose,12,26,9,value13,value14,value15); //取得OSC 日多空柱圖值
condition6 = value15[1] <=0 and value15 > 0 and trueAll(value15 >value15[1],2); //當日轉為多方時,且連續上升2天
if
value3 > value4 //目前處於周多方
and value1 > value2 //目前處於日多方
and condition6 //MACD柱圖由負轉正。至少上升兩天
and GetField("每股淨值(元)","Q") >=5.1
and (GetSymbolInfo("處置股")=false
and GetSymbolInfo("買賣現沖")=true
or GetSymbolInfo("先買現沖")=true)
then ret=1; //執行選股

 
 
             
        
         
         
         
         
     
     分類
    分類
 
            
2 評論