Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Elder Bar Chart for Amibroker (AFL)
Rating:
5 / 5 (Votes 2)
Tags:
amibroker
Elder Bar Chart: Impulse System
Screenshots
Indicator / Formula
Copy & Paste Friendly
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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | _N (Title = StrFormat ( "{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g,Close %g (%.1f%%) Vol =" + WriteVal ( V , 1.0 ) + "\n{{VALUES}}" , O , H , L , C , SelectedValue ( ROC ( C , 1 ))) + EncodeColor ( colorBlack ) ); ema13 = eMA ( C ,13); Plot (ema13, "EM13" , colorRed , styleLine ); ema26 = eMA ( C ,26); Plot (ema26, "EM26" , colorBlue , styleLine ); r1 = 12; r2 = 26; r3 = 9; m01= MACD (r1,r2); s01= Signal (r1,r2,r3); hist = m01-s01; buyhist = hist > Ref (hist,-1); sellhist = hist < Ref (hist,-1); stay = hist == Ref (hist,-1); buyema = ema13 > Ref (ema13 ,-1); sellema =ema13 < Ref (ema13 ,-1); allowbuy = buyhist AND buyema; notallowbuy = sellhist AND sellema; color = IIf (allowbuy, colorgreen , IIf (notallowbuy, colorRed , IIf (stay, colorGreen , colorblue ))); _SECTION_BEGIN ( "Price Chart" ); bgTop = ParamColor ( "BgTop" , colorWhite ); bgBot = ParamColor ( "BgBottom" , colorWhite ); SetChartBkGradientFill ( bgTop ,bgBot, colorWhite ); pStyle = ParamList ( "Price Style" , "Candle|Solid Candle|Bar|Line|Heikin-Ashi" ,2); cBull = ParamColor ( "Price Bull" , colorLime ); CBear = ParamColor ( "Price Bear" , colorRed ); cLine = ParamColor ( "Price Line" , colorWhite ); SetChartOptions (0, chartShowArrows | chartShowDates ); _N (Title = StrFormat ( "{{NAME}}- {{INTERVAL}} {{DATE}} O= %g, H= %g, L= %g, C= %g (%.1f%%) V= " + WriteVal ( V , 1.0 ) + "\n{{VALUES}}" , O , H , L , C , SelectedValue ( ROC ( C , 1 )) )); ThisStyle = styleCandle ; ThisTitle = "" ; _O= O ; _C= C ; _H= H ; _L= L ; ThisColor = color; switch (pStyle ) { case "Solid Candle" : SetBarFillColor ( ThisColor ); break ; case "Bar" : ThisStyle = styleBar ; break ; case "Line" : ThisStyle = styleLine ; ThisColor = cLine; break ; case "Heikin-Ashi" : _C = ( O + H + L + C )/4; _O = AMA ( Ref ( _C, -1 ), 0.5 ); _H = Max ( H , Max ( _C, _O ) ); _L = Min ( L , Min ( _C, _O ) ); ThisColor = IIf (_C >= _O,CBull, CBear); SetBarFillColor ( ThisColor ); ThisColor = IIf (_C >= _O,cLine, cLine); ThisTitle = "Heikin-Ashi" ; break ; default: SetBarFillColor ( ThisColor ); ThisColor = cLine; break ; } PlotOHLC ( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle); GraphXSpace = 8; _SECTION_END (); |
0 comments
Leave Comment
Please login here to leave a comment.
Back