Amibroker intraday checking

tszwun

大家好，我是一個trading新手請多多指教。

我現在學習用Amibroker寫策略及backtest。我的入市high level logic (HSI)是：
- 每日開市時如果見到三枝大陽燭當日就只做Buy，見到三枝陰燭就只做sell
- 再見到連續三枝陽燭就入市, 見到兩枝陰燭就平倉

請問在Amibroker coding 如果將策略分在每一日測試？

zaqimon

1. tn = TimeNum();
   
2. //tn = IIf(tn > 170000, tn-240000, tn); // shift T+1 TimeNum for 24hr trading
   
3. begin_bar = 0;
   
4. count_bar = 0;
   
5. TodayBS = 0;
   
6. for(i=1; i<BarCount; i++)
   
7. {
   
8.         if(tn[i] < tn[i-1])
   
9.         {
   
10.                 begin_bar = i;
    
11.                 count_bar = 0;
    
12.         }
    
13.         if(i-begin_bar < 3)
    
14.         {
    
15.                 if(C[i] > O[i])
    
16.                 {
    
17.                         ++count_bar;
    
18.                 }
    
19.                 else if(C[i] < O[i])
    
20.                 {
    
21.                         --count_bar;
    
22.                 }
    
23.         }
    
24.         if(count_bar == 3)
    
25.         {
    
26.                 TodayBS[i] = 1; // Today Buy only
    
27.         }
    
28.         else if(count_bar == -3)
    
29.         {
    
30.                 TodayBS[i] = -1; // Today Short only
    
31.         }
    
32. }
    

複製代碼

大概這樣寫吧
不過我沒測試過
你自己試試看

joshsmi

zaqimon 發表於 14-4-20 08:05
大概這樣寫吧
不過我沒測試過
你自己試試看

zaqimon,

this code will do the same as your code but is shorter and faster and without loop. ;-)

bars = 3;
dn = Datenum();
newday= dn != Ref( dn, -1 );
brssince = BarsSince( newday ) == bars-1;
sumdn = Sum( dn == Ref( dn, -1 ), bars-1 ) == bars -1;  

Buy = ValueWhen( brssince, Sum( C > O, bars ) ) == bars AND sumdn;
Short = ValueWhen( brssince, Sum( C < O, bars ) ) == bars AND sumdn;

PlotShapes( Buy*shapeUpArrow, colorpalegreen, 0, L, -45 );
PlotShapes( Short*shapedownArrow, colorOrange, 0, H, -45 );

joshsmi

joshsmi 發表於 14-4-20 23:45
zaqimon,

this code will do the same as your code but is shorter and faster and without loop. ;-)

for comparison

1. 
   
2. tn = TimeNum();
   
3. //tn = IIf(tn > 170000, tn-240000, tn); // shift T+1 TimeNum for 24hr trading
   
4. begin_bar = 0;
   
5. count_bar = 0;
   
6. TodayBS = 0;
   
7. for ( i = 1; i < BarCount; i++ )
   
8. {
   
9.     if ( tn[i] < tn[i-1] )
   
10.     {
    
11.         begin_bar = i;
    
12.         count_bar = 0;
    
13.     }
    
14. 
    
15.     if ( i - begin_bar < 3 )
    
16.     {
    
17.         if ( C[i] > O[i] )
    
18.         {
    
19.             count_bar++;
    
20.         }
    
21.         else
    
22.             if ( C[i] < O[i] )
    
23.             {
    
24.                 count_bar--;
    
25.             }
    
26.     }
    
27. 
    
28.     if ( count_bar == 3 )
    
29.     {
    
30.         TodayBS[i] = 1; // Today Buy only
    
31.     }
    
32.     else
    
33.         if ( count_bar == -3 )
    
34.         {
    
35.             TodayBS[i] = -1; // Today Short only
    
36.         }
    
37. }
    
38. 
    
39. Buy = todaybs == 1;
    
40. Short = todaybs == -1;
    
41. PlotShapes( buy*shapeUpArrow, colorGreen, 0, L, -30 );
    
42. PlotShapes( short*shapedownArrow, colorRed, 0, h, -30 );
    
43. 
    

複製代碼

tszwun

真的謝謝，原來可以這樣.....請想再問一下，如果我想debug program..用其他language可以output/prompt message做breakpoint, 請問amibroker有沒有類似function?

zaqimon

1. function dout(str)
   
2. {
   
3.         if(USE_DOUT)
   
4.         {
   
5.                 if(Status("action") == actionIndicator)
   
6.                 {
   
7.                         _TRACE("["+_DEFAULT_NAME()+"] "+str);
   
8.                 }
   
9.                 else
   
10.                 {
    
11.                         _TRACE(""+str);
    
12.                 }
    
13.         }        
    
14. }

複製代碼

存檔為dout.afl放到Include資料夾內
使用方式

USE_DOUT = True; // True / False
#include_once <dout.afl>
...
dout("hello");
dout(Close);
...
我習慣用DebugView來查看output
打開下面設定即可
Tools > Preferences > AFL > _TRACE() output : 選擇External

joshsmi

tszwun 發表於 14-4-21 15:42
真的謝謝，原來可以這樣.....請想再問一下，如果我想debug program..用其他language可以output/prompt mess ...

The new editor will get new features including debugger and so on in the future.
Just follow development log http://www.amibroker.com/devlog/


As for now see http://www.amibroker.org/userkb/ ... ions/debugging-afl/