Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Trend Chart v.2 for Amibroker (AFL)
This AFL identifies trend with exponential moving average(EMA) and MACD . If candle for :
Red = downtrend
Green = uptrend
yellow = caution, without TREND
This AFL identifies trend with exponential moving average and MACD .
If candle for :
Red = downtrend
Green = uptrend
Yellow = caution, without TREND .
This is a simple example to identify trend and just follow the colors GREEN , RED OR YELLOW . The graph is cleaner . The AFL is only an indicator and not a Trading System .
Screenshots
Indicator / Formula
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | //Candles or bars colored by trend //identifying trends with EMA and MACD Period = Optimize ( "Period" , 17, 2, 200, 1); EMACALC = EMA ( C , Period); cond1 = Close > EMACALC AND MACD () > Signal (); cond2 = Close > EMACALC AND MACD () < Signal () OR Close < EMACALC AND MACD () > Signal (); cond3 = Close < EMACALC AND MACD () < Signal (); _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 ) ) )); SetBarFillColor ( IIf (Cond1, ParamColor ( "Candle UP Color" , colorGreen ), IIf (Cond3, ParamColor ( "Candle Down Color" , colorRed ), colorYellow ))); Plot ( C , "\nPrice" , IIf (cond1, ParamColor ( "Wick UP Color" , colorDarkGreen ), IIf (cond3, ParamColor ( "Wick Down Color" , colorDarkRed ), colorYellow )),64,0,0,0,0); //Plot( C, "Close", ParamColor("Color", colorgreen ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); _SECTION_END (); //============== TITLE ============== _SECTION_BEGIN ( "Title" ); Title = EncodeColor ( colorGold )+ "GRAFICO BASICO" + EncodeColor ( colorRose )+ " (" + Name () + ") " + EncodeColor ( colorGold )+ Interval (2) + " " + Date () + " " + " • Open " + WriteVal ( O ,1.20)+ " • " + "High " + WriteVal ( H ,1.20)+ " • " + "Low " + WriteVal ( L ,1.20)+ " • " + "Close " + WriteVal ( C ,1.20)+ " • Variação R$ = " + WriteVal ( C - Ref ( C ,-1),1.20,0)+ " • Variação % = " + WriteVal (( C - Ref ( C ,-1))*100/ Ref ( C ,-1),1.2)+ "% • Volume = " + WriteVal ( V ,1.0); upbar = COND1; downbar = COND3; /* Colourized price bars drawn here */ Graph0 = Close ; Graph0Style = 64; //number 64 = candlestick or 128 = bar; barcolor = IIf ( downbar, 4, IIf ( upbar, 5, 42 ) ); //number 4 = red, number 5 = green and number 42 = yellow; Graph0BARColor = ValueWhen ( barcolor != 0, barcolor ); _SECTION_END (); Plot (EMACALC, "EMACALC" , COLORWHITE , styleLine ,0,0,0,0,2); |
4 comments
Leave Comment
Please login here to leave a comment.
Back
nice afl !
Thanks for sharing !!!
Very good
Nice .afl.
Very very good, many thanks!!