Count the number of stocks, which are x% away from a limit

Author: ruediger78

Creation Date: 2/13/2012 12:06 AM

Wealth Lab » WealthScript (.NET) » Count the number of stocks, which are x% away from a limit

ruediger78

2/13/2012 12:06 AM

Hi, Iam relative new to programming. I want to code the following strategy, but don’t know how. Hope you can help me out.
I have a Portfolio of 200 Stocks. Each Stock has a limit each day at which I buy. Now I want to check every morning how close the open to the limit price is. Then I want to count the number of stocks, which are less than 3% away from the limit. If there are many stocks(for example >50) less than 3% away from the limit I want to put each limit further away from the origin.
Is it possible to program this? How?

Eugene

2/13/2012 1:56 AM

Here's something to start with:

CODE:
Please log in to see this code.

Size:

Color:

Here's something to start with:
[CODE]using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

namespace WealthLab.Strategies
{
	public class Proximity : WealthScript
	{
		private StrategyParameter paramLimit;
		private StrategyParameter paramHowClose;
		
		public Proximity()
		{
			paramLimit = CreateParameter("Limit %", 5, 1, 10, 0.5);
			paramHowClose = CreateParameter("Proximity", 3, 1, 5, 1);
		}
		
		protected override void Execute()
		{
			HideVolume();
			DataSeries proximity = new DataSeries( Bars, "" ); proximity.Description = "How many stocks are close to limit";
			DataSeries LimitPrice = new DataSeries( Bars, "" ); LimitPrice.Description = "Limit price";			
			int cnt = 0;
			
			for(int bar = Bars.FirstActualBar+1; bar < Bars.Count; bar++)
			{	
				cnt = 0;
				
				for(int ds = 0; ds < DataSetSymbols.Count; ds++)
				{
					SetContext( DataSetSymbols[ds], true );
					LimitPrice = (Close>>1) * (1 - paramLimit.Value/100d);
					
					double prox = paramHowClose.Value/100d;
					if (Open[bar] <= LimitPrice[bar] * (1+prox) && Open[bar] >= LimitPrice[bar]* (1-prox))
						cnt++;
					
					RestoreContext();
				}
				
				proximity[bar] = cnt;
			}

DataSeries proximity_pct = proximity/DataSetSymbols.Count * 100; proximity_pct.Description = "Proximity, %";
			ChartPane cPane = CreatePane( 25, false, true );
			PlotSeries( cPane, proximity, Color.Green, LineStyle.Solid, 1 );
			PlotSeries( cPane, proximity_pct, Color.Red, LineStyle.Solid, 1 );
			
			for(int bar = 20; bar < Bars.Count; bar++)
			{
				if (IsLastPositionActive)
				{
					//code your exit rules here
				}
				else
				{
					//code your entry rules here
				}
			}
		}
	}
}[/CODE]