SMI ,,стохастик,, от Вильяма Блау правдивее стохастика Лейна !!! Но ещё есть над чем поработать ;-)))

[Удален] · 2007.05.27 11:21

//+------------------------------------------------------------------+
//| SMI.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| https://www.metaquotes.net/ |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "https://www.metaquotes.net/"

#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 White
#property indicator_color2 Red
#property indicator_level1 0
//---- input parameters
extern int Period_Q=2;
extern int Period_R=8;
extern int Period_S=5;
extern int Signal=5;
//---- buffers
double SMI_Buffer[];
double Signal_Buffer[];
double SM_Buffer[];
double EMA_SM[];
double EMA2_SM[];
double EMA_HQ[];
double EMA2_HQ[];
double HQ_Buffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
IndicatorBuffers(8);
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,SMI_Buffer);
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,Signal_Buffer);
SetIndexLabel(0,"SMI");
SetIndexLabel(1,"Signal SMI");
SetIndexBuffer(2,SM_Buffer);
SetIndexBuffer(3,EMA_SM);
SetIndexBuffer(4,EMA2_SM);
SetIndexBuffer(5,EMA_HQ);
SetIndexBuffer(6,EMA2_HQ);
SetIndexBuffer(7,HQ_Buffer);

IndicatorShortName("SMI("+Period_Q+","+Period_R+","+Period_S+", "+Signal+")");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//---- TODO: add your code here
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
int limit;
int i;
// double Median_Q[];
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
limit=Bars-Period_Q-counted_bars;
if(counted_bars>0) counted_bars--;
// ArrayResize(Median_Q,limit);
// ArrayResize(HQ_Buffer,limit);
// ArraySetAsSeries(Median_Q,true);
// ArraySetAsSeries(HQ_Buffer,true);
for (i=limit;i>=0;i--)
{
//Median_Q[i]=(High[Highest(NULL,0,MODE_HIGH,0,i)]+Low[Lowest(NULL,0,MODE_HIGH, 0,i)])/2;
HQ_Buffer[i]=High[Highest(NULL,0,MODE_HIGH,Period_Q,i)]-Low[Lowest(NULL,0,MODE_LOW, Period_Q,i)];
SM_Buffer[i]=Close[i]-(High[Highest(NULL,0,MODE_HIGH,Period_Q,i)]+Low[Lowest(NULL, 0,MODE_LOW,Period_Q,i)])/2;//Median_Q[i];
}
// for (i=limit;i>=0;i--)
// {
// SM_Buffer[i]=Close[i]-(High[Highest(NULL,0,MODE_HIGH,0,i)]+Low[Lowest(NULL,0, MODE_HIGH,0,i)])/2;//Median_Q[i];
// }
for (i=limit-Period_R;i>=0;i--)
{
EMA_SM[i]=iMAOnArray(SM_Buffer,0,Period_R,0,MODE_EMA,i);
EMA_HQ[i]=iMAOnArray(HQ_Buffer,0,Period_R,0,MODE_EMA,i);
}
for (i=limit-Period_R-Period_S;i>=0;i--)
{
EMA2_SM[i]=iMAOnArray(EMA_SM,0,Period_S,0,MODE_EMA,i);
EMA2_HQ[i]=iMAOnArray(EMA_HQ,0,Period_S,0,MODE_EMA,i);
}
for (i=limit-Period_R-Period_S-Signal;i>=0;i--)
{
SMI_Buffer[i]=100*EMA2_SM[i]/0.5/EMA2_HQ[i];
}
for (i=limit-Period_R-Period_S;i>=0;i--)
{
Signal_Buffer[i]=iMAOnArray(SMI_Buffer,0,Signal,0,MODE_EMA,i);
}

//---- TODO: add your code here
//----
return(0);
}
//+------------------------------------------------------------------+

Sergey Gustaytis · 2007.05.27 12:44

Вы где этот код то взяли? Я его еще год назад писал. Пользуйтесь, но зачем за свое творчество выдавать?!

//+------------------------------------------------------------------+
//|                                                  SMI_ergodic.mq4 |
//|                            Copyright © 2006,          aka  GSB   |
//+------------------------------------------------------------------+
#property copyright "GSB"
#property link      "gsb51@mail.ru"
 
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 White
#property indicator_color2 Red
 
//---- input parameters
extern int       Period_Q=13;
extern int       Period_R=25;
extern int       Period_S=8;
extern int       Signal=5;
extern int       DrawBars=500;
//---- buffers
double SMI_Buffer[];
double Signal_Buffer[];
double SM_Buffer[];
double EMA_SM[];
double EMA2_SM[];
double EMA_HQ[];
double EMA2_HQ[];
double HQ_Buffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- 6 additional buffer are used for counting.
//---- 2 индикаторных буффера использованы для счёта.
   IndicatorBuffers(8);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,SMI_Buffer);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,Signal_Buffer);
   SetIndexLabel(0,"SMI");
   SetIndexLabel(1,"Signal SMI");
   SetIndexDrawBegin(0,DrawBars);
   SetIndexDrawBegin(1,DrawBars);
   SetIndexBuffer(2,SM_Buffer);
   SetIndexBuffer(3,EMA_SM);
   SetIndexBuffer(4,EMA2_SM);
   SetIndexBuffer(5,EMA_HQ);
   SetIndexBuffer(6,EMA2_HQ);
   SetIndexBuffer(7,HQ_Buffer);
   IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
   IndicatorShortName("SMI("+Period_Q+","+Period_R+","+Period_S+","+Signal+")");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   
 
      int Max_Period_Q_R = MathMax( Period_Q, Period_R); 
      int Max_Period_Q_R_S = MathMax(Max_Period_Q_R, Period_S);
      int Max_Period_Q_R_S_Sig = MathMax(Max_Period_Q_R_S,Signal);  
 
      int    IC=IndicatorCounted();
      int cbi,i;
    
      if (Bars-IC<3) cbi=Bars-IC-1; else {cbi=Bars-Max_Period_Q_R_S_Sig-1;}
 
 
 
      for (i=cbi;i>=0;i--)
      {
      HQ_Buffer[i]=High[Highest(NULL,0,MODE_HIGH,Period_Q,i)]-Low[Lowest(NULL,0,MODE_LOW,Period_Q,i)];
      SM_Buffer[i]=Close[i]-(High[Highest(NULL,0,MODE_HIGH,Period_Q,i)]+Low[Lowest(NULL,0,MODE_LOW,Period_Q,i)])/2;
      }
 
      for(i=cbi;i>=0;i--)
      {
      EMA_SM[i]=iMAOnArray(SM_Buffer,0,Period_R,0,MODE_EMA,i);
      EMA_HQ[i]=iMAOnArray(HQ_Buffer,0,Period_R,0,MODE_EMA,i);
      }
      for(i=cbi;i>=0;i--)
      {
      EMA2_SM[i]=iMAOnArray(EMA_SM,0,Period_S,0,MODE_EMA,i);
      EMA2_HQ[i]=iMAOnArray(EMA_HQ,0,Period_S,0,MODE_EMA,i);
      
      SMI_Buffer[i]=100*EMA2_SM[i]/0.5/EMA2_HQ[i];
      }
      
     
   for (i=cbi;i>=0;i--)
      {
      Signal_Buffer[i]=iMAOnArray(SMI_Buffer,0,Signal,0,MODE_EMA,i);
      }
 
//----
   return(0);
  }
//+------------------------------------------------------------------+

[Удален] · 2007.05.28 08:01

Извините а я и не выдаю код за свой . Тему создал для обсуждения . Код нашол в какой-то колекции индикаторов скачаной давно. Код здесь ещё всплывал http://forexsystems.ru/phpBB/download.php?id=848 от Rosh как я понимаю http://forexsystems.ru/phpBB/viewtopic.php?t=649&postdays=0&postorder=asc&start=30
Не знал что Вы и есть Rosh . Так что ещё раз извините .
P.S. Дйствительно Блау очень интересно улучшил ,,стохастик,, если этот индикатор можно так назвать . На мой взгляд авторство идеи  и способы расчета принадлежит Блау . Ну а на авторство кода и самого индикатора я и несмею претендовать . Предлагаю продуктивно без негатива заниматься креативом !
                                                                                                                           С наилучшими пожеланиями :-)))

Rashid Umarov · 2007.05.28 09:24

4xcod:
Извините а я и не выдаю код за свой . Тему создал для обсуждения . Код нашол в какой-то колекции индикаторов скачаной давно. Код здесь ещё всплывал http://forexsystems.ru/phpBB/download.php?id=848 от Rosh как я понимаю http://forexsystems.ru/phpBB/viewtopic.php?t=649&postdays=0&postorder=asc&start=30
Не знал что Вы и есть Rosh . Так что ещё раз извините .
P.S. Дйствительно Блау очень интересно улучшил ,,стохастик, , если этот индикатор можно так назвать . На мой взгляд авторство идеи и способы расчета принадлежит Блау . Ну а на авторство кода и самого индикатора я и несмею претендовать . Предлагаю продуктивно без негатива заниматься креативом !
С наилучшими пожеланиями :-)))

Хмм.. действительно, оказывается я тоже делал :) Думал только эргодику.

Sergey Gustaytis · 2007.05.28 09:55

Уважаемый ROSH, я полагаю, что данный код делали не только мы с Вами. А написал я пост потому, что мне показалось что 4xcod выдает это именно за свой код ( уж больно заголовок темы "...Но есть над чем поработать.." на это намекает).
Да и сам форум mql.com имеет больше направленность на обсуждение вопросов связанных с особенностями программирования....в МТ.

А писал я его с кода Омеги, сверяя с книгой William Blau, "Momentum,Direction, and Divergence" , и даже наименование переменных не менял. Только что посмотрел ссылки, там Вы (ROSH) тоже пишите именно про код Омеги, так что не удивительно, что имена переменных абсолютно одинаковы.

4xcod, насчет усовершенствования - все будут только приветствовать. ...

С уважением ко всем

[Удален] · 2007.05.29 13:09

Хорошо что с Омегой и соавторством разобрались :-))) Ну а теперь ребята по существу ;-))) хотелось-бы увидеть этот ,,стохастик,, с лентами Боллинджера вместо уровней (+40,-40 как у Блау) что скажете ? может у кого есть время и желание проверить мою очередную ,,бредовую,, идею ? а может-быть кто нибудь до меня избрел этот велосипед :-) тогда поделитесь если не жалко . Может что ещё ,,изобрету,, ;-) выложу , а у кого есть свои , ,велосипеды,, - покажите может кому и пригодятся
наилучшие пожелания всем творческим програмосоздателям

Dmitry Fedoseev · 2007.05.31 05:25

4xcod:
Хорошо что с Омегой и соавторством разобрались :-))) Ну а теперь ребята по существу ;-))) хотелось-бы увидеть этот ,,стохастик,, с лентами Боллинджера вместо уровней (+40,-40 как у Блау) что скажете ? может у кого есть время и желание проверить мою очередную , ,бредовую,, идею ? а может-быть кто нибудь до меня избрел этот велосипед :-) тогда поделитесь если не жалко . Может что ещё ,, изобрету,, ;-) выложу , а у кого есть свои , ,велосипеды, , - покажите может кому и пригодятся
наилучшие пожелания всем творческим програмосоздателям

Из навигатора мышкой перетащиет полосы боллинджера на график с SMI, в списке "цена" выберите firts inicators data или previous indicators data.