DrKoch's WinLoss - Wealth Lab Forum

DrKoch's WinLoss

Author: thodder

Creation Date: 9/9/2009 9:44 AM

Wealth Lab » Extensions » DrKoch's WinLoss

thodder

9/9/2009 9:44 AM

I've ported DrKoch's WinLossBackground funtion from WL4 to WLP 5.4 (http://wl4.wealth-lab.com/cgi-bin/WealthLab.DLL/libraryview?item=76). Could you put this in the Community.Components library?

CODE:
Please log in to see this code.

Size:

Color:

I've ported DrKoch's WinLossBackground funtion from WL4 to WLP 5.4 ([LINK]http://wl4.wealth-lab.com/cgi-bin/WealthLab.DLL/libraryview?item=76[/LINK]).  Could you put this in the Community.Components library?
[CODE]
public void WinLossBackground(int mode)
{
	// WinLossBackground
	// Paint background according to profit
	// with overlapping positions the worst trade determines the
	// background color
	// trades better than 0.5 percent are marked green
	// trades worse than -0.5 percent are marked red
	// the trades between -0.5% and +0.5 % are marked yellow
	// in mode 1 trades better/worse than +5%/-5% are marked with a
	// stronger green/red color
	//
	// mode selects the color scheme. Possible values:
	// 0 standard (light red, light green)
	// 1 strong (red, light red, yellow, light green green)

DataSeries code_s = new DataSeries(Bars, "colors");
	
	for(int pos = 0; pos < Positions.Count - 1; pos++)
	{
		Position p = Positions[pos];
		double price1 = p.EntryPrice;
		double price2 = p.ExitPrice;
		
		double profit = 0.0;
		
		if (p.PositionType == PositionType.Long)
		{
			profit = (price2 - price1) / price1 * 100.0;
		}
		else
		{
			profit = (price1 - price2) / price1 * 100.0;
		}
		
		double color = 0.0;
		
		if (profit > 5) color = -1;
		else if (profit > 0.5) color = -2;
		else if (profit > -0.05) color = -3;
		else if (profit > -5 ) color = -4;
		else color = -5;
		
		for(int bar = p.EntryBar; bar <= p.ExitBar; bar++)
		{
			if ( color < code_s[bar] )
			{
				code_s[bar] = color;
			}
		}
		
	}
	
	for(int bar = 0; bar < Bars.Count; bar++)
	{
		int color_code = (int)code_s[bar];
		
		Color BackgroundColor = Color.Empty;
		
		if (mode == 0)
		{
			switch(color_code)
			{
				case 0:
					break;
				case -1:
				case -2:
					BackgroundColor = Color.LightGreen;
					break;
				case -3:
					BackgroundColor = Color.LightYellow;
					break;
				default:
					BackgroundColor = Color.LightPink;
					break;
			}
		}
		else
		{
			switch(color_code)
			{
				case 0:
					break;
				case -1:
					BackgroundColor = Color.Lime;
					break;
				case -2:
					BackgroundColor = Color.LightGreen;
					break;
				case -3:
					BackgroundColor = Color.LightYellow;
					break;
				case -4:
					BackgroundColor = Color.LightPink;
					break;
				default:
					BackgroundColor = Color.Pink;
					break;
			}
		}
		
		if ( BackgroundColor != Color.Empty )
		{
			SetBackgroundColor(bar, BackgroundColor);
		}
	}
}
[/CODE]