//+------------------------------------------------------------------+
//|                                      Identifier_period PTECZ.mq4 |
//|                                                            Dadas |
//|                                              fx-nvatc.comeze.com |
//+------------------------------------------------------------------+
#property copyright "Dadas"
#property link      "fx-nvatc.comeze.com"

#property indicator_chart_window



// PTECZ_Label section

extern int windows_Indicator_PTECZ = 0;    
extern string Position_Indicators = ">>> Coordinates on corner <<<";
extern int If_PTECZ_Label_Corner = 3;
extern int offsetY=9; // vertical indent
extern int offsetX=240; // horizontal indent of all squares
extern color textfontColor = Snow;
extern int textfontSize=7; // font size text 
extern int LED_Size=18;

//Definition of size, shape and position indicators
 // font size rectangle          
int scaleY=17; // vertical interval
int scaleX=21; // horizontal interval at which the squares are created

double winding_act=108;// type of symbol

//int period[]={1,5,15,30,60,240,1440,10080,43200};
int period[]={43200,10080,1440,240,60,30,15,5,1};
string periodString[]={"MN1","W1","D1","H4","H1","M30","M15","M5","M1"};
//string signalNameString[]={"PTECZ","DOJI","TREND"}; 
string signalNameString[]={"TREND","PTECZ","DOJI"}; 

color If_PTECZ_Label_Color_UP = Lime;
color If_PTECZ_Label_Color_DOWN = Brown;
color If_No_PTECZ_Color = DimGray;

//int If_PTECZ_Label_FontSize = 12;

int PTECZ_Label_Index = 1;

int MN_PTECZ_Label_Tf  = 43200;
int W1_PTECZ_Label_Tf  = 10080;
int D1_PTECZ_Label_Tf  = 1440;
int H4_PTECZ_Label_Tf  = 240;
int H1_PTECZ_Label_Tf  = 60;
int M30_PTECZ_Label_Tf  = 30;
int M15_PTECZ_Label_Tf  = 15;
int M5_PTECZ_Label_Tf  = 5;
int M1_PTECZ_Label_Tf  = 1;

string MN_PTECZ_Label_String  = "MN";
string W1_PTECZ_Label_String  = "W1";
string D1_PTECZ_Label_String  = "D1";
string H4_PTECZ_Label_String  = "H4";
string H1_PTECZ_Label_String  = "H1";
string M30_PTECZ_Label_String  = "M30";
string M15_PTECZ_Label_String  = "M15";
string M5_PTECZ_Label_String  = "M5";
string M1_PTECZ_Label_String  = "M1";

int MN_YDISTANCE,W1_YDISTANCE,D1_YDISTANCE,H4_YDISTANCE,H1_YDISTANCE,M30_YDISTANCE,
M15_YDISTANCE,M5_YDISTANCE,M1_YDISTANCE;



//PTECZ_Candle section:

extern string PTECZ_Candle_section = ">>> Tf=0_PTECZ visible in all Tf-ArrowOffset=Distance to minimum bar <<<";
                                         
extern bool Show_PTECZ_Candle = true;
extern int   PTECZ_Candle_Tf  = 0;
extern int   PTECZ_Candle_BarsBack = 1000;
extern color PTECZ_Candle_ArrowColor = OrangeRed;
extern int PTECZ_Candle_ArrowOffset = 0;

int   PTECZ_Candle_ArrowCode = 119;
int PTECZ_Candle_Arrow;
double PTECZ_Candle_price;
//----

int   Custom_Zone_Candle_Frame = 2 ;

datetime Custom_Zone_Candle_time1,Custom_Zone_Candle_time2;
double Custom_Zone_Candle_price1,Custom_Zone_Candle_price2,Custom_Zone_Candle_price3,
Custom_Zone_Candle_price4,Custom_Zone_Candle_price5,Custom_Zone_Candle_price6;


//Candle Index section:
extern bool Show_Candle_Index = false;
extern color Candle_Index_ArrowColor = Snow;

int   Candle_Index_ArrowCode = 158;
int Candle_Index_Arrow;
double Candle_Index_price;
//----

// Calc Trend Section:

string ___IndicatorTrendSetup___=">>> Indicator TREND Setup:<<<";

// Period on Days. (J. Welles Wilder)
int ADX_Period=14;
int ADX_Price=PRICE_CLOSE;

//Step_Psar: Factor Acceleration
double Step_Psar=0.02;
double Max_Psar=0.2;

extern string ___DisplayTrendSetup___=">>> Display TREND Setup:<<<";
extern color UpColor=Lime;
extern color DownColor=Crimson;
extern color FlatColor=Yellow;

double Psar;
double PADX,NADX;
string TimeFrameStr;
double IndVal[9];

int tfnumber=9;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+

int init()
  {
 //PTECZ_Candle section:

  PTECZ_Candle_Arrow = PTECZ_Candle_BarsBack;
   if(PTECZ_Candle_Tf==0){PTECZ_Candle_Tf=Period();}

  for(int PTECZ_Candle_i = 1 ; PTECZ_Candle_i < PTECZ_Candle_Arrow ; PTECZ_Candle_i++)
  {
      PTECZ_Candle_CreateArrow("PTECZ_Candle = "+PTECZ_Candle_i ,PTECZ_Candle_ArrowColor,PTECZ_Candle_ArrowCode);
  }
//----
  
// Candle Index section:

   Candle_Index_Arrow = Bars;

  for(int Candle_Index_i = 1 ; Candle_Index_i < Candle_Index_Arrow ; Candle_Index_i++)
  {
      Candle_Index_CreateArrow("Candle_Index = "+Candle_Index_i ,Candle_Index_ArrowColor,Candle_Index_ArrowCode);
  }
//----


// PTECZ_Label section  ( COORDINATED (0,0) IN CORNER 3.LOWER RIGHT).

 for(int x=0;x<9;x++)
      for(int y=0;y<3;y++)
      {
         ObjectCreate("signal"+x+y,OBJ_LABEL,windows_Indicator_PTECZ,0,0,0,0);
         ObjectSet("signal"+x+y,OBJPROP_CORNER,If_PTECZ_Label_Corner);
         ObjectSet("signal"+x+y,OBJPROP_XDISTANCE,x*scaleX+offsetX);
         ObjectSet("signal"+x+y,OBJPROP_YDISTANCE,y*scaleY+offsetY);
         ObjectSetText("signal"+x+y,CharToStr(108),LED_Size,"Wingdings",DimGray);
      }
 
   for( x=0;x<9;x++)
   {
      ObjectCreate("textPeriod"+x,OBJ_LABEL,windows_Indicator_PTECZ,0,0,0,0);
      ObjectSet("textPeriod"+x,OBJPROP_CORNER,If_PTECZ_Label_Corner);
      ObjectSet("textPeriod"+x,OBJPROP_XDISTANCE,x*scaleX+offsetX+4);
      ObjectSet("textPeriod"+x,OBJPROP_YDISTANCE,offsetY+59);
      ObjectSetText("textPeriod"+x,periodString[x],textfontSize,"Tahoma",textfontColor);
   }
   
   for( y=0;y<3;y++)
   {
      ObjectCreate("textSignal"+y,OBJ_LABEL,windows_Indicator_PTECZ,0,0,0,0);
      ObjectSet("textSignal"+y,OBJPROP_CORNER,If_PTECZ_Label_Corner);
      ObjectSet("textSignal"+y,OBJPROP_XDISTANCE,offsetX+189);
      ObjectSet("textSignal"+y,OBJPROP_YDISTANCE,y*scaleY+offsetY+8);
      ObjectSetText("textSignal"+y,signalNameString[y],textfontSize,"Tahoma",textfontColor);
     
   }

     
      
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {


//Candle Index section:
  Candle_Index_Arrow = Bars;
  for(int Candle_Index_i = 1 ; Candle_Index_i < Candle_Index_Arrow ; Candle_Index_i++)
  {
     ObjectDelete("Candle_Index = "+Candle_Index_i);      
  }  
  
 //----  
 
 //PTECZ_Candle section:
  PTECZ_Candle_Arrow = PTECZ_Candle_BarsBack;
  for(int PTECZ_Candle_i = 1 ; PTECZ_Candle_i < PTECZ_Candle_Arrow ; PTECZ_Candle_i++)
  {
     ObjectDelete("PTECZ_Candle = "+PTECZ_Candle_i); 
  }  
 

// PTECZ_Label section

   
 for(int x=0;x<9;x++)
         for(int y=0;y<3;y++)
     {
         ObjectDelete("signal"+x+y);
     }
   
      for( x=0;x<9;x++)
    {
      ObjectDelete("textPeriod"+x);
    }
   
      for( y=0;y<3;y++)
   {
       ObjectDelete("textSignal"+y);
      }    
   
   
   
//----

   return(0);
  }
  
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {   
 
// PTECZ_Label section

if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
//PTECZ
 ObjectSetText("signal01",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

   }
   }
   
if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
//PTECZ
 ObjectSetText("signal01",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

   }
   }
  if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 //DOJI
  ObjectSetText("signal02",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

 } 
 } 
   
 if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,MN_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  //DOJI
  ObjectSetText("signal02",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

 } 
 }
 
 //----
  
if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
 
 ObjectSetText("signal11",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
  }
 
  }
  
   
if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal11",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
  }
  }

if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal12",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

 } 
 } 

if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,W1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal12",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

 } 
 }
 
 //----
  
    
if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
 
 ObjectSetText("signal21",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

   }
   }
   
if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal21",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

   }
   }
  if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {

  ObjectSetText("signal22",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP);  

 } 
 } 
   
 if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,D1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal22",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
 } 
 }
 
 //----
  
   
if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 

 ObjectSetText("signal31",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
   }
   }
   
if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {

 ObjectSetText("signal31",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
   }
   }
  if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal32",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
 } 
 } 
   
 if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,H4_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal32",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
 } 
 }

 
 //----
 
if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
 
 ObjectSetText("signal41",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
   }
   }
   
if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal41",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
    }
   }
  if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal42",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
 } 
 } 
   
 if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,H1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal42",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN);
 
 } 
 }
 
 //----
 
if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
 
 ObjectSetText("signal51",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
   }
   }
   
if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal51",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

   }
   }
  if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal52",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

 } 
 } 
   
 if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M30_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal52",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN);
 
 } 
 }
 
 //----
 
   
if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 

 ObjectSetText("signal61",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
   }
   }
   
if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal61",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN);

   }
   }
  if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal62",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 

 } 
 } 
   
 if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M15_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal62",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
 } 
 }
 
 //----
 
if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
  
 ObjectSetText("signal71",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP);

   }
   }
   
if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
 
 ObjectSetText("signal71",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
   }
   }
  if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
 
  ObjectSetText("signal72",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
 } 
 } 
   
 if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M5_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal72",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
 } 
 }
 
 //----
 
   
if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>=iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)>=iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   { 
 
 ObjectSetText("signal81",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP); 
 
   }
   }
   
if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
 {
if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<=iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)&&iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)<=iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)) 
   {
  
 ObjectSetText("signal81",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 

   }
   }
  if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)>iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal82",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_UP);  

 } 
 } 
   
 if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index)==iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index))
 {
   if(iClose(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1)<iOpen(NULL,M1_PTECZ_Label_Tf,PTECZ_Label_Index+1))
    {
  
  ObjectSetText("signal82",CharToStr(winding_act),LED_Size,"Wingdings",If_PTECZ_Label_Color_DOWN); 
 
 } 
 }
 
 //----

// Candle Index section:

if(Show_Candle_Index==true)
  {
    Candle_Index_Arrow = Bars;
  
  if(Candle_Index_IsNewBar())
   {
   
     for(int Candle_Index_i = 1 ; Candle_Index_i < Candle_Index_Arrow ; Candle_Index_i++)
     {
      Candle_Index_price = Low[Candle_Index_i]-5*Point ;
         
      Candle_Index_SetArrow("Candle_Index = "+Candle_Index_i ,Candle_Index_price,Time[Candle_Index_i]);      
     }   
   }
   }
 //---- 
  
 // PTECZ_Candle section:
 
if(Show_PTECZ_Candle==true)
  {
    PTECZ_Candle_Arrow = PTECZ_Candle_BarsBack;
  
  if(PTECZ_Candle_IsNewBar())
   {
   
     for(int PTECZ_Candle_i = 1 ; PTECZ_Candle_i < PTECZ_Candle_Arrow ; PTECZ_Candle_i++)
     {
      PTECZ_Candle_price = Low[PTECZ_Candle_i]-PTECZ_Candle_ArrowOffset*Point ;
//----      
 if(iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)>iOpen(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1))
 {
if(iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)>=iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i)&&iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i)>=iOpen(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)) 
   { 
   if(PTECZ_Candle_Tf==Period())
   {       
      PTECZ_Candle_SetArrow("PTECZ_Candle = "+PTECZ_Candle_i ,PTECZ_Candle_price,Time[PTECZ_Candle_i]);      
    }
    }
    } 
 //----     
 //---- 
  if(iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)<iOpen(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1))
 {
if(iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)<=iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i)&&iClose(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i)<=iOpen(NULL,PTECZ_Candle_Tf,PTECZ_Candle_i+1)) 
   {
      if(PTECZ_Candle_Tf==Period())
   { 
       PTECZ_Candle_SetArrow("PTECZ_Candle = "+PTECZ_Candle_i ,PTECZ_Candle_price,Time[PTECZ_Candle_i]);      
    }
    }
   } 
 //----     
     }   
   }
   }
 //----
 
 //+------------------------------------------------------------------+
// Calc Trend Section:
//+------------------------------------------------------------------+


 //for(int a=1;a<tfnumber+1;a++)
  //    ObjectDelete("Ind"+a);



 //  for(int j=1;j<tfnumber+1;j++)
 //     {
 //        ObjectCreate("Ind"+j,OBJ_LABEL,0,0,0,0,0);
 //        ObjectSet("Ind"+j,OBJPROP_CORNER,Corner);
 //        ObjectSet("Ind"+j,OBJPROP_XDISTANCE,(j-1)*23+15);
 //        ObjectSet("Ind"+j,OBJPROP_YDISTANCE,30);
 //        ObjectSetText("Ind"+j,CharToStr(110),12,"Wingdings",White);
 //     }
      
    
   for(int w=1;w<tfnumber+1;w++)
      {
      
      PADX=iADX(NULL,period[w-1],ADX_Period ,ADX_Price,1,0);
      NADX=iADX(NULL,period[w-1],ADX_Period ,ADX_Price,2,0);
      Psar=iSAR(NULL,period[w-1],Step_Psar,Max_Psar,0) ;
        if (Psar < iClose(NULL,period[w-1],0) && PADX > NADX)
        {
        IndVal[w-1]=1;
        }
        else if (Psar > iClose(NULL,period[w-1],0) && NADX > PADX)
        {
        IndVal[w-1]=-1;
        }
        else IndVal[w-1]=0;
      }
   
   
 for(int k=0;k<tfnumber;k++)
      {
  
         if(IndVal[k]==-1) ObjectSetText("signal"+k+0,CharToStr(winding_act),LED_Size,"Wingdings",DownColor);
         if(IndVal[k]==0) ObjectSetText("signal"+k+0,CharToStr(winding_act),LED_Size,"Wingdings",FlatColor);
         if(IndVal[k]==1) ObjectSetText("signal"+k+0,CharToStr(winding_act),LED_Size,"Wingdings",UpColor);
      }  


 
//----
   return(0);
  }
//+------------------------------------------------------------------+
// Candle Index section:
//+------------------------------------------------------------------+


void Candle_Index_CreateArrow(string Candle_Index_name,color Candle_Index_c,int Candle_Index_code)
{
    ObjectCreate(Candle_Index_name ,OBJ_ARROW,0,0,0);
    ObjectSet(Candle_Index_name, OBJPROP_ARROWCODE,Candle_Index_code);
    ObjectSet(Candle_Index_name ,OBJPROP_COLOR,Candle_Index_c);
}
//+------------------------------------------------------------------+
void Candle_Index_SetArrow(string Candle_Index_name,double Candle_Index_price,datetime Candle_Index_time)
{
    ObjectSet(Candle_Index_name, OBJPROP_PRICE1,Candle_Index_price);
    ObjectSet(Candle_Index_name, OBJPROP_TIME1,Candle_Index_time);
}

//+------------------------------------------------------------------+

bool Candle_Index_IsNewBar()
{ 
  static datetime Candle_Index_prevTime1 = -1;
  
  if(Candle_Index_prevTime1 != Time[6])
  { 
   Candle_Index_prevTime1 = Time[6]; 
       
   return(true);  
  } 

  return(false); 
}
//+------------------------------------------------------------------+



//+------------------------------------------------------------------+
// PTECZ_Candle section:
//+------------------------------------------------------------------+



void PTECZ_Candle_CreateArrow(string PTECZ_Candle_name,color PTECZ_Candle_c,int PTECZ_Candle_code)
{
    ObjectCreate(PTECZ_Candle_name ,OBJ_ARROW,0,0,0);
    ObjectSet(PTECZ_Candle_name, OBJPROP_ARROWCODE,PTECZ_Candle_code);
    ObjectSet(PTECZ_Candle_name ,OBJPROP_COLOR,PTECZ_Candle_c);
}
//+------------------------------------------------------------------+
void PTECZ_Candle_SetArrow(string PTECZ_Candle_name,double PTECZ_Candle_price,datetime PTECZ_Candle_time)
{
    ObjectSet(PTECZ_Candle_name, OBJPROP_PRICE1,PTECZ_Candle_price);
    ObjectSet(PTECZ_Candle_name, OBJPROP_TIME1,PTECZ_Candle_time);
}

//+------------------------------------------------------------------+

bool PTECZ_Candle_IsNewBar()
{ 
  static datetime PTECZ_Candle_prevTime1 = -1;
  
  if(PTECZ_Candle_prevTime1 != Time[6])
  { 
   PTECZ_Candle_prevTime1 = Time[6]; 
       
   return(true);  
  } 

  return(false); 
}


//+------------------------------------------------------------------+