Customized Bollinger Band - Wealth Lab Forum

Customized Bollinger Band

Author: JohnColes666

Creation Date: 3/14/2011 9:26 AM

Wealth Lab » Technical Indicators » Customized Bollinger Band

JohnColes666

3/14/2011 9:26 AM

I am just trying to learn how to program in wealth-lab and have written a test program that allows me to try different features of the program. I am trying to create a Bollinger Band envelope based on the high of the day and the greater value of the open or close of the day. I am also doing the same thing with low of the day in reverse. The problem I am having is the BBInnerTop is the same as the Bollinger Band for the close. I have been looking at the code to long and can't see my problem, maybe someone else can spot my error.

CODE:
Please log in to see this code.

Size:

Color:

I am just trying to learn how to program in wealth-lab and have written a test program that allows me to try different features of the program.  I am trying to create a Bollinger Band envelope based on the high of the day and the greater value of the open or close of the day.  I am also doing the same thing with low of the day in reverse.  The problem I am having is the BBInnerTop is the same as the Bollinger Band for the close.  I have been looking at the code to long and can't see my problem, maybe someone else can spot my error.

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

namespace WealthLab.Strategies
{
	public class UpsideDown1 : WealthScript
	{
		//	StrategyParameter bbPeriod;		
		StrategyParameter fastPeriod;
		StrategyParameter slowPeriod;
		StrategyParameter wmaPeriod;
		
		public UpsideDown1 ()
		{
			//	bbPeriod   = CreateParameter("Bands Period",20,15,25,1);
			fastPeriod = CreateParameter("Fast SMA",20,7,33,1);
			slowPeriod = CreateParameter("Slow SMA",50,33,67,1);
			wmaPeriod = CreateParameter("WMA Speed",12,7,22,1);
		}
		
		protected override void Execute()
		{
			const char tab = '\u0009';
			//			int BBperiod = bbPeriod.ValueInt;
			int BBperiod = 20;
			int FastPeriod = fastPeriod.ValueInt;
			int SlowPeriod = slowPeriod.ValueInt;
			int WmaPeriod = wmaPeriod.ValueInt;
			
			//	Setup the High and Low Bollinger Band Stuff	- get the outer band
			
			DataSeries BBHigh      = BBandUpper.Series(High,  BBperiod, 2 );
			DataSeries BBLow       = BBandLower.Series(Low,   BBperiod, 2 );

//	Create the series for the Top / Bottom
			
			DataSeries BBTop	   = (Close);
			DataSeries BBBottom	   = (Open);
			
			//	Swap the Open/Close on the down days to stop the crossovers
			
			for(int bar = 1; bar < Bars.Count; bar++)			
			{
				if (Open[bar]>Close[bar])
				{
					BBTop[bar]=Open[bar];
					BBBottom[bar]=Close[bar];
				}
			}
			
			DataSeries BBInnerTop   = BBandUpper.Series(BBTop,     BBperiod, 2 );			
			DataSeries BBInnerBottom= BBandLower.Series(BBBottom,  BBperiod, 2 );
			
			
			//	Do the SMAs
			DataSeries BBSma       = SMA.Series(Close,BBperiod);
			DataSeries SMA_Fast	   = SMA.Series(Close,FastPeriod);
			DataSeries SMA_Slow	   = SMA.Series(Close,SlowPeriod);
			DataSeries SMA_200	   = SMA.Series(Close,200);
			DataSeries SMA_Vol	   = SMA.Series(Volume,20);
			
			//	Flatten out the Bollinger band
			DataSeries BBFlat	   = BBInnerTop - BBSma;
			
			//	Compute the innverse of the 50 off the 20
			DataSeries FastSlowFlat= (SMA_Slow - SMA_Fast)* -1;
			DataSeries InverseSlow = ((SMA_Slow - SMA_Fast) * -1) + SMA_Fast;

//  Flatten out the WMA
			DataSeries WMAseries   = WMA.Series(Close,WmaPeriod);
			DataSeries WMAwave	   = (WMAseries-SMA_Fast);

// Add in the descriptions
			
			WMAwave.Description = "WMA Speed "+WmaPeriod;
			InverseSlow.Description = "Inverse Period "+SlowPeriod;
			
			// Reserve the wave area
			ChartPane  BBPaneWidth=CreatePane(20,true,true);
			PlotSeries(BBPaneWidth,BBFlat,Color.Green,LineStyle.Solid ,1);
			PlotSeries(BBPaneWidth,FastSlowFlat,Color.Red,LineStyle.Dashed,1);
			PlotSeries(BBPaneWidth,WMAwave,Color.Blue,LineStyle.Solid ,1);
			
			// PricePane
			PlotSeries(PricePane, InverseSlow,Color.Purple,LineStyle.Solid,1);
			PlotSeries(PricePane, SMA_Fast, Color.Green, LineStyle.Solid, 1);
			PlotSeries(PricePane, SMA_Slow, Color.Red, LineStyle.Solid, 1);
			PlotSeries(PricePane, BBSma, Color.Blue, LineStyle.Solid, 1);
			PlotSeries(PricePane, WMAseries, Color.Green, LineStyle.Solid, 2);
			PlotSeries(PricePane, SMA_200, Color.Black, LineStyle.Solid, 1);
			SolidBrush shadowBrush = new SolidBrush(Color.FromArgb(50, Color.Aquamarine));
			PlotSeriesFillBand(PricePane, BBInnerTop, BBHigh, Color.Silver, shadowBrush, LineStyle.Solid, 2);
			PlotSeriesFillBand(PricePane, BBInnerBottom, BBLow, Color.Silver, shadowBrush, LineStyle.Solid, 2);
		
			//	VolumePane 20 day sma volume
			PlotSeries(VolumePane, SMA_Vol,Color.Blue,LineStyle.Solid,1);
			//	Plot what you have learned
			//	PlotSeries(VolumePane, SMA.Series(Volume,21),Color.Blue,LineStyle.Solid,1);
			
		}
	}
}

[/CODE]