Code T+4 trên Amibroker

Không biết dùng ami thì có code cho Meta luôn:

Mã:

If(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),
   Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),
   If(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),
      Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),
      PREV)
  )

Nguồn:
http://srsc.com.vn/forum/showthread.php?1541-Code-T-4-trên-Metastock&p=1553#post1553

Hi hi vội quá nên copy thiếu:


đây là code full:
//4-Day-Range Switch
prev=AMA2(C,1,0);
d=IIf(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),
IIf(CRef(state,-1);
ss=state<Ref(state,-1);
sss=state==Ref(state,-1);
col=IIf(state == 1 ,51,IIf(state ==0,4,1));
Plot(C,"",Col,128);
PlotShapes( shapeUpArrow * s ,6,0,L);
PlotShapes( shapeDownArrow *ss ,4,0,H);

Filter = s OR sss OR sss ;
AddColumn(C,"close",1.2);
AddColumn( IIf( s, 66,1 ), "buy", formatChar, 1, bkcolor =IIf (s,colorGreen, colorRed ));
AddColumn( IIf( Ss, 83,1 ), "sell", formatChar, 1, bkcolor =IIf (Ss,colorRed, colorGreen ));
AddColumn( IIf( sss, 87,1 ), "wait", formatChar, 1, bkcolor =IIf (sss,colorYellow, colorRed ));

_SECTION_BEGIN("");
_N(Title = "{{NAME}} - {{INTERVAL}} {{DATE}}: "+_DEFAULT_NAME()+" : {{OHLCX}} {{VALUES}}"
+"\n"+EncodeColor(colorYellow)+
WriteIf(s,"EXIT all Short positions\nif trading long positions, enter long Now-\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(L+.75*ATR(5),1.4)+" ,","")+
WriteIf(ss,"exit all long positions today with a Market On Close (MOC) order\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(Ref(H+.75*ATR(5), -1),1.4)+",","")+
WriteIf( sss ,"No trading signals today.","") );

AlertIf( s, "SOUND D:\songs\bhi.mp3", "Audio alert", 2 );
AlertIf( ss, "SOUND C:\\Windows\\Media\\Ding.wav", "Audio alert", 5 );

Nguồn:
http://srsc.com.vn/forum/showthread.php?1535-Code-T-4-trên-Amibroker

Mời các bạn tham ra diễn đàn Stock Research & Sharing Club cùng chia sẻ kiến thức và cơ hội đầu tư

vẫn sai bạn ơi. check lại hộ với

backtest rồi ko ăn thua đâu bác

thanks

lấy lại của anh FPT
//4-Day-Range Switch code for AmiBoker
prev=AMA2(C,1,0);
d=IIf(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),
IIf(C
a=Cross(Close,d);
b=Cross(d,Close);
state=IIf(BarsSince(a)
s=state>Ref(state,-1);
ss=state
sss=state==Ref(state,-1);
col=IIf(state == 1 ,51,IIf(state ==0,4,1));
Plot(C,"",Col,128);
PlotShapes( shapeUpArrow * s ,6,0,L);
PlotShapes( shapeDownArrow *ss ,4,0,H);

Filter = s OR sss OR sss ;
AddColumn(C,"close",1.2);
AddColumn( IIf( s, 66,1 ), "buy", formatChar, 1, bkcolor =IIf (s,colorGreen, colorRed ));
AddColumn( IIf( Ss, 83,1 ), "sell", formatChar, 1, bkcolor =IIf (Ss,colorRed, colorGreen ));
AddColumn( IIf( sss, 87,1 ), "wait", formatChar, 1, bkcolor =IIf (sss,colorYellow, colorRed ));

_SECTION_BEGIN("4-Day-Range Switch");
_N(Title = "{{NAME}} - {{INTERVAL}} {{DATE}}: "+_DEFAULT_NAME()+" : {{OHLCX}} {{VALUES}}"
+"\n"+EncodeColor(colorYellow)+
WriteIf(s,"EXIT all Short positions\nif trading long positions, enter long Now-\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(L+.75*ATR(5),1.4)+",","")+
WriteIf(ss,"exit all long positions today with a Market On Close (MOC) order\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(Ref(H+.75*ATR(5), -1),1.4)+",","")+
WriteIf( sss ,"No trading signals today.","") );

//AlertIf( s, "SOUND D:\songs\bhi.mp3", "Audio alert", 2 );
//AlertIf( ss, "SOUND C:\\Windows\\Media\\Ding.wav", "Audio alert", 5 );
_SECTION_END();

_SECTION_BEGIN("ichimoku Charts");

/* ICHIMOKU CHART */

/* AFL code by Prakash Shenoi */
//Plot function modified Misha Nathani

SL=(HHV(H,22)+LLV(L,22))/2;
TL=(HHV(H,7)+LLV(L,7))/2;
DL=Ref(C,21);
Sp1=Ref((SL+TL)/2,-21);
Sp2=Ref((HHV(H,44)+LLV(L,44))/2,-21);

//Plot(C,"Bars",colorBlack,styleBar);

Plot (SL,"Standard",colorYellow);
Plot (TL,"Turning",colorWhite);
//Plot (C,"Close",colorBlack,styleThick);
Plot (DL,"Delayed",colorBlue,styleThick);
PlotOHLC (Sp1,Sp1,Sp2,Sp2,"\n" + "Cloud",IIf(Sp1>Sp2,ParamColor("Up Color",colorLime),ParamColor("Dn Color",colorLightOrange)),styleNoLabel|styleNoTitle|styleCloud);
_SECTION_END();

meta cái nào mua cái nào bán bạn

đường giá cắt lên thì mua cắt xuống thì bán

[};-