Translating SuperBands - Wealth Lab Forum

Translating SuperBands

Author: slice9

Creation Date: 11/23/2008 1:07 AM

Wealth Lab » Trading Strategies » Translating SuperBands

slice9

11/23/2008 1:07 AM

Help!

I have just joined and am experiencing the newbie stupids. I am trying to cut and paste SuperBands, with Linear Regression Analysis to clip board in WL5.1. I want to paste the following:

CODE:
Please log in to see this code.

But, I have no idea what I am doing. Can some help??

Slice9 (Can't get the 9iron to work either.)

Eugene

11/23/2008 3:46 AM

Hi,

QUOTE:
I am trying to cut and paste SuperBands, with Linear Regression Analysis to clip board in WL5.1. I want to paste the following:

As stated in this WL5 Wiki FAQ, copying and pasting is not going to work:
Will Wealth-Lab Developer 5.1 recognize my chartscripts?

P.S. Please put your code inside the CODE tags when posting.

slice9

11/23/2008 4:00 AM

Eugene: Thanks. Slice9

The main problem with translating the script is the absense of the LinearRegLine function in WLD5. Guess we'll have to ask the developers why it's not included.

Update:
Oops, not a problem - LineExtendX can be used instead.

Eugene

11/23/2008 5:10 AM

Well here it goes - a Q&D approximation of SuperBands to V5. Note that it's close to the original (with STDEVP selected in V4's Options - Indicator Calculations), but still not exact.

CODE:
Please log in to see this code.

Size:

Color:

Well here it goes - a Q&D approximation of SuperBands to V5. Note that it's close to the original (with STDEVP selected in V4's Options - Indicator Calculations), but still not exact.

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

namespace WealthLab.Strategies
{
	public class SuperBands : WealthScript
	{
		protected override void Execute()
		{
			// Define data series
			BBandLower bbL = BBandLower.Series( Low, 10, 1.5 );
			BBandUpper bbU = BBandUpper.Series( Close, 10, 1.5 );
			DataSeries UpperBand = BBandUpper.Series( High, 10, 1.5 ) * 1.3;

// misc
			WealthLab.LineStyle solid = WealthLab.LineStyle.Solid;
			double f = 0.945;

// Plot Indicators
			PlotSeries( PricePane, bbL, Color.Black, solid, 1 );
			PlotSeries( PricePane, bbU, Color.Black, solid, 1 );
			PlotSeries( PricePane, UpperBand, Color.Chocolate, solid, 1 );

for(int n = 10; n > 0; n--)
			{
				DataSeries LowerBand = BBandLower.Series( Close, 10, 1.5 ) * f;
				PlotSeries( PricePane, LowerBand, Color.Chocolate, solid, 1 );
				f -= 0.0025;
			}
			
			for(int bar = 20; bar < Bars.Count-1; bar++)
			{
				double l = LineExtendX( bar-10, LinearReg.Series( Close, 10 )[bar-10], 
					bar-1, LinearReg.Series( Close, 10 )[bar-1], Close[bar] );
				
				if (IsLastPositionActive)
				{
					Position p = LastPosition;
					if (bar + 1 - p.EntryBar >= 1 )
						SellAtMarket( bar+1, Position.AllPositions, "Time-based");
				}
				else
				{
					if( Close[bar] > 5.0 )	// filter out low-priced stocks
					{
						f = 0.945;
						for(int n = 10; n > 0; n--)
						{
							if( l > ( BBandLower.Series( Low, 10, 1.5 )[bar] * f ) )
							{
								if( Open[bar+1] > ( bbL[bar] * f ) )
								{
									//if( BuyAtLimit( bar+1, bbL[bar] * f ) != null )
									if( BuyAtLimit( bar+1, 
										( BBandLower.Series( Low, 10, 1.5 )[bar] * f ) ) != null )
										LastPosition.Priority = n;
									f -= 0.0025;
								}
							}
						}
					}
				}
			}
		}
	}
}
[/CODE]

Wealth Lab » Trading Strategies » Translating SuperBands