[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] 4 charts in one pane-- different symbols

To: amibroker@xxxxxxxxxxxxxxx
Subject: Re: [amibroker] 4 charts in one pane-- different symbols
From: James Hutchison <phutch@xxxxxxxxxxx>
Date: Sat, 30 Aug 2008 09:35:16 -0400

PureBytes Links

Trading Reference Links

At 03:08 PM 8/29/2008, you wrote:

When Gfx charting was first introduced, I recall someone wrote a multiple chart demo program that did this. /It was just called GFX Drawing Example. Perhaps the original author could please stand up.

This AFL was done to show the group the possibilities with GFX Drawing. I use it to visually check a watch list quickly.
Using the Parameter right click the number of charts can be changed and you can choose the watch list.

I hope this helps.

Jim Hutchison

function GetMonth( MonthNumber )
{

switch (MonthNumber) {

case 2 :
result = "Feb";

break;

case 3 :
result = "Mar";

break;

case 4 :
result = "Apr";

break;

case 5 :
result = "May";

break;

case 6 :
result = "Jun";

break;

case 7 :
result = "Jul";

break;

case 8 :
result = "Aug";

break;

case 9 :
result = "Sep";

break;

case 10 :
result = "Oct";

break;

case 11 :
result = "Nov";

break;

case 12 :
          result = "Dec";
      break;
   }

   return result;
}

bar = Cum ( 1 );
Fb = Status( "firstvisiblebarindex" );
Lb = Status( "lastvisiblebar" );

GfxSetOverlayMode( 2 );
ToolTip = "\nY=" + GetCursorYPosition() + "\n Bar "+ SelectedValue( bar )+ "\n First Bar "+ Fb+ "\n Last Bar "+ Lb;

String = "";
for ( x = 0 ; x < 200 ; x++ )
{
        WList = CategoryGetName( categoryWatchlist, x );

if (WList != "")
{

        String = String + WList + "," ;
        }
}
WatchList = ParamList( "Watch List", String );
//listNum= Param("Watch List Num" ,8,0,50,1); ;//enter watchlist number
for ( x = 0 ; x < 200 ; x++ )
{
        sym = StrExtract( String, x );

if (sym == WatchList)
{

listNum = x ;
}
}

Page = Param( "Page #", 0 , 0 , 20 , 1 );
ChartsWiNum = Param( "# Charts Wide", 3 , 1 , 4 , 1 );
ChartsHiNum = Param( "# Charts High", 3 , 1 , 4 , 1 );
Bars = Param( "Number Of Bars", 195 , 50 , 250 , 1 ) ;
lDays = Param( "Long MA", 200 , 50 , 250 , 1 ) ;
sDays = Param( "Short MA", 50 , 5 , 100 , 1 ) ;
vDays = Param( "Volume MA", 50 , 5 , 100 , 1 ) ;
ChartMargin = 5 ;
DateMargin = 10 ;
DataMargin = 20 ;
NumCharts = ChartsWiNum * ChartsHiNum ;
ScreenHeight = Status( "pxheight" ) ;
SceernWidth = Status( "pxwidth") ;
ChartHeight = ScreenHeight / ChartsHiNum -2 ;
Width = SceernWidth / ChartsWiNum - 2 ;
BarChartHeight= ( 0.75) * ChartHeight - DataMargin;
VolChartHeight = ChartHeight - BarChartHeight - DataMargin* 2 ;
NumberPriceLevels = BarChartHeight / 25 ;
BarChartWidth= Width - 45 ;
BarWidth = (BarChartWidth - ChartMargin * 3 ) / Bars ;
LastBar = BarCount ;
FirstBar = LastBar - Bars;
_N (list = CategoryGetSymbols( categoryWatchlist, listnum ));
printf( "Watch List Name\n");
WL = CategoryGetName( categoryWatchlist, listnum );
SymbolNum = Page * NumCharts;

/*
_TRACE("ScreenHeight "+WriteVal(ScreenHeight));
_TRACE("ChartHeight "+WriteVal(ChartHeight));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("BarChartHeight "+WriteVal(BarChartHeight));
*/
for ( x = 0 ; x < ChartsHiNum ; x++ )
{

for ( i = 0 ; i < ChartsWiNum ; i++ )
{

notDone = True;

sym = StrExtract( list, SymbolNum );

if (sym != "")

{

x1 = Width * i + 5 ;

y1 = ChartHeight * x + 5 ;

x2 = Width * (i + 1 );

y2 = ChartHeight * (x + 1 )-DateMargin;

GfxSelectPen( colorBlack );

GfxRectangle( x1, y1, x2, y2 );

SymbolNum++;

SetForeign (sym);

EMAShort= EMA (C,sDays);

EMALong= EMA (C,lDays);

EMAVol= EMA (V,vDays);

D = Day ();

M = Month();

Y = Year();

priceHigh = 0 ;

VolHigh = 0 ;

priceMin = 1000000;

for ( z = FirstBar; z < LastBar ; z++ )

{

Vol = V[z];

BarH = H[z];

BarL = L[z];

if ( Vol > VolHigh )

{

VolHigh = Vol;

}

if ( BarH > priceHigh )

{

priceHigh = BarH;

}

if ( BarL < priceMin )

{

priceMin = BarL;

}

LOpen = O[LastBar- 1 ];

LHigh = H[LastBar- 1 ];

LLow = L[LastBar- 1 ];

LClose = C[LastBar- 1 ];

LVol = V[LastBar- 1 ];

GfxSelectFont( "Tahoma", 9 );

GfxSetTextColor( colorBlack);

GfxTextOut (sym + " O: " +LOpen + " H: " +LHigh + " L: " +LLow + " C: " +LClose + " Vol: " +LVol/ 1000000+ " M", x1+ 5, y1+ 2);

VolRatio = VolChartHeight / VolHigh ;

Range = priceHigh - priceMin;

Ratio = BarChartHeight / Range ;

PriceLineLevel = Range / NumberPriceLevels;

yHi=(((priceHigh - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

yLow=((( priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

GfxTextOut ( WriteVal (priceHigh, 1.2 ), x1 + BarChartWidth, yHi -8 );
// GfxTextOut(WriteVal(priceMin, 1.2), x1 + BarChartWidth, yLow -8);

GfxSelectPen( colorLightGrey );

GfxMoveTo ( x1 , yHi );

GfxLineTo ( x1 + BarChartWidth -5 , yHi );

/*
_TRACE("x "+WriteVal(x));
_TRACE("i "+WriteVal(i));
_TRACE("VolHigh "+WriteVal(VolHigh));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("VolRatio "+WriteVal(VolRatio,1.8));
_TRACE("Ratio "+WriteVal(Ratio));
_TRACE("PriceLineLevel "+WriteVal(PriceLineLevel));
*/

for ( z = 0 ; z < NumberPriceLevels- 1 ; z++ )

{

PriceLevel = PriceLineLevel*z + priceMin;

yHi=(((PriceLevel - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

GfxTextOut ( WriteVal (PriceLevel, 1.2 ), x1 + BarChartWidth, yHi -8 );

GfxSelectPen( colorLightGrey );

GfxMoveTo ( x1 , yHi );

GfxLineTo ( x1 + BarChartWidth -5 , yHi );

}

HighestLast = 0 ;

w = 1 ;

sEMAlast = EMAShort[FirstBar];

lEMAlast = EMALong[FirstBar];

vEMAlast = EMAVol[FirstBar];

for ( z = FirstBar; z < LastBar ; z++ )

{

BarH = H[z];

BarL = L[z];

BarO = O[z];

BarC = C[z];

Vol = V[z];

sEMA = EMAShort[z];

lEMA = EMALong[z];

vEMA = EMAVol[z];

BarDay = D[z];

BarMonth = M[z];

BarYear = Y[z];

yO = (((BarO - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;

yC = (((BarC - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;

yHi = (((BarH - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;

yLo = (((BarL - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin ;

ysEMAlast = (((sEMAlast - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

ysEMA = (((sEMA - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

ylEMAlast = (((lEMAlast - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

ylEMA = (((lEMA - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;

vHi = y2 - (Vol * VolRatio) ;

yvEMAlast = y2 - (vEMAlast * VolRatio) ;

yvEMA = y2 - (vEMA * VolRatio) ;

if ( BarH > HighestLast )

{

HighestLast = BarH;

GfxSelectPen( colorBlue );

}

else

{

GfxSelectPen( colorRed );

}

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , yHi );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, yLo );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin -1 , yO );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, yO );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin +1 , yC );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, yC );

if ( BarO > BarC)

{

GfxSelectPen( colorRed );

}

else

{

GfxSelectPen( colorLime );

}

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , vHi );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y2 );

GfxSelectPen( colorLime );

GfxMoveTo ( BarWidth * (w -1 ) + x1 + ChartMargin , ysEMAlast );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, ysEMA );

GfxSelectPen( colorDarkRed );

GfxMoveTo ( BarWidth * (w -1 ) + x1 + ChartMargin , ylEMAlast );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, ylEMA );

GfxSelectPen( colorBlack );

GfxMoveTo ( BarWidth * (w -1 ) + x1 + ChartMargin , yvEMAlast );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, yvEMA );

w++;

sEMAlast = sEMA ;

lEMAlast = lEMA ;

vEMAlast = vEMA ;

GfxSelectFont( "Tahoma", 7 );

GfxSelectPen( colorLightGrey );

if (BarDay== 1 & notDone )

{

if (BarMonth == 1 ) myLabel = WriteVal(BarYear, 1.0 );

else myLabel =GetMonth(BarMonth);

GfxTextOut (myLabel, BarWidth * w + x1 + ChartMargin - 5 , y2 +DateMargin/ 3 );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , y2 );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );

notDone = False;

}

if (BarDay== 2 & notDone )

{

if (BarMonth == 1 ) myLabel = WriteVal(BarYear, 1.0 );

else myLabel =GetMonth(BarMonth);

GfxTextOut (myLabel, BarWidth * w + x1 + ChartMargin - 5 , y2 +DateMargin/ 3 );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , y2 );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );

notDone = False;

}

if (BarDay== 3 & notDone )

{

if (BarMonth == 1 ) myLabel = WriteVal(BarYear, 1.0 );

else myLabel =GetMonth(BarMonth);

GfxTextOut (myLabel, BarWidth * w + x1 + ChartMargin - 5 , y2 +DateMargin/ 3 );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , y2 );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );

notDone = False;

}

if (BarDay== 4 & notDone )

{

if (BarMonth == 1 ) myLabel = WriteVal(BarYear, 1.0 );

else myLabel =GetMonth(BarMonth);

GfxTextOut (myLabel, BarWidth * w + x1 + ChartMargin - 5 , y2 +DateMargin/ 3 );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , y2 );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );

notDone = False;

}

if (BarDay== 5 & notDone )

{

if (BarMonth == 1 ) myLabel = WriteVal(BarYear, 1.0 );

else myLabel =GetMonth(BarMonth);

GfxTextOut (myLabel, BarWidth * w + x1 + ChartMargin - 5 , y2 +DateMargin/ 3 );

GfxMoveTo ( BarWidth * w + x1 + ChartMargin , y2 - VolChartHeight );

GfxLineTo ( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );

notDone = False;

}

if (BarDay== 6 |BarDay== 7 |BarDay== 8 |BarDay== 9 |BarDay== 10 )

{

notDone = True;

}

RestorePriceArrays();

}
}
}

__._,_.___

Please note that this group is for discussion between users only. To get support from AmiBroker please send an e-mail directly to SUPPORT {at} amibroker.com For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: http://www.amibroker.com/devlog/ For other support material please check also: http://www.amibroker.com/support.html

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

function GetMonth( MonthNumber ) 
{ 
	switch(MonthNumber) { 
	    case 2: 
	      result ="Feb"; 
	      break; 
	    case 3: 
	      result ="Mar"; 
	      break; 
	    case 4: 
	      result ="Apr"; 
  	    break; 
  	  case 5: 
  	    result ="May"; 
  	    break; 
  	  case 6: 
  	    result ="Jun"; 
  	    break; 
  	  case 7: 
  	    result ="Jul"; 
  	    break; 
  	  case 8: 
  	    result ="Aug"; 
  	    break; 
  	  case 9: 
  	    result ="Sep"; 
  	    break; 
  	  case 10: 
  	    result ="Oct"; 
  	    break; 
  	  case 11: 
  	    result ="Nov"; 
  	    break; 
  	  case 12: 
  	    result ="Dec"; 
      break; 
   } 

   return result; 
} 

bar = Cum(1);
Fb = Status( "firstvisiblebarindex" ); 
Lb = Status( "lastvisiblebar" ); 

GfxSetOverlayMode(2);
ToolTip = "\nY=" + GetCursorYPosition() + "\n Bar "+ SelectedValue( bar )+ "\n First Bar "+ Fb+ "\n Last Bar "+ Lb; 



String = "";
for( x = 0; x < 200 ; x++ ) 
{ 
	WList = CategoryGetName( categoryWatchlist, x );
	if(WList != "")
	{
		String = String + WList +","  ;
	}
}
WatchList = ParamList("Watch List", String ); 
//listNum= Param("Watch List Num" ,8,0,50,1); ;//enter watchlist number
for( x = 0; x < 200 ; x++ ) 
{ 
	sym = StrExtract( String, x );
	if(sym == WatchList)
	{
		listNum = x  ;
	}
}

Page = Param("Page #",0,0,20,1);
ChartsWiNum = Param("# Charts Wide",3,1,4,1);
ChartsHiNum = Param("# Charts High",3,1,4,1);
Bars =Param("Number Of Bars", 195,50,250,1) ;
lDays =Param("Long MA", 200,50,250,1) ;
sDays =Param("Short MA", 50,5,100,1) ;
vDays =Param("Volume MA", 50,5,100,1) ;
ChartMargin = 5 ;
DateMargin = 10 ;
DataMargin = 20 ;
NumCharts = ChartsWiNum * ChartsHiNum ;
ScreenHeight = Status("pxheight")  ;
SceernWidth = Status("pxwidth") ;
ChartHeight = ScreenHeight / ChartsHiNum -2  ;
Width = SceernWidth / ChartsWiNum - 2;
BarChartHeight=  (0.75) * ChartHeight - DataMargin;
VolChartHeight = ChartHeight - BarChartHeight - DataMargin*2 ;
NumberPriceLevels = BarChartHeight / 25;
BarChartWidth=  Width - 45;
BarWidth = (BarChartWidth - ChartMargin * 3) / Bars  ;
LastBar =  BarCount ;
FirstBar =  LastBar - Bars;
_N(list = CategoryGetSymbols( categoryWatchlist, listnum ));
printf("Watch List Name\n");
WL = CategoryGetName( categoryWatchlist, listnum );
SymbolNum = Page * NumCharts;

/*
_TRACE("ScreenHeight "+WriteVal(ScreenHeight));
_TRACE("ChartHeight "+WriteVal(ChartHeight));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("BarChartHeight "+WriteVal(BarChartHeight));
*/ 
for( x = 0; x < ChartsHiNum ; x++ ) 
{ 
	for( i = 0; i < ChartsWiNum ; i++ ) 
	{ 
		notDone = True;
		sym = StrExtract( list, SymbolNum );
		if(sym != "")
		{
		x1 = Width * i + 5; 
		y1 = ChartHeight * x + 5;
		x2 = Width * (i + 1);
		y2 = ChartHeight * (x + 1)-DateMargin;
		GfxSelectPen( colorBlack ); 
		GfxRectangle( x1, y1, x2, y2 );
		SymbolNum++;

		SetForeign(sym);

		EMAShort= EMA(C,sDays);
		EMALong= EMA(C,lDays);
		EMAVol= EMA(V,vDays);

		D = Day();
		M = Month();
		Y = Year();

		priceHigh = 0;
		VolHigh = 0;
		priceMin = 1000000;
		for( z = FirstBar; z < LastBar ; z++ ) 
		{ 
			Vol = V[z];
			BarH = H[z];
			BarL = L[z];
			if( Vol > VolHigh ) 
			{ 
				VolHigh = Vol;
			}
			if( BarH > priceHigh ) 
			{ 
				priceHigh = BarH;
			}
			if( BarL < priceMin ) 
			{ 
				priceMin = BarL;
			}
		}

		LOpen = O[LastBar-1];
		LHigh = H[LastBar-1];
		LLow = L[LastBar-1];
		LClose = C[LastBar-1];
		LVol = V[LastBar-1];
		GfxSelectFont("Tahoma", 9 ); 
		GfxSetTextColor(colorBlack); 
		GfxTextOut(sym + "   O: " +LOpen + "   H: " +LHigh + "   L: " +LLow + "   C: " +LClose + "   Vol: " +LVol/ 1000000+ " M", x1+5, y1+2); 

		VolRatio = VolChartHeight /  VolHigh ;
		Range = priceHigh - priceMin;
		Ratio = BarChartHeight / Range ;
		PriceLineLevel = Range / NumberPriceLevels;
		yHi=(((priceHigh - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
		yLow=((( priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
		GfxTextOut(WriteVal(priceHigh, 1.2),   x1 + BarChartWidth, yHi -8);
//		GfxTextOut(WriteVal(priceMin, 1.2),   x1 + BarChartWidth, yLow -8);
		GfxSelectPen( colorLightGrey ); 
		GfxMoveTo( x1 , yHi );
		GfxLineTo( x1 + BarChartWidth -5, yHi );

/*
_TRACE("x "+WriteVal(x));
_TRACE("i "+WriteVal(i));
_TRACE("VolHigh "+WriteVal(VolHigh));
_TRACE("VolChartHeight "+WriteVal(VolChartHeight));
_TRACE("VolRatio "+WriteVal(VolRatio,1.8));
_TRACE("Ratio "+WriteVal(Ratio));
_TRACE("PriceLineLevel "+WriteVal(PriceLineLevel));
*/
		for( z = 0; z < NumberPriceLevels-1   ; z++ ) 
		{ 
			PriceLevel = PriceLineLevel*z + priceMin;

			yHi=(((PriceLevel - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
			GfxTextOut(WriteVal(PriceLevel, 1.2),   x1 + BarChartWidth, yHi -8);
			GfxSelectPen( colorLightGrey ); 
			GfxMoveTo( x1 , yHi );
			GfxLineTo( x1 + BarChartWidth -5, yHi );
 		}

		HighestLast = 0;
		w = 1;
		sEMAlast = EMAShort[FirstBar];
		lEMAlast = EMALong[FirstBar];
		vEMAlast = EMAVol[FirstBar];
		for( z = FirstBar; z < LastBar ; z++ ) 
		{
			BarH = H[z];
			BarL = L[z];
			BarO = O[z];
			BarC = C[z];
			Vol = V[z];
			sEMA = EMAShort[z];
			lEMA = EMALong[z];
			vEMA = EMAVol[z];
			BarDay = D[z];
			BarMonth = M[z];
			BarYear = Y[z];


			yO = (((BarO - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;
			yC = (((BarC - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;
			yHi = (((BarH - priceMin )* Ratio)- BarChartHeight ) * -1 + y1 + DataMargin;
			yLo = (((BarL - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin ;
			ysEMAlast = (((sEMAlast - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
			ysEMA = (((sEMA - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
			ylEMAlast = (((lEMAlast - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
			ylEMA = (((lEMA - priceMin )* Ratio) - BarChartHeight) * -1 + y1 + DataMargin;
 			vHi = y2 - (Vol * VolRatio)  ;
 			yvEMAlast = y2 - (vEMAlast  * VolRatio) ;
 			yvEMA = y2 - (vEMA * VolRatio)  ;
			
			if( BarH > HighestLast ) 
			{ 
				HighestLast = BarH;
				GfxSelectPen( colorBlue );
			}

			else
			{ 
				GfxSelectPen( colorRed );
			}

			GfxMoveTo( BarWidth * w + x1 + ChartMargin , yHi );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, yLo );
			GfxMoveTo( BarWidth * w + x1 + ChartMargin -1  , yO );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, yO );
			GfxMoveTo( BarWidth * w + x1 + ChartMargin +1  , yC );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, yC );
			if( BarO > BarC)
			{
				GfxSelectPen( colorRed ); 
			}
			else
			{ 
				GfxSelectPen( colorLime );
			}
			GfxMoveTo( BarWidth * w + x1 + ChartMargin , vHi );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, y2 );

			GfxSelectPen( colorLime ); 
			GfxMoveTo( BarWidth * (w -1) + x1  + ChartMargin , ysEMAlast );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, ysEMA );
			GfxSelectPen( colorDarkRed ); 
			GfxMoveTo( BarWidth * (w -1) + x1  + ChartMargin , ylEMAlast );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, ylEMA );
			GfxSelectPen( colorBlack ); 
			GfxMoveTo( BarWidth * (w -1) + x1  + ChartMargin , yvEMAlast );
			GfxLineTo( BarWidth * w + x1 + ChartMargin, yvEMA );
			w++;
			
			sEMAlast = sEMA ;
			lEMAlast = lEMA ;
			vEMAlast = vEMA ;
			
			GfxSelectFont("Tahoma", 7 ); 
			GfxSelectPen( colorLightGrey ); 

			if(BarDay==1 & notDone )
			{
				if(BarMonth == 1) myLabel =WriteVal(BarYear, 1.0);				
				else myLabel =GetMonth(BarMonth);
				GfxTextOut(myLabel,   BarWidth * w + x1 + ChartMargin - 5, y2 +DateMargin/3);
				GfxMoveTo( BarWidth * w + x1 + ChartMargin , y2  );
				GfxLineTo( BarWidth * w + x1 + ChartMargin, y1 + DataMargin  );
				notDone = False;
			}

			if(BarDay==2 & notDone )
			{
				if(BarMonth == 1) myLabel =WriteVal(BarYear, 1.0);
				else myLabel =GetMonth(BarMonth);
				GfxTextOut(myLabel,   BarWidth * w + x1 + ChartMargin - 5, y2 +DateMargin/3);
				GfxMoveTo( BarWidth * w + x1 + ChartMargin , y2  );
				GfxLineTo( BarWidth * w + x1 + ChartMargin, y1 + DataMargin  );
				notDone = False;
			}

			if(BarDay==3 & notDone )
			{
				if(BarMonth == 1) myLabel =WriteVal(BarYear, 1.0);
				else myLabel =GetMonth(BarMonth);
				GfxTextOut(myLabel,   BarWidth * w + x1 + ChartMargin - 5, y2 +DateMargin/3);
				GfxMoveTo( BarWidth * w + x1 + ChartMargin , y2  );
				GfxLineTo( BarWidth * w + x1 + ChartMargin, y1 + DataMargin  );
				notDone = False;
			}

			if(BarDay==4 & notDone )
			{
				if(BarMonth == 1) myLabel =WriteVal(BarYear, 1.0);
				else myLabel =GetMonth(BarMonth);
				GfxTextOut(myLabel,   BarWidth * w + x1 + ChartMargin - 5, y2 +DateMargin/3);
				GfxMoveTo( BarWidth * w + x1 + ChartMargin , y2  );
				GfxLineTo( BarWidth * w + x1 + ChartMargin, y1 + DataMargin  );
				notDone = False;
			}

			if(BarDay==5 & notDone )
			{
				if(BarMonth == 1) myLabel =WriteVal(BarYear, 1.0);
				else myLabel =GetMonth(BarMonth);
				GfxTextOut(myLabel,   BarWidth * w + x1 + ChartMargin - 5, y2 +DateMargin/3);
				GfxMoveTo( BarWidth * w + x1 + ChartMargin , y2 - VolChartHeight );
				GfxLineTo( BarWidth * w + x1 + ChartMargin, y1 + DataMargin );
				notDone = False;
			}
			if(BarDay== 6|BarDay== 7|BarDay== 8|BarDay== 9|BarDay== 10 )
			{
				notDone = True;
			}
						
		}
		RestorePriceArrays(); 
		}
	} 
}

References:
- [amibroker] 4 charts in one pane-- different symbols
  - From: dave_88_1961
- Re: [amibroker] 4 charts in one pane-- different symbols
  - From: Dennis Brown

Prev by Date: RE: [amibroker] Help Manual
Next by Date: [amibroker] help needed for this formula
Previous by thread: [amibroker] Re: 4 charts in one pane-- different symbols
Next by thread: Re: [amibroker] 4 charts in one pane-- different symbols
Index(es):
- Date
- Thread