//+------------------------------------------------------------------+
//| BBRSI & MA_v2.mq4 |
//| Copyright © 2006, TrendLaboratory Ltd. |
//| http://finance.groups.yahoo.com/group/TrendLaboratory |
//| E-mail: igorad2003@yahoo.co.uk |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, TrendLaboratory Ltd."
#property link "http://finance.groups.yahoo.com/group/TrendLaboratory"
#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_buffers 5
#property indicator_color1 DodgerBlue
#property indicator_color2 Tomato
#property indicator_color3 Lime
#property indicator_color4 Lime
#property indicator_color5 Lime
//---- input parameters
extern int Price = 0; // O-Close; 1-Open; 2-High; 3-Low; 4-Median; 5-Typical; 6-Weighted
extern int RSIPeriod = 8; // Period of RSI
extern int MAPeriod = 8; // Period of SMA
extern int BBPeriod =20; // BBands Period
extern double K = 1; // Deviation ratio
extern int Mode = 0; // RSI mode : 0 - typical(smoothed by SMMA); 1- clssic (smoothed by SMA)
//---- buffers
double RSIBuffer[];
double MABuffer[];
double UpBBBuffer[];
double DnBBBuffer[];
double MdBBBuffer[];
double PosBuffer[];
double NegBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- 2 additional buffers are used for counting.
IndicatorBuffers(7);
SetIndexBuffer(5,PosBuffer);
SetIndexBuffer(6,NegBuffer);
//---- indicator lines
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,RSIBuffer);
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,MABuffer);
SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,UpBBBuffer);
SetIndexStyle(3,DRAW_LINE);
SetIndexBuffer(3,DnBBBuffer);
SetIndexStyle(4,DRAW_LINE);
SetIndexBuffer(4,MdBBBuffer);
//---- name for DataWindow and indicator subwindow label
short_name="BBRSI&MA("+RSIPeriod+","+DoubleToStr(K,2)+")";
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
SetIndexLabel(1,"MA RSI");
SetIndexLabel(2,"UpBand");
SetIndexLabel(3,"DnBand");
SetIndexLabel(4,"MdBand");
//----
SetIndexDrawBegin(0,RSIPeriod+MAPeriod+BBPeriod);
SetIndexDrawBegin(1,RSIPeriod+MAPeriod+BBPeriod);
SetIndexDrawBegin(2,RSIPeriod+MAPeriod+BBPeriod);
SetIndexDrawBegin(3,RSIPeriod+MAPeriod+BBPeriod);
SetIndexDrawBegin(4,RSIPeriod+MAPeriod+BBPeriod);
//----
return(0);
}
//+------------------------------------------------------------------+
//| BBRSI & MA v2 |
//+------------------------------------------------------------------+
int start()
{
int i,limit,counted_bars=IndicatorCounted();
double rel,negative,positive;
//----
if(Bars<=RSIPeriod) return(0);
//---- initial zero
//if(counted_bars<1)
// for(i=1;i<=RSIPeriod;i++) RSIBuffer[Bars-i]=0.0;
//----
if ( counted_bars > 0 ) limit=Bars-counted_bars;
if ( counted_bars < 0 ) return(0);
if ( counted_bars ==0 ) limit=Bars-RSIPeriod-1;
for(i=limit;i>=0;i--)
{
double sumn=0.0,sump=0.0;
if(i==Bars-RSIPeriod-1)
{
int k=Bars-2;
//---- initial accumulation
while(k>=i)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,k)-iMA(NULL,0,1,0,MODE_SMA,Price,k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
k--;
}
positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
else
{
//---- smoothed moving average
if (Mode == 0)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i)-iMA(NULL,0,1,0,MODE_SMA,Price,i+1);
if(rel>0) sump=rel;
else sumn=-rel;
positive=(PosBuffer[i+1]*(RSIPeriod-1)+sump)/RSIPeriod;
negative=(NegBuffer[i+1]*(RSIPeriod-1)+sumn)/RSIPeriod;
}
else
if (Mode == 1)
{
sumn=0.0;sump=0.0;
for ( k=RSIPeriod-1;k>=0;k--)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i+k)-iMA(NULL,0,1,0,MODE_SMA,Price,i+k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
}
positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
}
PosBuffer[i]=positive;
NegBuffer[i]=negative;
if(negative==0.0) RSIBuffer[i]=100.0;
else RSIBuffer[i]=100.0-100.0/(1+positive/negative);
}
//
for(int j=limit;j>=0;j--)
{
MABuffer[j] = iMAOnArray(RSIBuffer,0,MAPeriod,0,MODE_SMA,j);
double SumRSI = 0;
for ( k=BBPeriod-1;k>=0;k--) SumRSI += RSIBuffer[j+k];
double AvgRSI = SumRSI/BBPeriod;
double SumSqr = 0;
for ( k=BBPeriod-1;k>=0;k--) SumSqr += (RSIBuffer[j+k] - AvgRSI) * (RSIBuffer[j+k] - AvgRSI);
double StdDev = MathPow(SumSqr/BBPeriod,0.5);
UpBBBuffer[j] = AvgRSI + K * StdDev;
DnBBBuffer[j] = AvgRSI - K * StdDev;
MdBBBuffer[j] = AvgRSI;
}
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: