Plot weekly data on to an intraday chart

Author: Starburst

Creation Date: 4/6/2019 6:00 PM

Wealth Lab » WealthScript (.NET) » Plot weekly data on to an intraday chart

Starburst

4/6/2019 6:00 PM

What is be the best coding technique or work a round to plot daily or weekly data on to an intraday chart only if they are within the high or low for the day or a defined price range for that day so as to not crunch the screens intraday data into a straight line?
Thank you for your help.

Eugene

4/6/2019 7:34 PM

I'd start with the WealthScript Programming Guide > Multi-Time Frame Analysis > Intraday/Weekly,Monthly chapter:

CODE:
Please log in to see this code.

Starburst

4/8/2019 3:50 PM

Here is what I came up with. Is this the best way to do this by turning the plots on or off as you encounter them?

CODE:
Please log in to see this code.

Size:

Color:

Here is what I came up with.  Is this the best way to do this by turning the plots on or off as you encounter them? 
[code]using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;

namespace WealthLab.Strategies
{
	public class MyStrategy : WealthScript
	{
		protected override void Execute()
		{
			if( Bars.Scale != BarScale.Minute ) return;
			SetScaleWeekly();
			//----------- Weekly Exponential Moving Averages ------------------------
			DataSeries wkEMA8 = EMA.Series( Close, 8, WealthLab.Indicators.EMACalculation.Modern );
			DataSeries wkEMA20 = EMA.Series( Close, 20, WealthLab.Indicators.EMACalculation.Modern );
			DataSeries wkEMA34 = EMA.Series( Close, 34, WealthLab.Indicators.EMACalculation.Modern );
			RestoreScale();
			wkEMA8 = Synchronize( wkEMA8 ); 
			wkEMA8.Description = "wkEMA8";
			wkEMA20 = Synchronize( wkEMA20 ); 
			wkEMA20.Description = "wkEMA20";
			wkEMA34 = Synchronize( wkEMA34 ); 
			wkEMA34.Description = "wkEMA34";
			
			SetScaleDaily();
			//----------- Daily Exponential Moving Averages -----------------------
			DataSeries dlyEMA8 = EMA.Series( Close, 8, WealthLab.Indicators.EMACalculation.Modern );
			DataSeries dlyEMA20 = EMA.Series( Close, 20, WealthLab.Indicators.EMACalculation.Modern );
			DataSeries dlyEMA34 = EMA.Series( Close, 34, WealthLab.Indicators.EMACalculation.Modern );
			RestoreScale();
			dlyEMA8 = Synchronize( dlyEMA8 );
			dlyEMA8.Description = "dlyEMA8";
			dlyEMA20 = Synchronize( dlyEMA20 );
			dlyEMA20.Description = "dlyEMA20";
			dlyEMA34 = Synchronize( dlyEMA34 );
			dlyEMA34.Description = "dlyEMA34";

HideVolume();
			double highestHighToday = -1;
			double lowestLowToday = -1;
			int stDaybar = 0;
			int dayCt = 0;
			int barHi = 0;
			int barLo = 0;
			bool PlotEMA8wkOn = false;
			bool PlotEMA20wkOn = false;
			bool PlotEMA34wkOn = false;
			bool PlotEMA8dlyOn = false;
			bool PlotEMA20dlyOn = false;
			bool PlotEMA34dlyOn = false;
			DataSeries DayOpen = new DataSeries(Bars, "DayOpen");
			DataSeries DayHi = new DataSeries(Bars, "DayHi");
			DataSeries DayLo = new DataSeries(Bars, "DayLo");
			DataSeries PrevDayHi = new DataSeries(Bars, "PrevDayHi");
			DataSeries PrevDayLow = new DataSeries(Bars, "PrevDayLow");
			DataSeries PrevDayClose = new DataSeries(Bars, "PrevDayClose");
			DataSeries NumDay = new DataSeries(Bars, "Numday");
			Font font = new Font("Arial", 8, FontStyle.Regular);
			
			for(int bar = 1; bar < Bars.Count; bar++){
				if (Bars.IntradayBarNumber(bar) == 0){
					//*** Mark past daily intraday High or Low bar **********
					AnnotateBar( "Hi" , barHi, true, Color.Crimson, Color.Empty, font );
					DrawCircle( PricePane, 5, barHi, High[bar - ( bar - barHi )], Color.Crimson, Color.Crimson, WealthLab.LineStyle.Solid, 1, false );
					AnnotateBar( "Lo" , barLo, false, Color.Blue, Color.Empty, font );
					DrawCircle( PricePane, 5, barLo, Low[bar - ( bar - barLo )], Color.Blue, Color.Blue, WealthLab.LineStyle.Solid, 1, false );
					DrawLine( PricePane, stDaybar, DayOpen[bar-1], ( bar -1), DayOpen[bar-1], Color.Blue, WealthLab.LineStyle.Solid, 1 );
					DrawLine( PricePane, stDaybar, DayHi[bar-1], ( bar -1), DayHi[bar-1], Color.Black, WealthLab.LineStyle.Solid, 1 );
					DrawLine( PricePane, stDaybar, DayLo[bar-1], ( bar -1), DayLo[bar-1], Color.Black, WealthLab.LineStyle.Solid, 1 );
					// Make DayHi & DayLo series.
					dayCt = bar - stDaybar;
					for (int i = 1; i <= dayCt; i++) {
						DayHi[bar - i] = highestHighToday;
						DayLo[bar - i] = lowestLowToday;
						DayOpen[bar - i] = DayOpen[bar-1];
					}
					stDaybar = bar;
					barHi = bar;
					barLo = bar;
					highestHighToday = High[bar];//Todays high
					lowestLowToday = Low[bar];//Todays low
					PrevDayHi[bar] = DayHi[bar-1];//PrevDayHi
					PrevDayLow[bar] = DayLo[bar-1];//PrevDayLow
					PrevDayClose[bar] = Close[bar-1];//PrevDayClose
					DayOpen[bar] = Open[bar];//Todays open
					NumDay[bar] = NumDay[bar -1] + 1;//Count number of days
					//*** Mark current daily intraday High or Low bar **********
					if ( bar == Bars.Count - 1 ){
						AnnotateBar( "Hi" , barHi, true, Color.Crimson, Color.Empty, font );
						DrawCircle( PricePane, 5, barHi, High[bar - ( bar - barHi )], Color.Crimson, Color.Crimson, WealthLab.LineStyle.Solid, 1, false );
						AnnotateBar( "Lo" , barLo, false, Color.Blue, Color.Empty, font );
						DrawCircle( PricePane, 5, barLo, Low[bar - ( bar - barLo )], Color.Blue, Color.Blue, WealthLab.LineStyle.Solid, 1, false );
					}
				}else{
					if (High[bar] > highestHighToday){
						barHi = bar;
						highestHighToday = High[bar];//Todays high
					}
					if (Low[bar] < lowestLowToday){
						barLo = bar;
						lowestLowToday = Low[bar];//Todays low
					}
					PrevDayHi[bar] = PrevDayHi[bar -1];//PrevDaysHi
					PrevDayLow[bar] = PrevDayLow[bar-1];//PrevDayLow
					PrevDayClose[bar] = PrevDayClose[bar -1];//Last days close
					DayOpen[bar] = DayOpen[bar -1];//Todays open
					NumDay[bar] = NumDay[bar -1];//Count number of days
					//*** Mark current daily intraday High or Low bar **********
					if ( bar == Bars.Count - 1 ){
						dayCt = bar - stDaybar;
						for (int i = 0; i <= dayCt; i++){
							DayHi[bar - i] = highestHighToday;//*** Day high
							DayLo[bar - i] = lowestLowToday;//*** Day low
						}
						//--- Plot daily data if needed ---------------------------------------------- 
						if ( DayHi[bar] >= dlyEMA8[bar] & DayLo[bar] <= dlyEMA8[bar] ){
							PlotEMA8dlyOn = true;
						}else{
							PlotEMA8dlyOn = false;
						}
						if ( DayHi[bar] >= dlyEMA20[bar] & DayLo[bar] <= dlyEMA20[bar] ){
							PlotEMA20dlyOn = true;
						}else{
							PlotEMA20dlyOn = false;
						}
						if ( DayHi[bar] >= dlyEMA34[bar] & DayLo[bar] <= dlyEMA34[bar] ){
							PlotEMA34dlyOn = true;
						}else{
							PlotEMA34dlyOn = false;
						}
						if ( DayHi[bar] >= wkEMA8[bar] & DayLo[bar] <= wkEMA8[bar] ){
							PlotEMA8wkOn = true;
						}else{
							PlotEMA8wkOn = false;
						}
						if ( DayHi[bar] >= wkEMA20[bar] & DayLo[bar] <= wkEMA20[bar] ){
							PlotEMA20wkOn = true;
						}else{
							PlotEMA20wkOn = false;
						}
						if ( DayHi[bar] >= wkEMA34[bar] & DayLo[bar] <= wkEMA34[bar] ){
							PlotEMA34wkOn = true;
						}else{
							PlotEMA34wkOn = false;
						}
						AnnotateBar( "Hi" , barHi, true, Color.Crimson, Color.Empty, font );
						DrawCircle( PricePane, 5, barHi, High[bar - ( bar - barHi )], Color.Crimson, Color.Crimson, WealthLab.LineStyle.Solid, 1, false );
						AnnotateBar( "Lo" , barLo, false, Color.Blue, Color.Empty, font );
						DrawCircle( PricePane, 5, barLo, Low[bar - ( bar - barLo )], Color.Blue, Color.Blue, WealthLab.LineStyle.Solid, 1, false );
						DrawLine( PricePane, stDaybar, DayOpen[bar], bar, DayOpen[bar], Color.Blue, WealthLab.LineStyle.Solid, 1 );
						DrawLine( PricePane, stDaybar, highestHighToday, bar, highestHighToday, Color.Black, WealthLab.LineStyle.Solid, 1 );
						DrawLine( PricePane, stDaybar, lowestLowToday, bar, lowestLowToday, Color.Black, WealthLab.LineStyle.Solid, 1 );
					}
				}
				DayHi[bar] = highestHighToday;//*** Todays high
				DayLo[bar] = lowestLowToday;//*** Todays low
			}
			PlotSeries( PricePane, DayOpen, Color.Blue, WealthLab.LineStyle.Invisible, 1 );
			PlotSeries( PricePane, DayHi, Color.Black, WealthLab.LineStyle.Invisible, 1 );
			PlotSeries( PricePane, DayLo, Color.Black, WealthLab.LineStyle.Invisible, 1 );
			if ( PlotEMA8dlyOn ){
				PlotSeries( PricePane, dlyEMA8, Color.Aqua, WealthLab.LineStyle.Solid, 1 );
			}
			if ( PlotEMA20dlyOn ){
				PlotSeries( PricePane, dlyEMA20, Color.Crimson, WealthLab.LineStyle.Solid, 1 );
			}
			if ( PlotEMA34dlyOn ){
				PlotSeries( PricePane, dlyEMA34, Color.Indigo, WealthLab.LineStyle.Solid, 1 );
			}
			if ( PlotEMA8wkOn ){
				PlotSeries( PricePane, wkEMA8, Color.Aqua, WealthLab.LineStyle.Dashed, 1 );
			}
			if ( PlotEMA20wkOn ){
				PlotSeries( PricePane, wkEMA20, Color.Crimson, WealthLab.LineStyle.Dashed, 1 );
			}
			if ( PlotEMA34wkOn ){
				PlotSeries( PricePane, wkEMA34, Color.Indigo, WealthLab.LineStyle.Dashed,1 );
			}
		}
	}
}[/code]