//+------------------------------------------------------------------+
//| X0diagram.mq4 |
//| Copyright © 2005, 4e |
//| |
//+------------------------------------------------------------------+
///////////////////////////////////////////////////////////////////////
// Äèàãðàììà Õ0
// Ðèñóåò äèàãðàììû Õ0 ïî öåíàì çàêðûòèÿ
// Âõîäíûå ïàðàìåòðû: BoxSize - ðàçìåð áîêñà â ïóíêòàõ
// ReversalBox - êîë-âî áîêñîâ äëÿ ðàçâîðîòà
// Candles = êîë-âî ñâå÷åé äëÿ ïîäñ÷åòà
//
// Èçìåíèòå ïàðàìåòð indicator_color3 öâåòîì âàøåé öâåòîâîé ñõåìû
///////////////////////////////////////////////////////////////////////
#property copyright "Copyright © 2005, 4e"
#property link "4ebur@mail.ru"
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 White
extern double BoxSize = 100;
extern int ReversalBox = 3;
extern int Candles = 3000;
double PointArray[];
double FigureArray[];
double ZeroArray[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
SetIndexBuffer(0,PointArray);
SetIndexBuffer(1,FigureArray);
SetIndexBuffer(2,ZeroArray);
SetIndexStyle(0,DRAW_HISTOGRAM);
SetIndexStyle(1,DRAW_HISTOGRAM);
SetIndexStyle(2,DRAW_HISTOGRAM);
SetIndexEmptyValue(0,0);
SetIndexEmptyValue(1,0);
SetIndexEmptyValue(2,0);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int limit;
int counted_bars=IndicatorCounted();
//---- last counted bar will be recounted
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;
//----
double BoxPointSize = BoxSize * Point; //Ðàçìåð áîêñà â ïóíòàõ
double ReversalSize = BoxPointSize * ReversalBox; // Ðàçìåð ðàçâîðîòà â ïóíêòàõ
// Èíèöèàëèçàöèÿ ìàññèâîâ
for(int i=limit;i>0;i--)
{
PointArray[i] = 0;
FigureArray[i] = 0;
ZeroArray[i] = 0;
}
int beginPoint; // Òî÷êà îòñ÷åòà
int CurPoint; //Òåêóùàÿ òî÷êà
bool Direction; // 1 - ââåðõ, òèïà Õ, 0-âíèç, òèïà 0
int LocalÌin; // Ëîêàëüíûé ìèíèìóì
int LocalMax; // Ëîêàëüíûé ìàêñèìóì
double beginIndex; // èíäåõ íà÷àëà îòñ÷åòà
// Àëãîðèòì ðàñ÷åòà òàêîâ: Êàê òîëüêî ïðîèçîøåë ðàçâîðîò, ðèñóåì ïðîøëóþ äèàãðàììó, è æäåì ñëåäóþùåãî ðàçâîðîòà
// Íà÷àëüíîå íàïðàâëåíèå èäåíòèôèöèðóåòñÿ ïî ïåðâîé ñâå÷å(áåëàÿ - çíà÷èð ââåðõ, ÷åðíàÿ - âíèç)
Direction = (Close[Candles]-Open[Candles]) > 0;// Çàäàåì íà÷àëüíîå íàïðàâëåíèå
beginPoint = Candles; // Íà÷àëüíàÿ òî÷êà îòñ÷åòà
CurPoint = Candles; // Íà÷àëüíàÿ òåêóùàÿ òî÷êà
LocalMax = Candles; // Íà÷àëüíûé ìàêñèìóì
LocalÌin = Candles; // Íà÷àëüíûé ìèíèìóì
beginIndex = Close[beginPoint]; // Íà÷àëüíûé èíäåêñ
for( i=Candles-1;i>0;i--)
{
CurPoint = i; // Ñäâèã òåêóùåé òî÷êè
LocalMax = Highest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
LocalÌin = Lowest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
if(Direction) // Ââåðõ
{
if(Close[LocalMax]-Close[CurPoint] >= ReversalSize) // Ðàçâîðîò âíèç
{
int boxes = MathFloor(((Close[LocalMax]-Close[beginPoint])/(BoxSize*Point))); // âû÷èñëÿåì êîë-âî áîêñîâ
for(int j=beginPoint;j>LocalMax-1;j--)
{
PointArray[j] = beginIndex + BoxSize*boxes*Point; //Ðèñóåì èêñû
ZeroArray[j] = beginIndex; // Ïðîáåëû
}
beginPoint = LocalMax-1; // Ñäâèãàåì íà÷àëüíóþ òî÷êó íà áûâøèé ìàêñèìóì
beginIndex = beginIndex + BoxSize*(boxes-1)*Point; // Ñäâèãàåì èíäåêñ íà îäèí áîêñ âíèç
LocalÌin = CurPoint;
Direction = 0; // Óêàçûâàåì ÷òî íà÷àëîñü äâèæåíèå âíèç
}
}
else // Âíèç
{
if(Close[CurPoint]-Close[LocalÌin] >=ReversalSize) // Ðàçâîðîò ââåðõ
{
boxes = MathFloor(((Close[beginPoint]-Close[LocalÌin])/(BoxSize*Point)));// âû÷èñëÿåì êîë-âî áîêñîâ
for( j=beginPoint;j>LocalÌin-1;j--)
{
FigureArray[j] = beginIndex; //Ðèñóåì íóëè
ZeroArray[j] = beginIndex-BoxSize*boxes*Point; // Ïðîáåëû
}
beginPoint = LocalÌin-1; // Ñäâèãàåì íà÷àëüíóþ òî÷êó íà áûâøèé ìàêñèìóì
Direction = 1; // Óêàçûâàåì ÷òî íà÷àëîñü äâèæåíèå âíèç
LocalMax = CurPoint;
beginIndex = beginIndex - BoxSize*(boxes-1)*Point; // Ñäâèãàåì èíäåêñ íà îäèí áîêñ ââåðõ
}
}
}
// Ðèñóåì òåêóùèé ðàçâîðîò
if(Direction)
{
LocalMax = Highest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
boxes = MathFloor(((Close[LocalMax]-Close[beginPoint])/(BoxSize*Point))); // âû÷èñëÿåì êîë-âî áîêñîâ
for(j=beginPoint;j>0;j--)
{
PointArray[j] = beginIndex + BoxSize*boxes*Point; //Ðèñóåì èêñû
ZeroArray[j] = beginIndex; // Ïðîáåëû
}
}
else
{
LocalÌin = Lowest(NULL,0,MODE_CLOSE,beginPoint-CurPoint,CurPoint);
boxes = MathFloor(((Close[beginPoint]-Close[LocalÌin])/(BoxSize*Point)));// âû÷èñëÿåì êîë-âî áîêñîâ
for(j=beginPoint;j>0;j--)
{
FigureArray[j] = beginIndex;//Ðèñóåì íóëè
ZeroArray[j] = beginIndex - BoxSize*boxes*Point; // Ïðîáåëû
}
}
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: