//+------------------------------------------------------------------+
//| MTF Relative Strength Index.mq4 |
//+------------------------------------------------------------------+
#property copyright "mqlservice.co.uk"
#property link "http://mqlservice.co.uk/"
#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 DodgerBlue
#property indicator_level1 30
#property indicator_level2 70
#property indicator_minimum 0
#property indicator_maximum 100
//---- input parameters
extern int TimeFrame=0;
extern int RSIPeriod=14;
extern int AppliedPrice=0;
extern int Shift=0;
extern string note0="Applied price 0-CLOSE | 1-OPEN | 2-HIGH | 3-LOW |";
extern string note1=" | 4-MEDIAN | 5-TYPICAL | 6-WEIGHTED |";
extern string note2 = "Time Frame 0=current time frame";
extern string note3 = "1=M1, 5=M5, 15=M15, 30=M30";
extern string note4 = "60=H1, 240=H4, 1440=D1";
extern string note5 = "10080=W1, 43200=MN1";
//---- buffers
double MainBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
int draw_begin=RSIPeriod;
string short_name="MTF RSI ";
//---- indicators
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,MainBuffer);
Print("MTF Relative Strength Index , Ver.#2");
Print("Copyright © 2009/05/26 MQL Service UK http://mqlservice.co.uk/");
switch(AppliedPrice){
case 1 : short_name=short_name+"| OPEN "; break;
case 2 : short_name=short_name+"| HIGH "; break;
case 3 : short_name=short_name+"| LOW "; break;
case 4 : short_name=short_name+"| MEDIAN "; break;
case 5 : short_name=short_name+"| TYPICAL "; break;
case 6 : short_name=short_name+"| WEIGHTED "; break;
default :
AppliedPrice=PRICE_CLOSE; short_name=short_name+"| CLOSE "; break;
}
if(TimeFrame<Period()) TimeFrame=Period();
string TFName="";
switch(TimeFrame)
{
case 1 : TFName="M1"; break;
case 5 : TFName="M5"; break;
case 15 : TFName="M15"; break;
case 30 : TFName="M30"; break;
case 60 : TFName="H1"; break;
case 240 : TFName="H4"; break;
case 1440 : TFName="D1"; break;
case 10080 : TFName="W1"; break;
case 43200 : TFName="MN1"; break;
default : TFName="Chart"; TimeFrame=Period(); break;
}
short_name=StringConcatenate(short_name," (TF "+TFName+","+RSIPeriod+")");
IndicatorShortName(short_name);
SetIndexDrawBegin(0,draw_begin);
SetIndexLabel(0,"Main");
IndicatorDigits(4);
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int limit, iChart, iTF, delta=0;
datetime TimeArray[];
if(TimeFrame>Period()) delta=MathCeil(TimeFrame/Period());
int counted_bars=IndicatorCounted();
//---- check for possible errors
if(counted_bars<0) return(-1);
//---- the last counted bar will be recounted
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars+delta;
ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame);
iTF=0;
for(iChart=0; iChart<limit; iChart++)
{
while(Time[iChart]<TimeArray[iTF]) iTF++;
MainBuffer[iChart]=EMPTY_VALUE;
MainBuffer[iChart]=iRSI(Symbol(),TimeFrame,RSIPeriod,AppliedPrice,iTF+Shift);
}
return(0);
}
//+-------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Relative strength index
Custom Indicators Used:
Order Management characteristics:
Other Features: