03_Start

//+------------------------------------------------------------------+
//|                                                     gran_ver.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, ReAl"
#include <verevents.mqh>
#include <ver.mqh>

//+------------------------------------------------------------------+
//| Çàïóñêàþùèé ñêðèïò
//+------------------------------------------------------------------+
int start()
  {
//----
   int n=0;             // äî êàêîãî áàðà âåäåì ðàñ÷åò
   int glubina=Bars;    // ãðóáèíà èñòîðèè äëÿ ðàñ÷åòà
   int f=0; // 0- ïðîèçâîäèì çàïèñü ôàéëà ãðàíèö ðàñïðåäåëåíèé
            // 1- ïðîèçâîäèì çàïèñü èñõîäíûõ ôàéëîâ
   int event=410;  // àíàëèçèðóåìîå ñîáûòèå
                   // 101 - min- UP, max- Do
                   // 102 - ìîëîò- ââåðõ, êàìåíü âíèç
                   // 103 - 101 + 102
                   // 201 - Cross MA
                   // 201 - Cross MA öåíîé
                   // 203 - íàïðàâëåíèå MA
                   // 301 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN
                   // 302 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_CLOSE 
                   // 303 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN äâóìÿ áàðàìè
                   // 304 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN Close[1]<Close[2]
                   // 305 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN Close[1]<Open[1]
                   // 306 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN Close[1]<Open[2]
                   // 307 - Èçìåíåíèå íàïðàâëåíèÿ OsMA PRICE_MEDIAN Close[1]<Open[1] è äëÿ çàêðûòèÿ
                   // 308 - Èçìåíåíèå çíàêà OsMA PRICE_MEDIAN
                   // 309 - Èçìåíåíèå íàïðàâëåíèÿ AC 
                   // 410 - RSI 56 >< level 
                   // 601 - Èçìåíåíèå ïî âðåìåíè +1
   //--ãðàíèöû èçìåíåíèÿ ïàðàìåòðîâ
   int    step=1,
      p1, g11=56, g12=56,
      p2, g21=1, g22=1,
      p3, g31=1, g32=1,
      p4, g41=1, g42=1,
      p5, g51=1, g52=1;
      p1=g11; p2=g21; p3=g31; p4=g41; p5=g51;
   //-çíà÷åíèÿ ãðàíèö ñåãìåíòîâ ðàñïðåäåëíèé äëÿ áàðîâ â èñòîðèè
   double ver=0.5;
   string fn;
   //------------------------------------
   if(f==1)
   {
      Print("Çàïèñü èñõîäíûõ äàííûõ ðàñïðåäåëåíèé, event= ", event);
      Print("p1,p2,p3,p4,p5= ",p1,",",p2,",",p3,",",p4,",",p5," event= ",event);
      gran(n, event, glubina, 1, 0.5, f, p1,p2,p3,p4,p5,fn);
   }
   //-----------------------------------------------------
   // çàïèñü â ôàéë ðàñïðåäåëíèé
   if(f==0)
   {
   int FileHandleR;
   fn=Symbol()+Period()+"_PaRaspr_"+event+".csv";
   FileHandleR=FileOpen(fn,FILE_WRITE | FILE_CSV,";");
   if (FileHandleR<1)
      {
      Print("Íå óäàëîñü îòêðûòü ôàéë, îøèáêà ",GetLastError());
      return;
      }
   //------------------------------------
   // íàçâàíèÿ ñòîëáöîâ
   FileWrite(FileHandleR,
             "p1,p2,p3,p4,p5",
             "Ver",
             "UP rez","UP dd","up",
             "DO rez","DO dd","do",
             "upindrez","upinddd","upoper","upzone",
             "doindrez","doinddd","dooper","dozone"
             );
   FileClose(FileHandleR);
   //-------------------------------------------------------
   Print("Çàïèñü ãðàíèö ðàñïðåäåëåíèé ïðè çàäàííûõ âåðîÿòíîñòÿõ, event= ", event);
      for(p1=g11;p1<=g12;p1=p1+step)
      {
         for(p2=g21;p2<=g22;p2=p2+step)
         {
            for(p3=g31;p3<=g32;p3=p3+step)
            {
               for(p4=g41;p4<=g42;p4=p4+step)
               {
                  for(p5=g51;p5<=g52;p5=p5+step)
                  {
                     Print("p1,p2,p3,p4,p5= ",p1,",",p2,",",p3,",",p4,",",p5," event= ",event);
                     gran(n, event, glubina, 1, ver, f,p1,p2,p3,p4,p5,fn);
                  }
               }
            }
         }
      }
   }
//----
   return(0);
  }
//+------------------------------------------------------------------+