Neo Master for going Short - Wealth Lab Forum

Neo Master for going Short

Author: tastoutdds

Creation Date: 3/1/2009 2:27 PM

Wealth Lab » Trading Strategies » Neo Master for going Short

tastoutdds

3/1/2009 2:27 PM

I am wondering if a script has been written that mirrors the classic Wealthlab Neomaster script but rather than buying he market it shorts the market. Neomaster worked well as a strategy in a bull market but is getting killed in this bear market. If someone could write it using the rules program rather than the script program it would be most helpful.

Eugene

3/1/2009 2:47 PM

CODE:
Please log in to see this code.

Size:

Color:

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

namespace WealthLab.Strategies
{
	public class ShortingNeoMaster : WealthScript
	{
		private StrategyParameter paramPeriod;
		private StrategyParameter paramConsec;
		private StrategyParameter paramAgo;
		private StrategyParameter paramOversold;
		private StrategyParameter paramOverbought;
		
		public ShortingNeoMaster()
		{
			paramPeriod = CreateParameter("CMO Period", 14, 6, 30, 4);
			paramConsec = CreateParameter("Consec Down", 9, 3, 21, 3);
			paramAgo = CreateParameter("Bars Ago", 4, 1, 8, 1);
			paramOversold = CreateParameter("Oversold", 50, 30, 100, 10);
			paramOverbought = CreateParameter("Overbought", -50, -30, -100, 10);
		}
		
		protected override void Execute()
		{
			bool bought = false;
			bool sold = false;
			
			//Get values from parameters
			int period = paramPeriod.ValueInt;
			int consec = paramConsec.ValueInt;
			int ago = paramAgo.ValueInt;
			double oversold = paramOversold.Value;
			double overbought = paramOverbought.Value;
			
			//Create and plot Chande Momentum Oscillator
			DataSeries cmo = CMO.Series(Bars.Close, period);
			ChartPane cmoPane = CreatePane(75, true, true);
			PlotSeries(cmoPane, cmo, Color.Blue, LineStyle.Solid, 1);
			
			//trading system rules
			for(int bar = Math.Max(period, consec + ago); bar < Bars.Count; bar++)
			{
				if (CumDown.Series(Bars.Close, ago)[bar] == 0)
					bought = false;
				if (CumDown.Series(Bars.Close, ago)[bar] >= consec)
					if (!bought)
					{
						bought = true;
						BuyAtMarket(bar + 1);
					}
				if (CumUp.Series(Bars.Close, ago)[bar] >= 9 || cmo[bar] >= oversold)
					SellAtMarket(bar + 1, Position.AllPositions);
				
				if (CumUp.Series(Bars.Close, ago)[bar] == 0)
					sold = false;
				if (CumUp.Series(Bars.Close, ago)[bar] >= consec)
					if (!sold)
					{
						sold = true;
						ShortAtMarket(bar + 1);
					}
				if (CumDown.Series(Bars.Close, ago)[bar] >= 9 || cmo[bar] <= overbought)
					CoverAtMarket(bar + 1, Position.AllPositions);
			}
		}
	}
}[/CODE]

DaveAronow

3/1/2009 5:07 PM

Now, can you make it predict the bear market? :P

Eugene

3/2/2009 12:59 AM

Predicting the bear market -- how about The Hindenburg Omen, The Titanic Syndrome etc.?

tastoutdds

3/2/2009 7:32 PM

I tried using the copy and paste commands to enter this into my Wealthlab but that did not seem to work. So I printed out your script and entered it manually checking my entries twice. What I have is not working. Can you please recheck your work and if you find it correct, please advise me how to copy it into Wealthlab? Thank you so much for your help.

Eugene

3/3/2009 2:24 AM

The strategy undoubtedly works.

Most likely, copying and pasting failed because this site's having a bug when copying and pasting with your browser which is IE7.

Two workarounds:

1. Change IE7 to Firefox3. Copy/paste will work flawlessly and your browsing will benefit from extra speed, security and usability.
2. For IE7: copy -> paste to Wordpad -> copy from Wordpad -> paste elsewhere.