//+------------------------------------------------------------------+
//| MACD_4H.mq4 |
//| Copyright © 2006, lukas1 |
//| MACD from given timeframe |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, lukas1"
#property link "http://www.alpari-idc.ru/"
//---- indicator settings
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
// #property indicator_width1 2
//---- indicator parameters
extern int FastEMA = 12;
extern int SlowEMA = 26;
extern int SignalSMA = 9;
extern int AppliedPrice = 0;
extern int VarPeriod = 240; // çàäàííûé òàéìôðåéì
//---- indicator buffers
double MacdBuffer[], SignalBuffer[];
double MA1[], MA2[];
int p; // òåêóùèé ïåðèîä
int k; // êðàòíîñòü ïåðèîäà
int i, j;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- drawing settings
p = Period();
SetIndexStyle(0, DRAW_HISTOGRAM);
SetIndexStyle(1, DRAW_LINE);
SetIndexDrawBegin(0, SlowEMA);
SetIndexDrawBegin(1, SlowEMA);
IndicatorDigits(Digits + 1);
//---- indicator buffers mapping
SetIndexBuffer(0, MacdBuffer);
SetIndexBuffer(1, SignalBuffer);
//---- name for DataWindow and indicator subwindow label
IndicatorShortName("MACD_4H (" + FastEMA + "," + SlowEMA + "," + SignalSMA +
"," + VarPeriod + ")");
SetIndexLabel(0, "MACD_4H(" + VarPeriod + ")");
SetIndexLabel(1, "Signal_4H(" + VarPeriod + ")");
//---- initialization done
return(0);
}
//+------------------------------------------------------------------+
//| Moving Averages Convergence/Divergence (MACD) for given timeframe|
//+------------------------------------------------------------------+
int start()
{
int limit;
int counted_bars = IndicatorCounted();
//---- check for possible errors
if(counted_bars < 0)
return(-1);
if(counted_bars <= SlowEMA)
limit = Bars - SlowEMA - 1;
else
limit = Bars - counted_bars;
p = Period();
//----
if(counted_bars == 0)
if(p <= VarPeriod)
k = VarPeriod / p; // êðàòíîñòü ïåðèîäà ââåðõ
else
k = p / VarPeriod; // êðàòíîñòü ïåðèîäà âíèç
//----
if(p <= VarPeriod)
{
for(i = 0; i < limit; i++)
{
j = i / k;
MacdBuffer[i] = iMACD(NULL, VarPeriod, FastEMA, SlowEMA, SignalSMA,
AppliedPrice, 0, j);
SignalBuffer[i] = iMACD(NULL, VarPeriod, FastEMA, SlowEMA, SignalSMA,
AppliedPrice, 1, j);
}
}
else
{
for(i = 0; i < limit; i++)
{
MacdBuffer[i] = iMACD(NULL, VarPeriod, FastEMA, SlowEMA, SignalSMA,
AppliedPrice, 0, i*k);
SignalBuffer[i] = iMACD(NULL, VarPeriod, FastEMA, SlowEMA, SignalSMA,
AppliedPrice, 1, i*k);
}
}
//---- done
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Implements a curve of type DRAW_LINE
Indicators Used:
MACD Histogram
Custom Indicators Used:
Order Management characteristics:
Other Features: