AutoFiboBuilder

ÿþ//=================================================================================

#property copyright "mserega76"

#property link      "mserega@yandex.ru"

#property version   "10.00"

#property strict

//=================================================================================

#include <Proverka_Barov.mqh>

#include <FiboBullLevels.mqh>

#include <FiboBearLevels.mqh>

#include <Proverka_MA.mqh>

#include <DiverBullLines.mqh>

#include <DiverBearLines.mqh>

//=================================================================================

datetime time_old, time_new;   //open time previous and current candle

bool refr;                     //RefreshRates flag

//=================================================================================

int OnInit()

{

   Comment("\n\nSTART AUTO FIBO BUILDER");

   time_old = Time[2];

   refr = false;



   //@8AC5B ;8=8N =0G0;0 B5:CI53> 3>40 =0 3@0D8:5

   //begyear_line();

   

   return(INIT_SUCCEEDED);

}

//=================================================================================

void OnDeinit(const int reason)

{

   ObjectDelete("serg fibo bear");

   ObjectDelete("otkat level bear");

   ObjectDelete("target 123.6 level bear");

   

   ObjectDelete("serg fibo bull");

   ObjectDelete("otkat level bull");

   ObjectDelete("target 123.6 level bull");

   

   ObjectDelete("fibo bull BUY line");

   ObjectDelete("fibo bull BUY 2 line");

   

   ObjectDelete("fibo bear SELL line");

   ObjectDelete("fibo bear SELL 2 line");

   

   ObjectDelete("price_bull_diver_line");

   ObjectDelete("macd_bull_diver_line");

   ObjectDelete("diver bull BUY line");

   

   ObjectDelete("price_bear_diver_line");

   ObjectDelete("macd_bear_diver_line");

   ObjectDelete("diver bear SELL line");



   ObjectDelete("Begin 2018 year line");    

}

//=================================================================================

void OnTick()

{

   double srbar, srtel, razmin;

   

   int pik, dno;

   

   string fset;

   

   pik = 0;

   

   dno = 0;

   

   time_new = Time[1];

   

   //02B><0B8G5A:89 70?CA: >1=>2;5=8O 3@0D8:0 ?>A;5 @0AG5B0 A83=0;>2

   //:>340 @0AG5BK 2 =0G0;5 G0A0 C65 A45;0=K 8 :><? A2>1>45=

   if(TimeMinute(TimeCurrent())>50)

   {

      if(refr==true)

      {

         RefreshRates();

         

         refr = false;

      }

   }

   

   //>A=>2=>9 @0AG5B A83=0;>2 4;O >B:@KB8O A45;>:

   //@0AG5BK ?@>2>48< ?@8 ?>O2;5=88 =>2>9 A25G8, ;81> ?@8 70?CA:5 @>1>B0

   if(time_new != time_old)

   {  

      fset = "";

      

      //@07<5@ A@54=53> 10@0 2 ?C=:B0E 4> 3 7=0:0

      srbar = average_bar_length();

      

      //@07<5@ A@54=53> B5;0 A25G8 2 ?C=:B0E 4> 3 7=0:0

      srtel = average_body_length();

   

      //<8=8<0;L=0O 2KA>B0 D81> A5B:8 2 ?C=:B0E

      razmin=MathRound((srbar*FibKoef));      

      

      //@0AG5B 1KGL59 D81> A5B:8

      dno = fbullsearch(razmin);

      

      //@0AG5B <54256L59 D81> A5B:8

      pik = fbearsearch(razmin);

      

      

      //5A;8 1KGLO A5B:0 1>;55 0:BC0;L=0O, AB@>8< 55

      if(dno>0)

      {

         if((dno<pik)||(pik==0))

         {

            fset = " BULL ";

         

            bildfbull(srtel, razmin, dno);

            

            ObjectDelete("serg fibo bear");

            ObjectDelete("otkat level bear");

            ObjectDelete("target 123.6 level bear");

            

            ObjectDelete("fibo bear SELL line");

            ObjectDelete("fibo bear SELL 2 line");

         }

      }

      

      //5A;8 <54256LO A5B:0 1>;55 0:BC0;L=0O, AB@>8< 55

      if(pik>0)

      {

         if((pik<dno)||(dno==0))

         {

            fset = " BEAR ";

         

            bildfbear(srtel, razmin, pik);

            

            ObjectDelete("serg fibo bull");

            ObjectDelete("otkat level bull");

            ObjectDelete("target 123.6 level bull");            

            

            ObjectDelete("fibo bull BUY line");

            ObjectDelete("fibo bull BUY 2 line");            

         }

      }                

      

      //   &  "  

      diverbull_search();

      diverbear_search();     

      

      if(fset=="")

      {

         fset = "NONE";

      }      

      

      Comment("\n\n\nSRBAR  = "+DoubleToString(srbar,3)+

              "\n\n\nSRTEL  = "+DoubleToString(srtel,3)+

              "\n\n\nRAZMIN = "+DoubleToString(razmin,0)+

              "\n\n\nCURRENT FIBO :   "+fset);

      

      //A;54CNI89 @0AG5B MB>3> 1;>:0 B>;L:> ?>A;5 ?>O2;5=8O =>2>9 A25G8

      time_old = time_new;

      

      //5A;8 @0AG5BK ?@>2545=K 8 :><?LNB5@ A2>1>45=, <>6=> >1=>28BL 3@0D8:

      refr = true;

   }   

}

//=================================================================================