convert mq5 to mq4 indicator

Myraid

can any one convert this indicator to mq4

thanks in advance for the help.[0_1509390854921_is7n_trend.mq5](Uploading 100%)

Myraid

#define OP_BUY 0
#define OP_SELL 1
#define OP_BUYLIMIT 2
#define OP_SELLLIMIT 3
#define OP_BUYSTOP 4
#define OP_SELLSTOP 5
#define MODE_OPEN 0
#define MODE_LOW 1
#define MODE_HIGH 2
#define MODE_CLOSE 3
#define MODE_VOLUME 4
#define MODE_TIME 5
#define MODE_TRADES 0
#define MODE_HISTORY 1
#define SELECT_BY_POS 0
#define SELECT_BY_TICKET 1
#define LONG_VALUE 4
#define FLOAT_VALUE 4
#define DOUBLE_VALUE 8
#define CHART_BAR 0
#define CHART_CANDLE 1
#define MODE_ASCEND 1
#define MODE_DESCEND 2
#define MODE_BID 9
#define MODE_ASK 10
#define MODE_POINT 11
#define MODE_DIGITS 12
#define MODE_SPREAD 13
#define MODE_STOPLEVEL 14
#define MODE_LOTSIZE 15
#define MODE_TICKVALUE 16
#define MODE_TICKSIZE 17
#define MODE_SWAPLONG 18
#define MODE_SWAPSHORT 19
#define MODE_STARTING 20
#define MODE_EXPIRATION 21
#define MODE_TRADEALLOWED 22
#define MODE_MINLOT 23
#define MODE_LOTSTEP 24
#define MODE_MAXLOT 25
#define MODE_SWAPTYPE 26
#define MODE_PROFITCALCMODE 27
#define MODE_MARGINCALCMODE 28
#define MODE_MARGININIT 29
#define MODE_MARGINMAINTENANCE 30
#define MODE_MARGINHEDGED 31
#define MODE_MARGINREQUIRED 32
#define MODE_FREEZELEVEL 33
#define MODE_CLOSEBY_ALLOWED 34
#define EMPTY -1
#define MODE_MAIN 0
#define MODE_SIGNAL 1
#define MODE_PLUSDI 1
#define MODE_MINUSDI 2
#define MODE_UPPER 1
#define MODE_LOWER 2
#define MODE_GATORJAW 1
#define MODE_GATORTEETH 2
#define MODE_GATORLIPS 3
#define MODE_TENKANSEN 1
#define MODE_KIJUNSEN 2
#define MODE_SENKOUSPANA 3
#define MODE_SENKOUSPANB 4
#define MODE_CHIKOUSPAN 5
#define MODE_CHINKOUSPAN 5
#define OBJPROP_TIME1 2000
#define OBJPROP_PRICE1 2001
#define OBJPROP_TIME2 2002
#define OBJPROP_PRICE2 2003
#define OBJPROP_TIME3 2004
#define OBJPROP_PRICE3 2005
#define OBJPROP_FIBOLEVELS 2006

//+------------------------------------------------------------------+
//| iS7N_TREND.mq5 |
//| Copyright 2010, SHOOTER777 |
//| s7n@mail.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright 2010, SHOOTER777"
#property link "s7n@mail.ru"
#property version "1.00"
//---- indicator settings
#property indicator_chart_window
#property indicator_buffers 3
#property indicator_plots 3
#property indicator_plots 1
//---- plot settings
#property indicator_label1 "iTREND"
//---
#property indicator_color1 DarkBlue, LightBlue
#property indicator_type1 DRAW_COLOR_LINE
#property indicator_width1 2

enum eColor
{
one_color_indicator,
two_color_indicator
};

//--- input parameters of the iS7N_TREND indicator
input int Per=20; // indicator period
input eColor eC=1; // color scheme
input color Up = DarkBlue; // bull color (uptrend)
input color Down = LightBlue; // bear color (downtrend)
input int iMax=200; //calc and plot iMx bars
//--- as a fact, the number of calculated bars is iMx-Per
//--- or in some cases more, for example if the specified period is greater than iMx
//--- indicator buffers
double dPlot[];
double dColor[];
//--- calculations buffers
double dBuf_I[];
//--- handles buffers
double dBuf_1[];
double dBuf_2[];
//--- handles
int ihMA_1;
int ihMA_2;
//--- global variables
int P0,P2,P4;
int iMx;
int limit;
string sShNm;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
int iPer=(string)(sShNm)+(string)("iS7N_TREND( ")+(string)(Per)+(string)(" )");
int iBars=Bars(_Symbol,_Period); // number of bars in the history
iMx=iMax;
Print(" Total ",iBars," bars in the history are available");
//---
SetIndexBuffer(0,dPlot,(ENUM_INDEXBUFFER_TYPE)INDICATOR_DATA,true);
PlotIndexSetString(0,PLOT_LABEL,"TREND");
ArraySetAsSeries(dPlot,true);
//---
SetIndexBuffer(1,dColor,(ENUM_INDEXBUFFER_TYPE)INDICATOR_COLOR_INDEX,true);
ArraySetAsSeries(dColor,true);
//---
SetIndexBuffer(2,dBuf_I,(ENUM_INDEXBUFFER_TYPE)INDICATOR_CALCULATIONS,true);
ArraySetAsSeries(dBuf_I,true);
//---
ArraySetAsSeries(dBuf_1,true);
ArraySetAsSeries(dBuf_2,true);
//---
IndicatorSetInteger(INDICATOR_DIGITS,_Digits-1);
//---
IndicatorSetString(INDICATOR_SHORTNAME,sShNm);
//---
// setting the buffer colors
PlotIndexSetInteger(0,PLOT_LINE_COLOR,0,Up);
PlotIndexSetInteger(0,PLOT_LINE_COLOR,1,Down);
//---
// if one color mode is selected
if(eC==0)
{
Print("One color mode is selected");
//--- set the second color the same as the first
PlotIndexSetInteger(0,PLOT_LINE_COLOR,1,Up);
}
else
//--- don't change anything
Print("Two-color mode is selected");
//---
vInPr(); // calculate periods
//---
if(!vInHandl()) // get the indicator handles
{
Print("???There was an error in initialization???");
Print("Error ¹",GetLastError());
return(-1);
}
//---
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
const int prev_calculated,
const int begin,
const double &price[])
{
FXD_ONCALCULATE_FAIL = false; // will be set to true if some indicator won't load

FXD_ONCALCULATE_FAIL = false; // will be set to true if some indicator won't load

//---
if(prev_calculated<=0)
{
for(int i=0;i<=rates_total-1;i++)
{
dPlot[i]=EMPTY_VALUE;
}
}

//--- the number of available bars should be greater than 10 periods of the indicator
int iMn=10*P0;
//--- we return if rates_total is less than needed (iMn)
if(iMn>rates_total)return(0);
//--- set correct size
if(iMn>iMx) iMx=iMn;
//--- calc as is
if(iMx>rates_total)iMx=rates_total;
//---
int iii; // variable for the main loop

//--- we will recalculate only preMx last bars
int preMx=1;
//--- if it first call...
if(prev_calculated<=0)
//--- recalculate all the bars
{
limit=iMx;
Print("The indicator will be calculated for the ",limit-P0," last bars");
Print("After that, the indicator will be calculated for the ",P0+preMx," last bars");
//--- ArrayInitialize(dPlot,EMPTY_VALUE);
}
//--- otherwise, we recalc only preMx last bars
else
{
limit=P0+preMx;
}
//---
ArrayResize(dBuf_1,limit);
ArrayResize(dBuf_2,limit);

if(!vCopy()) return(0);

for(iii=0; iii<limit; iii++)
{
dBuf_I[iii]=2.0*dBuf_2[iii]-dBuf_1[iii];
}
//---
//Print("The indicator will be calculated for ",limit," bars");
//---
ArrayResize(dBuf_I,limit);
//---
for(iii=0; iii<limit-P0;iii++)
{
dPlot[iii]=iLWMA(dBuf_I,P4,iii);
}
//---
for(iii=0; iii<limit-P0;iii++)
{
if(dPlot[iii]>dPlot[iii+1])
dColor[iii]=0;
else
dColor[iii]=1;
}
ChartRedraw();
if (FXD_ONCALCULATE_FAIL) {return -1;}
if (FXD_ONCALCULATE_FAIL) {return -1;}

return(rates_total);
}
//+------------------------------------------------------------------+
//| vInPr |
//+------------------------------------------------------------------+
void vInPr()
{
P0=Per;
P2=Per/2;
P4= int (MathSqrt(Per));
}
//+------------------------------------------------------------------+
//| vInHandl |
//+------------------------------------------------------------------+
bool vInHandl()
{
Print("Get the indicator handles for the iS7N_TREND indicator");
//---
ihMA_1 = iMA(Symbol(),(ENUM_TIMEFRAMES)0,P0,0,(ENUM_MA_METHOD)MODE_EMA,(ENUM_APPLIED_PRICE)PRICE_CLOSE);
ihMA_2 = iMA(Symbol(),(ENUM_TIMEFRAMES)0,P2,0,(ENUM_MA_METHOD)MODE_EMA,(ENUM_APPLIED_PRICE)PRICE_CLOSE);
//---
if(ihMA_1<0 || ihMA_1<0)
{
Print(" Error creating indicators");
return(false);
}
else
{
Print("The handles has been initialized successfully");
Print("The main : Period = ",P0," Handle =",ihMA_1);
Print("The secondary : Period = ",P2," Handle =",ihMA_2);
return(true);
}

return 0;
}
//+------------------------------------------------------------------+
//| vCopy |
//+------------------------------------------------------------------+
bool vCopy()
{
int n1,n2;
n1=CopyBuffer(ihMA_1,0,0,limit,dBuf_1);
n2=CopyBuffer(ihMA_2,0,0,limit,dBuf_2);
if(n1==-1 || n2==-1)
{
Print("Error in call of the CopyBuffer function, error ¹=",GetLastError());
return(false);
}
else return(true);

return 0;
}
//+------------------------------------------------------------------+
//| LWMA iMAOnArrayMQL4 |
//+------------------------------------------------------------------+
double iLWMA(double &array[],
int period,
int shift)
{
double buf[],arr[];
int total=ArraySize(array);
if(total>0 && total<=period) return(0);
if(shift>total-period) return(0);

if(ArrayResize(buf,total)<0) return(0);
double sum=0.0,lsum=0.0;
double price;
int i,weight=0,pos=total-1;
for(i=1;i<=period;i++,pos--)
{
price=array[pos];
sum+=pricei;
lsum+=price;
weight+=i;
}
pos++;
i=pos+period;
while(pos>=0)
{
buf[pos]=sum/weight;
if(pos==0) break;
pos--;
i--;
price=array[pos];
sum=sum-lsum+priceperiod;
lsum-=array[i];
lsum+=price;
}
return(buf[shift]);

}
//+------------------------------------------------------------------+

//== fxDreema MQL4 to MQL5 Converter ==//

//-- Global Variables
int FXD_SELECTED_TYPE = 0; // Indicates what is selected by OrderSelect(), 1 for trade, 2 for pending order, 3 for history trade
ulong FXD_SELECTED_TICKET = 0; // The ticket number selected by OrderSelect()
bool FXD_ONCALCULATE_FAIL = false; // Flag that causes OnCalculate() to return nothing if some indicator is used and failed to load, which means that indicator calculations must be repeated

//-- Functions
double iMA(
string symbol,
ENUM_TIMEFRAMES timeframe,
int ma_period,
int ma_shift,
ENUM_MA_METHOD ma_method,
ENUM_APPLIED_PRICE applied_price,
int shift
)
{
applied_price++; // Fix, because all ENUM_APPLIED_PRICE in MQL5 are +1
int handle = iMA(symbol,(ENUM_TIMEFRAMES)timeframe,ma_period,ma_shift,(ENUM_MA_METHOD)ma_method,(ENUM_APPLIED_PRICE)applied_price);

return fxd_Indicator(handle,0,shift);

}

bool SetIndexBuffer(
int index,
double &buffer[],
ENUM_INDEXBUFFER_TYPE data_type,
bool set_as_series
)
{
bool ret = SetIndexBuffer(index,buffer,(ENUM_INDEXBUFFER_TYPE)data_type,true);
if (ret) {
ArraySetAsSeries(buffer,true);
}

return ret;

}

double fxd_Indicator(int handle, int mode=0, int shift=0)
{
static double buffer[1];

ResetLastError(); 

if (handle < 0)
{
	Print("Error: Indicator not handled (handle=",handle," | error code=",_LastError,")");
	
	FXD_ONCALCULATE_FAIL = true;
	
	return EMPTY_VALUE;
}

for (int i=0; i<100; i++)
{
	if (BarsCalculated(handle) > 0)
	{
		break;
	}

	// Sleep doesn't work for indicators, so we exit here
	if (MQLInfoInteger(MQL_PROGRAM_TYPE) == PROGRAM_INDICATOR)
	{
		FXD_ONCALCULATE_FAIL = true;

		return EMPTY_VALUE;
	}

	Sleep(50);
}

int copied = CopyBuffer(handle,mode,shift,1,buffer);

if (copied > 0) {
	return buffer[0];
}

//Print("Error: Cannot get indicator value (handle=",handle," | shift=",shift," | error code=",_LastError,")");
FXD_ONCALCULATE_FAIL = true;

return EMPTY_VALUE;

}

//== fxDreema MQL4 to MQL5 Converter ==//

//-- Global Variables
int FXD_SELECTED_TYPE = 0; // Indicates what is selected by OrderSelect(), 1 for trade, 2 for pending order, 3 for history trade
ulong FXD_SELECTED_TICKET = 0; // The ticket number selected by OrderSelect()
bool FXD_ONCALCULATE_FAIL = false; // Flag that causes OnCalculate() to return nothing if some indicator is used and failed to load, which means that indicator calculations must be repeated

//-- Functions
bool SetIndexBuffer(
int index,
double &buffer[],
ENUM_INDEXBUFFER_TYPE data_type,
bool set_as_series
)
{
bool ret = SetIndexBuffer(index, buffer, data_type);
if (ret) {
ArraySetAsSeries(buffer, true);
}

return ret;

}

double iMA(
string symbol,
ENUM_TIMEFRAMES timeframe,
int ma_period,
int ma_shift,
ENUM_MA_METHOD ma_method,
ENUM_APPLIED_PRICE applied_price,
int shift
)
{
applied_price++; // Fix, because all ENUM_APPLIED_PRICE in MQL5 are +1
int handle = iMA(symbol, timeframe, ma_period, ma_shift, ma_method, applied_price);

return fxd_Indicator(handle, 0, shift);

}

double fxd_Indicator(int handle, int mode=0, int shift=0)
{
static double buffer[1];

ResetLastError(); 

if (handle < 0)
{
	Print("Error: Indicator not handled (handle=",handle," | error code=",_LastError,")");
	
	FXD_ONCALCULATE_FAIL = true;
	
	return EMPTY_VALUE;
}

for (int i=0; i<100; i++)
{
	if (BarsCalculated(handle) > 0)
	{
		break;
	}

	// Sleep doesn't work for indicators, so we exit here
	if (MQLInfoInteger(MQL_PROGRAM_TYPE) == PROGRAM_INDICATOR)
	{
		FXD_ONCALCULATE_FAIL = true;

		return EMPTY_VALUE;
	}

	Sleep(50);
}

int copied = CopyBuffer(handle,mode,shift,1,buffer);

if (copied > 0) {
	return buffer[0];
}

//Print("Error: Cannot get indicator value (handle=",handle," | shift=",shift," | error code=",_LastError,")");
FXD_ONCALCULATE_FAIL = true;

return EMPTY_VALUE;

}

//== fxDreema MQL4 to MQL5 Converter ==//

convert mq5 to mq4 indicator

Online Users

15
Online

146.7k
Users

22.4k
Topics

122.6k
Posts

convert mq5 to mq4 indicator

Online Users

15Online

146.7kUsers

22.4kTopics

122.6kPosts

15
Online

146.7k
Users

22.4k
Topics

122.6k
Posts