Heikin Ashi Strategy (SPY/SH) and inverse chart symbol

nventress23

#1

2/27/2021 5:39 PM

Hello WLD Support Team!

I’m in need of some code support from the experts, as I’ve run into 4 items that are probably an easy fix for someone with more experience coding WLD.

Please see my request for some code help in comments (Fully listed at bottom of code //comments.)

#1. I would like to build a simple MA crossover BUY/SELL Algo on the already created Heikin-Ashi bars and SMA.Series(HAbars.Close, 9). With ENTRY/EXIT Bar Annotations.
#2. HAbars(SMA9) MA_Line Dual Plot line Coloring (Just like MA in the other PANES (Up/Down)): (Lines# 363-371)
#3. Correctly address the Annotation of the 200Day High/Low SH bars in the SHPane. (Lines# 138-149)
#4. Create/Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 152-171)
It currently works in the Price Pane only...as I'm not sure how to address the SH bar in the SHPane.
* Not sure, But-If there's a way to make an inverse of the Bottom I.D. code into a TOP I.D. Code (Peaks) that would be useful code to have..

CODE:
Please log in to see this code.

ENVS-PairsChart_2-2021.png

Size:

Color:

Hello WLD Support Team!
 
I’m in need of some code support from the experts, as I’ve run into 4 items that are probably an easy fix for someone with more experience coding WLD.

Please see my request for some code help in comments (Fully listed at bottom of code //comments.)

#1.	I would like to build a simple MA crossover BUY/SELL Algo on the already created Heikin-Ashi bars and SMA.Series(HAbars.Close, 9).  With ENTRY/EXIT Bar Annotations. 
#2.	HAbars(SMA9) MA_Line Dual Plot line Coloring (Just like MA in the other PANES (Up/Down)):  (Lines# 363-371)  
#3.  Correctly address the Annotation of the 200Day High/Low SH bars in the SHPane.  (Lines# 138-149)
#4.  Create/Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 152-171)  
       It currently works in the Price Pane only...as I'm not sure how to address the SH bar in the SHPane.  
*  Not sure, But-If there's a way to make an inverse of the Bottom I.D. code into a TOP I.D. Code (Peaks) that would be useful code to have..

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

namespace WealthLab.Strategies
{
	public class ENVS_INVERSE_PAIRS_WLDForum_2_2021 : WealthScript
		
	{
		private StrategyParameter slider1;
		private StrategyParameter slider2;
		private StrategyParameter slider3;
		private StrategyParameter slider4;
		public ENVS_INVERSE_PAIRS_WLDForum_2_2021()
		{
			slider1 = CreateParameter("Profit Pct", 8, 1, 300, 1);
			slider2 = CreateParameter("Stop Pct", 4, 1, 30, 1);
			slider3 = CreateParameter("Trail Stop Trigger Pct", 10, 1, 100, 1);
			slider4 = CreateParameter("Trail Stop Pct", 20, 1, 100, 1);
		}

protected override void Execute()
		{

bool enableDebug = false;
			if (enableDebug) ClearDebug();

bool abovePricePane = true;
			bool displayGrid = true;

PadBars(1); // Places #of Bars space on right side of chart.

Font font = new Font("Arial", 14, FontStyle.Bold);
			// Demonstrates operation overload
			for (int bar = 200; bar < Bars.Count; bar++)
			{
				// Annotate a bar if it's a 200 day closing high
				if (Bars.Close[bar] == Highest.Series(Close, 200)[bar])
					AnnotateBar("^", bar, true, Color.LawnGreen);

// Annotate a bar if it's a 200 day closing Low
				if (Bars.Close[bar] == Lowest.Series(Close, 200)[bar])
					AnnotateBar("*", bar, false, Color.Red);
			}

// Coloring for the chart backgrounds: 
			Color RedBkg = Color.FromArgb(80, 255, 204, 204);
			Color GreenBkg = Color.FromArgb(95, 153, 204, 153);
			Color GreenBK = Color.FromArgb(102, 0, 147, 0);
			Color RedBK = Color.FromArgb(102, 191, 0, 0);

// <<<<  Inverse SHPane "SH" Bars >>>>>>.................................>> Inverse SHPane <<............................................................>> Inverse SHPane <<............................................	
			Bars SH = GetExternalSymbol("SH", true);  // THIS IS THE "INVERSE Ticker/SYMBOL"..  Select other PAIRS By changing this "Symbol"...  SPY/*SH, DIA/*DOG, TQQQ/*SQQQ..... 
			ChartPane SHPane = CreatePane(120, false, true);
			PlotSymbol(SHPane, SH, Color.DarkGreen, Color.DarkRed);
			SMA SHSma9 = SMA.Series(SH.Close, 9);
			SMA SHSma20 = SMA.Series(SH.Close, 20);
			SMA SHSma50 = SMA.Series(SH.Close, 50);
			SMA SHSma200 = SMA.Series(SH.Close, 200);
			EMA SHEma150 = EMA.Series(SH.Close, 150, EMACalculation.Modern);
			PlotSeries(SHPane, SHSma9, Color.Purple, LineStyle.Solid, 2);
			PlotSeries(SHPane, SHSma20, Color.Yellow, LineStyle.Solid, 2);
			PlotSeries(SHPane, SHSma50, Color.Blue, LineStyle.Solid, 3);
			PlotSeries(SHPane, SHEma150, Color.DarkGreen, WealthLab.LineStyle.Solid, 3);  // EMA150
			PlotSeries(SHPane, SHSma200, Color.DarkRed, WealthLab.LineStyle.Solid, 4);  // SMA200
			PlotSeries(SHPane, BBandUpper.Series(SH.Close, 20, 2.0), Color.FromArgb(255, 0, 64, 0), LineStyle.Dashed, 1);
			PlotSeries(SHPane, BBandLower.Series(SH.Close, 20, 2.0), Color.FromArgb(255, 219, 142, 207), LineStyle.Solid, 1);
			PlotSeriesDualFillBand(SHPane, SHSma200, SHEma150, Color.DarkRed, Color.DarkGreen, Color.Black, LineStyle.Dots, 1);  // EMA150 & SMA200  Ribbon CrossOver
			
			DataSeries SHHull200 = HullMA.Series(SH.Close, 200);
			PlotSeries(SHPane, SHHull200, Color.FromArgb(255, 170, 0, 0), LineStyle.Dashed, 4);
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // Hull200 Signal Coloring
				if (SHHull200[bar] > SHHull200[bar - 1])
					SetSeriesBarColor(bar, SHHull200, Color.DarkRed);  // UP
				else if (SHHull200[bar] < SHHull200[bar - 1])
					SetSeriesBarColor(bar, SHHull200, Color.Red); // Down
			}

for (int bar = 3; bar < Bars.Count; bar++)
			{   // Line Coloring
				if (SHSma9[bar] > SHSma9[bar - 1])
					SetSeriesBarColor(bar, SHSma9, Color.Aqua);  // UP
				else if (SHSma9[bar] < SHSma9[bar - 1])
					SetSeriesBarColor(bar, SHSma9, Color.HotPink); // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // Line Coloring
				if (SHSma20[bar] > SHSma20[bar - 1])
					SetSeriesBarColor(bar, SHSma20, Color.Yellow);  // UP
				else if (SHSma20[bar] < SHSma20[bar - 1])
					SetSeriesBarColor(bar, SHSma20, Color.OrangeRed); // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // Line Coloring
				if (SHSma50[bar] > SHSma50[bar - 1])
					SetSeriesBarColor(bar, SHSma50, Color.Blue);  // UP
				else if (SHSma50[bar] < SHSma50[bar - 1])
					SetSeriesBarColor(bar, SHSma50, Color.Red); // Down
			}
			for (int bar = 2; bar < Bars.Count; bar++)
			{   // EMA150 Line Coloring
				if (SHEma150[bar] > SHEma150[bar - 1])
					SetSeriesBarColor(bar, SHEma150, Color.SpringGreen);  // UP
				else if (SHEma150[bar] < SHEma150[bar - 1])
					SetSeriesBarColor(bar, SHEma150, Color.DarkGreen); // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA200 Line Coloring
				if (SHSma200[bar] > SHSma200[bar - 1])
					SetSeriesBarColor(bar, SHSma200, Color.DarkRed);  // UP
				else if (SHSma200[bar] < SHSma200[bar - 1])
					SetSeriesBarColor(bar, SHSma200, Color.Red); // Down
			}

// Plots and fills bands that cross over each other in PricePane   // Comment out lie of code, if you don't want to see.....  
			PlotSeriesDualFillBand(SHPane, SHSma20, SHSma9, Color.Red, Color.LawnGreen, Color.Black, LineStyle.Dots, 1);  // Hull9 & Hull20  Ribbon CrossOver
			PlotSeriesDualFillBand(SHPane, SHSma50, SHSma20, Color.FromArgb(102, 191, 0, 0), Color.FromArgb(102, 0, 147, 0), Color.Black, LineStyle.Dots, 1); // Hull20 & Hull50 Ribbon CrossOver

/** .....NO WORKING..... ANNOTATE SHPane SH BARS for 200 DAY HIGH / LOW .............................................ANNOTATE SH BARS in SHPane for 200 DAY HIGH / LOW.....................................................
			for (int bar = 200; bar < Bars.Count; bar++)
			{
				// Annotate a bar if it's a 200 day closing high
				if (Bars.Close[bar] == Highest.Series(Close, 200)[bar])
					AnnotateBar("^", bar, true, Color.LawnGreen);

// Annotate a bar if it's a 200 day closing Low
				if (Bars.Close[bar] == Lowest.Series(Close, 200)[bar])
					AnnotateBar("*", bar, false, Color.Red);
			}
			**/ //..END .. ANNOTATE SH BARS for 200 DAY HIGH / LOW .............................................ANNOTATE SH BARS for 200 DAY HIGH / LOW...............................................................

/** INVERSE SH - Bottom Code:........................................Bottom Code:........................................ Bottom Code:..............................................................Bottom Code:........................................ Bottom Code:.........
			int minimumSpan = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbs = TroughBar.Series(Low, 10, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			//Double Bottom - Identify- CODE
			{
				int tbar = (int)tbs[bar];   // The most recent trough bar detected
				if (tbar == -1 || bar - tbar < minimumSpan)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbar = Lowest.Value(bar - 1, Low, bar - tbar - 2);
				if (lowestLowSinceTbar <= Low[tbar])
					continue;

if (Low[tbar] != null)
					DrawCircle(PricePane, 15, tbar, Low[tbar], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			// INVERSE SH - Bottom Code:........................................Bottom Code:........................................Bottom Code:...........................................................Bottom Code:........................................ Bottom Code:.........
			***/

// PRICE PANE  //..................................................................................................................
			DataSeries sma9 = SMA.Series(Close, 9);
			DataSeries ema150 = EMA.Series(Close, 150, EMACalculation.Modern);
			DataSeries sma20 = SMA.Series(Close, 20);
			DataSeries sma50 = SMA.Series(Close, 50);
			DataSeries sma200 = SMA.Series(Close, 200);
			PlotSeries(PricePane, sma9, Color.MediumPurple, LineStyle.Solid, 2);
			PlotSeries(PricePane, sma50, Color.Blue, LineStyle.Solid, 3);
			PlotSeries(PricePane, ema150, Color.DarkGreen, WealthLab.LineStyle.Solid, 3);  // EMA150
			PlotSeries(PricePane, SMA.Series(Close, 20), Color.Yellow, WealthLab.LineStyle.Solid, 2);  // SMA20
			PlotSeries(PricePane, sma200, Color.DarkRed, WealthLab.LineStyle.Solid, 4);  // SMA200
			PlotSeries(PricePane, BBandUpper.Series(Close, 20, 2.0), Color.FromArgb(255, 0, 64, 0), LineStyle.Dashed, 1);
			PlotSeries(PricePane, BBandLower.Series(Close, 20, 2.0), Color.FromArgb(255, 219, 142, 207), LineStyle.Solid, 1);
			PlotSeriesDualFillBand(PricePane, sma200, ema150, Color.DarkRed, Color.DarkGreen, Color.Black, LineStyle.Dots, 1);  // EMA150 & SMA200  Ribbon CrossOver
			DataSeries Hull200 = HullMA.Series(Close, 200);
			PlotSeries(PricePane, Hull200, Color.FromArgb(255, 170, 0, 0), LineStyle.Dashed, 4);
			
			// Moving Average Lines... Up/Down Dual-Coloring
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // Hull200 Signal Coloring
				if (Hull200[bar] > Hull200[bar - 1])
					SetSeriesBarColor(bar, Hull200, Color.DarkRed);  // UP
				else if (Hull200[bar] < Hull200[bar - 1])
					SetSeriesBarColor(bar, Hull200, Color.Red); // Down
			}
			
			// SMA9 Coloring for UP/Down
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA9 Coloring
				if (sma9[bar] > sma9[bar - 1])
					SetSeriesBarColor(bar, sma9, Color.Aqua);   // Up
				else if (sma9[bar] < sma9[bar - 1])
					SetSeriesBarColor(bar, sma9, Color.HotPink);  // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA20 Coloring
				if (sma20[bar] > sma20[bar - 1])
					SetSeriesBarColor(bar, sma20, Color.Yellow);   // Up
				else if (sma20[bar] < sma20[bar - 1])
					SetSeriesBarColor(bar, sma20, Color.Red);  // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA50 Coloring
				if (sma50[bar] > sma50[bar - 1])
					SetSeriesBarColor(bar, sma50, Color.Blue);   // Up
				else if (sma50[bar] < sma50[bar - 1])
					SetSeriesBarColor(bar, sma50, Color.Red);  // Down
			}
			for (int bar = 2; bar < Bars.Count; bar++)
			{   // EMA150 Line Coloring
				if (ema150[bar] > ema150[bar - 1])
					SetSeriesBarColor(bar, ema150, Color.SpringGreen);  // UP
				else if (ema150[bar] < ema150[bar - 1])
					SetSeriesBarColor(bar, ema150, Color.DarkGreen); // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA200 Line Coloring
				if (sma200[bar] > sma200[bar - 1])
					SetSeriesBarColor(bar, sma200, Color.DarkRed);  // UP
				else if (sma200[bar] < sma200[bar - 1])
					SetSeriesBarColor(bar, sma200, Color.Red); // Down
			}

// Plots and fills bands that cross over each other in PricePane   // Comment out lie of code, if you don't want to see.....  
			PlotSeriesDualFillBand(PricePane, sma20, sma9, Color.Red, Color.LawnGreen, Color.Black, LineStyle.Dots, 1);  // Hull9 & Hull20  Ribbon CrossOver
			PlotSeriesDualFillBand(PricePane, sma50, sma20, Color.FromArgb(102, 191, 0, 0), Color.FromArgb(102, 0, 147, 0), Color.Black, LineStyle.Dots, 1); // Hull20 & Hull50 Ribbon CrossOver

// ...............................................................................Support and Resistance Zone Code...............................................................................
			double ZH, ZL;
			bool Drawn = false;

for (int bar = 12; bar < Bars.Count; bar++)
			{
				if ((High[bar - 2] < High[bar - 1]) & (High[bar - 1] > High[bar])
					& (Close[bar] > Close[bar - 10]))
				{
					ZH = High[bar - 1];
					ZL = High[bar];
					Drawn = false;
					for (int bar2 = bar + 1; bar2 < Bars.Count; bar2++)
					{
						if (Close[bar2] > ZH)
						{
							double[] rectangle = { bar, ZL, bar, ZH, bar2, ZH, bar2, ZL };
							DrawPolygon(PricePane, Color.Transparent, Color.FromArgb(40, Color.Red),
								LineStyle.Solid, 2, true, rectangle);
							Drawn = true;
							break;
						}
					}

if (!Drawn)
					{
						double[] rectangle2 = { bar, ZL, bar, ZH, Bars.Count - 1, ZH, Bars.Count - 1, ZL };
						DrawPolygon(PricePane, Color.Transparent, Color.FromArgb(40, Color.Red),
							LineStyle.Solid, 2, true, rectangle2);
					}
				}
			}

for (int bar = 12; bar < Bars.Count; bar++)
			{
				if ((Low[bar - 2] > Low[bar - 1]) & (Low[bar - 1] < Low[bar])
					& (Close[bar] < Close[bar - 10]))
				{
					ZH = Low[bar - 1];
					ZL = Low[bar];
					Drawn = false;
					for (int bar2 = bar + 1; bar2 < Bars.Count; bar2++)
					{
						if (Close[bar2] < ZL)
						{
							double[] rectangle3 = { bar, ZL, bar, ZH, bar2, ZH, bar2, ZL };
							DrawPolygon(PricePane, Color.Transparent, Color.FromArgb(40, Color.Green),
								LineStyle.Solid, 2, true, rectangle3);
							Drawn = true;
							break;
						}
					}
					if (!Drawn)
					{
						double[] rectangle4 = { bar, ZL, bar, ZH, Bars.Count - 1, ZH, Bars.Count - 1, ZL };
						DrawPolygon(PricePane, Color.Transparent, Color.FromArgb(40, Color.Green),
							LineStyle.Solid, 2, true, rectangle4);
					}
				}
			}
			// ................................................................................Support and Resistance Zone Code-END..........................................................................................................................

//Bottom Code:............PRICE PANE............................Bottom Code:..................PRICE PANE...................... Bottom Code:.......................PRICE PANE.............................Bottom Code:........................................ Bottom Code:.........
			int minimumSpan = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbs = TroughBar.Series(Low, 7, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			//Double Bottom - Identify- CODE
			{
				int tbar = (int)tbs[bar];   // The most recent trough bar detected
				if (tbar == -1 || bar - tbar < minimumSpan)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbar = Lowest.Value(bar - 1, Low, bar - tbar - 2);
				if (lowestLowSinceTbar <= Low[tbar])
					continue;

if (Low[tbar] != null)
					DrawCircle(PricePane, 15, tbar, Low[tbar], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			//Bottom Code:...END.....................................Bottom Code:........................................Bottom Code:...........................................................Bottom Code:........................................ Bottom Code:.........

// Create Heikin-Ashi series...............................................................https://www.wealth-lab.com/Forum/Posts/Using-Indicators-with-Heikin-Ashi-Chart-Style-39846...   (Thx Eugene!)
			Bars HAbars = new Bars(Bars.Symbol.ToString() + " (Heikin-Ashi)", BarScale.Minute, 60);  // (Changed BarScale to Minute, 60)
			DataSeries HO = Open + 0, HH = High + 0, HL = Low + 0, HC = (Open + High + Low + Close) / 4;

// Build the H-A Bars object
			for (int bar = 1; bar < Bars.Count; bar++)
			{
				double o1 = HO[bar - 1];
				double c1 = HC[bar - 1];
				HO[bar] = (o1 + c1) / 2;
				HH[bar] = Math.Max(HO[bar], High[bar]);
				HL[bar] = Math.Min(HO[bar], Low[bar]);

HAbars.Add(Bars.Date[bar], HO[bar], HH[bar], HL[bar], HC[bar], Bars.Volume[bar]);
			}
			HAbars = Synchronize(HAbars);

// Heikin-ASHI PANE.........................................
			ChartPane haPane = CreatePane(70, true, true);
			PlotSymbol(haPane, HAbars, Color.DodgerBlue, Color.Red);

SMA HAsma9 = SMA.Series(HAbars.Close, 9);   //SMA9 of HAbars in haPane
			SMA HAsma20 = SMA.Series(HAbars.Close, 20); //SMA20 of HAbars in haPane
			SMA HAsma50 = SMA.Series(HAbars.Close, 50); //SMA50 of HAbars in haPane
			
			// Apply SMA to the H-A Bars object aka "bars"
			PlotSeries(haPane, SMA.Series(HAbars.Close, 9), Color.Fuchsia, WealthLab.LineStyle.Solid, 1);  // SMA9 of HAbars in haPane
			PlotSeries(haPane, SMA.Series(HAbars.Close, 20), Color.Yellow, WealthLab.LineStyle.Solid, 1);  // SMA20 of HAbars in haPane
			PlotSeries(haPane, SMA.Series(HAbars.Close, 50), Color.Blue, WealthLab.LineStyle.Solid, 1);  // SMA50 of HAbars in haPane

/**
			for (int HAbars = 2; HAbars < Bars.Count; bar++)
			{
				if (SMA.Series(HAbars.Close, 9)[bar] > SMA.Series(HAbars.Close, 9)[bar - 1])
					SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 9), Color.AQUA);  // UP
				else if SMA.Series(HAbars.Close, 9)[bar] < SMA.Series(HAbars.Close, 9)[bar - 1])
					SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 9), Color.HotPink); // Down
			}
			**/

// RSI Periods for monitor..
			DataSeries rsi2 = RSI.Series(Close, 2);
			DataSeries rsi14 = RSI.Series(Close, 14);
			// Prints RSI value over the haPane.         Adjust the "X,Y" values to plot Area Shown on your screen.
			DrawText(haPane, "RSI.2 = " + (rsi2[Bars.Count - 1]), 1480, 433, Color.LightPink, Color.Black);
			DrawText(haPane, "RSI.14 = " + (rsi14[Bars.Count - 1]), 1480, 448, Color.White, Color.Black);

// OBV PANE for selected Symbol.....................................
			abovePricePane = true;
			//ChartPane OBVpane = CreatePane(28, abovePricePane, displayGrid);
			DataSeries obv = OBV.Series(Bars);
			DataSeries smaObv9 = SMA.Series(obv, 9);
			DataSeries smaObv20 = SMA.Series(obv, 20);
			DataSeries smaObv50 = SMA.Series(obv, 50);
			DataSeries smaObv200 = SMA.Series(obv, 200);
			DataSeries emaObv150 = EMA.Series(obv, 150, EMACalculation.Modern);
			//PlotSeries(OBVpane, obv, Color.White, LineStyle.Solid, 2);
			//PlotSeries(OBVpane, smaObv9, Color.FromArgb(255, 128, 0, 255), LineStyle.Solid, 2);
			//PlotSeries(OBVpane, smaObv20, Color.Yellow, LineStyle.Solid, 2);
			//PlotSeries(OBVpane, smaObv50, Color.Blue, LineStyle.Solid, 2);
			//PlotSeries(OBVpane, smaObv200, Color.DarkRed, LineStyle.Solid, 3);
			//PlotSeries(OBVpane, emaObv150, Color.Green, LineStyle.Solid, 2);
			//PlotSeriesDualFillBand(OBVpane, smaObv20, obv, RedBK, GreenBK, Color.Black, LineStyle.Dots, 1);
			//PlotSeriesDualFillBand(OBVpane, smaObv200, emaObv150, Color.DarkRed, Color.DarkGreen, Color.Black, LineStyle.Dots, 1);  // EMAOBV150 & SMAOBV200  Ribbon CrossOver

for (int bar = 3; bar < Bars.Count; bar++)
			{   // EMA150 Line Coloring
				if (emaObv150[bar] > emaObv150[bar - 1])
					SetSeriesBarColor(bar, emaObv150, Color.SpringGreen);  // UP
				else if (emaObv150[bar] < emaObv150[bar - 1])
					SetSeriesBarColor(bar, emaObv150, Color.DarkGreen); // Down
			}
			for (int bar = 3; bar < Bars.Count; bar++)
			{   // SMA200 Line Coloring
				if (smaObv200[bar] > smaObv200[bar - 1])
					SetSeriesBarColor(bar, smaObv200, Color.DarkRed);  // UP
				else if (smaObv200[bar] < smaObv200[bar - 1])
					SetSeriesBarColor(bar, smaObv200, Color.Red); // Down
			}
			for (int bar = 2; bar < Bars.Count; bar++)
			{   // SMA9 Coloring
				if (smaObv9[bar] > smaObv9[bar - 1])
					SetSeriesBarColor(bar, smaObv9, Color.FromArgb(255, 128, 0, 255));  // Up
				else if (smaObv9[bar] < smaObv9[bar - 1])
					SetSeriesBarColor(bar, smaObv9, Color.Fuchsia); // Down
			}
			for (int bar = 2; bar < Bars.Count; bar++)
			{   // SMA20 Coloring
				if (smaObv20[bar] > smaObv20[bar - 1])
					SetSeriesBarColor(bar, smaObv20, Color.Yellow);  // Up
				else if (smaObv20[bar] < smaObv20[bar - 1])
					SetSeriesBarColor(bar, smaObv20, Color.OrangeRed); // Down
			}
			for (int bar = 2; bar < Bars.Count; bar++)
			{   // SMA50 Coloring
				if (smaObv50[bar] > smaObv50[bar - 1])
					SetSeriesBarColor(bar, smaObv50, Color.Blue);  // Up
				else if (smaObv50[bar] < smaObv50[bar - 1])
					SetSeriesBarColor(bar, smaObv50, Color.Navy); // Down
			}

for (int bar = 3; bar < Bars.Count; bar++)
			if (obv[bar] > smaObv200[bar])
			{
				//SetPaneBackgroundColor(OBVpane, bar, GreenBkg); //Colors Pane OBV
			}

else if (obv[bar] < smaObv200[bar])
			{
				//SetPaneBackgroundColor(OBVpane, bar, RedBkg); //Colors Pane
				SetPaneBackgroundColor(PricePane, bar, RedBkg); //Colors Price Pane
			}

// SHOBV INVERSE On Balance Volume.............................................................
			DataSeries SHobv = OBV.Series(SH);
			SMA SHsmaObv9 = SMA.Series(SHobv, 9);
			SMA SHsmaObv20 = SMA.Series(SHobv, 20);
			SMA SHsmaObv50 = SMA.Series(SHobv, 50);
			SMA SHsmaObv200 = SMA.Series(SHobv, 200);
			EMA SHemaObv150 = EMA.Series(SHobv, 150, EMACalculation.Modern);
			
			for (int bar = 3; bar < Bars.Count; bar++)
				if (SHobv[bar] > SHsmaObv200[bar])
				{
					//SetPaneBackgroundColor(OBVpane, bar, GreenBkg); //Colors Pane OBV
				}

else if (SHobv[bar] < SHsmaObv200[bar])
				{
					//SetPaneBackgroundColor(OBVpane, bar, RedBkg); //Colors Pane
					SetPaneBackgroundColor(SHPane, bar, RedBkg); //Colors Price Pane
				}

// VOLUME PANE......................................................................................
			HideVolume();
			abovePricePane = true;
			ChartPane myVolumePane = CreatePane(8, abovePricePane, displayGrid);
			DataSeries smaVolume = SMA.Series(Volume, 90);  // SMA# of Volume bars. 
			PlotSeries(myVolumePane, Volume, Color.Black, LineStyle.Histogram, 5);
			PlotSeries(myVolumePane, smaVolume, Color.White, LineStyle.Solid, 1);
			for (int bar = 0; bar < Bars.Count; bar++)
				if (Close[bar] > Open[bar])
					SetSeriesBarColor(bar, Bars.Volume, Color.Green);
				else
					SetSeriesBarColor(bar, Bars.Volume, Color.Red);
			// VOLUME PANE END...................................................................................

// RSI14 Above 50 Price Pane....................................................................
			for (int bar = 1; bar < Bars.Count; bar++) //BackGround Coloring.........Green/RED....
			{
				if (rsi14[bar] > 50)
				{
					SetPaneBackgroundColor(myVolumePane, bar, GreenBkg); //Colors Panes for RSI14 Cross Over 50 Value.
					SetPaneBackgroundColor(haPane, bar, GreenBkg); //Colors Panes for RSI14 Cross Over 50 Value.
				}

else if (rsi14[bar] < 50)
				{
					SetPaneBackgroundColor(myVolumePane, bar, RedBkg); //Colors Panes for RSI14 Cross Under 50 Value.
					SetPaneBackgroundColor(haPane, bar, RedBkg); //Colors Panes for RSI14 Cross Under 50 Value.
				}
			}

// HULL200 and Price Crossing BackGround Coloring..............................
			for (int bar = 1; bar < Bars.Count; bar++) // HULL200 and Price Crossing BackGround Coloring....................................
				if (Hull200[bar] < Hull200[bar - 1] && CrossOver(bar, Close, Hull200))
				{
					SetPaneBackgroundColor(haPane, bar, Color.LimeGreen); //Colors 
				}
				else if (Hull200[bar] > Hull200[bar - 1] && CrossUnder(bar, Close, Hull200))
				{
					SetPaneBackgroundColor(haPane, bar, RedBK); //Colors 
				}
			for (int bar = 1; bar < Bars.Count; bar++)
				if (Hull200[bar] > Hull200[bar - 1] && CrossOver(bar, Close, Hull200))
				{
					SetPaneBackgroundColor(haPane, bar, GreenBK); //Colors 
				}
				else if (Hull200[bar - 1] > Hull200[bar] && CrossUnder(bar, Close, Hull200))
				{
					SetPaneBackgroundColor(haPane, bar, Color.OrangeRed); //Colors 
				}

// HULL200 and Price Crossing BackGround Coloring. - END.........................................................................

// ALGO: TRADING LOGIC START  >>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>.

PlotStops();

for (int bar = GetTradingLoopStartBar(200); bar < Bars.Count; bar++)
			{
				if (IsLastPositionActive)
				{
					Position p = LastPosition;
					if (p.EntrySignal.Contains("Group2|"))
					{
						if (CrossOver(bar, Close, HAsma9))    // Exit at CrossOver of HAsma9, HABars "SELL" Annotation.  "AnnotateBar("SELL", HAbar, true, Color.White)"
						{
							SellAtMarket(bar + 1, p, "Group2");
						}
					}
					if (p.EntrySignal.Contains("Group1|"))
					{
						bool cond1 = false;
						cond1 = true;
						if (cond1)
						{
							bool Stopped;
							if (p.MFEAsOfBarPercent(bar) >= slider3.Value)
							{
								double profit = Close[bar] - p.EntryPrice;
								profit = Close[bar] - profit * (slider4.Value / 100.0d);
								Stopped = SellAtTrailingStop(bar + 1, p, profit, "Trail.Stp");
							}
							else
							{
								//{ Dotted line indicates trailing stop trigger level }
								double TStopTrigger = p.EntryPrice * (1 + slider3.Value / 100.0d);
								DrawLine(PricePane, bar - 1, TStopTrigger, bar, TStopTrigger, Color.Fuchsia, LineStyle.Dotted, 1);
								double StopPrice = p.EntryPrice * (1 - slider2.Value / 100.0d);
								Stopped = SellAtStop(bar + 1, p, StopPrice, "STOP.Loss");
							}
							if (!Stopped)
							{
								double ProfitTgt = p.EntryPrice * (1 + slider1.Value / 100.0d);
								SellAtLimit(bar + 1, p, ProfitTgt, "Profit$Target");
							}
						}
					}

}
				else
				{
					if (CrossUnder(bar, SHSma9, Close))   // Entry at CrossUnder of HAsma9, HABars "BUY" Annotation.   "AnnotateBar("BUY", HAbar, true, Color.White)"
					{
						BuyAtMarket(bar + 1, "Group1|Group2|");
					}

}

// ALGO: TRADING LOGIC END >>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< TRADING LOGIC END  >>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC END  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC END  >>>>>>>>>>>>
// END OF CODE //

// MY Request for some code HELP from the experts!:	
	/*******************************************************************************************************************************************************************************************************

#1.	I would like to build a simple MA crossover BUY/SELL Algo on the already created Heikin-Ashi bars and SMA.Series(HAbars.Close, 9). 
				With ENTRY/EXIT Bar Annotations. (CrossOver HABars, SHSma9)
				
					1. Buy - HAbars, cross Over HAbars(SMA9)   (Line# 579)
							if (CrossOver(HAbars,  Close,  SHSma9))
							AnnotateBar("BUY", bar, true, Color.White);

2. Sell - HAbars, cross Under HAbars(SMA9)   Line# 542
							if (CrossUnder (HABars, Close, SHSma9))
							AnnotateBar("SELL", bar, true, Color.White);

#2.	HAbars(SMA9) MA_Line Dual Plot line Coloring (Just like MA in the other PANES (Up/Down)):  (Lines# 363-371)  
				-Need help on how to address to the HAbars..?    Non Working Example of a shot at the Code:

for (int HAbars = 2; HAbars < Bars.Count; bar++)
				{
					if (SMA.Series(HAbars.Close, 9)[bar] > SMA.Series(HAbars.Close, 9)[bar - 1])
						SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 9), Color.AQUA);  // UP
					else if SMA.Series(HAbars.Close, 9)[bar] < SMA.Series(HAbars.Close, 9)[bar - 1])
						SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 9), Color.HotPink); // Down
				}
				
				
			#3.  Correctly address the Annotation of the 200Day High/Low SH bars in the SHPane.  (Lines# 138-149)

#4.  Create/Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 152-171)  
				It currently works in the Price Pane only...as I'm not sure how to address the SH bar in the SHPane.  
				   - Assuming it Identifies the Bottom per.code #% from Trough, then. - The Inverses Pink DOT would be the TOP of the other Symbol.

//  **  Not sure, But-If there's a way to make an inverse of the Bottom I.D. code into a TOP I.D. Code (Peaks) that would be useful code to have..

***********************************************************************************************************************************************************************************************/

}
		}
	}
}

[/code]

Eugene

#2

2/28/2021 6:33 AM

Hi,

635 lines of code is too much to swallow. Try breaking your request in smaller tasks.

nventress23

#3

3/1/2021 2:52 PM

Hello Eugene,

No problem! - (I was able to answer a few of my own questions from the first post).
Take #2:
The three items/Tasks I’m struggling with and need help are:
#1. Annotation of Buy/Sell Bar in another pane. haPane
1a. Buy - (Line# 226) Annotate Bar in haPane ("BUY")
1b. Sell - (Line# 188) Annotate Bar in haPane ("SELL")

#2. Annotation of the 200Day High/Low SH bars in another pane. SHPane. (Lines# 77-90)

#3. Correctly Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 93-115)

Hopefully by deleting lines that are not relevant, and calling out the specific blocks of code where I need help, it shows up as 3 smaller tasks.

Your assistance in figuring out what I’m missing would be greatly appreciated.
Best Regards,
Nate

CODE:
Please log in to see this code.

Take2. 3-1-2021.png

Size:

Color:

Hello Eugene,

No problem! - (I was able to answer a few of my own questions from the first post).
Take #2: 
The three items/Tasks I’m struggling with and need help are:
#1. Annotation of Buy/Sell Bar in another pane.  haPane
	1a. Buy - (Line# 226)	Annotate Bar in haPane ("BUY")
        1b. Sell -  (Line# 188) 	Annotate Bar in haPane ("SELL")

#2.   Annotation of the 200Day High/Low SH bars in another pane.   SHPane.  (Lines# 77-90)

#3. Correctly Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 93-115)

Hopefully by deleting lines that are not relevant, and calling out the specific blocks of code where I need help, it shows up as 3 smaller tasks.

Your assistance in figuring out what I’m missing would be greatly appreciated.
Best Regards,
Nate

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

namespace WealthLab.Strategies
{
	public class ENVS_INVERSE_PAIRS_WLDForum_2_2021 : WealthScript
		
	{
		// Vertical labeling routine. Bar Annotation......................................

public void VerticalText(int bar, string str, bool abovePrices, Color color)

{

if (abovePrices)

for (int n = str.Length - 1; n >= 0; n--)

AnnotateBar(str.Substring(n, 1), bar, abovePrices, color);

else

for (int n = 0; n < str.Length; n++)

AnnotateBar(str.Substring(n, 1), bar, abovePrices, color);

}
		// End of Vertical Annotate Code..................................................

private StrategyParameter slider1;
		private StrategyParameter slider2;
		private StrategyParameter slider3;
		private StrategyParameter slider4;
		public ENVS_INVERSE_PAIRS_WLDForum_2_2021()
		{
			slider1 = CreateParameter("Profit Pct", 8, 1, 300, 1);
			slider2 = CreateParameter("Stop Pct", 4, 1, 30, 1);
			slider3 = CreateParameter("Trail Stop Trigger Pct", 10, 1, 100, 1);
			slider4 = CreateParameter("Trail Stop Pct", 20, 1, 100, 1);
		}
		protected override void Execute()
		{
			bool enableDebug = false;
			if (enableDebug) ClearDebug();
			bool abovePricePane = true;
			bool displayGrid = true;
			HideVolume();
			PadBars(1); // Places #of Bars space on right side of chart.

Font font = new Font("Arial", 14, FontStyle.Bold);
			// Demonstrates operation overload
			for (int bar = 200; bar < Bars.Count; bar++)
			{
				// Annotate a bar if it's a 200 day closing high
				if (Bars.Close[bar] == Highest.Series(Close, 200)[bar])
					AnnotateBar("^", bar, true, Color.LawnGreen);

// Annotate a bar if it's a 200 day closing Low
				if (Bars.Close[bar] == Lowest.Series(Close, 200)[bar])
					AnnotateBar("*", bar, false, Color.Red);
			}
		
			// <<<<  Inverse SHPane "SH" Bars >>>>>>............................>> Inverse SHPane <<...............................>> Inverse SHPane <<............................>> Inverse SHPane <<.......................	
			Bars SH = GetExternalSymbol("SH", true);  // THIS IS THE "INVERSE Ticker/SYMBOL"..  Select other PAIRS By changing this "Symbol"...  SPY/*SH, DIA/*DOG, TQQQ/*SQQQ..... 
			ChartPane SHPane = CreatePane(120, false, true);
			PlotSymbol(SHPane, SH, Color.DarkGreen, Color.DarkRed);
			
			
//(Item #2.)		
			/**.....Not Working:(See lines 60-69 that works for Price Pane)   ANNOTATE SHPane SH BARS for 200 DAY HIGH / LOW .............................................ANNOTATE SH BARS in SHPane for 200 DAY HIGH / LOW.....................................................
			for (int bar = 200; bar < Bars.Count; bar++)
			{
				// Annotate a bar if it's a 200 day closing high
				if (Bars.SH.Close[bar] == Highest.Series(SH.Close, 200)[bar])
					AnnotateBar("^", bar, true, Color.LawnGreen);

// Annotate a bar if it's a 200 day closing Low
				if (Bars.SH.Close[bar] == Lowest.Series(SH.Close, 200)[bar])
					AnnotateBar("*", bar, false, Color.Red);
			}
			/**
			 //..END .. ANNOTATE SH BARS for 200 DAY HIGH / LOW .............................................ANNOTATE SH BARS for 200 DAY HIGH / LOW...............................................................

//.....Not Working:  INVERSE_SH - Bottom Code:..................SHPANE........Bottom Code:..........SHPANE........Bottom Code:............SHPANE........Bottom Code:............SHPANE........Bottom Code:.......
//(Item #3.)	
			/** Item #3     
			int minimumSpan = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbs = TroughBar.Series(Low, 10, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			//Double Bottom - Identify- CODE
			{
				int tbar = (int)tbs[bar];   // The most recent trough bar detected
				if (tbar == -1 || bar - tbar < minimumSpan)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbar = Lowest.Value(bar - 1, Low, bar - tbar - 2);
				if (lowestLowSinceTbar <= Low[tbar])
					continue;

if (Low[tbar] != null)
					DrawCircle(PricePane, 15, tbar, Low[tbar], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			// INVERSE SH - Bottom Code:........................................Bottom Code:........................................Bottom Code:...........................................................Bottom Code:........................................ Bottom Code:.........
			***/
			// <<<< END  Inverse SHPane "SH" Bars >>>>>>............................>> Inverse SHPane <<...............................>> Inverse SHPane <<............................>> Inverse SHPane <<.......................

// Bottom Code:............PRICE PANE............................Bottom Code:..................PRICE PANE...................... Bottom Code:.......................PRICE PANE.............................Bottom Code:........................................ Bottom Code:.........
			int minimumSpan = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbs = TroughBar.Series(Low, 7, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			//Double Bottom - Identify- CODE
			{
				int tbar = (int)tbs[bar];   // The most recent trough bar detected
				if (tbar == -1 || bar - tbar < minimumSpan)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbar = Lowest.Value(bar - 1, Low, bar - tbar - 2);
				if (lowestLowSinceTbar <= Low[tbar])
					continue;

if (Low[tbar] != null)
					DrawCircle(PricePane, 15, tbar, Low[tbar], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			// END.. Bottom Code:.......................................Bottom Code:........................................Bottom Code:...........................................................Bottom Code:........................................ Bottom Code:.........

// Create Heikin-Ashi series...............................................................https://www.wealth-lab.com/Forum/Posts/Using-Indicators-with-Heikin-Ashi-Chart-Style-39846...   (Thx Eugene!)
			Bars HAbars = new Bars(Bars.Symbol.ToString() + " (Heikin-Ashi)", BarScale.Minute, 60);  // (Changed BarScale to Minute, 60)
			DataSeries HO = Open + 0, HH = High + 0, HL = Low + 0, HC = (Open + High + Low + Close) / 4;
			// Build the H-A Bars object
			for (int bar = 1; bar < Bars.Count; bar++)
			{
				double o1 = HO[bar - 1];
				double c1 = HC[bar - 1];
				HO[bar] = (o1 + c1) / 2;
				HH[bar] = Math.Max(HO[bar], High[bar]);
				HL[bar] = Math.Min(HO[bar], Low[bar]);

HAbars.Add(Bars.Date[bar], HO[bar], HH[bar], HL[bar], HC[bar], Bars.Volume[bar]);
			}
			HAbars = Synchronize(HAbars);
			
			// Heikin-ASHI PANE.........................................Heikin-ASHI PANE.........................................Heikin-ASHI PANE.........................................Heikin-ASHI PANE
			ChartPane haPane = CreatePane(70, true, true); 
			PlotSymbol(haPane, HAbars, Color.DodgerBlue, Color.Red);
			// SMA's of the HAbars
			SMA HAsma20 = SMA.Series(HAbars.Close, 20);   //SMA9 of HAbars in haPane
			// Apply SMA to the H-A Bars object aka "bars"
			PlotSeries(haPane, SMA.Series(HAbars.Close, 20), Color.Yellow, WealthLab.LineStyle.Solid, 2);  // SMA20 of HAbars in haPane
			// HAbars(SMA9) MA_Line Dual Plot line Coloring (Up/Down)):    
			for (int bar = 4; bar < Bars.Count; bar++)
			{
				if (SMA.Series(HAbars.Close, 20)[bar] > SMA.Series(HAbars.Close, 20)[bar - 1])
					SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 20), Color.Yellow);  // UP
				else if (SMA.Series(HAbars.Close, 20)[bar] < SMA.Series(HAbars.Close, 20)[bar - 1])
					SetSeriesBarColor(bar, SMA.Series(HAbars.Close, 20), Color.OrangeRed); // Down
			}
	
			//.......END..Heikin-ASHI PANE.........................................Heikin-ASHI PANE.........................................Heikin-ASHI PANE.........................................Heikin-ASHI PANE

// ALGO: TRADING LOGIC START  >>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>.
			PlotStops();

for (int bar = GetTradingLoopStartBar(200); bar < Bars.Count; bar++)
			{
				if (IsLastPositionActive)
				{
					Position p = LastPosition;
					if (p.EntrySignal.Contains("Group2|"))
					{
						if (CrossUnder(bar, HAbars.Close, HAsma20))    // *Exit at CrossUnder of Heikin_Ashi candle & HAsma20.
						{
							VerticalText(bar, "S", true, Color.White);  //(Item #1b.)  NEEDS TO BE IN HAPane
							SellAtMarket(bar + 1, p, "Group2");
						}
					}
					if (p.EntrySignal.Contains("Group1|"))
					{
						bool cond1 = false;
						cond1 = true;
						if (cond1)
						{
							bool Stopped;
							if (p.MFEAsOfBarPercent(bar) >= slider3.Value)
							{
								double profit = Close[bar] - p.EntryPrice;
								profit = Close[bar] - profit * (slider4.Value / 100.0d);
								Stopped = SellAtTrailingStop(bar + 1, p, profit, "Trail.Stp");
							}
							else
							{
								//{ Dotted line indicates trailing stop trigger level }
								double TStopTrigger = p.EntryPrice * (1 + slider3.Value / 100.0d);
								DrawLine(PricePane, bar - 1, TStopTrigger, bar, TStopTrigger, Color.Fuchsia, LineStyle.Dotted, 1);
								double StopPrice = p.EntryPrice * (1 - slider2.Value / 100.0d);
								Stopped = SellAtStop(bar + 1, p, StopPrice, "STOP.Loss");
							}
							if (!Stopped)
							{
								double ProfitTgt = p.EntryPrice * (1 + slider1.Value / 100.0d);
								SellAtLimit(bar + 1, p, ProfitTgt, "Profit$Target");
							}
						}
					}

}
				else
				{
					if (CrossOver(bar, HAbars.Close,HAsma20) & HAsma20[bar] > HAsma20[bar - 1])   // *Entry at CrossOver of Heikin_Ashi candle & HAsma20(HAsma20 trending UP).
					{
						VerticalText(bar, "B", true, Color.White); //(Item #1a.) NEEDS TO BE IN HAPane
						SetBarColor(bar, Color.Blue);
						BuyAtMarket(bar + 1, "Group1|Group2|");
					}

}
// ALGO: TRADING LOGIC END >>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< TRADING LOGIC END  >>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC END  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<< TRADING LOGIC END  >>>>>>>>>>>>
// END OF CODE //

// MY Request for some code HELP from the experts!:	
	/*******************************************************************************************************************************************************************************************************
	   Item(s):
			#1.	I built a simple HAbars/MA crossover BUY/SELL Algo on the already created Heikin-Ashi bars and SMA.Series(HAbars.Close, 20). I would like to Annotate  the "B" and "S" in the haPane.
							
					1a. Buy - (Line# 226)		AnnotateBar in haPane ("BUY")

1b. Sell -  (Line# 188) 	AnnotateBar in haPane ("SELL")
			
						
			#2.  Correctly address the Annotation of the 200Day High/Low SH bars in the SHPane.  (Lines# 77-90)

#3.  Correctly Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 93-115)  
				It currently works in the Price Pane only...as I'm not sure how to address the SH bar in the SHPane.  
				   - Assuming it Identifies the Bottom per.code #% from Trough, then. - The Inverses Pink DOT would be the TOP of the other Symbol.

/***********************************************************************************************************************************************************************************************/

}
		}
	}
}[/code]

Eugene

#4

3/1/2021 3:44 PM

QUOTE:
1a. Buy - (Line# 226) Annotate Bar in haPane ("BUY")
...
#2. Annotation of the 200Day High/Low SH bars in another pane. SHPane. (Lines# 77-90)

AnnotateBar isn't supposed to work in arbitrary ChartPanes. You can choose between AnnotateChart or DrawText depending on the purpose to implement your own logic.

nventress23

#5

3/4/2021 1:07 AM

Thank you Eugene !
- I was able to annotate the signal(s) using the (AnnotateChart(haPane, "BUY", bar, Close[bar], Color.White, Color.Transparent, font)

I'm still puzzled how to get the Bottom Code to work on the "SH" bars and DrawCircle at Bottom in the SHPane?? Any help on that one would be greatly appreciated. I attached the basic code I'm working with that currently does not work correctly. (LInes 69-84)

Best Regards,
Nate

CODE:
Please log in to see this code.

Size:

Color:

Thank you Eugene ! 
- I was able to annotate the signal(s) using the (AnnotateChart(haPane, "BUY", bar, Close[bar], Color.White, Color.Transparent, font)

I'm still puzzled how to get the Bottom Code to work on the "SH" bars and DrawCircle at Bottom in the SHPane??   Any help on that one would be greatly appreciated.  I attached the basic code I'm working with that currently does not work correctly.   (LInes 69-84)

Best Regards,
Nate

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

namespace WealthLab.Strategies
{
	public class ENVS_INVERSE_PAIRS_WLDForum_3_2021 : WealthScript

{

public ENVS_INVERSE_PAIRS_WLDForum_3_2021()
		{

}
		protected override void Execute()
		{
			bool enableDebug = false;
			if (enableDebug) ClearDebug();
			bool abovePricePane = true;
			bool displayGrid = true;
			HideVolume();
			
			// Bottom Code:............PRICE PANE............................Bottom Code:..................PRICE PANE...................... Bottom Code:.......................Bottom Code:.........
			int minimumSpan = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbs = TroughBar.Series(Low, 7, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			//Double Bottom - Identify- CODE
			{
				int tbar = (int)tbs[bar];   // The most recent trough bar detected
				if (tbar == -1 || bar - tbar < minimumSpan)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbar = Lowest.Value(bar - 1, Low, bar - tbar - 2);
				if (lowestLowSinceTbar <= Low[tbar])
					continue;

if (Low[tbar] != null)
					DrawCircle(PricePane, 15, tbar, Low[tbar], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			// END.. Bottom Code:..PricePane.....................................Bottom Code:..PricePane................................Bottom Code:..PricePane.............Bottom Code:.............. 
			
			
			
			
				
			
			
			
			
			
			// <<<<  Inverse SHPane "SH" Bars >>>>>>............................>> Inverse SHPane <<...............................>> Inverse SHPane <<............................>> Inverse SHPane <<.......................	
			Bars SH = GetExternalSymbol("SH", true);  // THIS IS THE "INVERSE Ticker/SYMBOL"..  Select other PAIRS By changing this "Symbol"...  SPY/*SH, DIA/*DOG, TQQQ/*SQQQ..... 
			ChartPane SHPane = CreatePane(120, false, true);
			PlotSymbol(SHPane, SH, Color.DarkGreen, Color.DarkRed);

// (Item.) Not Working:  INVERSE_SH - Bottom Code:..................SHPANE........Bottom Code:..........SHPANE........Bottom Code:............SHPANE........Bottom Code:............SHPANE........Bottom Code:.......
			
			int minimumSpanSH = 20;      // don't detect a double bottom within 20 bars
			DataSeries tbSH = TroughBar.Series(SH.Low, 10, PeakTroughMode.Percent);   // min 10% troughs
			for (int bar = 1; bar < Bars.Count; bar++)
			{
				int tbarSH = (int)tbSH[bar];   // The most recent trough bar detected
				if (tbarSH == -1 || bar - tbarSH < minimumSpanSH)
					continue;

// if Low has been lower than the last troughbar, continue until we find another trough
				double lowestLowSinceTbarSH = Lowest.Value(bar - 1, Low, bar - tbarSH - 2);
				if (lowestLowSinceTbarSH <= Low[tbarSH])
					continue;

if (Low[tbarSH] != null)
					DrawCircle(SHPane, 15, tbarSH, Low[tbarSH], Color.HotPink, Color.Transparent, LineStyle.Solid, 10, true);
			}
			
			// END - INVERSE SH - Bottom Code:......................Bottom Code:..........................Bottom Code:...................Bottom Code:........................................ Bottom Code:.........

// MY Request for some code HELP from the experts!:	
			/*******************************************************************************************************************************************************************************************************
			   Item:	  Correctly Address the Bottom I.D. Code for the SH bars in the SHPANE . (Lines# 69-84  
						  It currently works in the Price Pane only...as I'm not sure how to address the SH bar in the SHPane for code to then DrawCircle in SHPane.  
						   - Assuming it Identifies the Bottom per.code #% from Trough, then. - The Inverses Pink DOT would be the TOP of the other Symbol.

/***********************************************************************************************************************************************************************************************/

}
	}
}[/code]

Eugene

#6

3/4/2021 5:43 AM

Hi Nate,

QUOTE:
I'm still puzzled how to get the Bottom Code to work on the "SH" bars and DrawCircle at Bottom in the SHPane??

From what I see, DrawCircle works in the SHPane but for that to happen, the instrument's prices should be in a similar range i.e. $17-30 in 2020-2021. Maybe it's a bug, haven't digged into this deep enough to tell for sure.

nventress23

#7

3/4/2021 8:11 PM

(SH/SH) DrawCircle works in both Panes: when. SH is selected as the Symbol & Inverse Get Symbol “SH’
(SPY/SH) When Symbol is SPY and Inverse Get Symbol “SH” the SHPane – Draw Circle does not seem to work…?

So..some how I figured there was a relationship in the current code between having the selected symbol as something different than the get symbol "SH" code for SHPane? I would think that the (Bars SH = GetExternalSymbol("SH", true) would not care what the selected symbol in the PricePane would be for the code to keep working on the SH symbol in the SHPane...?

** SOLVED **
- Found it... Low vs.SH.Low in SHPane code...

Solved -3-4-2021 SPY_SH BottomDrawCircle.png

Solved -3-4-2021 SPY_SH BottomDrawCircle.png