fibosequencemtf 600+.mq5

/*================================================================================
 Credit : Special thanks to "fising" & "Call Me..Bond" for sharing their 
          trading technic
 Author : Aiman

 How to use this indicator? :
   Just draw a trendline from High to Low or Low to High and then rename 
   that trendline to your TF, e.g M15

 If the market is slow, right click on chart and then click "Refresh" to 
 update the indicator.

 Magnet Setting :
   0 = Off
   1 = Close price    (to be used with line chart)
   2 = High/Low Price (to be used with candlesticks or bar chart)
 ================================================================================*/   
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 clrNONE

extern string MagnetSetting   = "0=OFF,1=Close,2=HiLo";
extern int    Magnet          = 2;
extern string TL_Name         = "Example use TF: H4,H1, M15,M5,";
extern string TLname          = "M15";
extern color boxcolor         = clrDarkSlateGray;
extern color labelcolor       = clrGray;

double _none[];

int init()
{
      // код доступен только после оплаты
   }

int deinit()
{
   for(int r=0;r<100;r++)
   for(int i=0;i<ObjectsTotal();i++)
       {
      if(ObjectName(i)==TLname) continue;
      if(StringSubstr(ObjectName(i),0,StringLen(TLname))==TLname)
        ObjectDelete(ObjectName(i));
   }
   Comment ("");
   return(0);
}
int start()
{
      // код доступен только после оплаты
   }

   string trend;
   double pips,seq=1;
   int shift1,shift2;
   datetime _start;

   if(ObjectFind(TLname)!=-1)
   {
      ObjectSet(TLname,OBJPROP_RAY,0);
      datetime time1 =ObjectGet(TLname,0);
      double price1  =ObjectGet(TLname,1);
      datetime time2 =ObjectGet(TLname,2);
      double price2  =ObjectGet(TLname,3);

      shift1=iBarShift(NULL,0,time1);
      shift2=iBarShift(NULL,0,time2);

      if (Magnet==1)
      {
         price1=iClose(NULL,0,shift1);
         price2=iClose(NULL,0,shift2);
      }

      if (Magnet==2)
      {
         if (price1>price2) trend="dt"; else trend="ut";

         if (trend=="dt") price1=iHigh(NULL,0,shift1); else price1=iLow(NULL,0,shift1);
         if (trend=="dt") price2=iLow(NULL,0,shift2);  else price2=iHigh(NULL,0,shift2);
      }

      ObjectSet(TLname,1,price1);
      ObjectSet(TLname,3,price2);

      int j;
      double k;

      if(time1<time2 && price1<price2) {trend="up";   j=shift2; k=price2;}
      if(time1<time2 && price1>price2) {trend="down"; j=shift2; k=price2;}
      if(time1>time2 && price1>price2) {trend="up";   j=shift1; k=price1;}
      if(time1>time2 && price1<price2) {trend="down"; j=shift1; k=price1;}

      pips=NormalizeDouble(MathAbs((price1-price2)/Point),0);

      while (seq<pips){seq=NormalizeDouble(seq*1.618,0);}
      double prevseq=NormalizeDouble(seq/1.618,0);

      if (MathAbs(seq-pips)>MathAbs(pips-prevseq)) seq=prevseq;

      double seqmin=NormalizeDouble(seq/1.618,0);
      double seqmax=NormalizeDouble(seqmin/1.618,0);
      double seqext=NormalizeDouble(seq*1.618,0);

      double target1,target2,target3;

      if(time1<time2 && trend=="up")
      {
         target1=price2-(seqmin*Point);
         target2=price2-(seqmax*Point);
         target3=price1+(seqext*Point);
      }
      if(time1>time2 && trend=="up")
      {
         target1=price1-(seqmin*Point);
         target2=price1-(seqmax*Point);
         target3=price2+(seqext*Point);
      }
      if(time1<time2 && trend=="down")
      {
         target1=price2+(seqmin*Point);
         target2=price

Показано первые 50% кода (символов: 5526)