//+------------------------------------------------------------------+
//| Waddah Attar RSI Level ..Idea by Yamedo |
//| Copyright © 2007, www.metaforex.net |
//| Waddah Attar www.metaforex.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, www.metaforex.net"
#property link "www.metaforex.net"
//----
#property indicator_chart_window
#property indicator_buffers 8
#property indicator_color1 Blue
#property indicator_color2 Red
#property indicator_color3 Green
#property indicator_color4 Red
#property indicator_color5 Green
#property indicator_color6 Red
#property indicator_color7 Green
#property indicator_color8 Magenta
//----
extern int RSIDayPeriod = 5;
extern int ExtraLevel = 10;
//---- buffers
double P1Buffer[];
double P2Buffer[];
double P3Buffer[];
double P4Buffer[];
double P5Buffer[];
double P6Buffer[];
double P7Buffer[];
double P8Buffer[];
//----
int myPeriod = PERIOD_D1;
//----
double L90, L80, L70, L60, L50, L40, L30, L20;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
SetIndexBuffer(0, P1Buffer);
SetIndexBuffer(1, P2Buffer);
SetIndexBuffer(2, P3Buffer);
SetIndexBuffer(3, P4Buffer);
SetIndexBuffer(4, P5Buffer);
SetIndexBuffer(5, P6Buffer);
SetIndexBuffer(6, P7Buffer);
SetIndexBuffer(7, P8Buffer);
//----
SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, 2);
SetIndexStyle(1, DRAW_LINE, STYLE_SOLID, 1);
SetIndexStyle(2, DRAW_LINE, STYLE_SOLID, 1);
SetIndexStyle(3, DRAW_LINE, STYLE_SOLID, 2);
SetIndexStyle(4, DRAW_LINE, STYLE_SOLID, 2);
SetIndexStyle(5, DRAW_LINE, STYLE_SOLID, 3);
SetIndexStyle(6, DRAW_LINE, STYLE_SOLID, 3);
SetIndexStyle(7, DRAW_LINE, STYLE_SOLID, 4);
//----
Comment("RSI ( " + RSIDayPeriod + " ) Level By eng.Waddah Attar www.metaforex.net");
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
ObjectDelete("rsi20" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi20" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi30" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi30" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi40" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi40" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi50" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi50" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi60" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi60" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi70" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi70" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi80" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi80" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("rsi90" + DoubleToStr(RSIDayPeriod, 0));
ObjectDelete("txtrsi90" + DoubleToStr(RSIDayPeriod, 0));
//----
Comment("");
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int i, dayi, counted_bars = IndicatorCounted();
double rsi1, rsi2, c1, c2, drsi, dc;
//---- check for possible errors
if(counted_bars < 0)
return(-1);
//---- last counted bar will be recounted
if(counted_bars > 0)
counted_bars--;
int limit = Bars - counted_bars;
//----
for(i = limit - 1; i >= 0; i--)
{
dayi = iBarShift(Symbol(), myPeriod, Time[i],true);
if(dayi != -1)
{
rsi1 = iRSI(Symbol(), PERIOD_D1, RSIDayPeriod, PRICE_CLOSE, dayi + 1);
rsi2 = iRSI(Symbol(), PERIOD_D1, RSIDayPeriod, PRICE_CLOSE, dayi + 2);
//----
c1 = iClose(Symbol(), PERIOD_D1, dayi + 1);
c2 = iClose(Symbol(), PERIOD_D1, dayi + 2);
//----
drsi = rsi1 - rsi2;
//----
if(drsi == 0)
{
rsi2 = iRSI(Symbol(), PERIOD_D1, RSIDayPeriod, PRICE_CLOSE, dayi + 3);
}
//----
drsi = rsi1 - rsi2;
//----
if(drsi == 0)
{
drsi = rsi1;
}
//----
dc = c1 - c2;
//----
if(dc == 0)
{
c2 = iClose(Symbol(), PERIOD_D1, dayi + 3);
}
//----
dc = c1 - c2;
//----
if(dc == 0)
{
dc = c1;
}
//----
L90 = (((ExtraLevel - rsi1)*dc) / drsi) + c1;
P8Buffer[i] = L90;
SetPrice("rsi90" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L90, Red);
SetText("txtrsi90" + DoubleToStr(RSIDayPeriod, 0), "RSI " +
DoubleToStr(ExtraLevel, 0), Time[i], L90, Red);
//----
L50 = (((50 - rsi1)*dc) / drsi) + c1;
P1Buffer[i] = L50;
SetPrice("rsi50" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L50, Blue);
SetText("txtrsi50" + DoubleToStr(RSIDayPeriod, 0), "RSI 50",
Time[i], L50, Blue);
//---
L40=(((40 - rsi1)*dc) / drsi) + c1;
P2Buffer[i] = L40;
SetPrice("rsi40" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L40, Red);
SetText("txtrsi40" + DoubleToStr(RSIDayPeriod, 0), "RSI 40",
Time[i], L40, Red);
//----
L60 = (((60 - rsi1)*dc) / drsi) + c1;
P3Buffer[i] = L60;
SetPrice("rsi60" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L60, Green);
SetText("txtrsi60" + DoubleToStr(RSIDayPeriod, 0), "RSI 60",
Time[i], L60, Green);
//----
L30 = (((30 - rsi1)*dc) / drsi) + c1;
P4Buffer[i] = L30;
SetPrice("rsi30" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L30, Red);
SetText("txtrsi30" + DoubleToStr(RSIDayPeriod, 0), "RSI 30",
Time[i], L30, Red);
//----
L70 = (((70 - rsi1)*dc) / drsi) + c1;
P5Buffer[i] = L70;
SetPrice("rsi70" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L70, Green);
SetText("txtrsi70" + DoubleToStr(RSIDayPeriod, 0), "RSI 70",
Time[i], L70, Green);
//----
L20 = (((20 - rsi1)*dc) / drsi) + c1;
P6Buffer[i] = L20;
SetPrice("rsi20" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L20, Red);
SetText("txtrsi20" + DoubleToStr(RSIDayPeriod, 0), "RSI 20",
Time[i], L20, Red);
//----
L80 = (((80 - rsi1)*dc) / drsi) + c1;
P7Buffer[i] = L80;
SetPrice("rsi80" + DoubleToStr(RSIDayPeriod, 0), Time[i],
L80, Green);
SetText("txtrsi80" + DoubleToStr(RSIDayPeriod, 0), "RSI 80",
Time[i], L80, Green);
}
}
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void SetPrice(string name, datetime Tm, double Prc, color clr)
{
if(ObjectFind(name) == -1)
{
ObjectCreate(name, OBJ_ARROW, 0, Tm, Prc);
ObjectSet(name, OBJPROP_COLOR, clr);
ObjectSet(name, OBJPROP_WIDTH, 1);
ObjectSet(name, OBJPROP_ARROWCODE, SYMBOL_RIGHTPRICE);
}
else
{
ObjectSet(name, OBJPROP_TIME1, Tm);
ObjectSet(name, OBJPROP_PRICE1, Prc);
ObjectSet(name, OBJPROP_COLOR, clr);
ObjectSet(name, OBJPROP_WIDTH, 1);
ObjectSet(name, OBJPROP_ARROWCODE, SYMBOL_RIGHTPRICE);
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void SetText(string name,string txt,datetime Tm,double Prc,color clr)
{
if(ObjectFind(name) == -1)
{
ObjectCreate(name, OBJ_TEXT, 0, Tm, Prc);
ObjectSetText(name, txt, 10, "Times New Roman", clr);
ObjectSet(name, OBJPROP_CORNER, 2);
}
else
{
ObjectSet(name, OBJPROP_TIME1, Tm);
ObjectSet(name, OBJPROP_PRICE1, Prc);
ObjectSetText(name, txt, 10, "Times New Roman", clr);
ObjectSet(name, OBJPROP_CORNER, 2);
}
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains close prices for 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: