//+------------------------------------------------------------------+
//| Flat.mq4 |
//| Pedro Puado |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Pedro Puado"
#property link "http://www.metaquotes.net"
#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 Green
//---- input parameters
extern int MA=20;
extern int HLRef=100;
extern int MaxBars=1000;
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
IndicatorBuffers(3);
IndicatorShortName("Flat");
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,ExtMapBuffer3);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexBuffer(2,ExtMapBuffer1);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
//----
int i=Bars-1;
if(counted_bars>0) i=Bars-counted_bars+0;
i = MathMax(i, MaxBars);
int p = i;
double m1, m2, n;
while (i>=0)
{
ExtMapBuffer1[i] = iStdDev(NULL,0,MA,MODE_SMA,0,PRICE_CLOSE,i);
i--;
}
int x = 0;
double s, s1, nL, nH;
while (p >= 0)
{
s = 0;
x = 0;
for (x=0; x < MA+0; x++)
{
s += ExtMapBuffer1[p+x];
}
s1 = s/MA;
s = 0;
x = 0;
for (x=0; x < MA+0; x++)
{
s += MathAbs((ExtMapBuffer1[p+x]-s1)*2);
}
ExtMapBuffer2[p] = MathSqrt(s/MA);
nH = HVal(ExtMapBuffer2, HLRef, p);
nL = LVal(ExtMapBuffer2, HLRef, p);
ExtMapBuffer3[p] = ((ExtMapBuffer2[p] - nL)/ (nH-nL))*100;
p--;
}
//----
return(0);
}
//+------------------------------------------------------------------+
double HVal( double aA[], int p, int shift)
{
int i;
double rtn = 0, pr = 0;
for (i = 0; i < p; i++)
{
if (aA[i+shift] > pr)
{
pr = aA[i+shift];
}
}
return (pr);
}
double LVal( double aA[], int p, int shift)
{
int i;
double rtn = 0, pr = 99999;
for (i = 0; i < p; i++)
{
if (aA[i+shift] < pr)
{
pr = aA[i+shift];
}
}
return (pr);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Standard Deviation indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: