// Downloaded From https://www.WiseStockTrader.com
SetBarsRequired(100000,0);
GraphXSpace = 3;

// Параметры 
k = Param("K", 0.01, 0, 0.2, 0.001);

Trend[0] = 1;  // тренд вверх
Revers[0] = C[0] - C[0]*k;
PE[0] = C[0];

for(i = 1; i < BarCount; i++)
{
	if(Trend[i-1] == 1)					//Up Trend
	{
		if(C[i] > PE[i-1])				//Новый High 
		{
			Trend[i] = 1;
			PE[i] = C[i];
			Revers[i] = C[i] - C[i]*k;
		}
		else
		{
			if(C[i] < Revers[i-1])		//Реверс 
			{
				Trend[i] = -1;
				PE[i] = C[i];
				Revers[i] = C[i] + C[i]*k;
			}
			else							//Нет нового high и реверса
			{
				Trend[i] = 1;
				PE[i] = PE[i-1];
				Revers[i] = Revers[i-1];
			}
		}
	}
//======================================
	else									//Down Trend
	{
		if(C[i] < PE[i-1])				//Новый Low
		{
			Trend[i] = -1;
			PE[i] = C[i];
			Revers[i] = C[i] + C[i]*k;
		}
		else
		{
			if(C[i] > Revers[i-1])		//Реверс 
			{
				Trend[i] = 1;
				PE[i] = C[i];
				Revers[i] = C[i] - C[i]*k;
			}
			else							//Нет нового Low и реверса
			{
				Trend[i] = -1;
				PE[i] = PE[i-1];
				Revers[i] = Revers[i-1];
			}
		}
	}
}

Plot(Revers, "NRTR WATR", IIf(Trend == 1, 27, 4), 4);