BrainTrend2Stop_v1

/*-----------------------------+
|			       |
| Shared by www.Aptrafx.com    |
|			       |
+------------------------------*/

//+------------------------------------------------------------------+
//|                                              BrainTrend2Stop.mq4 |
//|                                                www.forex-tsd.com |
//|                                                Nick Bilak        |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link      "www.forex-tsd.com"

#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
//---- input parameters
extern int       NumBars=500;
extern int       EnableAlerts=0;
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double spread;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexStyle(0,DRAW_ARROW);
   SetIndexArrow(0,115);
   SetIndexBuffer(0,ExtMapBuffer1);
   SetIndexEmptyValue(0,0.0);
   SetIndexStyle(1,DRAW_ARROW);
   SetIndexArrow(1,115);
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexEmptyValue(1,0.0);
   spread=MarketInfo(Symbol(),MODE_SPREAD)*Point;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start() {
   int    counted_bars=IndicatorCounted();

	int artp=7;
	double cecf=0.7;
	int satb=2000;
	int Shift=0;
	bool river=True;
	double Emaxtra=0;
	double widcha=0;
	double TR=0;
	double  Values[100];
	int glava=0;
	double ATR=0;
	int J=0;
	double Weight=0;
	double r=0;
	double r1=0;
	int p=0;
	int Curr=0;
	double Range1=0;
	double s=2;
	double f=10;
	double value3=0;
	double h11=0;
	double h12=0;
	double  h13=0;
	double  const=0;
	double  orig=0;
	double  st=0;
	double  h2=0;
	double  h1=0;
	double  h10=0;
	double  sxs=0;
	double  sms=0;
	double  temp=0;
	double  h5=0;
	double  r1s=0;
	double  r2s=0;
	double  r3s=0;
	double  r4s=0;
	double  pt=0;
	double  pts=0;
	double  r2=0;
	double  r3=0;
	double  r4=0;
	double  tt=0;

   if (Bars < NumBars) satb = Bars; else satb = NumBars;
   if (Close[satb - 2] > Close[satb - 1]) river = True; else river = False;
   Emaxtra = Close[satb - 2];
   for (Shift = satb - 3; Shift>=0; Shift--) {
      TR = spread + High[Shift] - Low[Shift];
      if (MathAbs(spread + High[Shift] - Close[Shift + 1]) > TR) TR = MathAbs(spread + High[Shift] - Close[Shift + 1]);
      if (MathAbs(Low[Shift] - Close[Shift + 1]) > TR)  TR = MathAbs(Low[Shift] - Close[Shift + 1]);
      if (Shift == satb - 3) {
         for (J = 0; J<=artp - 1; J++) { Values[J] = TR; }
      }
      Values[glava] = TR;
      ATR = 0;
      Weight = artp;
      Curr = glava;
      for (J = 0; J<=artp - 1; J++) {
         ATR += Values[Curr] * Weight;
         Weight -= 1;
         Curr -= 1;
         if (Curr == -1) Curr = artp - 1;
      }
      ATR = 2.0 * ATR / (artp * (artp + 1.0));
      glava += 1;
      if (glava == artp) glava = 0;
      widcha = cecf * ATR;
      if (river && Low[Shift] < Emaxtra - widcha) {
         river = False;
         Emaxtra = spread + High[Shift];
      }
      if (!river && spread + High[Shift] > Emaxtra + widcha) {
         river = True;
         Emaxtra = Low[Shift];
      }
      if (river && Low[Shift] > Emaxtra) {
         Emaxtra = Low[Shift];
      }
      if (!river && spread + High[Shift] < Emaxtra) {
         Emaxtra = spread + High[Shift];
      }
      Range1 = iATR(NULL,0,10,Shift)+spread/10.0;
      if (river) {
         if (Low[Shift] - Range1 * s < r && r != 0)  r1 = r; else r1 = Low[Shift] - Range1 * s / 3.0;
         if (p == 2) r1 = Low[Shift] - Range1 * s / 3.0;
         ExtMapBuffer1[Shift]=r1;
         ExtMapBuffer2[Shift]=0; 
         r = r1;
         p = 1;
      } else {
         if (spread + High[Shift] + Range1 * s > r && r != 0) r1 = r; else r1 = spread + High[Shift] + Range1 * s / 3.0;
         if (p == 1) r1 = spread + High[Shift] + Range1 * s / 3.0;
         ExtMapBuffer1[Shift]=0;
         ExtMapBuffer2[Shift]=r1; 
         r = r1;
         p = 2;
         }
      }
}