Need Help: Bar Chart Color

john03 · Nov 18, 2012

Hi Members,

Can you help me with the AFL for the BAR Price Charts such that when:

close < open = RED
close > open = GREEN

I have attached an image for reference.
Thanks.

santhosh2010 · Nov 18, 2012

PHP:

 //THANKS TO : WWW.JACKPOTOPTION.COM

_SECTION_BEGIN("Price Chart");
bgTop = ParamColor("BgTop",    colorBlack);
bgBot = ParamColor("BgBottom", colorBlack);
SetChartBkGradientFill( bgTop ,bgBot, colorLightGrey);

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 = IIf( _C>_O, cBull, IIf(_C<_O, CBear, CLine));


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();

chilgu · Nov 18, 2012

Try this

SetBarFillColor(IIf(O>C,24,19));
Plot(C,"Price",IIf(O>C,32,34),64);

donjoe · Nov 19, 2012

Here is another one:

_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 ) ) ));
upColor = ParamColor("Up Color", colorDarkGreen );
downColor = ParamColor("Down Color", colorRed );
Plot( C, "Close", IIf( C>O, upcolor, downColor), styleNoTitle | ParamStyle("Style") | GetPriceStyle() | styleThick);
_SECTION_END();

john03 · Dec 14, 2012

Thanks all of you for all your help.

Twilight · Dec 17, 2012

Can anybody please post the AFL as mentioned above but with two modifications :

1. Without open price (Use only High, Low and Close prices)

2. If todays close is greater than yesterdays close than Green bar and if todays close is less than yesterdays bar then Red Color bar. If I am not asking too much than kindly add the same conditions of color in Volume also.

Thanks in advance

Twilight · Dec 18, 2012

I have tried the below mentioned formula but unable to add condition of color change Red and Green as per todays close in comparison to yesterdays close.

This is working :

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_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 )) ));
PlotOHLC(Null,H,L,C,"",colorBlack,styleBar);
_SECTION_END();

This I wish to add in the above mentioned AFL.

// Get Previous Day's close, Low and High
Prev_Close = TimeFrameGetPrice( "C", inDaily, -1, expandFirst);

Color = IIf(Prev_Close < C, colorRed, colorBlack);

casoni · Dec 18, 2012

Twilight said:

I have tried the below mentioned formula but unable to add condition of color change Red and Green as per todays close in comparison to yesterdays close.

This is working :

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_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 )) ));
PlotOHLC(Null,H,L,C,"",colorBlack,styleBar);
_SECTION_END();

This I wish to add in the above mentioned AFL.

// Get Previous Day's close, Low and High
Prev_Close = TimeFrameGetPrice( "C", inDaily, -1, expandFirst);

Color = IIf(Prev_Close < C, colorRed, colorBlack);

try this
CC=TimeFrameGetPrice( "C", inDaily, -1 );
col=iif(c>cc,colorgreen,colorred);
plot(c,"",col,128);//style bar
plot(c,"",col,64); //style candle

KelvinHand · Dec 18, 2012

santhosh2010 said:

PHP:

 //THANKS TO : WWW.JACKPOTOPTION.COM

_SECTION_BEGIN("Price Chart");
bgTop = ParamColor("BgTop",    colorBlack);
bgBot = ParamColor("BgBottom", colorBlack);
SetChartBkGradientFill( bgTop ,bgBot, colorLightGrey);

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 = IIf( _C>_O, cBull, IIf(_C<_O, CBear, CLine));


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();

Please thank to KelvinHand. He is the original Creator.
Here is his work published:
http://www.wisestocktrader.com/indicators/3336-integrated-price-chart

It is public sharing code, a bad habit not recognizing his hard work and not mentioning the originator's name.
And let people think is created by him.

It will make the creator stop sharing anymore.

Here are the last 2 pieces of works:
http://www.wisestocktrader.com/indicators/3337-moving-averages
http://www.wisestocktrader.com/indicators/3340-bb-macd

Twilight · Dec 20, 2012

casoni said:

Thanks for reply. It is not working. Please check. I have given the whole AFL code for bar charts without open price and its working but I am unable to change the colors of the bars as per yesterdays close.

Thread starter	Similar threads	Forum	Replies	Date
S	NEED HELP- exploration afl for days left in N-day bar to complete.	AmiBroker	0	Oct 27, 2015
E	need help in expanding Range bars to the Time based time frame	AmiBroker	17	May 25, 2014
S	New to AFL help needed to color the bar depending on some indicator	AmiBroker	10	Sep 23, 2013
T	need help to change from barchart to line chart	AmiBroker	1	Jul 14, 2013
R	help needed for afl coding-5bar pivot break buy-sell	AmiBroker	4	Jun 12, 2013

Need Help: Bar Chart Color

john03

Member

santhosh2010

Banned

chilgu

Active Member

donjoe

New Member

john03

Member

Twilight

New Member

Twilight

New Member

casoni

Well-Known Member

KelvinHand

Well-Known Member

Twilight

New Member

Similar threads