Best Intraday Trading AFL

Discussion in 'AmiBroker' started by rakeshkrohilla, Aug 7, 2011.

  1. rakeshkrohilla

    rakeshkrohilla Member

    Joined:
    Jul 15, 2008
    Messages:
    59
    Likes Received:
    17
    Trophy Points:
    8
    Dear All

    I have started this new thread to share AFL for Intraday trading. Please share your best AFL for Intraday trading. My special request to senior members of the forum is to share the best the have. Don't forget to write instructions, how to use, if it is a unique AFL.
     
  2. ghamande

    ghamande New Member

    Joined:
    May 29, 2010
    Messages:
    6
    Likes Received:
    0
    Trophy Points:
    1
    Any body send me RENKO AFL with entry exit signals. at my email. my mail Id : ghamande3@gmail.com

    thanks
     
  3. jitensingh

    jitensingh Active Member

    Joined:
    May 23, 2010
    Messages:
    372
    Likes Received:
    51
    Trophy Points:
    28
    This afl is free on mudraa.com in vimalraj thread and also on traderji.com
     
  4. Nextgen_trader

    Nextgen_trader Well-Known Member

    Joined:
    Jun 15, 2011
    Messages:
    419
    Likes Received:
    325
    Trophy Points:
    63
    I have the above afl.... Not tat good but ok ok sort of...

    Here you goes..

    //Magfied Market Price
    FS=Param("Font Size",30,11,100,1);
    GfxSelectFont("Times New Roman", FS, 700, True );
    GfxSetBkMode( colorWhite );
    GfxSetTextColor( ParamColor("Color",colorGreen) );
    Hor=Param("Horizontal Position",800,1,1200,1);
    Ver=Param("Vertical Position",12,1,830,1);
    GfxTextOut(""+C, Hor , Ver );
    YC=TimeFrameGetPrice("C",inDaily,-1);
    DD=Prec(C-YC,2);
    xx=Prec((DD/YC)*100,2);
    GfxSelectFont("Times New Roman", 11, 700, True );
    GfxSetBkMode( colorBlack );
    GfxSetTextColor(ParamColor("Color",colorYellow) );
    GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );



    _SECTION_BEGIN("Stupid Functions");

    function HAI_F1(no)
    {
    res=HHV(H,no);
    sup=LLV(L,no);
    avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
    avn=ValueWhen(avd!=0,avd,1);
    return (IIf(avn==1,sup,res));
    }

    function HAI_F2(no)
    {
    return (Cross(C,HAI_F1(no)));
    }

    function HAI_F3(no)
    {
    return (Cross(HAI_F1(no),C));
    }

    function HAI_F4(no)
    {
    prev=AMA2(C,1,0);
    d=IIf(C>Ref(Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),-1),Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),
    IIf(C<Ref(Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),-1),Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),PREV));
    a=Cross(Close,d);
    b=Cross(d,Close);
    return (IIf(BarsSince(a)<BarsSince(b),1,0));
    }

    function HAI_F5(no)
    {
    state = HAI_F4(no);
    s=state>Ref(state,-1);
    ss=state<Ref(state,-1);
    return (state==Ref(state,-1));
    }


    function HAI_F6(p,n,s,m)
    {
    return (PDI(p)>MDI(n)AND Signal(s)<MACD(m));
    }

    function HAI_F7(p,n,s,m)
    {
    return (MDI(n)>PDI(p)AND Signal(s)>MACD(m));
    }


    _SECTION_END();


    _SECTION_BEGIN("Swing");

    no = 22;
    sloss = HAI_F1(no);
    a = HAI_F2(no);
    b = HAI_F3(no);
    state = HAI_F4(no);
    sss = HAI_F5(no);
    uptrend = HAI_F6(20,10,29,22);
    downtrend = HAI_F7(20,10,29,13);

    style = a * styleStaircase + b * styleStaircase;
    PlotShapes(a,style, IIf(a,colorGreen,colorRed), 0, IIf(a,Low,High));
    _SECTION_END();

    col=IIf(state == 1 ,51,IIf(state ==0,4,1));
    Plot(C,"",Col,64);
    PlotShapes( shapeUpArrow * a, colorGreen,0,L);
    PlotShapes( shapeDownArrow * b, colorRed,0,H);

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

    _SECTION_BEGIN("www.IntradayAFL.com");
    _N(Title = EncodeColor(colorWhite) + "{{NAME}} - {{INTERVAL}} {{DATE}} " );
    _SECTION_END();

    _SECTION_BEGIN("Intraday AFL System");
    Buy = a;
    Sell = b;

    PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-30);
    PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0, L, Offset=-40);
    PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-35);
    PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=30);
    PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=40);
    PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-35);

    dist = ATR(20);
    for (i=0; i<BarCount; i++) {
    if ( Buy )
    PlotText("Buy:" + O[ i ], i, L[ i ]-3*dist, colorGreen);
    if ( Sell )
    PlotText("Sell:" + O[ i ], i, H[ i ]+3*dist, colorRed);
    }
    _SECTION_END();

    _SECTION_BEGIN("Trend");

    Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon",
    IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), /* choose color */
    styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
    _SECTION_END();

    //d = Close > Ref( ChandelierHL(ATR(3),20), -1);
    //e =Close < Ref( ChandelierHL(ATR(3),20), -1);
    //f = Close < Ref( ChandelierHL(ATR(3),20), -1);
    //g = Close > Ref( ChandelierHL(ATR(3),20), -1);

    Buy = a AND uptrend ;
    Short = b AND downtrend ;
    Sell = b AND downtrend ;
    Cover = a AND uptrend;

    Buy=ExRem(Buy,Sell);
    Sell=ExRem(Sell,Buy);
    Cover=ExRem(Cover,Short);
    Short=ExRem(Short,Cover);

    Filter=Buy OR Sell;
    Filter= Cover OR Short;

    AddColumn( Buy, "Buy", 1);
    AddColumn(Sell, "Sell", 1);
    AddColumn(Close,"Close",1.2);
    AddColumn(Volume,"Volume",1.0);

    // Plot the Buy and Sell arrows.
    shape = Buy * shapeUpArrow + Sell * shapeDownArrow;
    PlotShapes(shape, IIf(Buy,colorGreen,colorRed), 0, IIf(Buy,Low,High));

    //Plot(sloss,"Swing",colorYellow,styleStaircase);

    //SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )),

    //ParamColor("BgBottom", ColorRGB( 172,172,172 )),ParamColor("titleblock",ColorRGB( 172,172,172 )));
    //Alerts
    AlertIf( Buy, "SOUND C:\\Windows\\Media\\tada.wav", "Buy",1,1+2+4+8);
    AlertIf( Short, "SOUND C:\\Windows\\Media\\notify.wav", "Short",2,1+2+4+8);

    GraphXSpace = 5;

    /* -------------------------------------------------------------------------------------- */

    SetChartBkColor(colorDarkOliveGreen = 46);
    SetChartOptions(0,chartShowArrows|chartShowDates);

    /* -------------------------------------------------------------------------------------- */

    ////////////////////////////////////////////////////////////////////////////////////////////////
    messageboard = ParamToggle("Message Board","Show|Hide",0);
    showsl = ParamToggle("Stop Loss Line", "Show|Hide", 0);

    style = a * styleStaircase + b * styleStaircase;

    PlotShapes(a,style, IIf(a,colorGreen,colorRed), 0, IIf(a,Low,High));
    if (showsl == 0) Plot(sloss,"Stop Loss",colorCustom14,styleDots);
    exitlong = Cross(sloss, H);
    PlotShapes(exitlong * shapeNone, colorBlack,0,H,-10);
    exitshort = Cross(L, sloss);
    PlotShapes(exitshort * shapeNone, colorBlack,0,L,-15);

    Buy = exitshort;
    Sell = exitlong;
    //Short = Sell;
    //Cover = Buy;
    Buy = ExRem(Buy,Sell);
    Sell = ExRem(Sell,Buy);
    //Short = ExRem(Short, Cover);
    //Cover = ExRem(Cover, Short);
    AlertIf( Buy, "", "BUY @ " + C, 1 );
    AlertIf( Sell, "", "SELL @ " + C, 2 );

    for (i=BarCount-1; i>1; i--) {
    if (Buy == 1) {
    entry = O;
    sig = "BUY";
    sl = sloss;
    tar1 = entry + (entry * .0040);
    tar2 = entry + (entry * .0085);
    tar3 = entry + (entry * .0179);
    bars = i;
    i = 0;
    }
    if (Sell == 1) {
    sig = "SELL";
    entry = O;
    sl = sloss;
    tar1 = entry - (entry * .0040);
    tar2 = entry - (entry * .0085);
    tar3 = entry - (entry * .0212);
    bars = i;
    i = 0;
    }
    }

    Offset = 20;
    Clr = IIf(sig == "BUY", colorLime, colorRed);
    ssl = IIf(bars == BarCount-1, sloss[BarCount-1], Ref(sloss, -1));
    sl = ssl[BarCount-1];

    printf("Last " + sig + " Signal came " + (BarCount-bars) + " bars ago");
    printf("\n" + sig + " @ : " + entry + "\nStop Loss : " + sl + " (" + WriteVal(IIf(sig == "SELL",entry-sl,sl-entry), 2.2) + ")"+ "\nTarget_1 : " + tar1 + "\nTarget_2 : " + tar2 + "\nTarget_3 : " + tar3);
    printf("\nCurrent P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2));

    if (messageboard == 0) {
    GfxSelectFont( "Tahoma", 13, 100 );
    GfxSetBkMode( 1 );
    GfxSetTextColor( colorWhite );

    if (sig =="BUY")
    GfxSelectSolidBrush( colorGreen ); // this is the box background color
    else
    GfxSelectSolidBrush( colorRed ); // this is the box background color

    pxHeight = Status( "pxchartheight" ) ;
    xx = Status( "pxchartwidth");
    Left = 1100;
    width = 310;
    x = 05;
    x2 = 200;

    y = Status( "pxchartheight" );

    GfxSelectPen( colorGreen, 1); // broader color
    GfxRoundRect( x, y - 143, x2, y , 7, 7 ) ;
    GfxTextOut( ( " AFLIntraday "), 10, y-140) ;
    GfxTextOut( Name(),13,y-120);

    GfxTextOut( ("" + WriteIf(sig =="BUY",sig + " @ ",sig + " @") + " : " + entry), 13, y-100);
    GfxTextOut( ("Trailing SL : " + sl + " "), 13, y-80);
    GfxTextOut( ("TGT:1 : " + tar1), 13, y -60);
    GfxTextOut( ("TGT:2 : " + tar2), 13,y-40);
    GfxTextOut( ("Current P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-20);;
    }
     
    asok sen and pankajpari like this.
Loading...

Share This Page