// Downloaded From https://www.WiseStockTrader.com
_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();