Jump to content
[Please Read] Have problems logging in? Check here how to fix
[Please Vote] What financial markets do you trade now?

abhishek72457

Members
 View Profile  See their activity

  • Posts

    47

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by abhishek72457

  3. Amibroker 5.60.2

    in Trading Platforms

    Posted

    Hi,

     

    I would like to know how I do get EOD data (US or European stocks/indices/commodities) for this educated Amibroker version?

     

    Thanks in advance and cheers!

    Sherlock

     

    Dear you need to crack amiquote for that. or buy Amiquote..

    so try the above link, goto the blog find links in comments..

  8. Anyone Can Add BUY SELL definitions in AFL?

    in Trading Systems and Strategies

    Posted

    hello bro.

    i have tried what you said..

     

    but its giving error :(

     

    anyways i have another afl code can you remove errors in from it?

     

     

     

     

    _SECTION_BEGIN("Chart");

    SetChartBkGradientFill( ParamColor("BgTop", colorBlack),

    ParamColor("BgBottom", ColorRGB( 146,146,146 )),ParamColor("titleblock",colorBlack));

    SetChartOptions(0,chartShowArrows|chartShowDates);

    _SECTION_END();

    _SECTION_BEGIN("TREND");

    iCandle=ParamList("Trigger Candle","First|Second",1);

    CallType=ParamList("Call Type","Ultimate|Best|Good|Fast");

    gap=Param("Repeat Calls Distance",0.01,0,10000,0.01);

    T1P=Param("First TGT",0.004,0.0001,0.1,0.001);

    T2P=Param("Second TGT",0.008,0.0001,0.1,0.001);

    T3P=Param("Third TGT",0.012,0.0001,0.1,0.001);

     

    rt=ZeroStopLoss();

     

    Plot(supres,"Swing",colorBlue,styleLine);

     

    dist = 1.5*ATR(10);

    PlotShapes(IIf(Buys, shapeUpArrow, shapeNone),colorGreen, 0,L,-10*dist);

    PlotShapes(IIf(Sells, shapeDownArrow, shapeNone),colorRed, 0,H,-10*dist);

    PlotShapes(IIf(Buyr,shapeDigit0,shapeNone),colorGreen,0,L,-10);

    PlotShapes(IIf(Sellr,shapeDigit0,shapeNone),colorRed,0,H,10);

     

    Buy=Buys OR Buyr;

    Sell=Sells OR Sellr;

    Short=Sell;

    Cover=Buy;

     

    function SayOnce( text )

    {

    if(StaticVarGetText(Name() + "lastsaidtext") != text )

    {

    Say( text );

    StaticVarSetText(Name() + "lastsaidtext", text ) ;

    }

    }

     

    dist = 1*ATR(20);

    dist1 = 2*ATR(20);

    for( i = 0; i < BarCount; i++ )

    {

    if( Buys ) PlotText( " B " + L[ i ], i, L[ i ], colorGreen, colorWhite );

    if( Sells ) PlotText( " S " + H[ i], i, H[ i ], colorRed, colorWhite );

    }

    _SECTION_END();

     

    Offset = 20;

    Clr = IIf(sig == "BUY", colorGreen, colorRed);

     

    for (i=bars; i <BarCount;i++)

    {

    PlotText(""+sig+"@"+entry, BarCount-3,entry,colorYellow,Null);

    PlotText("T1@"+tar1,BarCount-3,tar1,Clr,Null);

    PlotText("T2@"+tar2,BarCount-3,tar2,Clr,Null);

    PlotText ("T3@"+tar3,BarCount-3,tar3,Clr,Null);

    Sayonce( sig + " " + Name() +" at "+entry);

    }

     

    messageboard = ParamToggle("Message Board","Show|Hide",0);

    printf("\nCurrent P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2));

     

    if (messageboard == 0 )

    {

    GfxSelectFont( "Tahoma", 13, 100 );

    GfxSetBkMode( 1 );

    GfxSetTextColor( colorYellow );

     

     

    if ( sig =="BUY")

    {

    GfxSelectSolidBrush( colorBlue ); // 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 = 2;

    x2 = 220;

     

     

    y = pxHeight;

     

     

    GfxSelectPen( colorLightBlue, 1); // broader color

     

    GfxTextOut( ("LAST TRADE P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-30);;

     

    }

    Clr1[0]=colorBlack;

    for(i=1;i<BarCount;i++)

    {

    if(Buy) Clr1=colorGreen;

    else if (Sell) Clr1=colorRed;

    else Clr1=Clr1[i-1];

    }

    _SECTION_BEGIN("Price");

    SetChartOptions(0,chartShowArrows|chartShowDates);

    _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

    Plot( C, "Close",Clr1,styleCandle, styleNoTitle );

    _SECTION_END();

     

     

    _SECTION_BEGIN("PANEL 25 RC MATH");

    ParamShowLevel=ParamList("Show harmonic levels", "1/8|1/4|1/2", 1 );

    ParamShowLabel=ParamStyle("Show harmonic labels", styleNoLabel, styleNoLabel);

     

     

    //iterate from low to high values

    while( Harmonic <= HigherValue )

    {

    style = styleDashed; // 1/8, 3/8, 5/8, 7/8 lines of any level

    color = colorBlue; //1/8, 7/8

    if ((Harmonic / PriceStep) % 8 == 1 OR (Harmonic / PriceStep) % 8 == 7)

    color = colorBlue; // 3/8, 5/8

    if (ParamShowLevel != "1/8")

    style = styleNoLine;

     

    if ((Harmonic / PriceStep) % 2 == 0) // 1/4, 3/4 lines of any level

    {

    style = styleLine;

    color = colorBlack;

    if (ParamShowLevel == "1/2")

    style = styleNoLine;

    }

     

    if ((Harmonic / PriceStep) % 4 == 0) // 1/2 line of any level

    {

    style = styleDots;

    color = colorViolet;

    }

     

    if ((Harmonic / PriceStep) % 8 == 0) // 1/1 line of Baby level

    {

    color = colorDarkYellow;

    style = styleDots;

    if ((Harmonic / Octave3PriceStep) % 64 == 0) // 1/1 line of Minor level

    {

    style = styleDots; // 1/1 /Level Minor

    }

    }

     

    if (style != styleNoLine) //if there is a line to plot... (avoid printing unused labels)

    {

    style = style + ParamShowLabel;

    Plot( Harmonic, "", color, style);

    }

     

    Harmonic = Harmonic + PriceStep;

    }

    _SECTION_END();

    TimeFrameSet(inDaily);

    DH=H;

    DL=L;

    TimeFrameRestore();

    DH=TimeFrameExpand(DH,inDaily,expandFirst);

    DL=TimeFrameExpand(DL,inDaily,expandFirst);

    Plot(DH,"DayHigh",colorRed,styleLine|styleThick);

    Plot(DL,"DayLow",colorGreen,styleLine|styleThick);

     

     

     

     

    rt=AmiTradingSA();

  9. Anyone Can Add BUY SELL definitions in AFL?

    in Trading Systems and Strategies

    Posted

    u can add this formula for message box to any afl

     

    Cover=Buy;
Short=Sell;

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
AlertIf( Buy, "", "BUY @ " + C, 1 );
AlertIf( Sell, "", "SELL @ " + C, 2 );
no=Param( "Swing", 8, 1, 55 );
tsl_col=ParamColor( "Color", colorLightGrey );
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);
tsl=IIf(avn==1,sup,res);

no =  Optimize("TSL",Param("A (Change To Optimise)",10, 1, 55 ,1),1, 55 ,1);

tsl_col=ParamColor( "Color", colorLightGrey );
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);
dtsl=IIf(avn==1,sup,res);
SellPrice=ValueWhen(Short,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Short,Cover);
Relax = NOT Long AND NOT Buy AND NOT shrt AND NOT Sell AND NOT Sell AND NOT Cover;
SellSL=ValueWhen(Short,DTSL,1);
BuySL=ValueWhen(Buy,DTSL,1);
BuyDifference= BuyPrice - BuySL;
SellDifference = SellSL - SellPrice;

tar1 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + BuyDifference), (SellPrice - SellDifference));
tar2 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (2*BuyDifference)), (SellPrice - (2*SellDifference)));
tar3 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (4*BuyDifference)), (SellPrice - (4*SellDifference)));


CloseAtEnd = ParamToggle("Close Positions EOD", "No|Yes");
stopreverse =ParamToggle("Switch To Stop And Reverse","No|Yes",0);
Trend = ATR(21) < StDev (C,21);
Range = ATR(21) > StDev (C,21);
no=10;
C13=20;
C14=2.1;
C15=12;

tsl_col=ParamColor( "Color", colorLightGrey );
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);
dtsl=IIf(avn==1,sup,res);

SellPrice=ValueWhen(Short,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Short,Cover);
Relax = NOT Long AND NOT Buy AND NOT shrt AND NOT Sell AND NOT Sell AND NOT Cover;
SellSL=ValueWhen(Short,DTSL,1);
BuySL=ValueWhen(Buy,DTSL,1);
BuyDifference= BuyPrice - BuySL;
SellDifference = SellSL - SellPrice;

tar1 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + BuyDifference), (SellPrice - SellDifference));
tar2 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (2*BuyDifference)), (SellPrice - (2*SellDifference)));
tar3 = IIf(Buy OR Long AND NOT Relax AND NOT Sell AND NOT Cover, (BuyPrice + (4*BuyDifference)), (SellPrice - (4*SellDifference)));
buyach1 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar1, 0);
buyach2 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar2 , 0);
buyach3 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar3, 0);

sellach1 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar1 , 0);
sellach2 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar2, 0);
sellach3 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar3, 0);



//Settings for exploration

Filter=Buy OR Short;
AddColumn( IIf( Buy, 66 , 83 ), "Signal", formatChar, colorDefault, IIf( Buy , colorGreen, colorRed ) );
AddColumn(Close,"Entry Price",1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(dtsl,"Stop Loss",1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar1,"Target 1",1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar2,"Target 2",1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(tar3,"Target 3",1.4, colorDefault, IIf( Buy , colorGreen, colorRed ));
AddColumn(Volume,"Volume",1.0, colorDefault, IIf ((Volume > 1.25 * EMA( Volume, 34 )),colorBlue,colorYellow));




//Short = Sell;
//Cover = Buy;

//Short = ExRem(Short, Cover);
//Cover = ExRem(Cover, Short);

GraphXSpace = 5;
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 280;

y = pxHeight; 
dist = 2*ATR(10);
dist1 = 3*ATR(10);
i=BarCount; 
bars = i;

messageboard = ParamToggle("Message Board","Show|Hide",1);
if(messageboard)
{
for( i = 0; i < BarCount; i++ )
{
   if( Buy[i] )
   {
       // PlotText( "\nBuy:" + L[ i ] + "\nT= " + (L[i]*1.005) + "\nSL= " + (L[i]*0.9975), i, L[ i ]-dist[i], colorGreen, colorWhite );
       
       // Signal Display Panel //

      SellPrice=ValueWhen(Sell,C,1);
      BuyPrice=ValueWhen(Buy,L[ i ]);
      Long=Flip(Buy,Sell);
       Shrt=Flip(Sell,Buy );
       BuyStop2 = L[i]*0.9975;
       BuyTP1 = L[i]*1.070;
       BuyTP2 = L[i]*1.050;
       BuyTP3 = L[i]*1.035;
buyach1 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP3, 0);
buyach2 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP2, 0);
buyach3 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > BuyTP1, 0);
       GfxSelectFont( "Tahoma", 13, 100 );
       GfxSetOverlayMode( mode = 0 );
       GfxSelectPen( colorBrightGreen, 3 );
       GfxSelectSolidBrush( colorBrightGreen);
       GfxRoundRect( x, y - 163, x2, y , 7, 7 ) ;
      GfxSetTextColor( colorGold );        
      GfxTextOut( ( " Trading System "),73,y-165);
       GfxTextOut( (" "),27,y-160);
       GfxSetBkMode(1);
       GfxSelectFont( "Arial", 10, 700, False );
       GfxSetTextColor( colorBlue );
       GfxSetTextAlign(0);
       GfxSelectFont( "Tahoma", 13, 100 );

  GfxTextOut( WriteIf(L[ i ], "Buy Above: "+L[ i ],""), 13, y-140);
  GfxSetTextColor( colorGold );    
  GfxTextOut( WriteIf(BuyStop2, "Long SL: "+(BuyStop2),""), 13, y-120);
  GfxSetTextColor( colorWhite );    
  GfxTextOut( WriteIf(BuyTP1, "Buy TGT1: "+(BuyTP3),""), 13,y- 100);
  GfxTextOut( WriteIf(BuyTP2, "Buy TGT2: "+(BuyTP2),""), 13,y- 80); 
  GfxTextOut( WriteIf(BuyTP3, "BuyTGT3: "+(BuyTP1),""), 13,y- 60);   
  GfxSetTextColor( colorViolet );    
  GfxTextOut( ("Current P/L : " + WriteVal(IIf(Buy ,(C-BuyPrice),(C-BuyPrice)),2.2)), 88, y-22);
 GfxTextOut( ("Buy  Signal came " + (BarCount-bars +1) * Interval()/2 + " mins ago"), 13, y-40) ;   
GfxTextOut
( ("" + WriteIf (buyach1, " Done: "+BuyTP3,"")), 160, y-100);
GfxTextOut
( ("" + WriteIf (buyach2, " Done: "+BuyTP2,"")), 160, y-80);
GfxTextOut
( ("" + WriteIf (buyach3, " Done: "+BuyTP1,"")), 160, y-60);        
       // END of Signal Display Panel //
   }
   if( Sell[i] )
   {
       // PlotText( "Sell:" + H[ i ] + "\nT= " + (H[i]*0.995) + "\nSL= " + (H[i]*1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite );
       
       // Signal Display Panel //
       SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,H[ i ]);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
      SellStop2 = H[i]*1.0025;
       SellTP1 = H[i]*0.978;
       SellTP2 = H[i]*0.982;
       SellTP3 = H[i]*0.988;
sellach1 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP3 , 0);
sellach2 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP2, 0);
sellach3 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < SellTP1, 0);

       GfxSelectFont( "Tahoma", 13, 100 );
       GfxSetOverlayMode( mode = 0 );
       GfxSelectPen( colorRed, 3 );
       GfxSelectSolidBrush( colorRed );
        GfxRoundRect( x, y - 163, x2, y , 7, 7 ) ;
       
       GfxTextOut( (" "),27,y-160);
       GfxSetBkMode(1);
       GfxSelectFont( "Arial", 10, 700, False );
       GfxSetTextColor( colorWhite );
       GfxSetTextAlign(0);
       GfxSelectFont( "Tahoma", 13, 100 );
       GfxSetTextColor( colorGold );      
       GfxTextOut( ( " Trading System "),73,y-165);
       GfxSetTextColor( colorWhite ); 
      GfxTextOut( WriteIf(H[ i ], "Sell Below: "+H[ i ],""), 13, y-140);
      GfxSetTextColor( colorGold );     
      GfxTextOut( WriteIf(SellStop2, "Short SL: "+(SellStop2),""), 13, y-120);     
      GfxSetTextColor( colorBlue );   
      GfxTextOut( WriteIf(SellTP1, "Short TGT1: "+(SellTP3),""), 13, y-100);
      GfxTextOut( WriteIf(SellTP2, "Short TGT2: "+(SellTP2),""), 13, y-80);
      GfxTextOut( WriteIf(SellTP3, "Short TGT3: "+(SellTP1),""), 13, y-60);
      GfxSetTextColor( colorGold );
      GfxTextOut( ("Current P/L : " + WriteVal(IIf(Sell ,(SellPrice-C),(SellPrice-C)),2.2)), 88, y-22);
       GfxTextOut( ("sell Signal came " + (BarCount-bars +1) * Interval()/2 + " mins ago"), 13, y-40) ;    
      GfxTextOut
( ("" + WriteIf (sellach1, "  Done: "+SellTP3,"")), 160, y-100);
GfxTextOut
( ("" + WriteIf (sellach2, "  Done: "+SellTP2,"")), 160, y-80);
GfxTextOut
( ("" + WriteIf (sellach3, "  Done: "+SellTP1,"")), 160, y-60);
// END of Signal Display Panel //
   }}}



Long=Flip(Buy,Sell); 
Shrt=Flip(Sell,Buy); 

BuyPrice=ValueWhen(Buy,C);
SellPrice=ValueWhen(Sell,C);


Edc=(
WriteIf (Buy AND Ref(shrt,-1), " BUY @ "+C+"  ","")+ 
WriteIf (Sell AND Ref(Long,-1), " SEll @ "+C+"  ","")+
WriteIf(Sell , "Last Trade Profit Rs."+(C-BuyPrice)+"","")+
WriteIf(Buy  , "Last Trade Profit Rs."+(SellPrice-C)+"",""));

//============== TITLE ==============
_SECTION_BEGIN("Title");
no=Param( "Swing", 6, 1, 55 );
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);
tsl=IIf(avn==1,sup,res);
dec = (Param("Decimals",2,0,7,1)/10)+1;
if( Status("action") == actionIndicator ) 
(
Title = EncodeColor(55)+  Title = Name() + "     " + EncodeColor(32) + Date() +
"      " + EncodeColor(5) + "{{INTERVAL}}  " +
EncodeColor(55)+ "     Open = "+ EncodeColor(52)+ WriteVal(O,dec) + 
EncodeColor(55)+ "     High = "+ EncodeColor(5) + WriteVal(H,dec) +
EncodeColor(55)+ "      Low = "+ EncodeColor(32)+ WriteVal(L,dec) + 
EncodeColor(55)+ "    Close = "+ EncodeColor(52)+ WriteVal(C,dec)+
EncodeColor(55)+ "    Volume = "+ EncodeColor(52)+ WriteVal (V ,1.25)




+"\n"+EncodeColor(colorBrightGreen)+

WriteIf (Buy , "Signal: Go Long - Entry Price: "+WriteVal(C)+" - Traget: "+WriteVal((BuyPrice-tsl)+BuyPrice)

+" - StopLoss:"+WriteVal(tsl)+"  "

,"")+

"\n"+EncodeColor(colorRed)+
WriteIf (Sell , "Signal: Go Short - Entry Price: "+WriteVal(C)+" - Target: "+WriteVal((tsl-SellPrice)-SellPrice)+" - StopLoss:"+WriteVal(tsl)+" ","")+
EncodeColor(colorTurquoise)+
WriteIf(Long AND NOT Buy, "Trade: Long - Entry Price: "+WriteVal((BuyPrice))+" - Profit: "+WriteVal((C-BuyPrice))+" "+EncodeColor(colorLime)+"Let your profit runs!","")+
EncodeColor(colorLightOrange)+
WriteIf(shrt AND NOT Sell, "Trade: Short - Entry Price: "+WriteVal((SellPrice))+" - Profit: "+WriteVal((SellPrice-C))+"  - "+EncodeColor(colorLime)+"Let your profit runs!","")


);
_SECTION_END();


if (messageboard == 0 )
{
if( Status("action") == actionIndicator ) 
(

Title = EncodeColor(55)+  Title = Name() +
"      " + EncodeColor(5) + "{{INTERVAL}}  " + EncodeColor(colorSkyblue) +
"   " + Date() +"  "+"\n" +EncodeColor(55) +"Open-"+EncodeColor(52)+O+EncodeColor(55)+" High-"+EncodeColor(5)+H+"  "+EncodeColor(55)+"Low-"+EncodeColor(32)+L+"  "+EncodeColor(55)+"Close-"+EncodeColor(52)+C+"  "+EncodeColor(55)+ "Volume= "+EncodeColor(52)+ WriteVal(V)+"\n"+"\n"+ 

EncodeColor(colorLime)+
WriteIf (Buy, "Action: Go Long At "+C+" - SL " +DTSL,"")+
WriteIf (Short, "Action: Go Short At "+C+" - SL " +DTSL,"")+
WriteIf(Long AND NOT Buy, "Action : Long Taken At "+(BuyPrice)+" - Trail SL @ " + DTSL + "","")+
WriteIf(shrt AND NOT Sell, "Action : Short Taken At "+(SellPrice)+" - Trail SL @ " + DTSL + "","")+
WriteIf (Sell AND NOT Short, "Exit Long At "+C,"")+
WriteIf (Cover AND NOT Buy, "Exit Short At "+C,"")+
WriteIf(NOT Long AND NOT Buy AND NOT shrt AND NOT Sell, "Action: Not In A Trade - RELAX!!!","")+"\n"+ 
WriteIf(Long AND NOT Buy, "Profit/Loss: "+(C-BuyPrice)+" Points","")+
WriteIf(shrt AND NOT Sell, "Profit/Loss: "+(SellPrice-C)+" Points","")+"\n"+
WriteIf(Long OR Buy OR Shrt OR Short, "Target 1: "+tar1,"")+"\n"+
WriteIf(Long OR Buy OR Shrt OR Short, "Target 2: "+tar2,"")+"\n"+
WriteIf(Long OR Buy OR Shrt OR Short, "Target 3: "+tar3,"")+"\n"+
WriteIf(buyach1, "Target 1 Done: "+tar1,"")+
WriteIf(sellach1, "Target 1 Done: "+tar1,"")+"\n"+
WriteIf(buyach2, "Target 2 Done: "+tar2,"")+
WriteIf(sellach2, "Target 2 Done: "+tar2,"")+"\n"+
WriteIf(buyach3, "Target 3 Done: "+tar3,"")+
WriteIf(sellach3, "Target 3 Done: "+tar3,""));
}
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] )
{

OUTcolor = ParamColor("Outer Panel Color",colorTeal);
INUPcolor = ParamColor("Inner Panel Upper",colorDarkGrey);
INDNcolor = ParamColor("Inner Panel Lower",colorDarkOliveGreen);
TitleColor = ParamColor("Title Color ",colorBlack);
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
if( Sell[i] )
{
OUTcolor = ParamColor("Outer Panel Color",colorTeal);
INUPcolor = ParamColor("Inner Panel Upper2",colorDarkTeal);
INDNcolor = ParamColor("Inner Panel Lower2",colorPlum);
TitleColor = ParamColor("Title Color ",colorBlack);
SetChartBkColor(OUTcolor); // color of outer border
SetChartBkGradientFill(INUPcolor,INDNcolor,TitleColor); // color of inner panel
}
}

     

     

     

    but what are your buy/sell conditions ?

     

    pivots cant be your buy/sell point ...its future looking...

     

     

    ohh ok, Thanks..

     

    can you add this msg box in that afl,

    cause i don't know how to do that?

  10. Anyone Can Add BUY SELL definitions in AFL?

    in Trading Systems and Strategies

    Posted

    i want a messagebox into this Amibroker formula file if anyone can add :) Thanks in advance

     

     

     

    _SECTION_BEGIN("PIVOT FINDER");

    // /* **********************************

    //

    // Code to automatically identify pivots

    //

    // ********************************** */

    //

    // // -- what will be our lookback range for the hh and ll?

    //

    // farback=Param("How Far back to go",100,50,5000,10);

    //

    // nBars = Param("Number of bars", 12, 5, 40);

    //

    // // -- Title.

    //

    // Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",

    //

    // H: " + High + ", L: " + Low + ", C: " + Close;

    //

    // // -- Plot basic candle chart

    //

    // PlotOHLC(Open, High, Low, Close,

    //

    // "BIdx = " + BarIndex() +

    //

    // "\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L

    //

    // + "\n"+"C ",

    //

    // colorBlack, styleCandle);

    //

    // GraphXSpace=7;

    //

    // // -- Create 0-initialized arrays the size of barcount

    //

    // aHPivs = H - H;

    //

    // aLPivs = L - L;

    //

    // // -- More for future use, not necessary for basic plotting

    //

    // aHPivHighs = H - H;

    //

    // aLPivLows = L - L;

    //

    // aHPivIdxs = H - H;

    //

    // aLPivIdxs = L - L;

    //

    // nHPivs = 0;

    //

    // nLPivs = 0;

    //

    // lastHPIdx = 0;

    //

    // lastLPIdx = 0;

    //

    // lastHPH = 0;

    //

    // lastLPL = 0;

    //

    // curPivBarIdx = 0;

    //

    // // -- looking back from the current bar, how many bars

    //

    // // back were the hhv and llv values of the previous

    //

    // // n bars, etc.?

    //

    // aHHVBars = HHVBars(H, nBars);

    //

    // aLLVBars = LLVBars(L, nBars);

    //

    // aHHV = HHV(H, nBars);

    //

    // aLLV = LLV(L, nBars);

    //

    // // -- Would like to set this up so pivots are calculated back from

    //

    // // last visible bar to make it easy to "go back" and see the pivots

    //

    // // this code would find. However, the first instance of

    //

    // // _Trace output will show a value of 0

    //

    // aVisBars = Status("barvisible");

    //

    // nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

    //

    // _TRACE("Last visible bar: " + nLastVisBar);

    //

    // // -- Initialize value of curTrend

    //

    // curBar = (BarCount-1);

    //

    // curTrend = "";

    //

    // if (aLLVBars[curBar] <

    //

    // aHHVBars[curBar]) {

    //

    // curTrend = "D";

    //

    // }

    //

    // else {

    //

    // curTrend = "U";

    //

    // }

    //

    // // -- Loop through bars. Search for

    //

    // // entirely array-based approach

    //

    // // in future version

    //

    // for (i=0; i<farback; i++) {

    //

    // curBar = (BarCount - 1) - i;

    //

    // // -- Have we identified a pivot? If trend is down...

    //

    // if (aLLVBars[curBar] < aHHVBars[curBar]) {

    //

    // // ... and had been up, this is a trend change

    //

    // if (curTrend == "U") {

    //

    // curTrend = "D";

    //

    // // -- Capture pivot information

    //

    // curPivBarIdx = curBar - aLLVBars[curBar];

    //

    // aLPivs[curPivBarIdx] = 1;

    //

    // aLPivLows[nLPivs] = L[curPivBarIdx];

    //

    // aLPivIdxs[nLPivs] = curPivBarIdx;

    //

    // nLPivs++;

    //

    // }

    //

    // // -- or current trend is up

    //

    // } else {

    //

    // if (curTrend == "D") {

    //

    // curTrend = "U";

    //

    // curPivBarIdx = curBar - aHHVBars[curBar];

    //

    // aHPivs[curPivBarIdx] = 1;

    //

    // aHPivHighs[nHPivs] = H[curPivBarIdx];

    //

    // aHPivIdxs[nHPivs] = curPivBarIdx;

    //

    // nHPivs++;

    //

    // }

    //

    // // -- If curTrend is up...else...

    //

    // }

    //

    // // -- loop through bars

    //

    // }

    //

    // // -- Basic attempt to add a pivot this logic may have missed

    //

    // // -- OK, now I want to look at last two pivots. If the most

    //

    // // recent low pivot is after the last high, I could

    //

    // // still have a high pivot that I didn't catch

    //

    // // -- Start at last bar

    //

    // curBar = (BarCount-1);

    //

    // candIdx = 0;

    //

    // candPrc = 0;

    //

    // lastLPIdx = aLPivIdxs[0];

    //

    // lastLPL = aLPivLows[0];

    //

    // lastHPIdx = aHPivIdxs[0];

    //

    // lastHPH = aHPivHighs[0];

    //

    // if (lastLPIdx > lastHPIdx) {

    //

    // // -- Bar and price info for candidate pivot

    //

    // candIdx = curBar - aHHVBars[curBar];

    //

    // candPrc = aHHV[curBar];

    //

    // if (

    //

    // lastHPH < candPrc AND

    //

    // candIdx > lastLPIdx AND

    //

    // candIdx < curBar) {

    //

    // // -- OK, we'll add this as a pivot...

    //

    // aHPivs[candIdx] = 1;

    //

    // // ...and then rearrange elements in the

    //

    // // pivot information arrays

    //

    // for (j=0; j<nHPivs; j++) {

    //

    // aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-

    //

    // (j+1)];

    //

    // aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];

    //

    // }

    //

    // aHPivHighs[0] = candPrc ;

    //

    // aHPivIdxs[0] = candIdx;

    //

    // nHPivs++;

    //

    // }

    //

    // } else {

    //

    // // -- Bar and price info for candidate pivot

    //

    // candIdx = curBar - aLLVBars[curBar];

    //

    // candPrc = aLLV[curBar];

    //

    // if (

    //

    // lastLPL > candPrc AND

    //

    // candIdx > lastHPIdx AND

    //

    // candIdx < curBar) {

    //

    // // -- OK, we'll add this as a pivot...

    //

    // aLPivs[candIdx] = 1;

    //

    // // ...and then rearrange elements in the

    //

    // // pivot information arrays

    //

    // for (j=0; j<nLPivs; j++) {

    //

    // aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

    //

    // aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

    //

    // }

    //

    // aLPivLows[0] = candPrc;

    //

    // aLPivIdxs[0] = candIdx;

    //

    // nLPivs++;

    //

    // }

    //

    // }

    //

    // // -- Dump inventory of high pivots for debugging

    //

    // /*

    //

    // for (k=0; k<nHPivs; k++) {

    //

    // _TRACE("High pivot no. " + k

    //

    // + " at barindex: " + aHPivIdxs[k] + ", "

    //

    // + WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

    //

    // DateTime(), 1), formatDateTime)

    //

    // + ", " + aHPivHighs[k]);

    //

    // }

    //

    // */

    //

    // // -- OK, let's plot the pivots using arrows

    //

    // PlotShapes(

    //

    // IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

    //

    // High, Offset=-15);

    //

    // PlotShapes(

    //

    // IIf(aLPivs==1, shapeUpArrow , shapeNone), colorGreen, 0,

    //

    // Low, Offset=-15);

    //

    //------------------------------------------------------------------------------

     

    /* **********************************

     

    Code to automatically identify pivots

     

    ********************************** */

     

    // -- what will be our lookback range for the hh and ll?

    farback=Param("How Far back to go",100,50,5000,10);

    nBars = Param("Number of bars", 12, 5, 40);

     

    // -- Title.

     

    Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",

     

    H: " + High + ", L: " + Low + ", C: " + Close;

     

    // -- Plot basic candle chart

     

    PlotOHLC(Open, High, Low, Close,

     

    "BIdx = " + BarIndex() +

     

    "\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L

     

    + "\n"+"C ",

     

    colorBlack, styleCandle);

     

    GraphXSpace=7;

     

    // -- Create 0-initialized arrays the size of barcount

     

    aHPivs = H - H;

     

    aLPivs = L - L;

     

    // -- More for future use, not necessary for basic plotting

     

    aHPivHighs = H - H;

     

    aLPivLows = L - L;

     

    aHPivIdxs = H - H;

     

    aLPivIdxs = L - L;

     

    nHPivs = 0;

     

    nLPivs = 0;

     

    lastHPIdx = 0;

     

    lastLPIdx = 0;

     

    lastHPH = 0;

     

    lastLPL = 0;

     

    curPivBarIdx = 0;

     

    // -- looking back from the current bar, how many bars

     

    // back were the hhv and llv values of the previous

     

    // n bars, etc.?

     

    aHHVBars = HHVBars(H, nBars);

     

    aLLVBars = LLVBars(L, nBars);

     

    aHHV = HHV(H, nBars);

     

    aLLV = LLV(L, nBars);

     

    // -- Would like to set this up so pivots are calculated back from

     

    // last visible bar to make it easy to "go back" and see the pivots

     

    // this code would find. However, the first instance of

     

    // _Trace output will show a value of 0

     

    aVisBars = Status("barvisible");

     

    nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

     

    _TRACE("Last visible bar: " + nLastVisBar);

     

    // -- Initialize value of curTrend

     

    curBar = (BarCount-1);

     

    curTrend = "";

     

    if (aLLVBars[curBar] <

     

    aHHVBars[curBar]) {

     

    curTrend = "D";

     

    }

     

    else {

     

    curTrend = "U";

     

    }

     

    // -- Loop through bars. Search for

     

    // entirely array-based approach

     

    // in future version

     

    for (i=0; i<farback; i++) {

     

    curBar = (BarCount - 1) - i;

     

    // -- Have we identified a pivot? If trend is down...

     

    if (aLLVBars[curBar] < aHHVBars[curBar]) {

     

    // ... and had been up, this is a trend change

     

    if (curTrend == "U") {

     

    curTrend = "D";

     

    // -- Capture pivot information

     

    curPivBarIdx = curBar - aLLVBars[curBar];

     

    aLPivs[curPivBarIdx] = 1;

     

    aLPivLows[nLPivs] = L[curPivBarIdx];

     

    aLPivIdxs[nLPivs] = curPivBarIdx;

     

    nLPivs++;

     

    }

     

    // -- or current trend is up

     

    } else {

     

    if (curTrend == "D") {

     

    curTrend = "U";

     

    curPivBarIdx = curBar - aHHVBars[curBar];

     

    aHPivs[curPivBarIdx] = 1;

     

    aHPivHighs[nHPivs] = H[curPivBarIdx];

     

    aHPivIdxs[nHPivs] = curPivBarIdx;

     

    nHPivs++;

     

    }

     

    // -- If curTrend is up...else...

     

    }

     

    // -- loop through bars

     

    }

     

    // -- Basic attempt to add a pivot this logic may have missed

     

    // -- OK, now I want to look at last two pivots. If the most

     

    // recent low pivot is after the last high, I could

     

    // still have a high pivot that I didn't catch

     

    // -- Start at last bar

     

    curBar = (BarCount-1);

     

    candIdx = 0;

     

    candPrc = 0;

     

    lastLPIdx = aLPivIdxs[0];

     

    lastLPL = aLPivLows[0];

     

    lastHPIdx = aHPivIdxs[0];

     

    lastHPH = aHPivHighs[0];

     

    if (lastLPIdx > lastHPIdx) {

     

    // -- Bar and price info for candidate pivot

     

    candIdx = curBar - aHHVBars[curBar];

     

    candPrc = aHHV[curBar];

     

    if (

     

    lastHPH < candPrc AND

     

    candIdx > lastLPIdx AND

     

    candIdx < curBar) {

     

     

    // -- OK, we'll add this as a pivot...

     

    aHPivs[candIdx] = 1;

     

    // ...and then rearrange elements in the

     

    // pivot information arrays

     

    for (j=0; j<nHPivs; j++) {

     

    aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-

     

    (j+1)];

     

    aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];

     

    }

     

    aHPivHighs[0] = candPrc ;

     

    aHPivIdxs[0] = candIdx;

     

    nHPivs++;

     

    }

     

    } else {

     

     

    // -- Bar and price info for candidate pivot

     

    candIdx = curBar - aLLVBars[curBar];

     

    candPrc = aLLV[curBar];

     

    if (

     

    lastLPL > candPrc AND

     

    candIdx > lastHPIdx AND

     

    candIdx < curBar) {

     

     

    // -- OK, we'll add this as a pivot...

     

    aLPivs[candIdx] = 1;

     

    // ...and then rearrange elements in the

     

    // pivot information arrays

     

    for (j=0; j<nLPivs; j++) {

     

    aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

     

    aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

     

    }

     

    aLPivLows[0] = candPrc;

     

    aLPivIdxs[0] = candIdx;

     

    nLPivs++;

     

    }

     

    }

     

    // -- Dump inventory of high pivots for debugging

     

    /*

     

    for (k=0; k<nHPivs; k++) {

     

    _TRACE("High pivot no. " + k

     

    + " at barindex: " + aHPivIdxs[k] + ", "

     

    + WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

     

    DateTime(), 1), formatDateTime)

     

    + ", " + aHPivHighs[k]);

     

    }

     

    */

     

    // -- OK, let's plot the pivots using arrows

     

    PlotShapes(

     

    IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

     

    High, Offset=-15);

     

    PlotShapes(

     

    IIf(aLPivs==1, shapeUpArrow , shapeNone), colorGreen, 0,

     

    Low, Offset=-15);

     

    _SECTION_END();

  12. Amibroker 5.60.2

    in Trading Platforms

    Posted

    Hi, abhishek72457.

    I'm new by here. I've heard that you could give the solution to get Amibroker with Amiquote working fine.

    Please, would you be so kind sending it to my e-mail? This is: [email protected]

    I appreciate your help,

    Regards

    Sorry Dear You heard something wrong about me,

    i don't give Amiquote ,

    i am just giving amibroker software which has saving database facility, if you want it get it from blog, and if you want to use Amiquote then go for buy from official website.

  18. Amibroker 5.60.2

    in Trading Platforms

    Posted

    Tried downloading Ami 5.60 with crack from the link. everytime it is taking me to a video converter download.

    If you can please send the link to [email protected]. I am presently using 5.4 without any data feeder etc. just for post time analysis with half the features disabled. Need your help.

     

    check your email.

    latest version with crack in your inbox.

  24. Amibroker 5.60.2

    in Trading Platforms

    Posted

    hi NIFTY MOVER, I DON'T FEAR ABOUT UR WARNING...OR BAN FROM FORUM, U R NOT A MODERATOR OR SPONSOR...

    KEEP IN UR MIND , WHAT HE DOING IN FORUM..?

    HOW MANY PEOPLES ARE WARNING HIM..?

     

     

    if we r a barking dogs , but not a street dog like u.. without .....

    .

     

    you too watch... how many people thanking you? 6 thanked in 5 posts.. lol... and may be all are from your frnds...

    i got thanked 9 in only 2 posts... 8 people thanked in first post... which has link of blog..

    and now watch what are you doing??? you are doing nothing.. only fighting wid members... this forum is not for fighting with members...

About us

Indo-Investasi.com, is since 2008, one of the prime online destinations for information and discussion about forex trading, and online investments.

Share your experiences, find tools and learning materials, seek help, and make friends. More About us.

Indo-Investasi Community

Important Pages

Financial Disclaimer: Trading FOREX on margin carries a high level of risk, and may not be suitable for everyone. Past performance is not a guarantee of future results. The high degree of leverage can work against you as well as for you. Before deciding to invest in foreign exchange you should carefully consider your investment objectives, level of experience, and risk appetite. The possibility exists that you could sustain a loss of some or all of your initial investment and therefore you should not invest money that you cannot afford to lose. Please see our Terms & Conditions for more information.
×
×
  • Create New...