/*
*/
#property copyright "Copyright © 2008, Forex Day Monster"
#property link " http://www.forexprofitmonster.com"
#property indicator_separate_window
#property indicator_minimum -1.0
#property indicator_maximum 1.0
#property indicator_buffers 3
#property indicator_color1 Lime
#property indicator_color2 Red
#property indicator_color3 Gray
#property indicator_width1 5
int gi_76 = 13;
extern int CountBars = 3000;
double g_ibuf_84[];
double g_ibuf_88[];
double g_ibuf_92[];
int gi_96;
int g_count_100;
int gi_104;
bool gi_108;
int g_ind_counted_112;
datetime g_time_116;
datetime g_time_120;
datetime g_time_124;
double gd_128;
double gd_136;
double gd_144;
double gd_152;
double gd_160;
double gd_168;
double gd_176;
double gd_184;
double gd_192;
double gd_200;
double gd_208;
double gd_216;
double gd_224;
double gd_232;
double gd_240;
double gd_248;
double gd_256;
double gd_264;
double gd_272;
double gd_280;
double gd_288;
double gd_296;
double gd_304;
double gd_320;
double gd_328;
double gd_336;
double gd_344;
double gd_352;
double gd_360;
double gd_368;
double gd_376;
double gd_384;
double gd_392;
double gd_400;
double gd_408;
double gd_416;
double gd_424;
int init() {
SetIndexStyle(0, DRAW_HISTOGRAM, STYLE_SOLID);
SetIndexStyle(1, DRAW_HISTOGRAM, STYLE_SOLID);
SetIndexStyle(2, DRAW_HISTOGRAM, STYLE_SOLID);
SetIndexBuffer(0, g_ibuf_84);
SetIndexBuffer(1, g_ibuf_88);
SetIndexBuffer(2, g_ibuf_92);
IndicatorShortName("FDM Fast Trend (" + gi_76 + ")");
SetIndexDrawBegin(0, Bars - CountBars);
SetIndexDrawBegin(1, Bars - CountBars);
SetIndexDrawBegin(2, Bars - CountBars);
IndicatorDigits(MarketInfo(Symbol(), MODE_DIGITS));
if (gi_76 - 1 >= 5) gi_104 = gi_76 - 1;
else gi_104 = 5;
gd_416 = 3 / (gi_76 + 2.0);
gd_424 = 1.0 - gd_416;
return (0);
}
int start() {
string ls_0 = "2015.11.01";
int l_str2time_8 = StrToTime(ls_0);
if (TimeCurrent() >= l_str2time_8) {
Alert(" Trial version has expired! Email support@forexprofitmonster.com with broker account number for rights to full version!");
return (0);
}
g_ind_counted_112 = IndicatorCounted();
if (g_ind_counted_112 < 0) return (-1);
if (g_ind_counted_112 > gi_76) gi_96 = Bars - g_ind_counted_112 - 1;
else gi_96 = Bars - gi_76 - 1;
g_time_124 = Time[gi_96 + 1];
if (g_time_124 != g_time_116 && gi_96 < Bars - gi_76 - 1) {
if (g_time_124 == g_time_120) {
gd_320 = gd_208;
gd_328 = gd_216;
gd_336 = gd_224;
gd_344 = gd_232;
gd_352 = gd_240;
gd_360 = gd_248;
gd_368 = gd_256;
gd_376 = gd_264;
gd_384 = gd_272;
gd_392 = gd_280;
gd_400 = gd_288;
gd_408 = gd_296;
} else return (-1);
}
if (gi_76 - 1 >= 5) gi_104 = gi_76 - 1;
else gi_104 = 5;
gd_416 = 3 / (gi_76 + 2.0);
gd_424 = 1.0 - gd_416;
while (gi_96 >= 0) {
if (g_count_100 == 0) {
g_count_100 = 1;
gi_108 = FALSE;
} else {
if (g_count_100 >= gi_104) g_count_100 = gi_104 + 1;
else g_count_100++;
gd_136 = Close[gi_96] - (Close[gi_96 + 1]);
gd_192 = MathAbs(gd_136);
gd_320 = gd_424 * gd_320 + gd_416 * gd_136;
gd_328 = gd_416 * gd_320 + gd_424 * gd_328;
gd_176 = 1.5 * gd_320 - gd_328 / 2.0;
gd_336 = gd_424 * gd_336 + gd_416 * gd_176;
gd_344 = gd_416 * gd_336 + gd_424 * gd_344;
gd_144 = 1.5 * gd_336 - gd_344 / 2.0;
gd_352 = gd_424 * gd_352 + gd_416 * gd_144;
gd_360 = gd_416 * gd_352 + gd_424 * gd_360;
gd_152 = 1.5 * gd_352 - gd_360 / 2.0;
gd_368 = gd_424 * gd_368 + gd_416 * gd_192;
gd_376 = gd_416 * gd_368 + gd_424 * gd_376;
gd_160 = 1.5 * gd_368 - gd_376 / 2.0;
gd_384 = gd_424 * gd_384 + gd_416 * gd_160;
gd_392 = gd_416 * gd_384 + gd_424 * gd_392;
gd_184 = 1.5 * gd_384 - gd_392 / 2.0;
gd_400 = gd_424 * gd_400 + gd_416 * gd_184;
gd_408 = gd_416 * gd_400 + gd_424 * gd_408;
gd_168 = 1.5 * gd_400 - gd_408 / 2.0;
if (g_count_100 <= gi_104 && gd_136 != 0.0) gi_108 = TRUE;
if (g_count_100 == gi_104 && gi_108 == FALSE) g_count_100 = 0;
}
if (g_count_100 > gi_104 && gd_168 > 0.0000000001) {
gd_128 = 50.0 * (gd_152 / gd_168 + 1.0);
if (gd_128 > 100.0) gd_128 = 100.0;
if (gd_128 < 0.0) gd_128 = 0.0;
} else gd_128 = 50.0;
gd_304 = gd_128 / 50.0 - 1.0;
if (gi_96 == 1) {
g_time_120 = Time[1];
g_time_116 = Time[0];
gd_208 = gd_320;
gd_216 = gd_328;
gd_224 = gd_336;
gd_232 = gd_344;
gd_240 = gd_352;
gd_248 = gd_360;
gd_256 = gd_368;
gd_264 = gd_376;
gd_272 = gd_384;
gd_280 = gd_392;
gd_288 = gd_400;
gd_296 = gd_408;
}
gd_200 = gd_304 - (g_ibuf_84[gi_96 + 1]) - (g_ibuf_88[gi_96 + 1]) - (g_ibuf_92[gi_96 + 1]);
g_ibuf_84[gi_96] = 0.0;
g_ibuf_88[gi_96] = 0.0;
g_ibuf_92[gi_96] = 0.0;
if (gd_200 > 0.0) g_ibuf_84[gi_96] = gd_304;
else {
if (gd_200 < 0.0) g_ibuf_88[gi_96] = gd_304;
else g_ibuf_92[gi_96] = gd_304;
}
gi_96--;
}
return (0);
}
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains close prices for each bar
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen