/* Generated by EX4-TO-MQ4 decompiler V4.0.438.3 [-] Website: https://purebeam.biz E-mail : purebeam@gmail.com */ #property copyright "Copyright © 2009, TradeWays" #property link "http://www.forexmoonsecret.com" #property indicator_chart_window #property indicator_buffers 8 #property indicator_color1 Blue #property indicator_color2 Red #property indicator_color3 DodgerBlue #property indicator_color4 Coral//Tomato #property indicator_color5 Blue #property indicator_color6 Red #property indicator_color7 DodgerBlue #property indicator_color8 Coral double g_period_76 = 27.0; double g_period_84 = 27.0;//30.0; double g_period_92 = 27.0;//38.0; double g_ibuf_100[]; double g_ibuf_104[]; double g_ibuf_108[]; double g_ibuf_112[]; double g_ibuf_116[]; double g_ibuf_120[]; double g_ibuf_124[]; double g_ibuf_128[]; int init() { SetIndexStyle(0, DRAW_HISTOGRAM,0,2); SetIndexBuffer(0, g_ibuf_100); SetIndexStyle(1, DRAW_HISTOGRAM,0,2); SetIndexBuffer(1, g_ibuf_104); SetIndexStyle(2, DRAW_HISTOGRAM,0,2); SetIndexBuffer(2, g_ibuf_108); SetIndexStyle(3, DRAW_HISTOGRAM,0,2); SetIndexBuffer(3, g_ibuf_112); SetIndexStyle(4, DRAW_HISTOGRAM); SetIndexBuffer(4, g_ibuf_116); SetIndexStyle(5, DRAW_HISTOGRAM); SetIndexBuffer(5, g_ibuf_120); SetIndexStyle(6, DRAW_HISTOGRAM); SetIndexBuffer(6, g_ibuf_124); SetIndexStyle(7, DRAW_HISTOGRAM); SetIndexBuffer(7, g_ibuf_128); string ls_0 = "forexmoonsecret"; IndicatorShortName(ls_0); return (0); } int start() { double icci_0; double iwpr_8; double iforce_16; int li_24; Comment("Q-SonarSystem"); int ind_counted_28 = IndicatorCounted(); if (Bars <= 15) return (0); if (ind_counted_28 < 1) { for (int li_32 = 1; li_32 <= 15; li_32++) { g_ibuf_100[Bars - li_32] = 0.0; g_ibuf_108[Bars - li_32] = 0.0; g_ibuf_104[Bars - li_32] = 0.0; g_ibuf_112[Bars - li_32] = 0.0; g_ibuf_116[Bars - li_32] = 0.0; g_ibuf_124[Bars - li_32] = 0.0; g_ibuf_120[Bars - li_32] = 0.0; g_ibuf_128[Bars - li_32] = 0.0; } } if (ind_counted_28 > 0) li_24 = Bars - ind_counted_28; if (ind_counted_28 == 0) li_24 = Bars - 15 - 1; for (li_32 = li_24; li_32 >= 0; li_32--) { icci_0 = iCCI(NULL, 0, g_period_84, PRICE_TYPICAL, li_32); iwpr_8 = iWPR(NULL, 0, g_period_92, li_32); iforce_16 = iForce(NULL, 0, g_period_76, MODE_EMA, PRICE_CLOSE, li_32); g_ibuf_100[li_32] = EMPTY_VALUE; g_ibuf_108[li_32] = EMPTY_VALUE; g_ibuf_104[li_32] = EMPTY_VALUE; g_ibuf_112[li_32] = EMPTY_VALUE; g_ibuf_116[li_32] = EMPTY_VALUE; g_ibuf_124[li_32] = EMPTY_VALUE; g_ibuf_120[li_32] = EMPTY_VALUE; g_ibuf_128[li_32] = EMPTY_VALUE; if (icci_0 > 0.0 && iwpr_8 > -50.0 && iforce_16 > 0.0) { g_ibuf_100[li_32] = MathMax(Open[li_32], Close[li_32]); g_ibuf_104[li_32] = MathMin(Open[li_32], Close[li_32]); g_ibuf_116[li_32] = High[li_32]; g_ibuf_120[li_32] = Low[li_32]; } else { if (icci_0 > 0.0 && iwpr_8 < -50.0) { g_ibuf_108[li_32] = MathMax(Open[li_32], Close[li_32]); g_ibuf_112[li_32] = MathMin(Open[li_32], Close[li_32]); g_ibuf_124[li_32] = High[li_32]; g_ibuf_128[li_32] = Low[li_32]; } else { if (icci_0 < 0.0 && iwpr_8 < -50.0 && iforce_16 < 0.0) { g_ibuf_104[li_32] = MathMax(Open[li_32], Close[li_32]); g_ibuf_100[li_32] = MathMin(Open[li_32], Close[li_32]); g_ibuf_120[li_32] = High[li_32]; g_ibuf_116[li_32] = Low[li_32]; } else { if (icci_0 < 0.0 && iwpr_8 > -50.0) { g_ibuf_112[li_32] = MathMax(Open[li_32], Close[li_32]); g_ibuf_108[li_32] = MathMin(Open[li_32], Close[li_32]); g_ibuf_128[li_32] = High[li_32]; g_ibuf_124[li_32] = Low[li_32]; } } } } } return (0); }