目前回測尚不支援報價欄位

如題 

input:TXT1("僅適用5分鐘線"); setinputname(1,"使用限制");

//input:TXT2("開盤前3根K棒"); setinputname(2,"使用說明:判斷規則");

//settotalbar(5);

if barfreq<> "Min" or barinterval <> 5 then return;

 

variable:KBarOfDay(0); KBarOfDay+=1; 

if date<>date[1] then  

   KBarOfDay=1; 

   

//variable:TES_Now(0),TES_High(0),TES_Low(0);  

 

//TES_Now = GetSymbolField("TSE.TW","收盤價");

//TES_High = GetSymbolField("TSE.TW","最高價");

//TES_Low = GetSymbolField("TSE.TW","最低價");

 

condition1 = false;

value1 = q_InSize;//當日內盤量

value2 = q_OutSize;//當日外盤量

if q_EstimatedTotalVolume > q_PreTotalVolume and value2 > value1 then 

if value2 > value1 then

   condition1 = true;   

 

if  condition1 then

begin  

// DIF-MACD翻正

//

variable: FastLength(12), SlowLength(26), MACDLength(9);

variable: difValue(0), macdValue(0), oscValue(0), MACD_bar(0), KD_bar(0), RSI_bar(0);

 

//SetTotalBar((maxlist(FastLength,SlowLength,6) + MACDLength) * 3 + 8);

 

MACD(weightedclose(), FastLength, SlowLength, MACDLength, difValue, macdValue, oscValue);

    condition2 = false; 

    if oscValue Crosses Above 0 then

begin

  condition2 = true; 

  MACD_bar = KBarOfDay;

end;

 

// KD

variable:rsv_m(0),kk_m(0),dd_m(0);

    xf_stochastic("AD",9, 3, 3, rsv_m, kk_m, dd_m);

condition3 = false;

if kk_m Crosses Above dd_m then

begin

   condition3 = true; 

   KD_bar = KBarOfDay;

end;

 

// RSI

condition4 = false;

variable:rsi_9(0);

rsi_9 = RSI(Close, 9);

if rsi_9 >= 45 then

begin

   condition4 = true; 

   RSI_bar = KBarOfDay;

end;

 

if condition2 and condition3 and condition4 then

 

ret = 1;

 

end;