/* Generated by EX4-TO-MQ4 decompiler V4.0.224.1 [] Website: http://purebeam.biz E-mail : purebeam@gmail.com */ #property copyright "lastDream" #property link "lastdream555@hotmail.com" #property indicator_chart_window int gi_76 = 32768; int gi_unused_80 = 65280; int gi_84 = 16748574; int gi_88 = 128; int gi_unused_92 = 255; int gi_96 = 55295; int gi_100 = 30; int g_datetime_104; int g_datetime_108; int gi_112; int gi_116; int init() { Comment("Ali Backtest \nBy LastDream"); gi_112 = 84600.0; gi_116 = 5 * gi_112; return (0); } int deinit() { Comment(""); AL_ShahdDel(); return (0); } int start() { double ld_8; double ld_16; double ld_24; double ld_32; double ld_40; double ld_48; double ld_56; double ld_64; int li_72; double l_ilow_76; double l_ilow_84; double l_iopen_92; double l_iopen_100; double l_ihigh_108; double l_ihigh_116; double l_ihigh_124; double l_ilow_132; double l_iclose_140; double l_iclose_148; double ld_156; double ld_164; double ld_172; double ld_180; double ld_188; double ld_196; double ld_204; double ld_212; double ld_220; double ld_228; double ld_236; double ld_244; double ld_252; double ld_260; double ld_268; double ld_276; double ld_284; double ld_292; double ld_300; double ld_308; double ld_316; double ld_324; double ld_332; double ld_340; double ld_348; double ld_356; AL_ShahdDel(); if (Period() > PERIOD_H1) return (0); int li_0 = gi_100; for (int li_4 = 0; li_4 < li_0; li_4++) { g_datetime_104 = iTime(NULL, PERIOD_D1, li_4); g_datetime_108 = g_datetime_104 + gi_112; CreateDayLines("DayLine[" + li_4 + "]", Black); li_72 = iBarShift(Symbol(), PERIOD_H4, g_datetime_104) + 1; l_ilow_76 = iLow(Symbol(), PERIOD_H4, li_72); l_ilow_84 = iLow(Symbol(), PERIOD_H4, li_72 + 6); l_iopen_92 = iOpen(Symbol(), PERIOD_D1, li_4); l_iopen_100 = iOpen(Symbol(), PERIOD_D1, li_4 + 1); l_ihigh_108 = iHigh(Symbol(), PERIOD_H4, li_72); l_ihigh_116 = iHigh(Symbol(), PERIOD_H4, li_72 + 6); l_ihigh_124 = iHigh(Symbol(), PERIOD_D1, li_4 + 1); l_ilow_132 = iLow(Symbol(), PERIOD_D1, li_4 + 1); l_iclose_140 = iClose(Symbol(), PERIOD_H4, li_72); l_iclose_148 = iClose(Symbol(), PERIOD_H4, li_72 + 6); if (l_ihigh_124 - l_ilow_132 < 100.0) { ld_40 = l_iopen_92; ld_48 = l_iclose_140; ld_56 = l_ihigh_108; ld_64 = l_ilow_76; } if (l_ihigh_124 - l_ilow_132 > 100.0) { ld_40 = (l_iopen_92 + l_iopen_100) / 2.0; ld_48 = (l_iclose_140 + l_iclose_148) / 2.0; ld_56 = (l_ihigh_116 + l_ihigh_108) / 2.0; ld_64 = (l_ilow_84 + l_ilow_76) / 2.0; } if (ld_48 > ld_40) { ld_8 = 2.0 * ld_56 + ld_64 + ld_48; ld_24 = ld_8 / 2.0 - ld_64; ld_32 = ld_8 / 2.0 - ld_56; } else { ld_8 = ld_48 + 2.0 * ld_64 + ld_56; ld_24 = ld_8 / 2.0 - ld_64; ld_32 = ld_8 / 2.0 - ld_56; } if (ld_40 == ld_48) { ld_16 = ld_64 + 2.0 * ld_48 + ld_56; ld_24 = ld_16 / 2.0 - ld_64; ld_32 = ld_16 / 2.0 - ld_56; } ld_156 = MathAbs(ld_56 - ld_40); ld_164 = MathAbs(ld_64 - ld_40); ld_172 = ld_56 + ld_156; ld_180 = ld_64 - ld_164; ld_188 = NormalizeDouble((ld_56 + ld_64 + ld_48) / 3.0, Digits); ld_196 = MathAbs(ld_188 - ld_164); ld_204 = MathAbs(ld_188 + ld_156); ld_212 = 2.0 * ld_188 - ld_64; ld_220 = ld_188 + ld_56 - ld_64; ld_228 = ld_56 + 2.0 * (ld_188 - ld_64); ld_236 = ld_228 + (l_ihigh_108 - l_ilow_76); ld_244 = 2.0 * ld_188 - ld_56; ld_252 = ld_188 - (ld_212 - ld_244); ld_260 = ld_64 - 2.0 * (ld_56 - ld_188); ld_268 = ld_260 - (l_ihigh_108 - l_ilow_76); ld_276 = 2.0 * ld_212 - ld_32; ld_284 = 2.0 * ld_220 - ld_32; ld_292 = 2.0 * ld_228 - ld_32; ld_300 = 2.0 * ld_236 - ld_32; ld_308 = 2.0 * ld_244 - ld_24; ld_316 = 2.0 * ld_252 - ld_24; ld_324 = 2.0 * ld_260 - ld_24; ld_332 = 2.0 * ld_268 - ld_24; ld_340 = ld_180 + 10.0 * Point; ld_348 = ld_172 - 10.0 * Point; ld_356 = (ld_172 + ld_180) / 2.0; CreateAL_ShahdGraphics("BUY1[" + li_4 + "]", ld_196, ld_180, White); CreateAL_ShahdGraphics("SELL1[" + li_4 + "]", ld_204, ld_172, White); CreatePivots("SB_2[" + li_4 + "]", ld_196, ld_196, 1, STYLE_SOLID, Lime); CreatePivots("SS_2[" + li_4 + "]", ld_204, ld_204, 1, STYLE_SOLID, Orange); CreatePivots("SL_2[" + li_4 + "]", ld_180, ld_180, 2, STYLE_SOLID, Red); CreatePivots("Cn_t[" + li_4 + "]", ld_356, ld_356, 3, STYLE_SOLID, Gray); CreatePivots("BU_2[" + li_4 + "]", ld_172, ld_172, 2, STYLE_SOLID, Green); CreatePivots("TB_1[" + li_4 + "]", ld_276, ld_276, 1, STYLE_SOLID, Blue); CreatePivots("TB_2[" + li_4 + "]", ld_284, ld_284, 1, STYLE_SOLID, Blue); CreatePivots("TB_3[" + li_4 + "]", ld_292, ld_292, 1, STYLE_SOLID, Blue); CreatePivots("TB_4[" + li_4 + "]", ld_300, ld_300, 1, STYLE_SOLID, Blue); CreatePivots("TS_1[" + li_4 + "]", ld_308, ld_308, 1, STYLE_SOLID, Blue); CreatePivots("TS_2[" + li_4 + "]", ld_316, ld_316, 1, STYLE_SOLID, Blue); CreatePivots("TS_3[" + li_4 + "]", ld_324, ld_324, 1, STYLE_SOLID, Blue); CreatePivots("TS_4[" + li_4 + "]", ld_332, ld_332, 1, STYLE_SOLID, Blue); } return (0); } void CreatePivots(string as_0, double a_price_8, double a_price_16, double a_width_24, double a_style_32, color a_color_40) { string l_name_44 = "STS_" + as_0; ObjectCreate(l_name_44, OBJ_TREND, 0, g_datetime_104, a_price_8, g_datetime_108, a_price_16); ObjectSet(l_name_44, OBJPROP_COLOR, a_color_40); ObjectSet(l_name_44, OBJPROP_RAY, FALSE); ObjectSet(l_name_44, OBJPROP_WIDTH, a_width_24); ObjectSet(l_name_44, OBJPROP_STYLE, a_style_32); } void CreateAL_ShahdGraphics(string as_0, double a_price_8, double a_price_16, color a_color_24) { string l_name_28 = "STS_" + as_0; ObjectCreate(l_name_28, OBJ_RECTANGLE, 0, g_datetime_104, a_price_8, g_datetime_108, a_price_16); ObjectSet(l_name_28, OBJPROP_COLOR, a_color_24); ObjectSet(l_name_28, OBJPROP_BACK, TRUE); ObjectSet(l_name_28, OBJPROP_WIDTH, 2); ObjectSet(l_name_28, OBJPROP_STYLE, STYLE_SOLID); } void CreateDayLines(string as_0, color a_color_8) { string l_name_12 = "STS_" + as_0; ObjectCreate(l_name_12, OBJ_TREND, 0, g_datetime_104, 0, g_datetime_104, 999); ObjectSet(l_name_12, OBJPROP_COLOR, a_color_8); ObjectSet(l_name_12, OBJPROP_RAY, FALSE); ObjectSet(l_name_12, OBJPROP_WIDTH, 1); ObjectSet(l_name_12, OBJPROP_STYLE, STYLE_DOT); } int AL_ShahdDel() { string l_name_0; int l_objs_total_8 = ObjectsTotal(); for (int l_objs_total_12 = l_objs_total_8; l_objs_total_12 >= 0; l_objs_total_12--) { l_name_0 = ObjectName(l_objs_total_12); if (StringSubstr(l_name_0, 0, 4) == "STS_") ObjectDelete(l_name_0); } return (0); }