//+------------------------------------------------------------------+
//| HMA histo.mq4 |
//| mladen |
//+------------------------------------------------------------------+
//mod2009fxtsd macd
#property copyright "mladen"
#property link ""
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 DarkViolet
#property indicator_color2 Orange
#property indicator_color3 Red
#property indicator_width1 1
#property indicator_width2 1
#property indicator_width3 1
//
//
//
//
//
extern int HMA_Period1 = 21;
extern int HMA_Period2 = 34;
extern int HMA_Method1 = MODE_LWMA;
extern int HMA_Method2 = MODE_LWMA;
extern int HMA_PriceType1 = 0;
extern int HMA_PriceType2 = 0;
extern int smzPeriod = 5;
extern int smzMethod = 1;
extern int TimeFrame = 0;
extern string note_TimeFrames = "M1;5,15,30,60H1;240H4;1440D1;10080W1;43200MN|0-CurrentTF";
extern string MA_Method_Price = "SMA0 EMA1 SMMA2 LWMA3||0O,1C 2H3L,4Md 5Tp 6WghC: Md(HL/2)4,Tp(HLC/3)5,Wgh(HLCC/4)6";
string IndicatorFileName;
//
//
//
//
//
double ind_buffer1[];
double ind_buffer2[];
double sig_buffer[];
double buffer0[];
double buffer1[];
double buffer2[];
//+------------------------------------------------------------------
//| |
//+------------------------------------------------------------------
int init()
{
//
//
//
//
//
TimeFrame=MathMax(TimeFrame, Period());
IndicatorShortName("HMA CD ("+HMA_Period1+","+HMA_Period2+","+smzPeriod+") M"+TimeFrame);
IndicatorBuffers(6);
SetIndexBuffer(0,ind_buffer1);
SetIndexBuffer(1,ind_buffer2);
SetIndexBuffer(2,sig_buffer);
SetIndexBuffer(3,buffer0);
SetIndexBuffer(4,buffer1);
SetIndexBuffer(5,buffer2);
SetIndexStyle(0,DRAW_HISTOGRAM);
SetIndexStyle(1,DRAW_HISTOGRAM);
SetIndexStyle(2,DRAW_LINE);
int draw_begin=smzPeriod+HMA_Period1+HMA_Period2;
for (int i = 0; i < indicator_buffers; i++)
{
SetIndexDrawBegin(i,draw_begin);
SetIndexLabel(i,"Hull Moving Average");
}
IndicatorFileName = WindowExpertName();
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int HalfPeriod1 = MathFloor(HMA_Period1/2);
int HullPeriod1 = MathFloor(MathSqrt(HMA_Period1));
int HalfPeriod2 = MathFloor(HMA_Period2/2);
int HullPeriod2 = MathFloor(MathSqrt(HMA_Period2));
int counted_bars = IndicatorCounted();
int limit,i;
if(counted_bars<0) return(-1);
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;
if (TimeFrame != Period())
{
limit = MathMax(limit,TimeFrame/Period());
for(i=limit; i>=0; i--)
{
int y = iBarShift(NULL,TimeFrame,Time[i]);
ind_buffer1[i] = iCustom(NULL,TimeFrame,IndicatorFileName,HMA_Period1,HMA_Period2,HMA_Method1,HMA_Method2,HMA_PriceType1,HMA_PriceType2,smzPeriod,smzMethod,0,y);
ind_buffer2[i] = iCustom(NULL,TimeFrame,IndicatorFileName,HMA_Period1,HMA_Period2,HMA_Method1,HMA_Method2,HMA_PriceType1,HMA_PriceType2,smzPeriod,smzMethod,1,y);
sig_buffer[i] = iCustom(NULL,TimeFrame,IndicatorFileName,HMA_Period1,HMA_Period2,HMA_Method1,HMA_Method2,HMA_PriceType1,HMA_PriceType2,smzPeriod,smzMethod,2,y);
}
return(0);
}
for(i=limit; i>=0; i--)
{
buffer1[i]=iMA(NULL,0,HalfPeriod1,0,HMA_Method1,HMA_PriceType1,i)*2-
iMA(NULL,0,HMA_Period1,0,HMA_Method1,HMA_PriceType1,i);
buffer2[i]=iMA(NULL,0,HalfPeriod2,0,HMA_Method2,HMA_PriceType2,i)*2-
iMA(NULL,0,HMA_Period2,0,HMA_Method2,HMA_PriceType2,i);
}
for(i=limit; i>=0; i--)
buffer0[i] = iMAOnArray(buffer1,0,HullPeriod1,0,HMA_Method1,i)-
iMAOnArray(buffer2,0,HullPeriod2,0,HMA_Method2,i);
for(i=limit; i>=0; i--)
{
sig_buffer[i] = iMAOnArray(buffer0,0,smzPeriod,0,smzMethod,i);
ind_buffer1[i]=EMPTY_VALUE; ind_buffer1[i]=EMPTY_VALUE;
if (buffer0[i]>buffer0[i+1]) ind_buffer1[i]=buffer0[i];
else
if (buffer0[i]<buffer0[i+1]) ind_buffer2[i]=buffer0[i];
else {
ind_buffer1[i]=buffer1[i+1];
ind_buffer2[i]=buffer2[i+1];
}
}
//
//
//
//
//
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_HISTOGRAM
Implements a curve of type DRAW_LINE
Indicators Used:
Moving average indicator
Custom Indicators Used:
IndicatorFileName
Order Management characteristics:
Other Features: