Ichimoku_sigTKSCcrossChiko

//+------------------------------------------------------------------+
//|                                                     Ichimoku.mq4 |
//|                      Copyright © 2004, MetaQuotes Software Corp. |
//|                                       http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
//mod2008fxtsd
#property copyright "Copyright © 2004, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net/"

#property indicator_chart_window
#property indicator_buffers 8
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 Tomato
#property indicator_color4 Gold
#property indicator_color5 Teal
#property indicator_color6 SandyBrown
#property indicator_color7 Thistle
#property indicator_color8 MediumTurquoise

#property  indicator_width3  3
#property  indicator_width4  4
#property  indicator_width5  1
#property  indicator_width8  2


//---- input parameters
extern int Tenkan=9;
extern int Kijun=26;
extern int Senkou=52;
extern int KumoShift= 26;
//extern bool Chinkou_line= false;
extern bool ChinkouTencan= false;
extern bool ChinkouKijun = false;

//---- buffers
double Tenkan_Buffer[];
double Kijun_Buffer[];
double SpanA_Buffer[];
double SpanB_Buffer[];
double Chinkou_Buffer[];
double SpanA2_Buffer[];
double SpanB2_Buffer[];
double TKcross_Buffer[];

double Chinkou_Cross_Buffer[];

//----
int a_begin;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//----
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,Tenkan_Buffer);
   SetIndexDrawBegin(0,Tenkan-1);
   SetIndexLabel(0,"Tenkan Sen");
//----
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,Kijun_Buffer);
   SetIndexDrawBegin(1,Kijun-1);
   SetIndexLabel(1,"Kijun Sen");
//----
   a_begin=Kijun; if(a_begin<Tenkan) a_begin=Tenkan;
//   SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_DOT);
   SetIndexBuffer(2,SpanA_Buffer);
   SetIndexStyle (2, DRAW_ARROW);
   SetIndexArrow(2, 115);  //romb
   SetIndexEmptyValue(2, EMPTY_VALUE);   
   SetIndexLabel(2, "KumCross");   //SenkouABCross;KumoCroos
   SetIndexDrawBegin(2,Kijun+a_begin-1);

//   SetIndexShift(2,Kijun);
//   SetIndexLabel(2,NULL);


   SetIndexStyle(5,DRAW_LINE);
   SetIndexBuffer(5,SpanA2_Buffer);
   SetIndexDrawBegin(5,Kijun+a_begin-1);
   SetIndexShift(5,KumoShift);
   SetIndexLabel(5,"Senkou Span A");
//----
//   SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_DOT);
   SetIndexBuffer(7,SpanB_Buffer);
   SetIndexDrawBegin(7,Kijun+Senkou-1);
//  SetIndexShift(3,Kijun);
//  SetIndexLabel(3,NULL);
   SetIndexStyle (7, DRAW_ARROW);
   SetIndexArrow(7, 158);
   SetIndexEmptyValue(3, EMPTY_VALUE);   
   SetIndexLabel(7, "ChikoCross");   //ChinkouPriceCross


   SetIndexStyle(6,DRAW_LINE);
   SetIndexBuffer(6,SpanB2_Buffer);
   SetIndexDrawBegin(6,Kijun+Senkou-1);
   SetIndexShift(6,KumoShift);
   SetIndexLabel(6,"Senkou Span B");
//----

   SetIndexBuffer(4,Chinkou_Buffer);   
   SetIndexDrawBegin(4,Kijun-1);
//   SetIndexStyle (4, DRAW_ARROW);
//   SetIndexArrow (4, 158);
//   SetIndexShift(4,NULL);
//   SetIndexEmptyValue(4, EMPTY_VALUE);   
//   SetIndexLabel(4, "ChinkouPriceCross");   

//if(Chinkou_line){   }
   SetIndexStyle(4,DRAW_LINE);
   SetIndexShift(4,-KumoShift);
   SetIndexLabel(4,"Chiko Span");//Chinkou Span"


//----

   SetIndexBuffer(3,TKcross_Buffer);
   SetIndexDrawBegin(3,Kijun-1);
   SetIndexStyle (3, DRAW_ARROW);
   SetIndexArrow (3, 158);
   SetIndexEmptyValue(3, EMPTY_VALUE);   
   SetIndexLabel(3, "TenkanKijunCross");   




   return(0);
  }
//+------------------------------------------------------------------+
//| Ichimoku Kinko Hyo                                               |
//+------------------------------------------------------------------+
int start()
  {
   int    i,k;
   int    counted_bars=IndicatorCounted();
   double high,low,price;
//----
   if(Bars<=Tenkan || Bars<=Kijun || Bars<=Senkou) return(0);
//---- initial zero
   if(counted_bars<1)
     {
      for(i=1;i<=Tenkan;i++)    Tenkan_Buffer[Bars-i]=0;
      for(i=1;i<=Kijun;i++)     Kijun_Buffer[Bars-i]=0;
      for(i=1;i<=a_begin;i++) { SpanA_Buffer[Bars-i]=0; SpanA2_Buffer[Bars-i]=0; }
      for(i=1;i<=Senkou;i++)  { SpanB_Buffer[Bars-i]=0; SpanB2_Buffer[Bars-i]=0; }
     }
//---- Tenkan Sen
   i=Bars-Tenkan;
   if(counted_bars>Tenkan) i=Bars-counted_bars-1;
   while(i>=0)
     {
      high=High[i]; low=Low[i]; k=i-1+Tenkan;
      while(k>=i)
        {
         price=High[k];
         if(high<price) high=price;
         price=Low[k];
         if(low>price)  low=price;
         k--;
        }
      Tenkan_Buffer[i]=(high+low)/2;
      i--;
     }
//---- Kijun Sen
   i=Bars-Kijun;
   if(counted_bars>Kijun) i=Bars-counted_bars-1;
   while(i>=0)
     {
      high=High[i]; low=Low[i]; k=i-1+Kijun;
      while(k>=i)
        {
         price=High[k];
         if(high<price) high=price;
         price=Low[k];
         if(low>price)  low=price;
         k--;
        }
      Kijun_Buffer[i]=(high+low)/2;
      i--;
     }
//---- Senkou Span A
   i=Bars-a_begin+1;
   if(counted_bars>a_begin-1) i=Bars-counted_bars-1;
   while(i>=0)
     {
      price=(Kijun_Buffer[i]+Tenkan_Buffer[i])/2;
      SpanA2_Buffer[i]=price;
//    SpanA_Buffer[i]=price;
      i--;
     }
//---- Senkou Span B
   i=Bars-Senkou;
   if(counted_bars>Senkou) i=Bars-counted_bars-1;
   while(i>=0)
     {
      high=High[i]; low=Low[i]; k=i-1+Senkou;
      while(k>=i)
        {
         price=High[k];
         if(high<price) high=price;
         price=Low[k];
         if(low>price)  low=price;
         k--;
        }
      price=(high+low)/2;
      SpanB2_Buffer[i]=price;
      
    
      i--;
     }
//---- Chinkou Span

   i=Bars-Senkou;
   if(counted_bars>Senkou) i=Bars-counted_bars-1;

//   i=Bars-1;
//   if(counted_bars>1) i=Bars-counted_bars-1;

   while(i>=0) { 
      
      double Range = 0.0;
      for (int counter=i ;counter<=i+9;counter++) 
      Range += MathAbs(High[counter]-Low[counter]);
      Range /= 10;

   if (Tenkan_Buffer[i+1]<=Kijun_Buffer[i+1] && Tenkan_Buffer[i]>Kijun_Buffer[i])
       TKcross_Buffer[i] =Low[i]-0.75*Range;
   if (Tenkan_Buffer[i+1]>=Kijun_Buffer[i+1] && Tenkan_Buffer[i]<Kijun_Buffer[i])
       TKcross_Buffer[i] =High[i]+0.75*Range;

   if (SpanA2_Buffer[i+1]<=SpanB2_Buffer[i+1] && SpanA2_Buffer[i]>SpanB2_Buffer[i])
       SpanA_Buffer[i] =Low[i]-Range;
   if (SpanA2_Buffer[i+1]>=SpanB2_Buffer[i+1] && SpanA2_Buffer[i]<SpanB2_Buffer[i])
       SpanA_Buffer[i] =High[i]+Range;



  if (ChinkouTencan)Chinkou_Buffer[i]=Tenkan_Buffer[i];
  else 
  if (ChinkouKijun) Chinkou_Buffer[i]=Kijun_Buffer[i];
  else   Chinkou_Buffer[i]=Close[i];


  if (Chinkou_Buffer[KumoShift+i+1]<=Chinkou_Buffer[i+1]&&Chinkou_Buffer[KumoShift+i]>Chinkou_Buffer[i])
         SpanB_Buffer[i] =High[i]+0.5*Range;

  if (Chinkou_Buffer[KumoShift+i+1]>=Chinkou_Buffer[i+1]&&Chinkou_Buffer[KumoShift+i]<Chinkou_Buffer[i])
         SpanB_Buffer[i] =Low[i]-0.5*Range;

   i--; }
//----
   return(0);
  }
//+------------------------------------------------------------------+