// ---------------------------------------------------------------------------
//  Индикатор скорости на минутках по методе Gorillych-а
//  http://articles.mql4.com/ru/212
//
//  Автоторговля, мне кажется, призвана в первую очередь заставить машину 
//  делать то, чего невозможно добиться ручной торговлей: стабильность, 
//  психологическая устойчивость, быстрота реакции на ситуацию, 
//  неограниченная выносливость и т.п.
//  Приведу пример. На чемпионате 2006 года у меня участвовал эксперт, у 
//  которого основным, наверное, достоинством было, что он методами 
//  технического анализа мог торговать на новостях. При том, что его 
//  по-определению невозможно было тестировать на истории на чемпионате он 
//  первое время показывал удивительно хорошие результаты. На его 
//  окончательном результате сказались ещё некоторые дополнительные ошибочные 
//  идеи в алгоритме его работы.
//  Не буду приводить весь код эксперта, но основной идеей его был расчет 
//  некоего значения Pv=(h-l)/Point/v; внутри минутного бара. И если это 
//  значение превышало 0,33 и одновременно объем превышал 12 (пытался найти 
//  эти значения при тестировании EURUSD) то открывалась сделка. 
//  Если C>O BUY, если C<O SELL. SL=50. TS=95.
//  На словах идея была в том, что есть некоторые бары, показывающие 
//  сантимент последующего движения. Когда, например, быки превосходят 
//  медведей. Объем, вложенный в бар начинает его растягивать, и при 
//  достаточном пороговом объеме появляется тренд.
//  В статье на приведенном первом графике виден бар новостей. 
//  Так его можно торговать подобным методом в обе стороны, удачно 
//  подобрав SL и ТS.
// ---------------------------------------------------------------------------

#property indicator_separate_window
#property indicator_buffers          1
#property indicator_color1           C'0,255,0'
#property indicator_minimum         -20
#property indicator_maximum          20
#property indicator_style1           0
#property indicator_level1           0

double value[];

int init() {
  IndicatorDigits(3);
  IndicatorShortName("Gorillych");

  if(!SetIndexBuffer(0, value)) {
    Alert("SetIndexBuffer() FAILED");
  }

  return(0);
}

int start() {
  int i, left = Bars - IndicatorCounted();

  for(i = 0; i < left; i++) {
    value[i] = ((High[i] - Low[i]) / Point / Volume[i]) *
      misc_sign(Close[i] - Open[i]);
  }

  return(0);
}

// Возвращает знак числа (-1;0;1)
int misc_sign(double value) {
  if(value > 0) {
    return(1);
  } else if(value < 0) {
    return(-1);
  }
  
  return(0);
}