TII indicator - Wealth Lab Forum

TII indicator

Author: dzviovich

Creation Date: 3/14/2009 11:07 PM

Wealth Lab » Technical Indicators » TII indicator

dzviovich

3/14/2009 11:07 PM

Hi there,
What is the equivalent to the TIISeries from WL4 in WL5?

Eugene

3/15/2009 5:33 AM

I'm at a loss why this simple formula isn't available natively. Here is a demo for you. I'm going to include it in Community.Inidcators in the next round.

CODE:
Please log in to see this code.

Size:

Color:

I'm at a loss why this simple formula isn't available natively. Here is a demo for you. I'm going to include it in Community.Inidcators in the next round.
[CODE]using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

namespace WealthLab.Strategies
{
	public class TII_demo : WealthScript
	{
		private StrategyParameter paramMAperiod;
		private StrategyParameter paramPeriod;
		
		public TII_demo()
		{
			paramMAperiod = CreateParameter("MA Period", 60, 5, 80, 5);
			paramPeriod = CreateParameter("TII Period", 30, 5, 50, 5);
		}
		
		protected override void Execute()
		{
			int ma_period = paramMAperiod.ValueInt;
			int period = paramPeriod.ValueInt;			
			
			/* If price is above the moving average, a positive deviation is recorded, 
			and if price is below the moving average a negative deviation. 
			The deviation is simply the distance between price and the moving average.

Once the deviations are calculated, TII is calculated as:
			( Sum of Positive Dev ) / ( ( Sum of Positive Dev ) + ( Sum of Negative Dev ) ) * 100 */
			
			DataSeries pos = new DataSeries( Bars, "Positive Deviations" );
			DataSeries neg = new DataSeries( Bars, "Negative Deviations" );
			DataSeries ds = Close; // data series
			DataSeries ma = SMA.Series( ds,ma_period ) ; // MA
			
			double p = 0; double n = 0;
			for(int i = ma_period; i < Bars.Count; i++)
			{
				double p_diff = ds[i] - ma[i];
				double n_diff = ma[i] - ds[i];
				pos[i] = ( p_diff > 0 ) ? p_diff : 0;
				neg[i] = ( n_diff > 0 ) ? n_diff : 0;
			}
			
			DataSeries SDPos = Sum.Series( pos, period );
			DataSeries SDNeg = Sum.Series( neg, period );
			
			DataSeries TII = SDPos / ( SDPos + SDNeg ) * 100;
			TII.Description = String.Concat( "TII(", ds.Description, "," , ma_period.ToString(), "," , period.ToString(), ")" );
			
			ChartPane tiiPane = CreatePane( 30, true, true );
			PlotSeries( tiiPane, TII, Color.Blue, LineStyle.Solid, 2 );	
			DrawHorzLine( tiiPane, 20, Color.Red, LineStyle.Dashed, 1 );
			DrawHorzLine( tiiPane, 80, Color.Blue, LineStyle.Dashed, 1 );
		}
	}
}[/CODE]