Navigation:Home > Content >

Cronex_T_MA_Parabolic.mq4

Time: 2017-07-17 | Download file:Cronex_T_MA_Parabolic.mq4

//+------------------------------------------------------------------+
//|                                             Ma-Parabolic_st2.mq4 |
//|                      Copyright © 2008, MetaQuotes Software Corp. |
//|                      Copyright © 2008, Лукашук В.Г. aka lukas1.  |
//|                      Copyright © 20010, Cronex                   |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, MetaQuotes"

#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Green
#property indicator_color2 Red
//---- input parameters
extern int    Ma=13;
extern int    method=3;
extern int    app_price=0;
extern double Step=0.02;
extern double Maximum=0.04;
//---- buffers
double SarBuffer[];
double MaBuffer[];
double DVBuffUP[];
double DVBuffDN[];
//----
static bool first=false;
bool   dirlong;
double start,last_high,last_low;
double ep,sar,price_low,price_high;
int    i,j;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   IndicatorBuffers(4);
   IndicatorDigits(Digits);
   string SS=DoubleToStr(Step,4);
   string MM=DoubleToStr(Maximum,4);

   SetIndexBuffer(0,DVBuffUP);   
   SetIndexStyle(0,DRAW_HISTOGRAM);

   SetIndexBuffer(1,DVBuffDN);   
   SetIndexStyle(1,DRAW_HISTOGRAM);

//   SetIndexLabel(1,"period= "+Ma); 
//   SetIndexStyle(1,DRAW_NONE);
   SetIndexBuffer(2,MaBuffer);
//   SetIndexDrawBegin(0, 4/Step+Ma);

//   SetIndexLabel(2,"Step= "+SS+", Max= "+MM); 
//   SetIndexStyle(2,DRAW_NONE);
//   SetIndexArrow(2,159);
   SetIndexBuffer(3,SarBuffer);
//   SetIndexDrawBegin(2, 4/Step); 
//----
 
   
   

   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Parabolic Sell And Reverse system                                |
//+------------------------------------------------------------------+
int start()
  {
   if(Bars<5) return(0);
   dirlong=true;
   start=Step;
//--------------------------------------------+
   for(j=Bars-4;j>=0;j--)
      MaBuffer[j] = iMA(Symbol(),0,Ma,0,method,app_price,j);

   int i=Bars-4;
   while(i>=0)
     {
      price_low=MaBuffer[i]-Point;
      price_high=MaBuffer[i]+Point;
      //sar равен цена предыдущего бара плюс шаг умножить на 
      //(старая цена минус значение SarBuffer предыдущего бара)
      sar=SarBuffer[i+1]+start*(ep-SarBuffer[i+1]);
//----
      if(dirlong)//цепочка вверх
        {
         if(ep=price_low)//если условия для переключения наступили
           {
            start=Step; 
            dirlong=false; 
            ep=price_low;//устанавливаем последнюю цену = минимум
            last_low=price_low;
            if(MaBuffer[i]+Pointprice_low && (start+Step)<=Maximum) start+=Step;
         if(sar<=price_high)//если наступили условия переключения
           {
            start=Step; 
            dirlong=true; 
            ep=price_high;//устанавливаем последнюю цену = максимум
            last_high=price_high;
            if(MaBuffer[i]-Point>last_low) SarBuffer[i]=last_low;
            else SarBuffer[i]=MaBuffer[i]-Point;
            i--;
            continue;
           }
         else
           {
            if(ep>price_high && (start+Step)<=Maximum) start+=Step;
            //если условия для переключения не наступили
            //то пересчитываем last_low и ep для расчета следующей точки минимума
            if(ep>price_low){last_low=price_low;ep=price_low;}
           }
        }
      SarBuffer[i]=sar;
      i--;
     }
     
   for(j=Bars-4;j>=0;j--)
      {
      if(MaBuffer[j]-SarBuffer[j]>MaBuffer[j+1]-SarBuffer[j+1])DVBuffUP[j] = MaBuffer[j]-SarBuffer[j];
      if(MaBuffer[j]-SarBuffer[j]        

Recommend