/*
*/
#property copyright "Copyright © 2008, Forex Day Monster"
#property link "http://www.forexprofitmonster.com"
#property indicator_separate_window
extern int SpreadThreshold = 6;
extern bool Show_D1_ADX = TRUE;
int init() {
IndicatorShortName("FDM Trend Power (" + Symbol() + ")");
return (0);
}
int deinit() {
ObjectsDeleteAll(0, OBJ_LABEL);
ObjectDelete("FDM Trend Power-1");
ObjectDelete("FDM Trend Power-2");
ObjectDelete("FDM Trend Power-3");
ObjectDelete("FDM Trend Power-4");
ObjectDelete("FDM Trend Power-5");
ObjectDelete("FDM Trend Power-6");
ObjectDelete("FDM Trend Power-7");
ObjectDelete("FDM Trend Power-8");
ObjectDelete("FDM Trend Power-9");
ObjectDelete("FDM Trend Power-10");
ObjectDelete("FDM Trend Power-11");
ObjectDelete("FDM Trend Power-12");
ObjectDelete("FDM Trend Power-2a");
ObjectDelete("FDM Trend Power-4a");
ObjectDelete("FDM Trend Power-6a");
ObjectDelete("FDM Trend Power-8a");
ObjectDelete("FDM Trend Power-10a");
ObjectDelete("FDM Trend Power-12a");
return (0);
}
int start() {
color l_color_156;
color l_color_160;
color l_color_164;
color l_color_168;
color l_color_172;
color l_color_176;
string l_text_180;
string l_text_188;
string l_text_196;
string l_text_204;
string l_text_212;
string l_text_220;
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);
}
double l_iadx_12 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_20 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_28 = iADX(NULL, PERIOD_M5, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
double l_iadx_36 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_44 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_52 = iADX(NULL, PERIOD_M15, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
double l_iadx_60 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_68 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_76 = iADX(NULL, PERIOD_M30, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
double l_iadx_84 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_92 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_100 = iADX(NULL, PERIOD_H1, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
double l_iadx_108 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_116 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_124 = iADX(NULL, PERIOD_H4, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
double l_iadx_132 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_MAIN, 0);
double l_iadx_140 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_PLUSDI, 0);
double l_iadx_148 = iADX(NULL, PERIOD_D1, 14, PRICE_CLOSE, MODE_MINUSDI, 0);
if (l_iadx_12 < 23.0 && l_iadx_12 != 0.0) l_color_156 = LightSkyBlue;
if (l_iadx_12 >= 23.0 && l_iadx_20 > l_iadx_28) l_color_156 = Lime;
if (l_iadx_12 >= 23.0 && l_iadx_20 < l_iadx_28) l_color_156 = Red;
if (l_iadx_36 < 23.0 && l_iadx_36 != 0.0) l_color_160 = LightSkyBlue;
if (l_iadx_36 >= 23.0 && l_iadx_44 > l_iadx_52) l_color_160 = Lime;
if (l_iadx_36 >= 23.0 && l_iadx_44 < l_iadx_52) l_color_160 = Red;
if (l_iadx_60 < 23.0 && l_iadx_60 != 0.0) l_color_164 = LightSkyBlue;
if (l_iadx_60 >= 23.0 && l_iadx_68 > l_iadx_76) l_color_164 = Lime;
if (l_iadx_60 >= 23.0 && l_iadx_68 < l_iadx_76) l_color_164 = Red;
if (l_iadx_84 < 23.0 && l_iadx_84 != 0.0) l_color_168 = LightSkyBlue;
if (l_iadx_84 >= 23.0 && l_iadx_92 > l_iadx_100) l_color_168 = Lime;
if (l_iadx_84 >= 23.0 && l_iadx_92 < l_iadx_100) l_color_168 = Red;
if (l_iadx_108 < 23.0 && l_iadx_108 != 0.0) l_color_172 = LightSkyBlue;
if (l_iadx_108 >= 23.0 && l_iadx_116 > l_iadx_124) l_color_172 = Lime;
if (l_iadx_108 >= 23.0 && l_iadx_116 < l_iadx_124) l_color_172 = Red;
if (l_iadx_132 < 23.0 && l_iadx_132 != 0.0) l_color_176 = LightSkyBlue;
if (l_iadx_132 >= 23.0 && l_iadx_140 > l_iadx_148) l_color_176 = Lime;
if (l_iadx_132 >= 23.0 && l_iadx_140 < l_iadx_148) l_color_176 = Red;
string l_iadx_228 = l_iadx_12;
string l_iadx_236 = l_iadx_36;
string l_iadx_244 = l_iadx_60;
string l_iadx_252 = l_iadx_84;
string l_iadx_260 = l_iadx_108;
string l_iadx_268 = l_iadx_132;
if (l_iadx_12 < 23.0 && l_iadx_12 != 0.0) l_text_180 = "h";
if (l_iadx_12 >= 23.0 && l_iadx_12 < 28.0 && l_iadx_20 > l_iadx_28) l_text_180 = "ì";
if (l_iadx_12 >= 23.0 && l_iadx_12 < 28.0 && l_iadx_20 < l_iadx_28) l_text_180 = "î";
if (l_iadx_12 >= 28.0 && l_iadx_20 > l_iadx_28) l_text_180 = "é";
if (l_iadx_12 >= 28.0 && l_iadx_20 < l_iadx_28) l_text_180 = "ê";
if (l_iadx_36 < 23.0 && l_iadx_36 != 0.0) l_text_188 = "h";
if (l_iadx_36 >= 23.0 && l_iadx_36 < 28.0 && l_iadx_44 > l_iadx_52) l_text_188 = "ì";
if (l_iadx_36 >= 23.0 && l_iadx_36 < 28.0 && l_iadx_44 < l_iadx_52) l_text_188 = "î";
if (l_iadx_36 >= 28.0 && l_iadx_44 > l_iadx_52) l_text_188 = "é";
if (l_iadx_36 >= 28.0 && l_iadx_44 < l_iadx_52) l_text_188 = "ê";
if (l_iadx_60 < 23.0 && l_iadx_60 != 0.0) l_text_196 = "h";
if (l_iadx_60 >= 23.0 && l_iadx_60 < 28.0 && l_iadx_68 > l_iadx_76) l_text_196 = "ì";
if (l_iadx_60 >= 23.0 && l_iadx_60 < 28.0 && l_iadx_68 < l_iadx_76) l_text_196 = "î";
if (l_iadx_60 >= 28.0 && l_iadx_68 > l_iadx_76) l_text_196 = "é";
if (l_iadx_60 >= 28.0 && l_iadx_68 < l_iadx_76) l_text_196 = "ê";
if (l_iadx_84 < 23.0 && l_iadx_84 != 0.0) l_text_204 = "h";
if (l_iadx_84 >= 23.0 && l_iadx_84 < 28.0 && l_iadx_92 > l_iadx_100) l_text_204 = "ì";
if (l_iadx_84 >= 23.0 && l_iadx_84 < 28.0 && l_iadx_92 < l_iadx_100) l_text_204 = "î";
if (l_iadx_84 >= 28.0 && l_iadx_92 > l_iadx_100) l_text_204 = "é";
if (l_iadx_84 >= 28.0 && l_iadx_92 < l_iadx_100) l_text_204 = "ê";
if (l_iadx_108 < 23.0 && l_iadx_108 != 0.0) l_text_212 = "h";
if (l_iadx_108 >= 23.0 && l_iadx_108 < 28.0 && l_iadx_116 > l_iadx_124) l_text_212 = "ì";
if (l_iadx_108 >= 23.0 && l_iadx_108 < 28.0 && l_iadx_116 < l_iadx_124) l_text_212 = "î";
if (l_iadx_108 >= 28.0 && l_iadx_116 > l_iadx_124) l_text_212 = "é";
if (l_iadx_108 >= 28.0 && l_iadx_116 < l_iadx_124) l_text_212 = "ê";
if (l_iadx_132 < 23.0 && l_iadx_132 != 0.0) l_text_220 = "h";
if (l_iadx_132 >= 23.0 && l_iadx_132 < 28.0 && l_iadx_140 > l_iadx_148) l_text_220 = "ì";
if (l_iadx_132 >= 23.0 && l_iadx_132 < 28.0 && l_iadx_140 < l_iadx_148) l_text_220 = "î";
if (l_iadx_132 >= 28.0 && l_iadx_140 > l_iadx_148) l_text_220 = "é";
if (l_iadx_132 >= 28.0 && l_iadx_140 < l_iadx_148) l_text_220 = "ê";
ObjectCreate("FDM Trend Power-1", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-1", "5 Min:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-1", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-1", OBJPROP_XDISTANCE, 185);
ObjectSet("FDM Trend Power-1", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-2", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-2", " ADX " + StringSubstr(l_iadx_228, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_156);
ObjectSet("FDM Trend Power-2", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-2", OBJPROP_XDISTANCE, 225);
ObjectSet("FDM Trend Power-2", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-2a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-2a", l_text_180, 9, "Wingdings", l_color_156);
ObjectSet("FDM Trend Power-2a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-2a", OBJPROP_XDISTANCE, 288);
ObjectSet("FDM Trend Power-2a", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-3", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-3", "15 Min:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-3", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-3", OBJPROP_XDISTANCE, 318);
ObjectSet("FDM Trend Power-3", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-4", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-4", " ADX " + StringSubstr(l_iadx_236, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_160);
ObjectSet("FDM Trend Power-4", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-4", OBJPROP_XDISTANCE, 363);
ObjectSet("FDM Trend Power-4", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-4a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-4a", l_text_188, 9, "Wingdings", l_color_160);
ObjectSet("FDM Trend Power-4a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-4a", OBJPROP_XDISTANCE, 426);
ObjectSet("FDM Trend Power-4a", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-5", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-5", "M30:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-5", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-5", OBJPROP_XDISTANCE, 456);
ObjectSet("FDM Trend Power-5", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-6", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-6", " ADX " + StringSubstr(l_iadx_244, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_164);
ObjectSet("FDM Trend Power-6", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-6", OBJPROP_XDISTANCE, 490);
ObjectSet("FDM Trend Power-6", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-6a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-6a", l_text_196, 9, "Wingdings", l_color_164);
ObjectSet("FDM Trend Power-6a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-6a", OBJPROP_XDISTANCE, 553);
ObjectSet("FDM Trend Power-6a", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-7", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-7", "1 Hr:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-7", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-7", OBJPROP_XDISTANCE, 580);
ObjectSet("FDM Trend Power-7", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-8", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-8", " ADX " + StringSubstr(l_iadx_252, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_168);
ObjectSet("FDM Trend Power-8", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-8", OBJPROP_XDISTANCE, 610);
ObjectSet("FDM Trend Power-8", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-8a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-8a", l_text_204, 9, "Wingdings", l_color_168);
ObjectSet("FDM Trend Power-8a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-8a", OBJPROP_XDISTANCE, 672);
ObjectSet("FDM Trend Power-8a", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-9", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-9", "4 Hr:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-9", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-9", OBJPROP_XDISTANCE, 702);
ObjectSet("FDM Trend Power-9", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-10", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-10", " ADX " + StringSubstr(l_iadx_260, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_172);
ObjectSet("FDM Trend Power-10", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-10", OBJPROP_XDISTANCE, 732);
ObjectSet("FDM Trend Power-10", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-10a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-10a", l_text_212, 9, "Wingdings", l_color_172);
ObjectSet("FDM Trend Power-10a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-10a", OBJPROP_XDISTANCE, 793);
ObjectSet("FDM Trend Power-10a", OBJPROP_YDISTANCE, 2);
if (Show_D1_ADX == TRUE) {
ObjectCreate("FDM Trend Power-11", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-11", "1 Day:", 9, "Lucida Sans Regular", LightSteelBlue);
ObjectSet("FDM Trend Power-11", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-11", OBJPROP_XDISTANCE, 823);
ObjectSet("FDM Trend Power-11", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-12", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-12", " ADX " + StringSubstr(l_iadx_268, 0, 5) + " ", 9, "Lucida Sands Regular", l_color_176);
ObjectSet("FDM Trend Power-12", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-12", OBJPROP_XDISTANCE, 863);
ObjectSet("FDM Trend Power-12", OBJPROP_YDISTANCE, 2);
ObjectCreate("FDM Trend Power-12a", OBJ_LABEL, WindowFind("FDM Trend Power (" + Symbol() + ")"), 0, 0);
ObjectSetText("FDM Trend Power-12a", l_text_220, 9, "Wingdings", l_color_176);
ObjectSet("FDM Trend Power-12a", OBJPROP_CORNER, 0);
ObjectSet("FDM Trend Power-12a", OBJPROP_XDISTANCE, 923);
ObjectSet("FDM Trend Power-12a", OBJPROP_YDISTANCE, 2);
}
return (0);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Movement directional index
Custom Indicators Used:
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen