In this code, the function creates a fractal indicator using the iFractals function. The fractal indicator is calculated for four different time frames: 1 minute (PERIOD_M1), 5 minutes (PERIOD_M5), 15 minutes (PERIOD_M15), and 30 minutes (PERIOD_M30). The fractal value for each time frame is stored in a buffer array.
The code first initializes the buffer arrays buf_up1D, buf_down1D, buf_up4H, buf_down4H, buf_up1H, buf_down1H, buf_up30M, and buf_down30M to 0. Then it calculates the fractal values for each time frame using the iFractals function, which takes three arguments: the input series (NULL in this case), the period of the fractal (PERIOD_M1, PERIOD_M5, PERIOD_M15, or PERIOD_M30), and the mode (MODE_HIGH or MODE_LOW).
The function then iterates through the bars from the most recent to the oldest, updating the values in the buffer arrays as it goes. If a buffer value is 0, it is set to the previous non-zero value; otherwise, it is overwritten with the current value. This allows the fractal values to be propagated forward through time.
Finally, the tf2txt function converts the input time frame (tf) to a string representation. This is useful for displaying the time frame in the chart legend or other labels.'''
Indicators Used
Miscellaneous
0
Views
0
Downloads
0
Favorites
MTF_SR
//+------------------------------------------------------------------+
//| #MTF SR.mq4 |
//| Copyright © 2006, Eli hayun |
//| http://www.elihayun.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Eli hayun"
#property link "http://www.elihayun.com"
#property indicator_chart_window
#property indicator_buffers 8
/*#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 Red
#property indicator_color4 Blue
#property indicator_color5 Red
#property indicator_color6 Blue
#property indicator_color7 Red
#property indicator_color8 Blue */
#property indicator_color8 SkyBlue
#property indicator_color7 Goldenrod
#property indicator_color6 CornflowerBlue
#property indicator_color5 Orange
#property indicator_color4 RoyalBlue
#property indicator_color3 OrangeRed
#property indicator_color2 Blue
#property indicator_color1 Red
//---- buffers
double buf_up1D[];
double buf_down1D[];
double buf_up4H[];
double buf_down4H[];
double buf_up1H[];
double buf_down1H[];
double buf_up30M[];
double buf_down30M[];
extern int Period_1 = PERIOD_H1;
extern int Period_2 = PERIOD_H4;
extern int Period_3 = PERIOD_D1;
extern int Period_4 = PERIOD_W1;
extern bool display_Period_1 = true;
extern bool display_Period_2 = true;
extern bool display_Period_3 = true;
extern bool display_Period_4 = true;
extern bool Play_Sound = true;
int UniqueNum = 2284;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
int draw = DRAW_LINE; if (!display_Period_4) draw = DRAW_NONE;
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,161);
SetIndexStyle(1,DRAW_ARROW);
SetIndexArrow(1,161);
SetIndexBuffer(0,buf_up1D);
// SetIndexBuffer(1,buf_up1D);
SetIndexBuffer(1,buf_down1D);
SetIndexLabel(0, tf2txt(Period_4)); SetIndexLabel(1, tf2txt(Period_4));
draw = DRAW_LINE; if (!display_Period_3) draw = DRAW_NONE;
SetIndexStyle(2,DRAW_ARROW);
SetIndexArrow(2,119);
SetIndexStyle(3,DRAW_ARROW);
SetIndexArrow(3,119);
SetIndexBuffer(2,buf_up4H);
SetIndexBuffer(3,buf_down4H);
SetIndexLabel(2, tf2txt(Period_3)); SetIndexLabel(3, tf2txt(Period_3));
draw = DRAW_LINE; if (!display_Period_2) draw = DRAW_NONE;
SetIndexStyle(4,DRAW_ARROW);
SetIndexArrow(4,167);
SetIndexStyle(5,DRAW_ARROW);
SetIndexArrow(5,167);
SetIndexBuffer(4,buf_up1H);
SetIndexBuffer(5,buf_down1H);
SetIndexLabel(4, tf2txt(Period_2)); SetIndexLabel(5, tf2txt(Period_2));
draw = DRAW_LINE; if (!display_Period_1) draw = DRAW_NONE;
SetIndexStyle(6,DRAW_ARROW);
SetIndexArrow(6,172);
SetIndexStyle(7,DRAW_ARROW);
SetIndexArrow(7,172);
SetIndexBuffer(6,buf_up30M);
SetIndexBuffer(7,buf_down30M);
SetIndexLabel(6, tf2txt(Period_1)); SetIndexLabel(7, tf2txt(Period_1));
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
int i=0, y1d=0, y4h=0, y1h=0, y30m=0;
int limit=Bars-counted_bars;
double pd_1=0, pd_2=0, pd_3=0, pd_4=0;
double pu_1=0, pu_2=0, pu_3=0, pu_4=0;
datetime TimeArray_1D[] ,TimeArray_4H[], TimeArray_1H[], TimeArray_30M[];
//----
ArrayCopySeries(TimeArray_1D,MODE_TIME,Symbol(),Period_4);
ArrayCopySeries(TimeArray_4H,MODE_TIME,Symbol(),Period_3);
ArrayCopySeries(TimeArray_1H,MODE_TIME,Symbol(),Period_2);
ArrayCopySeries(TimeArray_30M,MODE_TIME,Symbol(),Period_1);
for(i=0, y1d=0, y4h=0, y1h=0, y30m=0;i<limit;i++)
{
if (Time[i]<TimeArray_1D[y1d]) y1d++;
if (Time[i]<TimeArray_4H[y4h]) y4h++;
if (Time[i]<TimeArray_1H[y1h]) y1h++;
if (Time[i]<TimeArray_30M[y30m]) y30m++;
double fh = iFractals( NULL, Period_4, MODE_HIGH, y1d);
buf_up1D[i] = fh;
buf_down1D[i] = iFractals( NULL, Period_4, MODE_LOW, y1d);
/* if(buf_up1D[i]!= 0)
Print( " UpBuffer = ",buf_up1D[i], " i=",i);
if(buf_down1D[i]!= 0)
Print( " DownBuffer = ",buf_down1D[i], " i=",i); */
buf_up4H[i] = iFractals( NULL, Period_3, MODE_HIGH, y4h);
buf_down4H[i] = iFractals( NULL, Period_3, MODE_LOW, y4h);
buf_up1H[i] = iFractals( NULL, Period_2, MODE_HIGH, y1h);
buf_down1H[i] = iFractals( NULL, Period_2, MODE_LOW, y1h);
buf_up30M[i] = iFractals( NULL, Period_1, MODE_HIGH, y30m);
buf_down30M[i] = iFractals( NULL, Period_1, MODE_LOW, y30m);
}
for (i=limit; i>=0; i--)
{
if ( buf_up1D[i] == 0 ) buf_up1D[i] = pu_1; else pu_1 = buf_up1D[i];
if ( buf_down1D[i] == 0 ) buf_down1D[i] = pd_1; else pd_1 = buf_down1D[i];
if ( buf_up4H[i] == 0 ) buf_up4H[i] = pu_2; else pu_2 = buf_up4H[i];
if ( buf_down4H[i] == 0 ) buf_down4H[i] = pd_2; else pd_2 = buf_down4H[i];
if ( buf_up1H[i] == 0 ) buf_up1H[i] = pu_3; else pu_3 = buf_up1H[i];
if ( buf_down1H[i] == 0 ) buf_down1H[i] = pd_3; else pd_3 = buf_down1H[i];
if ( buf_up30M[i] == 0 ) buf_up30M[i] = pu_4; else pu_4 = buf_up30M[i];
if ( buf_down30M[i] == 0 ) buf_down30M[i] = pd_4; else pd_4 = buf_down30M[i];
}
//----
return(0);
}
//+------------------------------------------------------------------+
string tf2txt(int tf)
{
if (tf == PERIOD_M1) return("M1");
if (tf == PERIOD_M5) return("M5");
if (tf == PERIOD_M15) return("M15");
if (tf == PERIOD_M30) return("M30");
if (tf == PERIOD_H1) return("H1");
if (tf == PERIOD_H4) return("H4");
if (tf == PERIOD_D1) return("D1");
if (tf == PERIOD_W1) return("W1");
if (tf == PERIOD_MN1) return("MN1");
return("??");
}
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---