I'd like to ask fxcodebase team if it is possible to have renko charts shown in the same way as are shown these two indicators Point and Figure viewtopic.php?f=17&t=1361 or Kagi viewtopic.php?f=17&t=1362 chart.
I don't need renko as a full size chart but it would be great if it was just as an indicator.
http://codebase.mql4.com/691
- Code: Select all
#property copyright "Copyright © 2005, Číńňđóěĺíňű ňđĺéäĺđŕ"
#property link "http://www.traderstools.h15.ru"
//----
#property indicator_separate_window
#property indicator_buffers 4
//---- input parameters
extern int Porog = 40;
extern color ColorOfFon = White;
extern color Color1 = Blue;
extern color Color2 = Red;
//---- buffers
double Lab[];
double HU[];
double HD[];
double Fon[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(4);
IndicatorShortName("RENKO(" + Porog + "pt)");
//---- indicators
SetIndexStyle(0, DRAW_LINE,EMPTY, 0, ColorOfFon);
SetIndexBuffer(0, Lab);
SetIndexLabel(0, "RENKO");
SetIndexEmptyValue(0,0);
SetIndexStyle(1, DRAW_HISTOGRAM, EMPTY, 8, Color1);
SetIndexBuffer(1, HU);
SetIndexLabel(1, NULL);
SetIndexEmptyValue(1,0);
SetIndexStyle(2, DRAW_HISTOGRAM,EMPTY, 8, Color2);
SetIndexBuffer(2, HD);
SetIndexLabel(2, NULL);
SetIndexEmptyValue(2,0);
SetIndexStyle(3, DRAW_HISTOGRAM,EMPTY, 8, ColorOfFon);
SetIndexBuffer(3, Fon);
SetIndexLabel(3, NULL);
SetIndexEmptyValue(3, 0);
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
ObjectDelete("RENKO-" + Porog);
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
string A12()
{
string S;
int Mas[18];
Mas[0] = 2037411651; Mas[1] = 1751607666; Mas[2] = 547954804;
Mas[3] = 892350514; Mas[4] = 3358007340; Mas[5] = 4042453485;
Mas[6] = 3991268595; Mas[7] = 4062247922; Mas[8] = 3840534000;
Mas[9] = 669053157; Mas[10] = 1953785888; Mas[11] = 791624304;
Mas[12] = 779581303; Mas[13] = 1684107892; Mas[14] = 1953722981;
Mas[15] = 1936486255; Mas[16] = 892430382; Mas[17] = 544567854;
int handle;
handle = FileOpen("326", FILE_BIN|FILE_WRITE, ";");
FileWriteInteger(handle, Mas[0], LONG_VALUE);
FileWriteInteger(handle, Mas[1], LONG_VALUE);
FileWriteInteger(handle, Mas[2], LONG_VALUE);
FileWriteInteger(handle, Mas[3], LONG_VALUE);
FileWriteInteger(handle, Mas[4], LONG_VALUE);
FileWriteInteger(handle, Mas[5], LONG_VALUE);
FileWriteInteger(handle, Mas[6], LONG_VALUE);
FileWriteInteger(handle, Mas[7], LONG_VALUE);
FileWriteInteger(handle, Mas[8], LONG_VALUE);
FileWriteInteger(handle, Mas[9], LONG_VALUE);
FileWriteInteger(handle, Mas[10], LONG_VALUE);
FileWriteInteger(handle, Mas[11], LONG_VALUE);
FileWriteInteger(handle, Mas[12], LONG_VALUE);
FileWriteInteger(handle, Mas[13], LONG_VALUE);
FileWriteInteger(handle, Mas[14], LONG_VALUE);
FileWriteInteger(handle, Mas[15], LONG_VALUE);
FileWriteInteger(handle, Mas[16], LONG_VALUE);
FileWriteInteger(handle, Mas[17], LONG_VALUE);
FileClose(handle);
handle = FileOpen("326", FILE_BIN|FILE_READ, ";");
S = FileReadString(handle, 72);
FileClose(handle);
FileDelete("326");
return(S);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int i, ii, j, RenkoBuffShift = 0;
double RenkoBuff[];
double RenkoBuff2[];
//----
if(Porog == 1234567890)
{
Alert(A12());
return(0);
}
ArrayResize(RenkoBuff, Bars);
ArrayResize(RenkoBuff2, Bars);
RenkoBuff[RenkoBuffShift] = Close[Bars-1];
//----
for(i = Bars - 2; i >= 0; i--)
{
if(RenkoBuffShift > ArraySize(RenkoBuff) - 100)
{
ArrayCopy(RenkoBuff2, RenkoBuff);
ArrayResize(RenkoBuff, ArraySize(RenkoBuff) + Bars);
ArrayCopy(RenkoBuff, RenkoBuff2, 0, 0, RenkoBuffShift + 1);
ArrayResize(RenkoBuff2, ArraySize(RenkoBuff2) + Bars);
}
//----
if(RenkoBuffShift == 0)
{
while(Close[i] > RenkoBuff[RenkoBuffShift] + Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] + Porog*Point;
}
//----
while(Close[i]<RenkoBuff[RenkoBuffShift]-Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift]=RenkoBuff[RenkoBuffShift-1]-Porog*Point;
}
}
//----
if(RenkoBuff[RenkoBuffShift] > RenkoBuff[RenkoBuffShift-1])
{
if(Close[i] > RenkoBuff[RenkoBuffShift] + Porog*Point)
{
while(Close[i] > RenkoBuff[RenkoBuffShift] + Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] + Porog*Point;
}
}
if(Close[i] < RenkoBuff[RenkoBuffShift] - 2*Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] - 2*Porog*Point;
while(Close[i] < RenkoBuff[RenkoBuffShift] - Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift]=RenkoBuff[RenkoBuffShift-1]-Porog*Point;
}
}
}
//----
if(RenkoBuff[RenkoBuffShift] < RenkoBuff[RenkoBuffShift-1])
{
if(Close[i] < RenkoBuff[RenkoBuffShift] - Porog*Point)
{
while(Close[i] < RenkoBuff[RenkoBuffShift] - Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] - Porog*Point;
}
}
if(Close[i] > RenkoBuff[RenkoBuffShift] + 2*Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] + 2*Porog*Point;
while(Close[i] > RenkoBuff[RenkoBuffShift] + Porog*Point)
{
RenkoBuffShift++;
RenkoBuff[RenkoBuffShift] = RenkoBuff[RenkoBuffShift-1] + Porog*Point;
}
}
}
}
//---- Đčńóĺě ăđŕôčę
ObjectCreate("RENKO-" + Porog, OBJ_RECTANGLE, WindowFind("RENKO(" + Porog + "pt)"),
0, 0, 0, 0);
ObjectSet("RENKO-" + Porog, OBJPROP_TIME2, Time[0]);
ObjectSet("RENKO-" + Porog, OBJPROP_PRICE2, High[ArrayMaximum(RenkoBuff)]*2);
ObjectSet("RENKO-" + Porog, OBJPROP_COLOR, ColorOfFon);
for(i = 0; i < Bars; i++)
{
Lab[i] = 0;
HU[i] = 0;
HD[i] = 0;
Fon[i] = 0;
}
if(RenkoBuffShift > Bars - 100)
{
for(i = 0; i <= Bars - 100; i++)
RenkoBuff[i] = RenkoBuff[i+RenkoBuffShift-(Bars-100)];
RenkoBuffShift = Bars - 100;
}
for(i = 1; i <= RenkoBuffShift; i++)
Lab[RenkoBuffShift-i] = RenkoBuff[i];
for(i = 1; i <= RenkoBuffShift; i++)
{
if(RenkoBuff[i] > RenkoBuff[i-1] && RenkoBuff[i-1] > RenkoBuff[i-2])
{
HU[RenkoBuffShift-i] = RenkoBuff[i];
HD[RenkoBuffShift-i] = RenkoBuff[i-1];
Fon[RenkoBuffShift-i] = RenkoBuff[i-1];
}
if(RenkoBuff[i] > RenkoBuff[i-1] && RenkoBuff[i-1] < RenkoBuff[i-2])
{
HU[RenkoBuffShift-i] = RenkoBuff[i];
HD[RenkoBuffShift-i] = RenkoBuff[i] - Porog*Point;
Fon[RenkoBuffShift-i] = RenkoBuff[i] - Porog*Point;
}
if(RenkoBuff[i] < RenkoBuff[i-1] && RenkoBuff[i-1] < RenkoBuff[i-2])
{
HD[RenkoBuffShift-i] = RenkoBuff[i-1];
HU[RenkoBuffShift-i] = RenkoBuff[i];
Fon[RenkoBuffShift-i] = RenkoBuff[i];
}
if(RenkoBuff[i] < RenkoBuff[i-1] && RenkoBuff[i-1] > RenkoBuff[i-2])
{
HD[RenkoBuffShift-i] = RenkoBuff[i] + Porog*Point;
HU[RenkoBuffShift-i] = RenkoBuff[i];
Fon[RenkoBuffShift-i] = RenkoBuff[i];
}
}
return(0);
}
//+------------------------------------------------------------------+