/*
   Generated by EX4-TO-MQ4 decompiler V4.0.224.1 []
   Website: http://purebeam.biz
   E-mail : purebeam@gmail.com
*/
#property copyright "Copyright © 2011, FX Cash Formula"
#property link      "http://www.FXCashFormula.com"

#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Silver
#property indicator_color2 Red
#property indicator_color3 Green

extern string s.0 = "FX Cash Formula";
extern string s.1 = "Sound Alerts:";
extern bool SoundAlerts = TRUE;
extern string s.2 = "Email Alerts:";
extern bool EmailAlerts = FALSE;
int RSIPeriod = 8;
int BandsPeriod = 30;
double buf1[];
double buf2[];
double buf3[];

int init() {
   SetIndexStyle(0, DRAW_LINE);
   SetIndexStyle(1, DRAW_LINE);
   SetIndexStyle(2, DRAW_LINE);
   SetIndexBuffer(0, buf1);
   SetIndexBuffer(1, buf2);
   SetIndexBuffer(2, buf3);
   return (0);
}

int deinit() {
   return (0);
}

datetime OldTime=0;

int start() 
{
   double ld_0;
   double sum;
   double BandsMas[];
   ArrayResize(BandsMas, BandsPeriod);
   int CountedBars = IndicatorCounted();
   int limit = Bars - CountedBars - 1;
   for (int i = limit; i >= 0; i--) {
      buf1[i] = iRSI(NULL, 0, RSIPeriod, PRICE_LOW, i);
      sum = 0;
      for (int j = i; j < i + BandsPeriod; j++) {
         BandsMas[j - i] = buf1[j];
         sum += buf1[j] / BandsPeriod;
      }
      buf2[i] = sum + 1.3185 * StDev(BandsMas, BandsPeriod);
      buf3[i] = sum - 1.3185 * StDev(BandsMas, BandsPeriod);
   }
  

	//datetime NewTime=TimeCurrent();
   //if (Open[0] == Close[0] && Open[0] == Low[0] && Open[0] == High[0]) 
   if(OldTime<Time[0])
   {
      if (buf1[1] < buf2[1] && buf1[2] > buf2[2]) {
         ld_0 = High[iHighest(Symbol(), 0, MODE_HIGH, 3, 1)] + 1.0 * Point;
         if (SoundAlerts) Alert("FXCashFormula EDU Signal: SHORT signal at " + Symbol() + " [" + Period() + "], Stop loss at " + ld_0);
         if (EmailAlerts) SendMail("FXCashFormula EDU Signal at " + Symbol(), "SHORT signal at " + Symbol() + " [" + Period() + "], Stop loss at " + ld_0);
      }
      if (buf1[1] > buf3[1] && buf1[2] < buf3[2]) {
         ld_0 = Low[iLowest(Symbol(), 0, MODE_LOW, 3, 1)] - 1.0 * Point;
         if (SoundAlerts) Alert("FXCashFormula EDU Signal: LONG signal at " + Symbol() + " [" + Period() + "], Stop loss at " + ld_0);
         if (EmailAlerts) SendMail("FXCashFormula EDU Signal at " + Symbol(), "LONG signal at " + Symbol() + " [" + Period() + "], Stop loss at " + ld_0);
      }
    OldTime=Time[0];
   }
   return (0);
}

double StDev(double ada_0[], int ai_4) {
   return (MathSqrt(Variance(ada_0, ai_4)));
}

double Variance(double ada_0[], int ai_4) {
   double sum;
   double ld_16;
   for (int l_index_24 = 0; l_index_24 < ai_4; l_index_24++) {
      sum += ada_0[l_index_24];
      ld_16 += MathPow(ada_0[l_index_24], 2);
   }
   return ((ld_16 * ai_4 - sum * sum) / (ai_4 * (ai_4 - 1)));
}