Screener for reaching 52 week high

Author: jaycoje

Creation Date: 2/4/2011 10:34 AM

Wealth Lab » WealthScript (.NET) » Screener for reaching 52 week high

jaycoje

2/4/2011 10:34 AM

Hello. I'm very new to Wealth Lab and very new to Script writing, but I want to write a simple screener as my first project. My question is: is there an existing daily screener that has been written that I can use and just write and plug in my own criteria like, prices reaching 52 week highs, support and resistance breakthroughs, moving average crossovers ect. Please let me know if this is possible or if this has been covered before.
Thanks.

Cone

2/4/2011 10:43 AM

Click Help > WealthScript PRogramming Guide and then navigate to Techniques > Creating a Screener

Also note the link at the bottom "How to: Convert Strategy Code into a Screen". This is important for non-programmers because you can use drag and drop in the Strategy Builder (Ctrl+Alt+R) for most or all of your Rules, convert it to code, and just edit one line to turn it into a Screener.

jaycoje

2/4/2011 11:09 AM

Thanks Cone! I have read and experimented with the Strategy Builder but I'm looking for rules that are specific to my needs, that's where I'm having trouble. For example, with the Pricing rules I want to know when a price is within a certain percent of reaching a 52 week high, and prices reaching resistance levels at closing prices on daily charts. I know what I want in my head, but putting it into code is complicated as of now, looks like I a lot of learning to do. Thanks again.

Cone

2/4/2011 4:10 PM

This will get you started with that -

CODE:
Please log in to see this code.

Modified for a screen:

CODE:
Please log in to see this code.

Size:

Color:

This will get you started with that -

[CODE]using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

namespace WealthLab.Strategies
{
	public class MyStrategy : WealthScript
	{
		protected override void Execute()
		{	
			double pct = 5; 	// to detect values within 5% of 52-week high or 20% peak
			
			// Create a series of 52-week highs
			DataSeries hi52 = Highest.Series(High, 251);	// assumes daily bars
			DataSeries near52 = hi52 * (1 - pct/100d);
			PlotSeries(PricePane, hi52, Color.Red, LineStyle.Dots, 3);
			
			// Let's call a resistance level a 20% peak, so find those peak
			DataSeries peaks = Peak.Series(High, 20.0, PeakTroughMode.Percent);	
			DataSeries nearPeaks = peaks * (1 - pct/100d);
			// Plot the peaks, noting that the indicator can detect a peak only after the 20% retracement
			PlotSeries(PricePane, peaks, Color.Purple, LineStyle.Dashed, 1);
			
			// detect the bars whose closing price is within 5% of a 52-week high, based on the previous bar
			for(int bar = 20; bar < Bars.Count; bar++)
			{
				if (Close[bar] < hi52[bar - 1] && Close[bar] >= near52[bar - 1])
				{
					// do something, like paint the chart on this bar
					SetBackgroundColor(bar, Color.FromArgb(40, Color.Blue));
				}
				else if (Close[bar] < peaks[bar - 1] && Close[bar] >= nearPeaks[bar - 1])
				{
					// do something, like paint it a different color
					SetBackgroundColor(bar, Color.FromArgb(40, Color.Green));
				}
				
			}
		}
	}
}[/CODE]

Modified for a screen: 
[CODE]using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

/* Screen only - works for last bar of the chart - check Alerts */
			int bar = Bars.Count - 1;
			{
				if (Close[bar] < hi52[bar - 1] && Close[bar] >= near52[bar - 1])
				{
					// do something, like paint the chart on this bar
					SetBackgroundColor(bar, Color.FromArgb(40, Color.Blue));
					BuyAtMarket(bar + 1);
				}
				else if (Close[bar] < peaks[bar - 1] && Close[bar] >= nearPeaks[bar - 1])
				{
					// do something, like paint it a different color
					SetBackgroundColor(bar, Color.FromArgb(40, Color.Green));
					BuyAtMarket(bar + 1);
				}
				
			}
		}
	}
}[/CODE]