Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 44 views

    Best SuperTrend 4.afl

    Uploaded by

    udhaya kumar
    This document contains code to generate a technical analysis chart and indicators for a financial instrument. It includes: 1. Setting up the chart with gradient fill and formatting the title. 2. Plotting OHLC data and applying moving averages. 3. Calculating indicators like ATR and applying them to determine buy/sell signals. 4. Plotting additional indicators like EMA crossover signals. 5. Applying the signals to generate buy/sell alerts and shape overlays on the chart.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    Best SuperTrend 4.afl

    Uploaded by

    udhaya kumar
    44 views3 pages
    This document contains code to generate a technical analysis chart and indicators for a financial instrument. It includes: 1. Setting up the chart with gradient fill and formatting the title. 2. Plotting OHLC data and applying moving averages. 3. Calculating indicators like ATR and applying them to determine buy/sell signals. 4. Plotting additional indicators like EMA crossover signals. 5. Applying the signals to generate buy/sell alerts and shape overlays on the chart.

    Original Description:

    AFL

    Original Title

    Best SuperTrend 4.Afl

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains code to generate a technical analysis chart and indicators for a financial instrument. It includes: 1. Setting up the chart with gradient fill and formatting the title. 2. Plotting OHLC data and applying moving averages. 3. Calculating indicators like ATR and applying them to determine buy/sell signals. 4. Plotting additional indicators like EMA crossover signals. 5. Applying the signals to generate buy/sell alerts and shape overlays on the chart.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    44 views3 pages

    Best SuperTrend 4.afl

    Uploaded by

    udhaya kumar
    This document contains code to generate a technical analysis chart and indicators for a financial instrument. It includes: 1. Setting up the chart with gradient fill and formatting the title. 2. Plotting OHLC data and applying moving averages. 3. Calculating indicators like ATR and applying them to determine buy/sell signals. 4. Plotting additional indicators like EMA crossover signals. 5. Applying the signals to generate buy/sell alerts and shape overlays on the chart.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    of 3

    SetChartBkGradientFill( ParamColor( "TopColor", ColorRGB( 217, 197, 137 ) ),

    ParamColor( "BottomColor", ColorRGB( 254, 244, 224 ) ) );


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

    _SECTION_BEGIN("BHS");
    SetBarsRequired(200,0);

    GraphXSpace = 5;
    SetChartOptions(0,chartShowArrows|chartShowDates);
    k = Optimize("K",Param("K",1,0.25,5,0.25),0.25,5,0.25);
    Per= Optimize("atr",Param("atr",4,3,20,1),3,20,1);
    HACLOSE=(O+H+L+C)/4;
    HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
    HaHigh = Max( H, Max( HaClose, HaOpen ) );
    HaLow = Min( L, Min( HaClose, HaOpen ) );
    PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorGreen, styleCandle |
    styleNoLabel );
    j=Haclose;

    //=========================Indicator======================
    f=ATR(14);
    rfsctor = WMA(H-L, Per);
    revers = k * rfsctor;
    Trend = 1;
    NW[0] = 0;
    for(i = 1; i < BarCount; i++)
    {
    if(Trend[i-1] == 1)
    {
    if(j[i] < NW[i-1])
    {
    Trend[i] = -1;
    NW[i] = j[i] + Revers[i];
    }
    else
    {
    Trend[i] = 1;
    if((j[i] - Revers[i]) > NW[i-1])
    {
    NW[i] = j[i] - Revers[i];
    }
    else
    {
    NW[i] = NW[i-1];
    }
    }
    }
    if(Trend[i-1] == -1)
    {
    if(j[i] > NW[i-1])
    {
    Trend[i] = 1;
    NW[i] = j[i] - Revers[i];
    }
    else
    {
    Trend[i] = -1;
    if((j[i] + Revers[i]) < NW[i-1])
    {
    NW[i] = j[i] + Revers[i];
    }
    else
    {
    NW[i] = NW[i-1];
    }
    }
    }
    }

    //===============system================

    _SECTION_BEGIN("ema5,13sound");
    x = EMA(Close,5);
    y = EMA(Close,13);
    Plot(EMA(Close,5),"",colorBlue,styleLine, styleThick);
    Plot(EMA(Close,13),"",colorRed,styleLine, styleThick);
    XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(Close,13) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);

    Buy=Cross(j,nw);
    Cover=Cross(j,nw);
    Sell=Cross(nw,j);
    Short=Cross(nw,j);
    SellPrice=ValueWhen(Sell,C,1);
    BuyPrice=ValueWhen(Buy,C,1);
    Long=Flip(Buy,Sell);
    Shrt=Flip(Sell,Buy );
    _SECTION_END();
    //=================TITLE===========================================================
    =====================================
    _SECTION_BEGIN("Title");
    if( Status("action") == actionIndicator )
    (
    Title = EncodeColor(colorRed)+ "BHS" + " - " + Name() + " - " +
    EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorRed) +
    " - " + Date() +" - "+"\n" +EncodeColor(colorYellow) +"Op-"+O+" "+"Hi-"+H+"
    "+"Lo-"+L+" "+
    "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+
    EncodeColor(colorRed)+
    WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
    WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")
    +"\n"+EncodeColor(colorRed)+
    WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
    WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
    WriteIf(Long AND NOT Buy, "Trade : Long - Entry price Rs."+(BuyPrice),"")+
    WriteIf(shrt AND NOT Sell, "Trade : Short - Entry price Rs."+(SellPrice),"")+"\n"+
    WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
    WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
    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(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
    PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);

    PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);


    PlotShapes(IIf(Cover, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-30);
    PlotShapes(IIf(Cover, shapeSquare, shapeNone),colorLime, 0,L, Offset=-40);

    PlotShapes(IIf(Cover, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-35);


    PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
    PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);

    PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);


    AlertIf( Ref(Buy,-1), "SOUND C:\\Windows\\Media\\Windows XP Startup.wav", "Buy",
    2 );
    AlertIf( Ref(Sell,-1), "SOUND C:\\Windows\\Media\\Ringin.wav", "Sell", 2 );
    _SECTION_END();

    You might also like