[LegacyColorValue = true]; 

{ TSMDeMarkrangehigh : DeMark's Projected Range, High
  Copyright 1998-1999, PJ Kaufman. All rights reserved }

	inputs: popen(numeric), phigh(numeric),  plow(numeric),  pclose(numeric);
	vars:	avg(0);

	if pclose < popen then
			TSMDeMarkrangehigh = (phigh + pclose + 2 * plow) / 2 - plow
		else if pclose > popen then
			TSMDeMarkrangehigh = (2 * phigh + plow + pclose) / 2 - plow
		else
			TSMDeMarkrangehigh = (phigh + plow + 2 * pclose) / 2 - plow;