Скачать MetaTrader 5

Перевод из MQL5 в MQL4

Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий
Constantin Fedonkin
144
Constantin Fedonkin  

Доброй пятницы:)

Помогите перевести код из mql5 в mql4.

спасибо! 

Файлы:
George Merts
4734
George Merts  
Сам-то пробовал компильнуть, что не так ?
Constantin Fedonkin
144
Constantin Fedonkin  
George Merts:
Сам-то пробовал компильнуть, что не так ?
в компиляторе meta4?
Constantin Fedonkin
144
Constantin Fedonkin  
выдает ошибку 'prev_price' - variable already defined trendscore.mq4 126 17

#property copyright "Copyright 2013, Rone."

#property link      "rone.sergey@gmail.com"

#property version   "1.00"

#property description "simple indicator that attempts to show when price is trending by looking at up and down days."

//---

#property indicator_separate_window

#property indicator_buffers 1

#property indicator_plots   1

//--- plot TS

#property indicator_label1  "TS"

#property indicator_type1   DRAW_LINE

#property indicator_color1  clrDodgerBlue

#property indicator_style1  STYLE_SOLID

#property indicator_width1  2

//---

#property indicator_level1  0

#property indicator_levelcolor clrGray

//---

enum ENUM_TS_PRICE {

   CLOSE_CLOSE,         // Close/Close

   OPEN_CLOSE           // Open/Close

};


enum ENUM_USE_PERIOD_MODE {

   USE_PERIOD,          // Use Period

   NO_USE_PERIOD        // No Period

};

//--- input parameters

input ENUM_TS_PRICE        InpPriceMode = OPEN_CLOSE;    // Price Mode

input ENUM_USE_PERIOD_MODE InpPeriodMode = USE_PERIOD;   // Period Mode

input ushort               InpTsPeriod = 10;             // Period

//--- indicator buffers

double         TSBuffer[];

//+------------------------------------------------------------------+

//| Custom indicator initialization function                         |

//+------------------------------------------------------------------+

int OnInit() {

//--- indicator buffers mapping

   SetIndexBuffer(0, TSBuffer, INDICATOR_DATA);

//---

   PlotIndexSetInteger(0, PLOT_DRAW_BEGIN, InpTsPeriod);

//---

   IndicatorSetInteger(INDICATOR_DIGITS, 0);

   string shortname = "Trend Score (";

   if ( InpPeriodMode == USE_PERIOD ) {

      shortname += (string)InpTsPeriod + ", ";

   }

   shortname += EnumToString(InpPriceMode) + ")";

   IndicatorSetString(INDICATOR_SHORTNAME, shortname);

//---

   return(INIT_SUCCEEDED);

}

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

double NoPeriodScore(double cur_price, double prev_price, double prev_score) {

//---

   double cur_score;


   if ( cur_price > prev_price ) {

      if ( prev_score >= 0.0 ) {

         cur_score = prev_score + 1;

      } else {

         cur_score = 1.0;

      }

   } else if ( cur_price < prev_price ) {

      if ( prev_score < 0.0 ) {

         cur_score = prev_score - 1;

      } else {

         cur_score = -1.0;

      }

   } else {

      cur_score = prev_score;

   }   

//---

   return(cur_score);

}

//+------------------------------------------------------------------+

//| Custom indicator iteration function                              |

//+------------------------------------------------------------------+

int OnCalculate(const int rates_total,

                const int prev_calculated,

                const datetime &time[],

                const double &open[],

                const double &high[],

                const double &low[],

                const double &close[],

                const long &tick_volume[],

                const long &volume[],

                const int &spread[])

{

//---

   int start_bar;

   

   if ( prev_calculated > rates_total || prev_calculated <= 0 ) {

      ArrayInitialize(TSBuffer, 0.0);

      start_bar = InpTsPeriod;

   } else {

      start_bar = prev_calculated - 1;

   }

//---

   for ( int bar = start_bar; bar < rates_total; bar++ ) {

      

      if ( InpPeriodMode == USE_PERIOD ) {

         int sum = 0;

      

         for ( int shift = bar - InpTsPeriod + 1; shift <= bar; shift++ ) {

            double prev_price = open[shift];

            

            if ( InpPriceMode == CLOSE_CLOSE ) {

               prev_price = close[shift-1];

            }

            if ( close[shift] > prev_price ) {

               sum += 1;

            } else if ( close[shift] < prev_price ) {

               sum -= 1; 

            } 

         }

         TSBuffer[bar] = sum;

      } else {

         double prev_price = open[bar];

         

         if ( InpPriceMode == CLOSE_CLOSE ) {

            prev_price = close[bar-1];

         }

         TSBuffer[bar] = NoPeriodScore(close[bar], prev_price, TSBuffer[bar-1]);

      }

   }

//--- return value of prev_calculated for next call

   return(rates_total);

}

//+------------------------------------------------------------------+

 


Alexander Laur
8210
Alexander Laur  
fedonkin:
 

Потому что переменная prev_price в коде объявляется дважды:

   - первый раз в качестве формального параметра в функции NoPeriodScore();

   - второй раз в теле функции OnCalculate().

Новый компилятор на это обращает внимание и сообщает об ошибке. Замените в одном из случаев название переменной.

Andrey Miguzov
2406
Andrey Miguzov  
fedonkin:

Доброй пятницы:)

Помогите перевести код из mql5 в mql4.

спасибо! 

Вставьте в начале 

#property strict

 и всё будет ок!

Constantin Fedonkin
144
Constantin Fedonkin  
Andrey Miguzov:

Вставьте в начале 

 и всё будет ок!

Спасиб. Большущее)))
Vitalie Postolache
12445
Vitalie Postolache  

Если просто скомпилировать в МЕ4 с #property strict, индикатор будет всё равно работать неправильно.

Во-первых, рисует прямую на самом интересном месте, а именно на участке последних, самых свежих баров.

Во-вторых, судя по коду:

double NoPeriodScore(double cur_price, double prev_price, double prev_score) {
//---
   double cur_score;

   if ( cur_price > prev_price ) {
      if ( prev_score >= 0.0 ) {
         cur_score = prev_score + 1;
      } else {
         cur_score = 1.0;
      }
   } else if ( cur_price < prev_price ) {
      if ( prev_score < 0.0 ) {
         cur_score = prev_score - 1;
      } else {
         cur_score = -1.0;
      }
   } else {
      cur_score = prev_score;
   }   
//---
   return(cur_score);
}

в этом режиме индикатор должен выдавать значения в пределах -1..1, а он выдаёт значения от -8 до 8 (а может и больше, не смотрел).

Ну и в паре мест по коду пытается в будущее заглянуть.

Вот исправленный вариант:

Файлы:
Авторизуйтесь или зарегистрируйтесь, чтобы добавить комментарий