Skip to main content

NRTR WATR for Amibroker (AFL)

allexiss almost 15 years ago Amibroker (AFL)

  • Rating:
    3 / 5 (Votes 2)
  • Tags:
    amibroker, stop loss

NRTR WATR indicator.

Screenshots

Indicator / Formula

Copy & Paste Friendly
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);

3 comments

2. kv_maligi
almost 15 years ago

Hi Borrelyy777,

Can you explain on how to trade on this ?

It seems very interesting to follow as this gives keeps you in profit in long run

THanks & waiting for your feedback

KASI

Report as Spam
3. rohitb
almost 15 years ago

SetBarsRequired(100000,0);
GraphXSpace = 3;

// Options
k = Param(“K”, 0.01, 0, 0.2, 0.001);

Trend0 = 1; // uptrend
Revers0 = C0 – C0*k;
PE0 = C0;

for(i = 1; i < BarCount; i++)
{
if(Trend[i-1] == 1) //Up Trend
{
if(C[i] > PE[i-1]) //new High
{
Trend[i] = 1;
PE[i] = C[i];
Revers[i] = C[i] – C[i]k;
}
else
{
if(C[i] < Revers[i-1]) //reverse
{
Trend[i] = -1;
PE[i] = C[i];
Revers[i] = C[i] + C[i]k;
}
else //no new high and then reverse
{
Trend[i] = 1;
PE[i] = PE[i-1];
Revers[i] = Revers[i-1];
}
}
}
//==========
else //Down Trend
{
if(C[i] < PE[i-1]) //new Low
{
Trend[i] = -1;
PE[i] = C[i];
Revers[i] = C[i] + C[i]k;
}
else
{
if(C[i] > Revers[i-1]) //reverse
{
Trend[i] = 1;
PE[i] = C[i];
Revers[i] = C[i] – C[i]k;
}
else //No new Low and Reverse
{
Trend[i] = -1;
PE[i] = PE[i-1];
Revers[i] = Revers[i-1];
}
}
}
}

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

English translation done

google is friend

Report as Spam

Leave Comment

Please login here to leave a comment.