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 ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Elder Bar Chart for Amibroker (AFL)

Rating:
0 / 5 (Votes 0)
Tags:
amibroker

Elder Bar Chart: Impulse System

Screenshots

Indicator / Formula

Copy & Paste Friendly

Elder Bar Chart: Impulse System

_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