/* Generated by EX4-TO-MQ4 decompiler V4.0.224.1 [] Website: http://purebeam.biz E-mail : purebeam@gmail.com */ #property copyright "Copyright © 2009, Raouf riad" #property link "r-riad@web.de" #property indicator_separate_window double gda_76[100][100]; double gda_80[100][100]; int gia_84[100][100]; string gsa_88[] = {"EURUSD", "USDCHF", "GBPUSD", "USDJPY", "AUDUSD", "NZDUSD", "USDCAD", "EURJPY", "GBPJPY"}; string gsa_92[] = {"TREND", "SIGNAL"}; string gsa_96[9]; string gs_100 = "STRONG SYSTEM SIGNALGEBER_M15_H1 (c) Raouf Riad 2009-2010"; int init() { return (0); } int deinit() { return (0); } int start() { gsa_96[0] = "SELL STRONG"; gsa_96[1] = "DOWN STRONG"; gsa_96[2] = "DOWN"; gsa_96[3] = "DOWN WEAK"; gsa_96[4] = "WAIT"; gsa_96[5] = "UP WEAK"; gsa_96[6] = "UP"; gsa_96[7] = "UP STRONG"; gsa_96[8] = "BUY STRONG"; IndicatorShortName(gs_100); Calc(); Analis(); CreateObjects(); return (0); } void Calc() { string l_symbol_4; ArrayInitialize(gda_76, -1); for (int l_index_0 = 0; l_index_0 < ArrayRange(gsa_88, 0); l_index_0++) { l_symbol_4 = gsa_88[l_index_0]; gda_76[l_index_0][0] = iMA(l_symbol_4, PERIOD_H1, 8, 0, MODE_EMA, PRICE_OPEN, 1); gda_76[l_index_0][1] = iMA(l_symbol_4, PERIOD_H1, 5, 0, MODE_EMA, PRICE_CLOSE, 0); gda_76[l_index_0][2] = iMA(l_symbol_4, PERIOD_M15, 8, 0, MODE_EMA, PRICE_CLOSE, 0); gda_76[l_index_0][3] = iMA(l_symbol_4, PERIOD_M15, 21, 0, MODE_EMA, PRICE_CLOSE, 1); gda_76[l_index_0][4] = iMA(l_symbol_4, PERIOD_H1, 5, 0, MODE_EMA, PRICE_CLOSE, 0); gda_76[l_index_0][5] = iMA(l_symbol_4, PERIOD_H1, 8, 0, MODE_EMA, PRICE_OPEN, 1); gda_76[l_index_0][6] = iMA(l_symbol_4, PERIOD_M15, 8, 0, MODE_EMA, PRICE_CLOSE, 0); gda_76[l_index_0][7] = iMA(l_symbol_4, PERIOD_M15, 21, 0, MODE_EMA, PRICE_CLOSE, 1); gda_76[l_index_0][8] = iCustom(l_symbol_4, PERIOD_M15, "Heiken_Ashi_Smoothed_Alert", 1, 21, 1, 8, 0, 0, 0); } } void Analis() { string ls_unused_4; ArrayInitialize(gda_80, 0); for (int l_index_0 = 0; l_index_0 < ArrayRange(gsa_88, 0); l_index_0++) { ls_unused_4 = gsa_88[l_index_0]; if (gda_76[l_index_0][0] < gda_76[l_index_0][1]) gda_80[l_index_0][0] = 2; if (gda_76[l_index_0][0] > gda_76[l_index_0][1]) gda_80[l_index_0][0] = -2; if (gda_76[l_index_0][2] > gda_76[l_index_0][3]) gda_80[l_index_0][1] = 1; if (gda_76[l_index_0][2] < gda_76[l_index_0][3]) gda_80[l_index_0][1] = -1; gia_84[l_index_0][0] = gda_80[l_index_0][0] + gda_80[l_index_0][1]; if (gda_76[l_index_0][4] > gda_76[l_index_0][5]) gda_80[l_index_0][2] = 2; if (gda_76[l_index_0][4] < gda_76[l_index_0][5]) gda_80[l_index_0][2] = -2; if (gda_76[l_index_0][6] > gda_76[l_index_0][7]) gda_80[l_index_0][3] = 1; if (gda_76[l_index_0][6] < gda_76[l_index_0][7]) gda_80[l_index_0][3] = -1; if (gda_76[l_index_0][8] < iHigh(gsa_88[l_index_0], PERIOD_M15, 0)) gda_80[l_index_0][4] = 1; else gda_80[l_index_0][4] = -1; gia_84[l_index_0][1] = gda_80[l_index_0][2] + gda_80[l_index_0][4]; if (gda_80[l_index_0][2] == 2.0 || gda_80[l_index_0][3] == 1.0) gia_84[l_index_0][1] += gda_80[l_index_0][3]; if (gda_80[l_index_0][2] == -2.0 || gda_80[l_index_0][3] == -1.0) gia_84[l_index_0][1] += gda_80[l_index_0][3]; if (gda_76[l_index_0][9] > gda_76[l_index_0][10]) gda_80[l_index_0][5] = 2; if (gda_76[l_index_0][9] < gda_76[l_index_0][10]) gda_80[l_index_0][5] = -2; if (gda_76[l_index_0][11] > gda_76[l_index_0][12]) gda_80[l_index_0][6] = 1; if (gda_76[l_index_0][11] < gda_76[l_index_0][12]) gda_80[l_index_0][6] = -1; gia_84[l_index_0][2] = gda_80[l_index_0][5] + gda_80[l_index_0][6]; if (gda_76[l_index_0][13] > gda_76[l_index_0][14]) gda_80[l_index_0][7] = 2; if (gda_76[l_index_0][13] < gda_76[l_index_0][14]) gda_80[l_index_0][7] = -2; if (gda_76[l_index_0][15] > gda_76[l_index_0][16]) gda_80[l_index_0][8] = 1; if (gda_76[l_index_0][15] < gda_76[l_index_0][16]) gda_80[l_index_0][8] = -1; gia_84[l_index_0][3] = gda_80[l_index_0][7] + gda_80[l_index_0][8]; if (gda_76[l_index_0][17] > gda_76[l_index_0][18]) gda_80[l_index_0][9] = 2; if (gda_76[l_index_0][17] < gda_76[l_index_0][18]) gda_80[l_index_0][9] = -2; if (gda_76[l_index_0][19] > gda_76[l_index_0][20]) gda_80[l_index_0][10] = 1; if (gda_76[l_index_0][19] < gda_76[l_index_0][20]) gda_80[l_index_0][10] = -1; gia_84[l_index_0][4] = gda_80[l_index_0][9] + gda_80[l_index_0][10]; if (gda_76[l_index_0][21] > gda_76[l_index_0][22]) gda_80[l_index_0][11] = 2; if (gda_76[l_index_0][21] < gda_76[l_index_0][22]) gda_80[l_index_0][11] = -2; if (gda_76[l_index_0][23] > gda_76[l_index_0][24]) gda_80[l_index_0][12] = 1; if (gda_76[l_index_0][23] < gda_76[l_index_0][24]) gda_80[l_index_0][12] = -1; gia_84[l_index_0][5] = gda_80[l_index_0][11] + gda_80[l_index_0][12]; } } void CreateObjects() { int li_0 = 20; int li_4 = 110; int li_8 = 120; int l_y_12 = 20; ObjectCreate("Info", OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("Info", "", 8, "Verdana", MediumVioletRed); ObjectSet("Info", OBJPROP_XDISTANCE, 0); ObjectSet("Info", OBJPROP_YDISTANCE, 15); for (int l_index_16 = 0; l_index_16 < ArrayRange(gsa_88, 0); l_index_16++) { ObjectCreate("Title" + gsa_88[l_index_16], OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("Title" + gsa_88[l_index_16], gsa_88[l_index_16], 9, "Verdana", Gray); ObjectSet("Title" + gsa_88[l_index_16], OBJPROP_XDISTANCE, l_index_16 * li_4 + li_8); ObjectSet("Title" + gsa_88[l_index_16], OBJPROP_YDISTANCE, l_y_12); for (int l_index_20 = 0; l_index_20 < 6; l_index_20++) { ObjectCreate("Title" + gsa_92[l_index_20], OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("Title" + gsa_92[l_index_20], gsa_92[l_index_20], 11, "Verdana", Black); ObjectSet("Title" + gsa_92[l_index_20], OBJPROP_XDISTANCE, 5); ObjectSet("Title" + gsa_92[l_index_20], OBJPROP_YDISTANCE, l_index_20 * li_0 + l_y_12 + 30); if (gia_84[l_index_16][l_index_20] > 0) { ObjectCreate("V" + l_index_16 + l_index_20, OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("V" + l_index_16 + l_index_20, gsa_96[gia_84[l_index_16][l_index_20] + 4], 9, "Verdana", Blue); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_XDISTANCE, l_index_16 * li_4 + li_8); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_YDISTANCE, l_index_20 * li_0 + l_y_12 + 30); } if (gia_84[l_index_16][l_index_20] < 0) { ObjectCreate("V" + l_index_16 + l_index_20, OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("V" + l_index_16 + l_index_20, gsa_96[gia_84[l_index_16][l_index_20] + 4], 9, "Verdana", Red); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_XDISTANCE, l_index_16 * li_4 + li_8); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_YDISTANCE, l_index_20 * li_0 + l_y_12 + 30); } if (gia_84[l_index_16][l_index_20] == 0) { ObjectCreate("V" + l_index_16 + l_index_20, OBJ_LABEL, WindowFind(gs_100), 0, 0); ObjectSetText("V" + l_index_16 + l_index_20, gsa_96[gia_84[l_index_16][l_index_20] + 4], 9, "Verdana", White); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_XDISTANCE, l_index_16 * li_4 + li_8); ObjectSet("V" + l_index_16 + l_index_20, OBJPROP_YDISTANCE, l_index_20 * li_0 + l_y_12 + 30); } } } }