Quiet accumulation: improve code

Author: MrHari

Creation Date: 8/19/2017 7:01 PM

Wealth Lab » WealthScript (.NET) » Quiet accumulation: improve code

MrHari

8/19/2017 7:01 PM

I have following code:

CODE:
Please log in to see this code.

This code looks too verbose. Is this the right way to write code using WealthScript? May be there is already an indicator or library util to do this. Is there any suggestion to improve this?

The annotations will show only on few charts. It shows up on BABA weekly, CBOE weekly, etc.

Eugene

8/20/2017 7:33 AM

Note that "pctChange" is in fact ROC - a built-in indicator.

There are many ways to skin a cat. Here's an alternative that uses SeriesIsAboveValue and its counterpart SeriesIsBelowValue from Community Indicators.

These indicators can be used to count the number of bars a series like ROC has stayed above/below a value for N bars. The extra ChartPanes visualize the ROC values - hope this should answer why it shows on some charts and not the other.

CODE:
Please log in to see this code.

Size:

Color:

Note that "pctChange" is in fact [link=http://www2.wealth-lab.com/WL5WIKI/ROC.ashx]ROC[/link] - a built-in indicator.

There are many ways to skin a cat. Here's an alternative that uses [link=http://www2.wealth-lab.com/WL5WIKI/SeriesIsAboveValue.ashx]SeriesIsAboveValue[/link] and its counterpart [link=http://www2.wealth-lab.com/WL5WIKI/SeriesIsBelowValue.ashx]SeriesIsBelowValue[/link] from [link=https://www.wealth-lab.com/Extensions/Details/11]Community Indicators[/link].

These indicators can be used to count the number of bars a series like ROC has stayed above/below a value for N bars. The extra ChartPanes visualize the ROC values - hope this should answer why it shows on some charts and not the other.

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

namespace WealthLab.Strategies
{
	public class MyStrategy : WealthScript
	{
		protected override void Execute()
		{
			var pctChange = ROC.Series(Close,1);
			var rocUp = SeriesIsAboveValue.Series(pctChange,0,5);
			var rocDown = SeriesIsBelowValue.Series(pctChange,3.0,5);
			
			for (int bar = GetTradingLoopStartBar(1); bar < Bars.Count; bar++)
			{   
				if (rocUp[bar] >= 5 && rocDown[bar] >= 5)
				{
					AnnotateBar( "|", bar, false, Color.Black);
					AnnotateBar( "|", bar, false, Color.Black);
					AnnotateBar( "|", bar, false, Color.Black);
					AnnotateBar( "5wQA", bar, false, Color.Black, Color.Yellow);
				}
			}
			
			var lh = LineStyle.Histogram;
			var ls = LineStyle.Solid;			
			var pd = CreatePane(20,true,true);
			var pu = CreatePane(20,true,true);
			PlotSeries(pd,rocDown,Color.Red,lh,1);
			PlotSeries(pu,rocUp,Color.Blue,lh,1);
			DrawHorzLine(pd,5,Color.Black,ls,1);
			DrawHorzLine(pu,5,Color.Black,ls,1);
		}
	}
}[/code]