//+------------------------------------------------------------------+
//| OnChart Rsi.mq4 |
//| mladen |
//| |
//+------------------------------------------------------------------+
#property copyright "mladen"
#property link ""
//----
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 DarkSlateGray
#property indicator_color2 DarkSlateGray
#property indicator_color3 DarkSlateGray
#property indicator_color4 DarkOrange
#property indicator_width4 2
#property indicator_style1 STYLE_DOT
//---- parameters
extern int RSIPeriod =14;
extern int RSIPriceType= 0;
extern int maPeriod =20;
extern int maMethod =1;
extern int maPrice =0;
extern int overBought =70;
extern int overSold =30;
extern string timeFrame="Current time frame";
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
datetime RTimeArray[];
datetime TTimeArray[];
int TimeFrame;
int atrTimeFrame;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
SetIndexBuffer(0,ExtMapBuffer1);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexBuffer(2,ExtMapBuffer3);
SetIndexBuffer(3,ExtMapBuffer4);
//----
TimeFrame=stringToTimeFrame(timeFrame);
atrTimeFrame=PERIOD_D1;
if (TimeFrame>=atrTimeFrame)
switch(TimeFrame)
{
case PERIOD_D1: atrTimeFrame=PERIOD_W1; break;
default: atrTimeFrame=PERIOD_MN1;
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
double maValue;
double avgRange;
double rsiValue;
int counted_bars=IndicatorCounted();
int limit;
int i,r,y;
//----
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;
//----
ArrayCopySeries(RTimeArray ,MODE_TIME ,NULL,atrTimeFrame);
ArrayCopySeries(TTimeArray ,MODE_TIME ,NULL,TimeFrame);
//----
for(i=0,r=0,y=0;i<limit;i++)
{
if(Time[i]<RTimeArray[r]) r++;
if(Time[i]<TTimeArray[y]) y++;
avgRange =iATR(NULL,atrTimeFrame,maPeriod,r);
maValue =iMA(NULL,TimeFrame,maPeriod,0,maMethod,maPrice,y);
rsiValue =iRSI(NULL,TimeFrame,RSIPeriod,RSIPriceType,y);
ExtMapBuffer1[i]=maValue;
ExtMapBuffer2[i]=maValue+(avgRange*(overBought-50)/100);
ExtMapBuffer3[i]=maValue-(avgRange*(50- overSold)/100);
ExtMapBuffer4[i]=maValue+avgRange*(rsiValue-50)/100;
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int stringToTimeFrame(string tfs)
{
int tf=0;
tfs=StringUpperCase(tfs);
if (tfs=="M1" || tfs=="1") tf=PERIOD_M1;
if (tfs=="M5" || tfs=="5") tf=PERIOD_M5;
if (tfs=="M15"|| tfs=="15") tf=PERIOD_M15;
if (tfs=="M30"|| tfs=="30") tf=PERIOD_M30;
if (tfs=="H1" || tfs=="60") tf=PERIOD_H1;
if (tfs=="H4" || tfs=="240") tf=PERIOD_H4;
if (tfs=="D1" || tfs=="1440") tf=PERIOD_D1;
if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1;
if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1;
if (tf<Period()) tf=Period();
return(tf);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string StringUpperCase(string str)
{
string s=str;
int lenght=StringLen(str) - 1;
int char;
//----
while(lenght>=0)
{
char=StringGetChar(s, lenght);
//----
if((char > 96 && char < 123) || (char > 223 && char < 256))
s=StringSetChar(s, lenght, char - 32);
else
if(char > -33 && char < 0)
s=StringSetChar(s, lenght, char + 224);
lenght--;
}
//----
return(s);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Indicator of the average true range
Moving average indicator
Relative strength index
Custom Indicators Used:
Order Management characteristics:
Other Features: