1. Welcome to the international stock forum - forex forum ! Chào mừng đến với diễn đàn quốc tế chứng khoán - forex ! www.Traders.vn
    Dismiss Notice

Hybrid Support and Resistance for Amibroker

Thảo luận trong 'Amibroker' bắt đầu bởi traders, 26/6/17.

  1. traders

    traders Administrator Thành viên BQT

    Tham gia ngày:
    29/4/17
    Bài viết:
    110
    Đã được thích:
    1
    Điểm thành tích:
    18
    Kháng cự và hỗ trợ

    Màu xanh lá cây và màu đỏ thay thế cho mũi tên lên xuống

    dưới đay là code : Hybrid Support and Resistance for Amibroker.png


    -------------------------------------------------------
    //--------------------------------------------------------------//
    // Kenzie SR System - 09/2010
    // Modified By Kenzie Sebastian (kenziesr@yahoo.co.id)
    // Modified By vargaso_s@yahoo.com
    //--------------------------------------------------------------

    // Heikin Ashi - Calculated Properly with no use of AMA
    _SECTION_BEGIN("HA Looping ( no AMA() )");

    HaClose[0] = (Open[0]+High[0]+Low[0]+Close[0]) / 4;
    HaOpen[0] = (HaClose[0] + Open[0]) / 2;
    HaHigh[0] = Max( High[0], Max( HaClose[0], HaOpen[0] ) );
    HaLow[0] = Min( Low[0], Min( HaClose[0], HaOpen[0] ) );

    for (i=1; i<BarCount; i++)
    {
    HaClose = (Open+High+Low+Close) / 4;
    Haopen = (HaClose[i-1] + HaOpen[i-1]) / 2; // Here is the problem when using Arrays: Haopen always uses its own previous value
    HaHigh = Max( High, Max( HaClose, HaOpen ) );
    Halow = Min( Low, Min( HaClose, HaOpen ) );
    }
    //PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "HA", colorOrange, styleCandle );

    _SECTION_END();
    // Heikin Ashi - Calculated Properly with no use of AMA


    TrailStop = HHV( C - 2 * ATR( 10 ), 15 );
    ProfitTaker = EMA( H, 13 ) + 2 * ATR( 10 );

    /* **********************************
    Code to automatically identify pivots
    ********************************** */


    // -- what will be our lookback range for the hh and ll?
    farback = 140; //How Far back to go
    nBars = 12; //Number of bars


    // -- 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 < BarCount; 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++;
    }
    }

    //============== EXPLORATION ==============
    Buy = Cover = aLPivs == 1;
    Sell = Short = aHPivs == 1;
    SellPrice = ValueWhen( Sell, C, 1 );
    BuyPrice = ValueWhen( Buy, C, 1 );
    Long = Flip( Buy, Sell );
    Shrt = Flip( Sell, Buy );

    // volume spike ( check stocks whose volume for the day is at least 10% greater than its 30 day ave volume )
    Volume_to = Sum(Volume, 31);
    Volume_to = Volume_to - Volume;
    Volume30 = Volume_to / 30;
    percentage = ( abs( Volume30 - Volume ) ) / Volume30;
    percentage = percentage * 100;
    Filter = Volume > Volume30 AND percentage > 10;
    // volume spike
    Filter=Buy OR Sell;
    Sell=ExRem(Sell,Buy); Buy=ExRem(Buy,Sell);
    AddColumn(Buy,"Buy");
    AddColumn(Sell,"Sell");
    AddColumn(V*C, "Value");
    AddColumn(BuyPrice,"BuyPrice", 1.4);
    AddColumn(SellPrice,"SellPrice", 1.4);
    AddColumn(O, "Opening");
    AddColumn(H, "High");
    AddColumn(L, "Low");
    AddColumn(C, "Close");
    AddColumn(Volume30,"Ave 30 days Volume", 1, colorBlue);
    AddColumn(Volume,"Volume Today", 1, colorBlue);
    AddColumn(Percentage," % Increase", 1.2, colorBlue);

    //============== Plot price ==============
    n = 15;


    a = C > ( MA( H, n ) + MA( L, n ) ) / 2;// then Buy next bar at market;


    b = C < ( MA( H, n ) + MA( L, n ) ) / 2;// then Sell Short next bar at market;


    state = IIf( BarsSince( a ) < BarsSince( b ), 1, 0 );


    Longs = state == 1;


    shorts = state == 0;


    //Chart
    Colorbar = IIf( Longs, colorGreen, IIf( Shorts, colorRed, colorGrey40 ) );
    Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

    //Plot( C, "Close", colorbar, styleNoLine, styleNoTitle );
    // ================= Rasheed's original code (with Lookback and Shift default set to his specs) =================

    H0 = H;
    L0 = L;
    C0 = C;
    O0 = O;

    Lookback = Param("LookBack", 10, 10, 50, 1); // Default for interday commodity currency trading
    shift = Param("Shift", 5, 1, 50, 1); // ?
    x0 = LastValue(Cum(1));
    x1 = x0 - shift;
    H = Ref(H, - shift + 1);
    L = Ref(L, - shift + 1);
    H1 = LastValue(Ref(HHV(H, Lookback), - 1));
    L1 = LastValue(Ref(LLV(L, Lookback), - 1));

    Plot(H1, "H1", colorYellow);
    Plot(L1, "L1", colorYellow);

    H = H0;
    L = L0;
    C = C0;
    O = O0;

    up = Cross(H, H1)AND Cum(1) > x1;
    dn = Cross(L1, L)AND Cum(1) > x1;
    // ================= Rasheed's original code (with Lookback and Shift default set to his specs) =================

    //============== Plot Shape (BUY/SELL SIGNAL) ==============
    PlotShapes( IIf( aHPivs == 1, shapeDigit5, shapeNone ), colorRed, 0, High, Offset = 30 );
    PlotShapes( IIf( aLPivs == 1, shapeDigit3 , shapeNone ), colorBrightGreen, 0, Low, Offset = -30 );
    //PlotShapes( IIf(Buy, shapeSmallCircle, shapeNone),colorWhite, 0, BuyPrice, Offset = -30 );
    //PlotShapes( IIf(Sell, shapeSmallCircle, shapeNone),colorWhite, 0 ,SellPrice, Offset = 30 );
    FirstVisibleBar = Status( "FirstVisibleBar" );
    Lastvisiblebar = Status("LastVisibleBar");
    for( b = Firstvisiblebar; b <= Lastvisiblebar AND b < BarCount; b++)
    {
    if( Buy ) PlotText("\n\n\n\n\n "+NumToStr(BuyPrice,1.4),b,BuyPrice,colorWhite);
    else if( Sell ) PlotText(NumToStr(SellPrice, 1.4),b,SellPrice,colorWhite);
    }

    //============== EMA(13) ==============
    //Plot( EMA( C, 5 ), "" , colorSkyblue + styleLine + styleNoRescale );


    //============== TRENDING ==============
    DTL = 30; // DTL = Define Trend Long


    DTM = 7; // DTM = Define Trend Medium


    DTS = 3; // DTS = Define Trend Short


    TL = LinRegSlope( MA( C, DTL ), 2 ); // TL = Trend Long


    TM = LinRegSlope( MA( C, DTM ), 2 ); // TM = Trend Medium


    TS = LinRegSlope( MA( C, DTS ), 2 ); // TS = Trend Short


    TLL = IIf( LinRegSlope( MA( C, DTL ), 2 ) > 0, True, False );


    TMM = IIf( LinRegSlope( MA( C, DTM ), 2 ) > 0, True, False );


    TSS = IIf( LinRegSlope( MA( C, DTS ), 2 ) > 0, True, False );


    //============== VOLUME ==============
    Vlp = 30; //Volume lookback period


    Vrg = MA( V, Vlp );


    St = StDev( Vrg, Vlp );


    Vp3 = Vrg + 3 * st;


    Vp2 = Vrg + 2 * st;


    Vp1 = Vrg + 1 * st;


    Vn1 = Vrg - 1 * st;


    Vn2 = Vrg - 2 * st;


    //============== WILLIAM'S %R ==============
    WR = ( ( HHV( H, 14 ) - C ) / ( HHV ( H, 14 ) - LLV ( L, 14 ) ) ) * -100;


    //============== A/D ==============
    TRH = IIf( Ref( C, -1 ) > H, Ref( C, -1 ), H );


    TRL = IIf( Ref( C, -1 ) < L, Ref( C, -1 ), L );


    ad = IIf( C > Ref( C, -1 ), C - TRL, IIf( C < Ref( C, -1 ), C - TRH, 0 ) );


    WAD = Cum( ad );


    wu = wad > Ref( wad, -1 );


    wd = wad < Ref( wad, -1 );


    //============== MACD ==============
    MB = Cross ( MACD(), Signal() );


    MS = Cross( Signal(), MACD() );


    MB = ExRem( MB, MS );


    MS = ExRem( MS, MB );


    MB1 = MACD() > Signal();


    MS1 = MACD() < Signal();


    //============== STOCH ==============
    StochKval = StochK( 10, 5 );


    StochDval = StochD( 10, 5, 5 );


    StochBuy = Cross( StochK( 10, 5 ), StochD( 10, 5, 5 ) );


    StochSell = Cross ( StochD( 10, 5, 5 ), StochK( 10, 5 ) );


    StBuy = StochK( 10, 5 ) > StochD( 10, 5, 5 );


    StSell = StochK( 10, 5 ) < StochD( 10, 5, 5 );


    //============== ADX ==============
    adxBuy = Cross( PDI( 14 ), MDI( 14 ) );


    adxSell = Cross( MDI( 14 ), PDI( 14 ) );


    adxBuy = ExRem( adxBuy, adxSell );


    adxSell = ExRem( adxSell, adxBuy );


    adxbuy1 = PDI( 14 ) > MDI( 14 );


    adxsell1 = MDI( 14 ) > PDI( 14 );


    //==============Zero Lag TMA ==============
    function ZeroLagTEMA( array, period )
    {
    TMA1 = TEMA( array, period );
    TMA2 = TEMA( TMA1, period );
    Diff = TMA1 - TMA2;
    return TMA1 + Diff ;
    }


    haClose = ( haClose + haOpen + haHigh + haLow ) / 4;


    periodtm = 55;
    ZLHa = ZeroLagTEMA( haClose, periodtm );
    ZLTyp = ZeroLagTEMA( Avg, periodtm );
    TMBuy = Cross( ZLTyp, ZLHa );
    TMSell = Cross( ZLHa, ZLTyp );
    TMBuy1 = ZLTyp > ZLHa ;
    TMSell1 = ZLHa > ZLTyp ;


    //============== ZLW ==============
    R = ( ( HHV( H, 14 ) - C ) / ( HHV ( H, 14 ) - LLV ( L, 14 ) ) ) * -100;
    MaxGraph = 10;
    PeriodZ = 10;
    EMA1 = EMA( R, PeriodZ );
    EMA2 = EMA( EMA1, 5 );
    Difference = EMA1 - EMA2;
    ZeroLagEMA = EMA1 + Difference;
    PR = 100 - abs( ZeroLagEMA );
    MoveAvg = MA( PR, 5 );
    ZBuy = Cross( PR, moveAvg ) AND PR < 30;
    ZSell = Cross( moveAvg, PR ) AND PR > 70;
    ZBuy1 = PR >= MoveAvg AND PR >= Ref( PR, -1 ) ;
    ZSell1 = ( PR < MoveAvg ) OR PR >= MoveAvg AND PR < Ref( PR, -1 ) ;


    //============== RS ==============
    p = ( H + L + C ) / 3;
    r1 = ( 2 * p ) - L;
    s1 = ( 2 * p ) - H;
    r2 = p + ( r1 - s1 );
    s2 = p - ( r2 - s1 );
    R3 = P + ( R2 - S2 );
    S3 = P - ( R3 - S2 );


    //============== IBUY ==============
    Ibuy = Cross( RSI( 14 ), EMA( RSI( 14 ), 9 ) );
    Isell = Cross( EMA( RSI( 14 ), 9 ), RSI( 14 ) );
    Ibuy = ExRem( Ibuy, ISell );
    Isell = ExRem( ISell, Ibuy );
    BlRSI = RSI( 14 ) > EMA( RSI( 14 ), 9 );
    BrRSI = RSI( 14 ) < EMA( RSI( 14 ), 9 );




    //=================Trend & Signals & Market Index ===============================
    /// Please replace "00DSEGEN" with your market index ticker and activate the codes


    /// Market Bull Bear


    Cg = Foreign("^PSEi", "C");
    Cgo= Ref(Cg,-1);


    //Longterm Bullish or Bearish
    Bullg = Cg > WMA(Cg,200);
    Bearg= Cg <WMA(Cg,200);


    //Midterm Bullish or Bearish
    mBullg = Cg >WMA(Cg,50);
    mBearg= Cg <WMA(Cg,50);


    //Shortterm Bullish or Bearish
    sBullg = Cg >WMA(Cg,15);
    sBearg= Cg <WMA(Cg,15);
    ////////////////////////////////






    xChange1=Cg - Ref(Cg,-1);
    Change1 = StrFormat("%1.2f% ",xChange1);
    barche1= xChange1>=0;
    Comche1= xChange1<0;
    xperchange1 = xChange1/100;
    perchange1 = StrFormat("%1.2f% ",xperchange1);
    positivechange1 = xperchange1>0;
    negativechange1 = xperchange1<0;


    //=================Trend & Signals & Market Index END===============================








    // VOLUME -----------------------------------------------------------------------------------
    _SECTION_BEGIN("Volume");
    Color = ParamColor("Color", ColorRGB( 128, 128, 192 ) );
    Plot( Volume, _DEFAULT_NAME(), ColorBlend( Color, GetChartBkColor(), 0.5 ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );
    _SECTION_END();
    // VOLUME -----------------------------------------------------------------------------------

    // STOCK NAME/MAGNIFIED MARKET PRICE -----------------------------------------------------------------------------------
    _SECTION_BEGIN("Stock Name");
    if (NOT ParamToggle("StockName Switch","On,Off"))
    stockname=ParamColor("Stock name color",ColorRGB(44,44,37));
    FS=Param("Font Size",36,11,100,1);
    Hor=Param("Horizontal Position",750,1,1200,1);
    Ver=Param("Vertical Position",1,1,830,1);
    YC=TimeFrameGetPrice("C",inDaily,-1);
    DD=Prec(C-YC,2);
    xx=Prec((DD/YC)*100,2);

    {
    GfxSelectFont("Time news roman", Status("pxheight")/7 );
    GfxSetTextAlign(6 );
    GfxSetOverlayMode(1);
    GfxSetTextColor(stockname);

    GfxSetBkMode(0);
    GfxTextOut(Name(),Status("pxwidth")/2, Status("pxheight")/18 );

    GfxSelectFont("Arial Narrow", 36, 700, True );
    GfxSetBkMode( colorWhite );
    GfxSetTextColor( ParamColor("Color",colorGold) );
    GfxTextOut(""+C, Hor+150 , Ver );
    GfxSelectFont("Arial Narrow", 14, 700, True );
    GfxSetBkMode( colorWhite );
    GfxSetTextColor(ParamColor("Color",colorRed) );
    GfxTextOut(""+DD+" ("+xx+"%)", Hor+150 , Ver+45);

    }
    _SECTION_END();
    // STOCK NAME/MAGNIFIED MARKET PRICE -----------------------------------------------------------------------------------



    _SECTION_BEGIN( "Special 6" );
    // Parameters

    //GraphXSpace=Param("GraphXSpace",5,-30,30,1);

    //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    of = 1;
    n = Param( "N Pivot Bars", 31, 2, 500, 1 );
    Hh = HHV( H, n );
    Ll = LLV( L, n );

    p1 = ll + ( hh - ll ) * 0.5;
    p2 = ll + ( hh - ll ) * 0.382;
    p3 = ll + ( hh - ll ) * 0.618;
    p4 = ll + ( hh - ll ) * 0.236;
    p5 = ll + ( hh - ll ) * 0.786;


    //Color1 =(ParamColor("(Highest Hi )",colorBrightGreen));
    //Plot( Hh, "p1:", Color1, styleNoLine );

    //Color2 =(ParamColor("ll + ( hh - ll ) * 0.786",colorYellow));
    //Plot( p5, "p1:", Color2, styleNoLine );

    //Color3 =(ParamColor("ll + ( hh - ll ) * 0.618",colorBlue));
    //Plot( p3, "p1:", Color3, styleNoLine );

    //Color4 =(ParamColor("ll + ( hh - ll ) * 0.5",colorBrightGreen));
    //Plot( p1, "p1:", Color4, styleNoLine );

    //Color5 =(ParamColor("ll + ( hh - ll ) * 0.382",colorRed));
    //Plot( p2, "p1:", Color5, styleNoLine );

    //Color6 =(ParamColor("ll + ( hh - ll ) * 0.236",colorLightBlue));
    //Plot( p4, "p1:", Color6, styleNoLine );

    //Color7 =(ParamColor("( ll )",colorBlack));
    //Plot( Ll, "p1:", Color7, styleNoLine );

    //Buy = Cross(L, LLV( L, n ));
    //Sell = Cross(HHV( H, n ), H);

    //PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0,L, Offset=- 5);
    //PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-15);
    //PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-10);

    //PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorDarkRed, 0,H, Offset= 5);
    //PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0,H, Offset= 15);
    //PlotShapes(IIf(Sell, shapeDownArrow,shapeNone),colorWhite, 0,H, Offset=-10);

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

    //Buy = ExRem(Buy,Sell);
    //Sell = ExRem(Sell,Buy);


    //Buy1 = Cross(C, p4) ;
    //Sell1 = Cross(p5, C) ;

    //PlotShapes(shapeSmallUpTriangle*Buy1,ColorRGB( 80,125,165), 0,L,-20);
    //PlotShapes(shapeSmallDownTriangle*Sell1,colorYellow, 0,H,-20);

    //BuyPrice1 =ValueWhen(Buy1, C,1);
    //SellPrice1=ValueWhen(Sell1, C,1);

    //Buy1 = ExRem(Buy1,Sell1);
    //Sell1 = ExRem(Sell1,Buy1);



    //Buy2 = Cross(C, p2) ;
    //Sell2 = Cross(p3, C) ;

    //PlotShapes(shapeSmallUpTriangle*Buy2,ColorRGB(230, 0, 0 ), 0,L,-20);
    //PlotShapes(shapeSmallDownTriangle*Sell2,colorBlue, 0,H,-20);

    //BuyPrice2 =ValueWhen(Buy2, C,1);
    //SellPrice2=ValueWhen(Sell2, C,1);

    //Buy2 = ExRem(Buy2,Sell2);
    //Sell2 = ExRem(Sell2,Buy2);



    //Buy3 = Cross(C, p1) ;
    //Sell3 = Cross(p1, C) ;

    //PlotShapes(shapeSmallUpTriangle*Buy3,colorBrightGreen, 0,L,-30);
    //PlotShapes(shapeSmallDownTriangle*Sell2,colorBrightGreen, 0,H,-20);

    //BuyPrice3 =ValueWhen(Buy3, C,1);
    //SellPrice3=ValueWhen(Sell3, C,1);

    //Buy3 = ExRem(Buy3,Sell3);
    //Sell3 = ExRem(Sell3,Buy3);


    /*if(SelectedValue(Buy OR Buy1 OR Buy2 OR Buy3))
    {
    StaticVarSet( "tmp", 1 );
    PlaySound("C:\\Program Files\\AmiBroker\\sound\\buy.wav");
    Say("BILI BILI BILI");
    // SetChartBkColor(ColorRGB(143,188,143));
    }
    if(SelectedValue(Sell OR Sell1 OR Sell2 OR Sell3))
    {
    StaticVarSet( "tmp", 0 );
    PlaySound("C:\\Program Files\\AmiBroker\\sound\\sell.wav");
    Say("BENTA BENTA BENTA");
    // SetChartBkColor(ColorRGB(240,128,128));
    }
    if(StaticVarGet("tmp")==1)
    {
    // SetChartBkColor(ColorRGB(143,188,143));
    }
    else
    {
    // SetChartBkColor(ColorRGB(240,128,128));
    }*/



    _SECTION_END();


    //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    //==================================================================================================================================================================================
    // ICHIMOKU
    _SECTION_BEGIN("Ichimoku");
    turn = Param( "Tenkan-Sen Line", 9, 1, 100 );
    prds = Param( "Kijun-Sen Line", 26, 1, 26, 1 );
    span = Param( "Spans Period", 52, 1, 52, 1 );
    //SetChartOptions(0,chartShowArrows|chartShowDates);

    SL = ( HHV( H, turn ) + LLV( L, turn ) ) / 2;
    TL = ( HHV( H, prds ) + LLV( L, prds ) ) / 2;
    DL = C;
    Sp1 = ( SL + TL ) / 2;
    Sp2 = ( HHV( H, span ) + LLV( L, span ) ) / 2;

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

    //Plot( C, "Close", colorBlack, styleNoTitle | GetPriceStyle() );
    //Plot( SL, "SL", colorRed, styleThick | styleNoLabel );
    //Plot( TL, "TL", colorBlue, styleThick | styleNoLabel );
    //Plot( DL, "CS", colorYellow, styleThick | styleNoLabel, Null, Null, -prds, -2 );

    color = IIf( Sp1 > Sp2, ParamColor( "Span A Color", colorLightBlue ), ParamColor( "Span B Color", colorLightBlue ) );
    //PlotOHLC ( Sp1, Sp1, Sp2, Sp2, "Cloud", Color, styleCloud | styleNoLabel, Null, Null, prds, -2 );
    MyPort = 50000;
    MyATR=ATR(7);//Enter ATR Average or use the 14 Day Moving Average of ATR
    PL = Ref(C,-26);

    //Title = Name() + " (" + StrLeft(FullName(), 10) +
    //") ATR: " + NumToStr(ATR(1), 4.2) + " ( " +
    //NumToStr((C - Ref(C, -1)), 4.2) + " / " +
    //NumToStr((((C - Ref(C, -1)) / Ref(C, -1)) * 100), 2.1) + "% ) " +
    //WriteVal( SelectedValue( DateTime() ), formatDateTime) +
    //"\nTL: " + WriteVal(SL, 2.2) +
    //"\nKL: " + WriteVal(TL, 2.2) +
    //"\nSpan A: " + WriteVal(Sp1, 2.2) +
    //"\nSpan B: " + WriteVal(Sp2, 2.2) +
    //"\nSpan Diff: " + WriteVal(Sp1 - Sp2, 2.2) +
    //"\nChikou Span Today: " + WriteVal(C, 2.2) +
    //"\nChikou Span 26 Days Ago: " + WriteVal(PL, 2.2) +
    //"\nPrice Limit: " + WriteVal((TL+ATR(14)*1.5), 2.2) +
    //"\nIchimoku SL Pt :" + WriteVal (MyATR*3,format=1.2 )+
    //"\nSL Value: " + WriteVal ( Close - (MyATR*3),(format=1.2)) +
    //"\nRisk: " + WriteVal ( (MyATR*3/Close)*100,format=1.2 ) + "%" +
    //"\nShare Limit: " + WriteVal ((MyPort*0.01)/(MyATR*3),(format=1.2))+
    //"\n"+ "P"+WriteVal(C*((MyPort*0.02)/(MyATR*3)),(format=1.0))+ " of" +" "+ WriteVal ((MyPort)/1000,format=1.0)+"T";
    _SECTION_END();
    _SECTION_END();
    //
    //==================================================================================================================================================================================


    //============== TITLE ==============
    _SECTION_BEGIN( "Title" );
    SetChartOptions(0,chartShowArrows|chartShowDates);
    printf( "Open : " + O );


    if ( Status( "action" ) == actionIndicator )
    (
    Title = EncodeColor( colorGold ) + "POPOY System" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + " (" + Name() + ") " + EncodeColor( colorGold ) + Interval( 2 ) +
    " " + Date() + " " + " Open " + O + " " + "Hi " + H + " " + "Lo " + L + " " + EncodeColor( ColorRGB( 111, 208, 255 ) ) +
    "Close " + C + " ( " + WriteVal( ( C - Ref( C, -1 ) ) * 100 / Ref( C, -1 ), 1.1 ) + " %)" + EncodeColor( colorGold ) + " Value= " + WriteVal( V*C, 1.0 )
    + " " + WriteIf( V*C > Vp2, EncodeColor( colorBrightGreen ) + "(Very High)", WriteIf( V*C > Vp1, EncodeColor( colorLime ) + "(High)", WriteIf( V*C > Vrg, EncodeColor( colorLime ) + "(Above Average)",
    WriteIf( V*C <Vrg AND V*C >Vn1, EncodeColor( ColorRGB( 255, 0, 128 ) ) + "(Less than Average)", WriteIf( V*C < Vn1, "(Low)", "" ) ) ) ) ) + EncodeColor( colorGold ) + " "
    + EncodeColor( colorGold ) + "EMA(Close,9) = " +EncodeColor( colorBrightGreen ) + WriteVal( MA( C, 9 ), 1.4 )







    + "\n" + EncodeColor( colorGrey40 ) + "--------------------------------------------------------"


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Short Term: " +
    WriteIf( TS > 0 AND TS < 0.3, EncodeColor( colorLime ) + "Weak Up Trend",
    WriteIf( TS >= 0.3 AND TS < 0.6 , EncodeColor( colorGold ) + "Medium Up Trend",
    WriteIf( TS >= 0.6, EncodeColor( colorGreen ) + "Strong Up Trend",
    WriteIf( TS<0 AND TS> -0.3, EncodeColor( colorPink ) + "Weak Down Trend",
    WriteIf( TS <= -0.3 AND TS > -0.6 , EncodeColor( ColorRGB( 255, 0, 128 ) ) + "Medium Down Trend",
    WriteIf( TS <= -0.6, EncodeColor( colorRed ) + "Strong Down Trend", EncodeColor( colorGold ) + "Sideways" ) ) ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Mid Term: " +
    WriteIf( TM > 0 AND TM < 0.3, EncodeColor( colorLime ) + "Weak Up Trend",
    WriteIf( TM >= 0.3 AND TM < 0.6 , EncodeColor( colorGold ) + "Medium Up Trend",
    WriteIf( TM >= 0.6, EncodeColor( colorGreen ) + "Strong Up Trend",
    WriteIf( TM<0 AND TM> -0.3, EncodeColor( colorPink ) + "Weak Down Trend",
    WriteIf( TM <= -0.3 AND TM > -0.6 , EncodeColor( ColorRGB( 255, 0, 128 ) ) + "Medium Down Trend",
    WriteIf( TM <= -0.6, EncodeColor( colorRed ) + "Strong Down Trend", EncodeColor( colorGold ) + "Sideways" ) ) ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Long Term: " +
    WriteIf( TL > 0 AND TL < 0.3, EncodeColor( colorLime ) + "Weak Up Trend",
    WriteIf( TL >= 0.3 AND TL < 0.6 , EncodeColor( colorGold ) + "Medium Up Trend",
    WriteIf( TL >= 0.6, EncodeColor( colorGreen ) + "Strong Up Trend",
    WriteIf( TL<0 AND TL> -0.3, EncodeColor( colorPink ) + "Weak Down Trend",
    WriteIf( TL <= -0.3 AND TL > -0.6 , EncodeColor( ColorRGB( 255, 0, 128 ) ) + "Medium Down Trend",
    WriteIf( TL <= -0.6, EncodeColor( colorRed ) + "Strong Down Trend", EncodeColor( colorGold ) + "Sideways" ) ) ) ) ) )


    + "\n" + EncodeColor( colorGrey40 ) + "--------------------------------------------------------"








    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "AccDist (): " + WriteIf( wu, EncodeColor( colorGold ) + "Accumulation", WriteIf( wd, EncodeColor( colorRed ) + "Distribution", "Neutral" ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "RSI (14): " + WriteIf( RSI( 14 ) > 30 AND RSI( 14 ) < 70, EncodeColor( colorGold ), WriteIf( RSI( 14 ) < 30 , EncodeColor( colorBlue ), EncodeColor( colorRed ) ) ) + WriteVal( RSI( 14 ), format = 1.1 )
    + WriteIf( RSI( 14 ) > 30 AND RSI( 14 ) < 70, " Range" + EncodeColor( colorGold ), WriteIf( RSI( 14 ) < 30 , " OverSold" + EncodeColor( colorBlue ), " OverBought" + EncodeColor( colorRed ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "CCI (14): " + WriteIf( CCI( 14 ) > -100 AND CCI( 14 ) < 100, EncodeColor( colorGold ), WriteIf( CCI( 14 ) < -100 , EncodeColor( colorBlue ), EncodeColor( colorRed ) ) ) + WriteVal( CCI( 14 ), format = 1.1 )
    + WriteIf( CCI( 14 ) > -100 AND CCI( 14 ) < 100, " Range" + EncodeColor( colorGold ), WriteIf( CCI( 14 ) < -100 , " OverSold" + EncodeColor( colorBlue ), " OverBought" + EncodeColor( colorRed ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "ROC (C,14): " + WriteIf( ROC( C, 14 ) > -10 AND ROC( C, 14 ) < 10, EncodeColor( colorGold ), WriteIf( ROC( C, 14 ) < -10 , EncodeColor( colorBlue ), EncodeColor( colorRed ) ) ) + WriteVal( ROC( C, 14 ), format = 1.1 )
    + WriteIf( ROC( C, 14 ) > -10 AND ROC( C, 14 ) < 10, " Range" + EncodeColor( colorGold ), WriteIf( ROC( C, 14 ) < -10 , " OverSold" + EncodeColor( colorBlue ), " OverBought" + EncodeColor( colorRed ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Wm%R (14): " + WriteIf( WR > -80 AND WR < -20, EncodeColor( colorGold ), WriteIf( WR < -80 , EncodeColor( colorBlue ), EncodeColor( colorRed ) ) ) + WriteVal( WR, format = 1.1 )
    + WriteIf( WR > -80 AND WR < -20, " Range" + EncodeColor(colorGold ), WriteIf( WR < -80 , " OverSold" + EncodeColor( colorBlue ), " OverBought" + EncodeColor( colorRed ) ) )




    + "\n" + EncodeColor( colorGrey40 ) + "--------------------------------------------------------"








    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Signal (RSI): " + WriteIf( Ibuy, EncodeColor( colorGold) + "BuyWarning", WriteIf( Isell, EncodeColor( colorRed ) + "SellWarning", WriteIf( BlRSI, EncodeColor( colorGold ) + "BullishZone", WriteIf( BrRSI, EncodeColor( colorRed ) + "BearishZone", "Neutral" ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Signal (Z Lag): " + WriteIf( TMBuy, EncodeColor(colorGold ) + "Buy", WriteIf( TMSell, EncodeColor( colorRed ) + "Sell", WriteIf( TMBuy1, EncodeColor( colorGold ) + "Bullish", WriteIf( TMSell1, EncodeColor( colorRed ) + "Bearish", "Neutral" ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Signal (MACD): " + WriteIf( MB, EncodeColor( colorGold ) + "Buy", WriteIf( MS, EncodeColor( colorRed ) + "Sell", WriteIf( MB1, EncodeColor( colorGold ) + "Bullish", WriteIf( MS1, EncodeColor( colorRed ) + "Bearish", "Neutral" ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Signal (Stoch): " + WriteIf( StochBuy, EncodeColor( colorGold ) + "Buy", WriteIf( StochSell, EncodeColor( colorRed ) + "Sell", WriteIf( StBuy, EncodeColor( colorGold ) + "Bullish", WriteIf( StSell, EncodeColor( colorRed ) + "Bearish", "Neutral" ) ) ) )


    + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Signal (ADX): " + WriteIf( adxBuy, EncodeColor( colorGold ) + "Buy", WriteIf( adxSell, EncodeColor( colorRed ) + "Sell", WriteIf( adxBuy1, EncodeColor( colorGold ) + "Bullish", WriteIf( adxSell1, EncodeColor( colorRed ) + "Bearish", "Neutral" ) ) ) )


    + "\n" + EncodeColor( colorGrey40 ) + "--------------------------------------------------------"










    +"\n"+ EncodeColor( colorWhite )+"Fibo Retracement"
    +"\n"+ EncodeColor( colorGreen )+"100% "+ EncodeColor( colorGreen )+WriteVal(Hh,1.4)
    +"\n"+ EncodeColor( colorGreen )+"78.6% "+EncodeColor(colorGreen)+WriteVal(p5,1.4)+EncodeColor(colorRed)+" 38.2% "+EncodeColor(colorRed)+WriteVal(p2,1.4)
    +"\n"+ EncodeColor( colorGreen )+"61.8% "+EncodeColor(colorGreen)+WriteVal(p3,1.4)+EncodeColor(colorRed)+" 23.6% "+EncodeColor(colorRed)+WriteVal(p4,1.4)
    +"\n"+ EncodeColor( colorBlue )+"50.0% "+EncodeColor(colorBlue)+WriteVal(p1,1.4)+ EncodeColor( colorRed )+" 00.0% "+WriteVal(Ll,1.4)

    // + "\n" + EncodeColor( colorBlack ) + "----------------------------------------------------------------------------"
    // + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Trigger Stop : " + EncodeColor( colorLime ) + WriteVal( TrailStop, format = 1.4 )
    // + "\n" + EncodeColor( ColorRGB( 111, 208, 255 ) ) + "Trigger Price Profit : " + EncodeColor( colorLime ) + WriteVal( Profittaker, format = 1.4 )
    + "\n" + EncodeColor( colorGrey40 ) + "--------------------------------------------------------"
    //+ EncodeColor( colorWhite )+"\nTL: " + WriteVal(SL, 2.2)
    //+ EncodeColor( colorWhite )+"\nKL: " + WriteVal(TL, 2.2)
    //+ EncodeColor( colorWhite )+"\nSpan A: " + WriteVal(Sp1, 2.2)
    //+ EncodeColor( colorWhite )+"\nSpan B: " + WriteVal(Sp2, 2.2)
    //+ EncodeColor( colorWhite )+"\nSpan Diff: " + WriteVal(Sp1 - Sp2, 2.2)
    //+ EncodeColor( colorWhite )+"\nChikou Span Today: " + WriteVal(C, 2.2)
    //+ EncodeColor( colorWhite )+"\nChikou Span 26 Days Ago: " + WriteVal(PL, 2.2)
    //+ EncodeColor( colorWhite )+"\nPrice Limit: " + WriteVal((TL+ATR(14)*1.5), 2.2)
    //+ EncodeColor( colorWhite )+"\nIchimoku SL Pt :" + WriteVal (MyATR*3,format=1.2 )
    //+ EncodeColor( colorWhite )+"\nSL Value: " + WriteVal ( Close - (MyATR*3),(format=1.2))
    //+ EncodeColor( colorWhite )+"\nRisk: " + WriteVal ( (MyATR*3/Close)*100,format=1.2 ) + "%"
    //+ EncodeColor( colorWhite )+"\nShare Limit: " + WriteVal ((MyPort*0.01)/(MyATR*3),(format=1.2))
    //+ EncodeColor( colorWhite )+"\n"+ "P"+WriteVal(C*((MyPort*0.02)/(MyATR*3)),(format=1.0))+ " of" +" "+ WriteVal ((MyPort)/1000,format=1.0)+"T"
    // + "\n" +EncodeColor( ColorRGB( 111, 208, 255 ) ) + "R1: " + EncodeColor( colorOrange ) + WriteVal( r1, format = 1.4 )
    // + EncodeColor( ColorRGB( 111, 208, 255 ) ) + " R2: " + EncodeColor( colorOrange ) + WriteVal( r2, format = 1.4 )
    // + EncodeColor( ColorRGB( 111, 208, 255 ) ) + " R3: " + EncodeColor( colorOrange ) + WriteVal( r3, format = 1.4 )
    // + "\n" +EncodeColor( ColorRGB( 111, 208, 255 ) ) + "S1: " + EncodeColor( colorOrange ) + WriteVal( s1, format = 1.4 )
    // + EncodeColor( ColorRGB( 111, 208, 255 ) ) + " S2: " + EncodeColor( colorOrange ) + WriteVal( s2, format = 1.4 )
    // +EncodeColor( ColorRGB( 111, 208, 255 ) ) + " S3: " + EncodeColor( colorOrange ) + WriteVal( s3, format = 1.4 )
    );
    _SECTION_END();
    //==================================================================================================================================================================================

    //==================================================================================================================================================================================
    // VOLUME AT PRICE
    _SECTION_BEGIN("Volume At Price");
    PlotVAPOverlay( Param("Lines", 300, 100, 1000, 1 ), Param("Width", 5, 1, 100, 1 ), ParamColor("Color", colorCycle ), ParamToggle("Side", "Left|Right" ) | 4*ParamToggle("Z-order", "On top|Behind", 1 ) );
    _SECTION_END();
    //==================================================================================================================================================================================

    //==================================================================================================================================================================================
    // TREND LINES
    //percent = 0.01 * 1; /* Adjust this percent as necessary, I use .01 because FOREX is a 0.0000 number */
    //firstpointL = 2;
    //firstpointH = 2;
    //
    //y0=LastValue(Trough(L,percent,firstpointL));
    //y1=LastValue(Trough(Ref(L,-1),percent,1));
    //
    //for( t = 1; t < BarCount AND y0 >= y1; t++ )
    //{
    // firstpointL++;
    // y0=LastValue(Trough(L,percent,firstpointL));
    //}
    //
    //x0=BarCount - 1 - LastValue(TroughBars(L,percent,firstpointL));
    //x1=BarCount - 1 - LastValue(TroughBars(Ref(L,-1),percent,1));
    //LineL = LineArray( x0, y0, x1, y1, 1 );
    //
    //Plot( LineL, " Support Trend line", colorWhite, 1 + 4 );
    //
    //yt0=LastValue(Peak(H,percent,firstpointH));
    //yt1=LastValue(Peak(Ref(H,-1),percent,1));
    //
    //for(t = 1; t < BarCount AND yt0 <= yt1; t++ )
    //{
    // firstpointH++;
    // yt0=LastValue(Peak(H,percent,firstpointH));
    //}
    //xt0=BarCount - 1 - LastValue(PeakBars(H,percent,firstpointH));
    //xt1=BarCount - 1 - LastValue(PeakBars(Ref(H,-1),percent,1));
    //LineH = LineArray( xt0, yt0, xt1, yt1, 1 );
    //
    //Plot( LineH, "Resistance Trend line", colorWhite,1 + 4 );
    //
    //==================================================================================================================================================================================

    _SECTION_BEGIN("MA3");
    P = ParamField("Price field",-1);
    Periods = Param("Periods", 15, 2, 300, 1, 10 );
    Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
    _SECTION_END();
     

Chia sẻ trang này

Đang tải...