//+------------------------------------------------------------------+
//| BrainTrend1-all-in-one.mq4 |
//| BrainTrading Inc. System 7.0 |
//| http://www.braintrading.com |
//| Modified by Serge skhorouji@gmail.com|
//+------------------------------------------------------------------+
/* Serge: This indicator includes all 4 original BrainTrend1 indicators as I am 2 lazy to apply
them all one by one on a chart:
BrainTrend1Stop, BrainTrend1StopLine, BrainTrend1Sig, TrainTrend1.
It has customised external variables that can be played with during optimisation
Also I renamed variables, simplified & logically re-arranged the codes of the original indicators
to make them more understandable (I mean for myself :-)
*/
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "http://www.braintrading.comt"
#property indicator_chart_window
#property indicator_buffers 8
#property indicator_color1 Magenta
#property indicator_color2 Aqua
#property indicator_color3 Magenta
#property indicator_color4 Aqua
#property indicator_color5 Magenta
#property indicator_color6 Aqua
#property indicator_color7 Magenta
#property indicator_color8 Aqua
//---- input parameters
extern double stoch_period=9;
extern double stoch_max=53;
extern double stoch_min=47;
extern double atr_current_norm_factor=0.435;
extern double atr_before_norm_factor=1.5;
extern double atr_period=7;
extern int atr_before_step=1;
extern int NumBars=10000; //If you want to display ALL indicator values, set this to 0 - will use more memory of cause
//---- buffers
double sell_stop_dot_buf[]; //Sell stop dots, aka BrainTrend1Stop
double buy_stop_dot_buf[]; //Buy stop dots
double sell_stop_line_buf[]; //Sell stop line
double buy_stop_line_buf[]; //Buy stop line
double sell_signal_buf[]; //Sell signal dots
double buy_signal_buf[]; //Buy signal dots
double down_buf[]; //Down trend bars
double up_buf[]; //Up trend bars
int init()
{ SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,115);
SetIndexBuffer(0,sell_stop_dot_buf);
SetIndexLabel(0,"sell_stop_dot");
SetIndexEmptyValue(0, EMPTY_VALUE);
SetIndexStyle(1,DRAW_ARROW);
SetIndexArrow(1,115);
SetIndexBuffer(1,buy_stop_dot_buf);
SetIndexLabel(1,"buy_stop_dot");
SetIndexEmptyValue(1, EMPTY_VALUE);
SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,sell_stop_line_buf);
SetIndexLabel(2,"sell_stop_line");
SetIndexEmptyValue(2, EMPTY_VALUE);
SetIndexStyle(3,DRAW_LINE);
SetIndexBuffer(3,buy_stop_line_buf);
SetIndexLabel(3,"buy_stop_line");
SetIndexEmptyValue(3, EMPTY_VALUE);
SetIndexStyle(4,DRAW_ARROW);
SetIndexArrow(4,108);
SetIndexBuffer(4,sell_signal_buf);
SetIndexLabel(4,"sell_signal");
SetIndexEmptyValue(4, EMPTY_VALUE);
SetIndexStyle(5,DRAW_ARROW);
SetIndexArrow(5,108);
SetIndexBuffer(5,buy_signal_buf);
SetIndexLabel(5,"buy_signal");
SetIndexEmptyValue(5, EMPTY_VALUE);
SetIndexStyle(6,DRAW_HISTOGRAM);
SetIndexBuffer(6,down_buf);
SetIndexLabel(6,"down_trend");
SetIndexStyle(7,DRAW_HISTOGRAM);
SetIndexBuffer(7,up_buf);
SetIndexLabel(7,"up_trend");
}
int start()
{ double stoch_current,
atr_current_normalised,
atr_before_normalised;
double value3,value4,value5,
val1,val2,
close_diff, r;
int flag1, flag2; //flags=1 when pair drops down quickly. Stoch is below stoch_min and diff in Closes exceeds atr_current_normalised.
//flags=2 when pair goes up quickly. Stoch is above stoch_max and diff in Closes exceeds atr_current_normalised.
if (NumBars == 0)
int shift = Bars - MathMax(stoch_period,atr_period);
else
shift = MathMax(Bars,NumBars) - MathMax(stoch_period,atr_period);
while(shift>=0)
{ atr_current_normalised = iATR(NULL,0,atr_period,shift)*atr_current_norm_factor;
atr_before_normalised = atr_before_norm_factor*iATR(NULL,0,atr_period+atr_before_step,shift);
stoch_current = iStochastic(NULL,0,stoch_period,stoch_period,1,0,0,0,shift);
val1 = 0; val2 = 0;
value4 = High[shift] + atr_before_normalised;
value5 = Low[shift] - atr_before_normalised;
close_diff = MathAbs(Close[shift] - Close[shift + 2]);
//Process Sharp Drops & Rises
if (close_diff > atr_current_normalised)
if (stoch_current < stoch_min && flag1 != 1 ) //pair drops down quickly
{ value3 = High[shift] + atr_before_normalised/4;
flag1 = 1;
val1 = value3;
r = value3;
sell_signal_buf[shift]=value3;
sell_stop_line_buf[shift]=value3;
}
else if (stoch_current > stoch_max && flag1 != 2 ) //pair goes up quickly
{ value3 = Low[shift] - atr_before_normalised/4;
flag1 = 2;
val2 = value3;
r = value3;
buy_signal_buf[shift]=value3;
buy_stop_line_buf[shift]=value3;
}
//Process small Drops & Rises
if (val1 == 0 && val2 == 0) //
switch(flag1)
{ case 1:
if (value4 < r)
{ r = value4;
}
sell_stop_dot_buf[shift]=r;
sell_stop_line_buf[shift]=r;
break;
case 2:
if (value5 > r)
{ r = value5;
}
buy_stop_dot_buf[shift]=r;
buy_stop_line_buf[shift]=r;
break;
}
//------This piece of code calculates BrainTrend1 params and draws them as histogram
if ( close_diff > atr_current_normalised )
{ if (stoch_current < stoch_min)
flag2 = 1;
else if (stoch_current > stoch_max)
flag2 = 2;
}
if ( (stoch_current < stoch_min && flag2 == 1) || (stoch_current < stoch_min && flag2 == 0) )
{ if ( close_diff > atr_current_normalised )
{ down_buf[shift] = High[shift];
up_buf[shift] = Low[shift];
}
}
else if ( (stoch_current > stoch_max && flag2 == 2) || (stoch_current > stoch_max && flag2 == 0) )
{ up_buf[shift] = High[shift];
down_buf[shift] = Low[shift];
}
//------------------------------------------
shift--;
}
}
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains close prices for each bar
Indicator Curves created:
Implements a curve of type DRAW_ARROW
Implements a curve of type DRAW_LINE
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Indicator of the average true range
Stochastic oscillator
Custom Indicators Used:
Order Management characteristics:
Other Features: