turtlechanneli

//+------------------------------------------------------------------+
//|                              Turtle Channel Method(Donchain).mq4 |
//|                                           djindyFX@sbcglobal.net |
//|      http://www.learncurrencytrading.com/fxforum/blogs/djindyfx/ |
//+------------------------------------------------------------------+
#property copyright "djindyFX@sbcglobal.com"
#property link      "http://www.learncurrencytrading.com/fxforum/blogs/djindyfx/"
//+--------------------------------------------------------------------------------------------------------------------------+
//| Original Donchain channel code posted here: http://codebase.mql4.com/ru/1317                                             |
//| Periods: number of bars used for calculating the Donchian channels                                                       | 
//|            3 Seperate Channels are provided, Long term, Medium, and Short Term                                           |
//| Extremes: 1 uses the highest high and the lowest low to create the Channel                                               |
//|            0 uses the open of the extremes bar -> the open point of a bar (as well as the close                          |
//|            are the points of maximum probability of concentration of the prices during the bar                           |
//|            3 uses the median point most extreme open and lowest low or highest high                                      |
//| Margins: is the percent of the channel subtrated from the channel border before printing it, negative values are allowed |
//| Advance: the numbers of bars ahead                                                                                       | 
//+--------------------------------------------------------------------------------------------------------------------------+
#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 White
#property indicator_color2 White
#property indicator_color3 Yellow
#property indicator_color4 Yellow
#property indicator_color5 Red
#property indicator_color6 Red
//---- input parameters
extern int       LngPeriod=50;
extern int       MedPeriod=20;
extern int       ShtPeriod=10;
extern int       Extremes=1;
extern int       Margins=0;
extern int       Advance=0;
// - Buffers
double Channel1[];
double Channel2[];
double Channel3[];
double Channel4[];
double Channel5[];
double Channel6[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   //Comment("Turtle Channel is running");
   string LngTop, LngBottom, MedTop, MedBottom, ShtTop, ShtBottom;
//---- indicators
   SetIndexStyle(0,DRAW_LINE,STYLE_DOT);
   SetIndexStyle(1,DRAW_LINE,STYLE_DOT);
   SetIndexStyle(2,DRAW_LINE,STYLE_DASH);
   SetIndexStyle(3,DRAW_LINE,STYLE_DASH);
   SetIndexStyle(4,DRAW_LINE,STYLE_DASHDOT);
   SetIndexStyle(5,DRAW_LINE,STYLE_DASHDOT);
   //
   SetIndexBuffer(0,Channel1);
   SetIndexBuffer(1,Channel2);
   SetIndexBuffer(2,Channel3);
   SetIndexBuffer(3,Channel4);
   SetIndexBuffer(4,Channel5);
   SetIndexBuffer(5,Channel6);
//----
   LngTop="Long Top";
   LngBottom="Long Bottom";
   MedTop="Medium Top";
   MedBottom="Medium Bottom";
   ShtTop="Short Top";
   ShtBottom="Short Bottom";
//----
   IndicatorShortName(LngTop);
   IndicatorShortName(LngBottom);
   IndicatorShortName(MedTop);
   IndicatorShortName(MedBottom);
   IndicatorShortName(ShtTop);
   IndicatorShortName(ShtBottom);
//-----
   SetIndexLabel(0,LngTop);
   SetIndexLabel(1,LngBottom);
   SetIndexLabel(2,MedTop);
   SetIndexLabel(3,MedBottom);
   SetIndexLabel(4,ShtTop);
   SetIndexLabel(5,ShtBottom);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int   counted_bars=IndicatorCounted();
   int max_bars;
//----
   if    (counted_bars < 0) return(-1);
   if    (counted_bars>0) counted_bars--;
   max_bars= Bars-1;
   double   sminl=0, smaxl=0, SsMinl=0, SsMaxl=0;
   double   sminm=0, smaxm=0, SsMinm=0, SsMaxm=0;
   double   smins=0, smaxs=0, SsMins=0, SsMaxs=0;
//----
   for(int shift=0; shift< max_bars; shift++)
     { //begin for loop
      if(Extremes ==1)
        {
         SsMaxl=High[iHighest(NULL,0,MODE_HIGH,LngPeriod,shift)];
         SsMinl=Low[iLowest(NULL,0,MODE_LOW,LngPeriod,shift)];
         SsMaxm=High[iHighest(NULL,0,MODE_HIGH,MedPeriod,shift)];
         SsMinm=Low[iLowest(NULL,0,MODE_LOW,MedPeriod,shift)];
         SsMaxs=High[iHighest(NULL,0,MODE_HIGH,ShtPeriod,shift)];
         SsMins=Low[iLowest(NULL,0,MODE_LOW,ShtPeriod,shift)];
        }
      else if (Extremes ==3)
           {
            SsMaxl=(Open[iHighest(NULL,0,MODE_OPEN,LngPeriod,shift)]+High[iHighest(NULL,0,MODE_HIGH,LngPeriod,shift)])/2;
            SsMinl=(Open[iLowest(NULL,0,MODE_OPEN,LngPeriod,shift)]+Low[iLowest(NULL,0,MODE_LOW,LngPeriod,shift)])/2;
            SsMaxm=(Open[iHighest(NULL,0,MODE_OPEN,MedPeriod,shift)]+High[iHighest(NULL,0,MODE_HIGH,MedPeriod,shift)])/2;
            SsMinm=(Open[iLowest(NULL,0,MODE_OPEN,MedPeriod,shift)]+Low[iLowest(NULL,0,MODE_LOW,MedPeriod,shift)])/2;
            SsMaxs=(Open[iHighest(NULL,0,MODE_OPEN,ShtPeriod,shift)]+High[iHighest(NULL,0,MODE_HIGH,ShtPeriod,shift)])/2;
            SsMins=(Open[iLowest(NULL,0,MODE_OPEN,ShtPeriod,shift)]+Low[iLowest(NULL,0,MODE_LOW,ShtPeriod,shift)])/2;
           }
         else
           {
            SsMaxl=Open[iHighest(NULL,0,MODE_OPEN,LngPeriod,shift)];
            SsMinl=Open[iLowest(NULL,0,MODE_OPEN,LngPeriod,shift)];
            SsMaxm=Open[iHighest(NULL,0,MODE_OPEN,MedPeriod,shift)];
            SsMinm=Open[iLowest(NULL,0,MODE_OPEN,MedPeriod,shift)];
            SsMaxs=Open[iHighest(NULL,0,MODE_OPEN,ShtPeriod,shift)];
            SsMins=Open[iLowest(NULL,0,MODE_OPEN,ShtPeriod,shift)];
           }
      smaxl=SsMaxl-(SsMaxl-SsMinl)*Margins/100;
      sminl=SsMinl+(SsMaxl-SsMinl)*Margins/100;
      smaxm=SsMaxm-(SsMaxm-SsMinm)*Margins/100;
      sminm=SsMinm+(SsMaxm-SsMinm)*Margins/100;
      smaxs=SsMaxs-(SsMaxs-SsMins)*Margins/100;
      smins=SsMins+(SsMaxs-SsMins)*Margins/100;
      //
      Channel1[shift-Advance]=smaxl;
      Channel2[shift-Advance]=sminl;
      Channel3[shift-Advance]=smaxm;
      Channel4[shift-Advance]=sminm;
      Channel5[shift-Advance]=smaxs;
      Channel6[shift-Advance]=smins;
     }//end for loop
//----
   return(0);
  }
//+------------------------------------------------------------------+