ICWR_v0

//+------------------------------------------------------------------+
//|                                          ICWR v0.1BETA indicator |
//|                                   Copyright © 2005, John Lotoski |
//|                                       mailto:john@fayandjohn.com |
//|                                                                  |
//|                         update code Alex.Piech.FinGeR 21.01.2006 |
//|                         regnif@gmx.net                           |  
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, john@fayandjohn.com"
#property link      "mailto:john@fayandjohn.com"
//----
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Blue
//---- indicator parameters
extern string Parameters_1= "ZigZag";
extern int ExtDepth=10;
extern int ExtDeviation=5;
extern int ExtBackstep=3;
extern string Parameters_2="ActiveWave";
extern int calc_NumBars=50;
extern int RequiredWaveHeight=40;
//---- indicator buffers
double ExtMapBuffer[];
double ExtMapBuffer2[];
string buff_str;
string buff_str2;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   IndicatorBuffers(2);
//---- drawing settings
   SetIndexStyle(0,DRAW_SECTION);
//---- indicator buffers mapping
   SetIndexBuffer(0,ExtMapBuffer);
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexEmptyValue(0,0.0);
   ArraySetAsSeries(ExtMapBuffer,true);
   ArraySetAsSeries(ExtMapBuffer2,true);
//---- indicator short name
   IndicatorShortName("ICWR("+(string)ExtDepth+","+(string)ExtDeviation+","+(string)ExtBackstep+")");
//---- initialization done
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()                           // Removes all lines and text
  {                                      // from the chart upon removal
   Comment(" ");

   for(int i=0;i<=Bars;i++)
     {
      buff_str="ActiveWave"+(string)i;
      ObjectDelete(buff_str);
     }
   for(int ii=0;ii<=Bars;ii++)
     {
      buff_str2="Fibo"+(string)ii;
      ObjectDelete(buff_str2);
     }
   //ObjectDelete(buff_str2);
   return(0);
  }
//+------------------------------------------------------------------+
//| Main function                                                    |
//+------------------------------------------------------------------+
int start()
  {
   if(Period()==5)   {RequiredWaveHeight=40;}
   if(Period()==240) {RequiredWaveHeight=150;}
   int    shift,back,lasthighpos,lastlowpos,LastActivePos;
   double val,res;
   double curlow,curhigh,lasthigh,lastlow,LastActive;
//----  
   int AWStartPos, AWEndPos;
   double AWStart, AWEnd;
   double FiboL, FiboH, FiboLC, FiboLR, FiboHR, FiboHC;
//----
   for(shift=Bars-ExtDepth; shift>=0; shift--)
     {
      val=Low[Lowest(NULL,0,MODE_LOW,ExtDepth,shift)];
      if(val==lastlow)                 // If this is not a new low
         val=0.0;                      // - Reset the val marker to dbl 0     
      else                             // Otherwise, if it is a new low
        {
         lastlow=val;                  // - Record this new low in lastlow for future reference
         if((Low[shift]-val)>(ExtDeviation*Point))
            val=0.0;                   // If the low of the current bar is 6 or
         else                          // Otherwise, if the current low is within 6 pips
           {                             // of the lowest low of the last 12 bars
            for(back=1; back<=ExtBackstep; back++)
              {                          // Check back 3 bars, and if each value over those
               res=ExtMapBuffer[shift+back];
               if((res!=0)&&(res>val))
                  ExtMapBuffer[shift+back]=0.0;
              }
           }
        }
      //----
      ExtMapBuffer[shift]=val;         // Set our current bar to 0 (continuation of zig) if:
      val=High[Highest(NULL,0,MODE_HIGH,ExtDepth,shift)];
      //----
      if(val==lasthigh)
         val=0.0;
      else
        {
         lasthigh=val;
         if((val-High[shift])>(ExtDeviation*Point))
            val=0.0;
         else
           {
            for(back=1; back<=ExtBackstep; back++)
              {
               res=ExtMapBuffer2[shift+back];
               if((res!=0)&&(res<val))
                  ExtMapBuffer2[shift+back]=0.0;
              }
           }
        }
      ExtMapBuffer2[shift]=val;
     }
   // final cutting 
   lasthigh=-1;
   lasthighpos=-1;
   lastlow=-1;
   lastlowpos=-1;
//----
   for(shift=Bars-ExtDepth; shift>=0; shift--)
     {
      curlow=ExtMapBuffer[shift];
      curhigh=ExtMapBuffer2[shift];
      //----  
      if((curlow==0)&&(curhigh==0))    // Break into the next cycle of the loop
         continue;                     // to try and find the next zig-zap endpoint 
      if(curhigh!=0)                   // If there is a current high, then:
        {
         if(lasthigh>0)                   // If there was a previous high already:
           {
            if(lasthigh<curhigh)          //    - Set the last high to 0 if it is less than the current high
               ExtMapBuffer2[lasthighpos]=0;
            else                          //    - Set the current bar to 0 if it is less than the last high
               ExtMapBuffer2[shift]=0;
           }
         if(lasthigh<curhigh || lasthigh<0)
           {                             // If there was no last high or the last high was less than the current high
            lasthigh=curhigh;          //    - Set the current high to be the last high (keep record of it)
            lasthighpos=shift;         //    - Set the current bar to the lasthighpos (keep record of it)
           }
         lastlow=-1;                   // Since we just had a new high, reset the lastlow flag
        }
      if(curlow!=0)          // If there is a low, then do the same as above, except for the case of lows instead of highs
        {
         if(lastlow>0)
           {
            if(lastlow>curlow)
               ExtMapBuffer[lastlowpos]=0;
            else
               ExtMapBuffer[shift]=0;
           }
         if((curlow<lastlow)||(lastlow<0))
           {
            lastlow=curlow;
            lastlowpos=shift;
           }
         lasthigh=-1;
        }
     }
   for(shift=Bars-1; shift>=0; shift--)
     {                                   // Go through all the bars
      if(shift>=Bars-ExtDepth)         // If we are not at the beginning comparison bars,
         ExtMapBuffer[shift]=0.0;      //    then set the low buffer to 0
      else
        {                                // Otherwise:
         res=ExtMapBuffer2[shift];     //    - If the current bar has a high, set the low
         if(res!=0.0)                  //      buffer to contain the high
            ExtMapBuffer[shift]=res;
        }                                // Looks like this function brings the highs into the lows                                  
     }

   for(int shifta=0; shifta<=calc_NumBars; shifta++)
     {
      LastActive=-1;
      LastActivePos=-1;

      for(shift=shifta; shift<=Bars-ExtDepth; shift++)
        {
         if(ExtMapBuffer[shift]!=0.0)
           {
            if(LastActive > 0)
              {
               if(MathAbs(LastActive - ExtMapBuffer[shift])>=RequiredWaveHeight*Point)
                 {
                  AWStartPos=shift;
                  AWStart=ExtMapBuffer[shift];
                  AWEndPos=LastActivePos;
                  AWEnd=LastActive;
                  buff_str="ActiveWave"+(string)shift;
                  buff_str2="Fibo"+(string)shift;
                  //if(ObjectFind("ActiveWave") != 0)
                  // {
                  ObjectCreate(buff_str, OBJ_TREND, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
                  ObjectSet(buff_str, OBJPROP_STYLE, STYLE_SOLID);
                  ObjectSet(buff_str, OBJPROP_COLOR, Red);
                  ObjectSet(buff_str, OBJPROP_WIDTH, 2);
                  ObjectSet(buff_str, OBJPROP_RAY, false);
                  // }
                  //  else
                  //{
                  // ObjectCreate("ActiveWave", OBJ_TREND, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
                  // ObjectSet("ActiveWave", OBJPROP_STYLE, STYLE_SOLID);
                  //  ObjectSet("ActiveWave", OBJPROP_COLOR, Red);               
                  //  ObjectSet("ActiveWave", OBJPROP_WIDTH, 3);
                  //   ObjectSet("ActiveWave", OBJPROP_RAY, false);  
                  //  }
                  if(AWStart < AWEnd)
                    {
                     FiboL=AWStart;
                     FiboH=AWEnd;
                    }
                  else
                    {
                     FiboL=AWEnd;
                     FiboH=AWStart;
                    }
                  FiboLC=FiboL + (FiboH - FiboL)*0.25;
                  FiboLR=FiboL + (FiboH - FiboL)*0.382;
                  FiboHR=FiboL + (FiboH - FiboL)*0.618;
                  FiboHC=FiboL + (FiboH - FiboL)*0.75;
                  if(1==1)
                    {
                     ObjectCreate(buff_str2, OBJ_FIBO, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
                     ObjectSet(buff_str2, OBJPROP_STYLE, STYLE_DOT);
                     ObjectSet(buff_str2, OBJPROP_COLOR, Green);
                     ObjectSet(buff_str2, OBJPROP_WIDTH, 0.5);
                     ObjectSet(buff_str2, OBJPROP_FIBOLEVELS, 6);
                     ObjectSet(buff_str2, OBJPROP_RAY, false);
/*                ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+0, FiboL);
                  ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+1, FiboLC);
                  ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+2, FiboLR);
                  ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+3, FiboHR);
                  ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+4, FiboHC);
                  ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+6, FiboH); */
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+0, 0);
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+1, 0.25);
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+2, 0.382);
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+3, 0.618);
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+4, 0.75);
                     ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+5, 1);
                    }
                  else
                    {
                     ObjectMove(buff_str2, 0, Time[AWStartPos], AWStart);
                     ObjectMove(buff_str2, 1, Time[AWEndPos], AWEnd);
                    }
                  break;
                 }
              }
            LastActive=ExtMapBuffer[shift];
            LastActivePos=shift;
           }
        }
     }
   if(MarketInfo(Symbol(),MODE_SWAPLONG)>0) string swap="longs.";
   else swap="shorts.";
   if(MarketInfo(Symbol(),MODE_SWAPLONG)<0 && MarketInfo(Symbol(),MODE_SWAPSHORT)<0) swap="your broker. :(";
   double rsi=iRSI(Symbol(),1440,14,PRICE_CLOSE,0);
   Comment("Daily RSI= ",rsi,"\n",
           "Swap favors ",swap,"\n",
           "Fibo H: ",FiboH,"\n",
           "FiboHC: ",FiboHC,"\n",
           "FiboHR: ",FiboHR,"\n",
           "FiboLR: ",FiboLR,"\n",
           "FiboLC: ",FiboLC,"\n",
           "Fibo L: ",FiboL);
  }
//+------------------------------------------------------------------+