[pre]
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 DodgerBlue
#property indicator_color2 Red
#property indicator_color3 Black
#property indicator_color4 Black
extern int MA_Period1 = 5;
extern int MA_Period2 = 8;
extern int MA_Period3 = 13;
double g_ibuf_88[];
double g_ibuf_92[];
double g_ibuf_96[];
double g_ibuf_100[];
int gi_104;
int gi_108 = 0;
int init() {
SetIndexStyle(0, DRAW_HISTOGRAM, STYLE_SOLID, 4, Red);
SetIndexBuffer(0, g_ibuf_88);
SetIndexStyle(1, DRAW_HISTOGRAM, STYLE_SOLID, 4, Red);
SetIndexBuffer(1, g_ibuf_92);
SetIndexStyle(2, DRAW_HISTOGRAM, STYLE_SOLID, 4, LimeGreen);
SetIndexBuffer(2, g_ibuf_96);
SetIndexStyle(3, DRAW_HISTOGRAM, STYLE_SOLID, 4, LimeGreen);
SetIndexBuffer(3, g_ibuf_100);
SetIndexDrawBegin(0, 0);
SetIndexDrawBegin(1, 0);
SetIndexDrawBegin(2, 0);
SetIndexDrawBegin(3, 0);
SetIndexBuffer(0, g_ibuf_88);
SetIndexBuffer(1, g_ibuf_92);
SetIndexBuffer(2, g_ibuf_96);
SetIndexBuffer(3, g_ibuf_100);
return (0);
}
int deinit() {
return (0);
}
int start() {
int l_ind_counted_0 = IndicatorCounted();
if (Bars <= 1) return (0);
gi_108 = IndicatorCounted();
if (gi_108 < 0) return (-1);
if (gi_108 > 0) gi_108--;
for (int li_4 = Bars - 1; li_4 >= 0; li_4--) {
if (li_4 == Bars - 1) {
if (Close[li_4] > Open[li_4]) {
g_ibuf_88[li_4] = Open[li_4];
g_ibuf_92[li_4] = Close[li_4];
gi_104 = 1;
} else {
if (Close[li_4] < Open[li_4]) {
g_ibuf_96[li_4] = Open[li_4];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 0;
} else {
g_ibuf_88[li_4] = Open[li_4];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = Open[li_4];
g_ibuf_100[li_4] = Close[li_4];
}
}
} else {
if (li_4 == Bars - 2) {
if (gi_104 == 1) {
if (Close[li_4] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
} else {
if (Close[li_4] < g_ibuf_92[li_4 + 1] && Close[li_4] > g_ibuf_88[li_4 + 1]) {
g_ibuf_88[li_4] = Close[li_4];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = 0.0;
g_ibuf_100[li_4] = 0.0;
gi_104 = 5;
} else {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
}
}
} else {
if (gi_104 == 0) {
if (Close[li_4] < g_ibuf_96[li_4 + 1]) {
g_ibuf_96[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
} else {
if (Close[li_4] >= g_ibuf_100[li_4 + 1] && Close[li_4] <= g_ibuf_96[li_4 + 1]) {
g_ibuf_88[li_4] = 0.0;
g_ibuf_92[li_4] = 0.0;
g_ibuf_96[li_4] = Close[li_4];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 6;
} else {
g_ibuf_88[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 3;
}
}
} else {
if (Close[li_4] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
gi_104 = 1;
} else {
g_ibuf_96[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 0;
}
}
}
}
}
if (li_4 < Bars - 2) {
if (gi_104 == 1) {
if (Close[li_4] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
} else {
if (Close[li_4] <= g_ibuf_92[li_4 + 1] && Close[li_4] >= g_ibuf_88[li_4 + 1]) {
g_ibuf_88[li_4] = Close[li_4];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = 0;
g_ibuf_100[li_4] = 0;
gi_104 = 5;
} else {
if (Close[li_4] < g_ibuf_88[li_4 + 1]) {
if (g_ibuf_88[li_4 + 1] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
} else {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
}
}
}
}
} else {
if (gi_104 == 0) {
if (Close[li_4] < g_ibuf_100[li_4 + 1]) {
g_ibuf_96[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
} else {
if (Close[li_4] <= g_ibuf_96[li_4 + 1] && Close[li_4] >= g_ibuf_100[li_4 + 1]) {
g_ibuf_88[li_4] = 0;
g_ibuf_92[li_4] = 0;
g_ibuf_96[li_4] = Close[li_4];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 6;
} else {
if (g_ibuf_96[li_4 + 1] > g_ibuf_100[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 3;
} else {
g_ibuf_88[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 3;
}
}
}
} else {
if (gi_104 == 3) {
if (Close[li_4] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
gi_104 = 1;
} else {
if (Close[li_4] <= g_ibuf_92[li_4 + 1] && Close[li_4] > g_ibuf_88[li_4 + 1]) {
g_ibuf_88[li_4] = Close[li_4];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = 0;
g_ibuf_100[li_4] = 0;
gi_104 = 5;
} else {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
}
}
} else {
if (gi_104 == 4) {
if (Close[li_4] < g_ibuf_100[li_4 + 1] || Close[li_4] == g_ibuf_100[li_4 + 1]) {
g_ibuf_96[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 0;
} else {
if (Close[li_4] <= g_ibuf_96[li_4 + 1] && Close[li_4] > g_ibuf_100[li_4 + 1]) {
g_ibuf_88[li_4] = 0;
g_ibuf_92[li_4] = 0;
g_ibuf_96[li_4] = Close[li_4];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 6;
} else {
g_ibuf_88[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 3;
}
}
} else {
if (gi_104 == 5) {
if (Close[li_4] > g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
gi_104 = 1;
} else {
if (Close[li_4] <= g_ibuf_92[li_4 + 1] && Close[li_4] >= g_ibuf_88[li_4 + 1]) {
g_ibuf_88[li_4] = Close[li_4];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = 0;
g_ibuf_100[li_4] = 0;
gi_104 = 5;
} else {
if (g_ibuf_88[li_4 + 1] <= g_ibuf_92[li_4 + 1]) {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
} else {
g_ibuf_88[li_4] = g_ibuf_88[li_4 + 1];
g_ibuf_92[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_96[li_4] = g_ibuf_92[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 4;
}
}
}
} else {
if (gi_104 == 6) {
if (Close[li_4] < g_ibuf_100[li_4 + 1]) {
g_ibuf_96[li_4] = g_ibuf_100[li_4 + 1];
g_ibuf_100[li_4] = Close[li_4];
gi_104 = 0;
} else {
if (Close[li_4] <= g_ibuf_96[li_4 + 1] && Close[li_4] >= g_ibuf_100[li_4 + 1]) {
g_ibuf_88[li_4] = 0;
g_ibuf_92[li_4] = 0;
g_ibuf_96[li_4] = Close[li_4];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 6;
} else {
g_ibuf_88[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_92[li_4] = Close[li_4];
g_ibuf_96[li_4] = g_ibuf_96[li_4 + 1];
g_ibuf_100[li_4] = g_ibuf_100[li_4 + 1];
gi_104 = 3;
}
}
}
}
}
}
}
}
}
}
return (0);[/pre]
|