//|----------------------------------------------------------------------------|
//| Percent Change U.S.Stocks.mq4                                              |
//| Автор: Димон Бармен © Copyright 2009                                       |             
//| ICQ: 241448448                                                             |
//|----------------------------------------------------------------------------|
//| Версия: 12.02.2009                                                         |
//| Готовность: 100%                                                           |
//| Тестирование: Проведено 100%                                               |
//| Описание: Индикатор процентного изменения цены за день американских акций  | 
//| входящих в индекс Dow Jones а также важнейших мировых индексов             |   
//|----------------------------------------------------------------------------|
//| Параметры: Ниже                                                            |
//|----------------------------------------------------------------------------|
#property copyright "Димон Бармен © Copyright 2009"
#property indicator_chart_window
//------------------------------Параметры--------------------------------- 1 --| 
extern color BullishColor=DarkOliveGreen;
extern color BearishColor=Maroon;
extern color NeutralColor=DimGray;
//-----------------------Инициализация и удаление------------------------- 2 --| 
int init()
   {
   ObjectCreate("Процент1",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент2",OBJ_LABEL,0,0,0,0,0); 
   ObjectCreate("Процент3",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Процент4",OBJ_LABEL,0,0,0,0,0); 
   ObjectCreate("Процент5",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Процент6",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент7",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент8",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент9",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент10",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент11",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент12",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент13",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент14",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент15",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент16",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент17",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент18",OBJ_LABEL,0,0,0,0,0); 
   ObjectCreate("Процент19",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент20",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент21",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент22",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент23",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент24",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент25",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент26",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент27",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент28",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент29",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент30",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент31",OBJ_LABEL,0,0,0,0,0); 
   ObjectCreate("Процент32",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент33",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент34",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент35",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент36",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Процент37",OBJ_LABEL,0,0,0,0,0);
          
   ObjectCreate("Надпись1",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись2",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись3",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Надпись4",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись5",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись6",OBJ_LABEL,0,0,0,0,0);
   ObjectCreate("Надпись7",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись8",OBJ_LABEL,0,0,0,0,0);  
   ObjectCreate("Надпись9",OBJ_LABEL,0,0,0,0,0);  
   return(0);
   return(0);
   }

int deinit()
   {
   ObjectDelete ("Процент1");
   ObjectDelete ("Процент2");
   ObjectDelete ("Процент3");
   ObjectDelete ("Процент4");
   ObjectDelete ("Процент5");
   ObjectDelete ("Процент6");
   ObjectDelete ("Процент7");
   ObjectDelete ("Процент8");
   ObjectDelete ("Процент9");
   ObjectDelete ("Процент10");
   ObjectDelete ("Процент11");
   ObjectDelete ("Процент12");
   ObjectDelete ("Процент13");
   ObjectDelete ("Процент14");
   ObjectDelete ("Процент15");
   ObjectDelete ("Процент16");
   ObjectDelete ("Процент17");
   ObjectDelete ("Процент18");
   ObjectDelete ("Процент19");
   ObjectDelete ("Процент20");
   ObjectDelete ("Процент21");
   ObjectDelete ("Процент22");
   ObjectDelete ("Процент23");
   ObjectDelete ("Процент24");
   ObjectDelete ("Процент25");
   ObjectDelete ("Процент26");
   ObjectDelete ("Процент27");
   ObjectDelete ("Процент28");  
   ObjectDelete ("Процент29");
   ObjectDelete ("Процент30");
   ObjectDelete ("Процент31"); 
   ObjectDelete ("Процент32");
   ObjectDelete ("Процент33");
   ObjectDelete ("Процент34");
   ObjectDelete ("Процент35");      
   ObjectDelete ("Процент36"); 
   ObjectDelete ("Процент37"); 
      
   ObjectDelete ("Надпись1");
   ObjectDelete ("Надпись2");
   ObjectDelete ("Надпись3");
   ObjectDelete ("Надпись4");
   ObjectDelete ("Надпись5");
   ObjectDelete ("Надпись6");
   ObjectDelete ("Надпись7");
   ObjectDelete ("Надпись8");
   ObjectDelete ("Надпись9");
   return(0);
   }  
//-----------------Вычисление процента и присвоение цвета----------------- 3 --|  
int start()
  {
  double CH1;   
      if (iClose("DJI" , PERIOD_D1,  1) == 0)
      {
      CH1= 0.0000;
      }
      else 
      { 
      CH1 = (( (iClose("DJI" ,PERIOD_D1  ,0) * 100 ) /
      iClose("DJI" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor1 = NeutralColor; 
      if ( CH1 > 0 )
         lColor1 = BullishColor;         
      if ( CH1 < 0 )   
         lColor1 = BearishColor;
  
  double CH2;   
      if (iClose("S&P500" , PERIOD_D1,  1) == 0)
      {
      CH2= 0.0000;
      }
      else 
      {         
      CH2 =  (( (iClose("S&P500" ,PERIOD_D1  ,0) * 100 ) /
      iClose("S&P500" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor2 = NeutralColor;
      if ( CH2 > 0 )
         lColor2 = BullishColor;         
      if ( CH2 < 0 )   
         lColor2 = BearishColor;
  
  double CH3;   
      if (iClose("NQCOMP" , PERIOD_D1,  1) == 0)
      {
      CH3= 0.0000;
      }
      else 
      {        
      CH3 =  (( (iClose("NQCOMP" ,PERIOD_D1  ,0) * 100 ) /
      iClose("NQCOMP" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor3 = NeutralColor;
      if ( CH3 > 0 )
         lColor3 = BullishColor;         
      if ( CH3 < 0 )   
         lColor3 = BearishColor;
 
  double CH4;   
      if (iClose("#IBM" , PERIOD_D1,  1) == 0)
      {
      CH4= 0.0000;
      }
      else 
      {          
      CH4 =  (( (iClose("#IBM" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#IBM" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor4 = NeutralColor;
      if ( CH4 > 0 )
         lColor4 = BullishColor;         
      if ( CH4 < 0 )   
         lColor4 = BearishColor; 
                 
  double CH5;   
      if (iClose("#AA" , PERIOD_D1,  1) == 0)
      {
      CH5= 0.0000;
      }
      else 
      {   
      CH5 =   (( (iClose("#AA" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#AA" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor5 = NeutralColor;
      if ( CH5 > 0 )
         lColor5 = BullishColor;         
      if ( CH5 < 0 )   
         lColor5 = BearishColor;

  double CH6;   
      if (iClose("#VZ" , PERIOD_D1,  1) == 0)
      {
      CH6= 0.0000;
      }
      else 
      {          
      CH6 =  (( (iClose("#VZ" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#VZ" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor6 = NeutralColor;
      if ( CH6 > 0 )
         lColor6 = BullishColor;         
      if ( CH6 < 0 )   
         lColor6 = BearishColor; 

  double CH7;   
      if (iClose("#DD" , PERIOD_D1,  1) == 0)
      {
      CH7= 0.0000;
      }
      else 
      {                
      CH7 =  (( (iClose("#DD" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#DD" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor7 = NeutralColor;
      if ( CH7 > 0 )
         lColor7 = BullishColor;         
      if ( CH7 < 0 )   
         lColor7 = BearishColor;
 
   double CH8;   
      if (iClose("#XOM" , PERIOD_D1,  1) == 0)
      {
      CH8= 0.0000;
      }
      else 
      {         
      CH8 =  (( (iClose("#XOM" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#XOM" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor8 = NeutralColor;
      if ( CH8 > 0 )
         lColor8 = BullishColor;         
      if ( CH8 < 0 )   
         lColor8 = BearishColor; 

  double CH9;   
      if (iClose("#CVX" , PERIOD_D1,  1) == 0)
      {
      CH9= 0.0000;
      }
      else 
      {          
      CH9 =  (( (iClose("#CVX" ,PERIOD_D1  ,0) * 100 ) /
      iClose("#CVX" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor9 = NeutralColor;
      if ( CH9 > 0 )
         lColor9 = BullishColor;         
      if ( CH9 < 0 )   
         lColor9 = BearishColor;

  double CH10;   
      if (iClose("#GM" , PERIOD_D1,  1) == 0)
      {
      CH10= 0.0000;
      }
      else 
      {          
      CH10 =  (( (iClose("#GM" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#GM" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor10 = NeutralColor;
      if ( CH10 > 0 )
         lColor10 = BullishColor;         
      if ( CH10 < 0 )   
         lColor10 = BearishColor;

  double CH11;   
      if (iClose("#GE" , PERIOD_D1,  1) == 0)
      {
      CH11= 0.0000;
      }
      else 
      {           
      CH11 =  (( (iClose("#GE" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#GE" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor11 = NeutralColor;
      if ( CH11 > 0 )
         lColor11 = BullishColor;         
      if ( CH11 < 0 )   
         lColor11 = BearishColor;

  double CH12;   
      if (iClose("#CAT" , PERIOD_D1,  1) == 0)
      {
      CH12= 0.0000;
      }
      else 
      {          
      CH12 =  (( (iClose("#CAT" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#CAT" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor12 = NeutralColor;
      if ( CH12 > 0 )
         lColor12 = BullishColor;         
      if ( CH12 < 0 )   
         lColor12 = BearishColor;

  double CH13;   
      if (iClose("#BA" , PERIOD_D1,  1) == 0)
      {
      CH13= 0.0000;
      }
      else 
      {          
      CH13 =  (( (iClose("#BA" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#BA" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor13 = NeutralColor;
      if ( CH13 > 0 )
         lColor13 = BullishColor;         
      if ( CH13 < 0 )   
         lColor13 = BearishColor;
         
  double CH14;   
      if (iClose("#HPQ" , PERIOD_D1,  1) == 0)
      {
      CH14= 0.0000;
      }
      else 
      { 
      CH14 = (( (iClose("#HPQ" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#HPQ" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor14 = NeutralColor;
      if ( CH14 > 0 )
         lColor14 = BullishColor;         
      if ( CH14 < 0 )   
         lColor14 = BearishColor; 

  double CH15;   
      if (iClose("#INTC" , PERIOD_D1,  1) == 0)
      {
      CH15= 0.0000;
      }
      else 
      {          
      CH15 =  (( (iClose("#INTC" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#INTC" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor15 = NeutralColor;
      if ( CH15 > 0 )
         lColor15 = BullishColor;         
      if ( CH15 < 0 )   
         lColor15 = BearishColor;

  double CH16;   
      if (iClose("#MSFT" , PERIOD_D1,  1) == 0)
      {
      CH16= 0.0000;
      }
      else 
      {          
      CH16 = (( (iClose("#MSFT" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#MSFT" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor16 = NeutralColor;
      if ( CH16 > 0 )
         lColor16 = BullishColor;         
      if ( CH16 < 0 )   
         lColor16 = BearishColor; 

  double CH17;   
      if (iClose("#HON" , PERIOD_D1,  1) == 0)
      {
      CH17= 0.0000;
      }
      else 
      {                
      CH17 = (( (iClose("#HON" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#HON" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor17 = NeutralColor;
      if ( CH17 > 0 )
         lColor17 = BullishColor;         
      if ( CH17 < 0 )   
         lColor17 = BearishColor;

  double CH18;   
      if (iClose("#UTX" , PERIOD_D1,  1) == 0)
      {
      CH18= 0.0000;
      }
      else 
      {          
      CH18 = (( (iClose("#UTX" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#UTX" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor18 = NeutralColor;
      if ( CH18 > 0 )
         lColor18 = BullishColor;         
      if ( CH18 < 0 )   
         lColor18 = BearishColor;  

  double CH19;   
      if (iClose("#EK" , PERIOD_D1,  1) == 0)
      {
      CH19= 0.0000;
      }
      else 
      {    
      CH19 =  (( (iClose("#EK" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#EK" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor19 = NeutralColor;
      if ( CH19 > 0 )
         lColor19 = BullishColor;         
      if ( CH19 < 0 )   
         lColor19 = BearishColor;                                              

  double CH20;   
      if (iClose("#MCD" , PERIOD_D1,  1) == 0)
      {
      CH20= 0.0000;
      }
      else 
      { 
      CH20 =  (( (iClose("#MCD" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#MCD" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor20 = NeutralColor;
      if ( CH20 > 0 )
         lColor20 = BullishColor;         
      if ( CH20 < 0 )   
         lColor20 = BearishColor;

  double CH21;   
      if (iClose("#KO" , PERIOD_D1,  1) == 0)
      {
      CH21= 0.0000;
      }
      else 
      {           
      CH21 =  (( (iClose("#KO" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#KO" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor21 = NeutralColor;
      if ( CH21 > 0 )
         lColor21 = BullishColor;         
      if ( CH21 < 0 )   
         lColor21 = BearishColor;

  double CH22;   
      if (iClose("#JNJ" , PERIOD_D1,  1) == 0)
      {
      CH22= 0.0000;
      }
      else 
      {          
      CH22 =  (( (iClose("#JNJ" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#JNJ" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor22 = NeutralColor; 
      if ( CH22 > 0 )
         lColor22 = BullishColor;         
      if ( CH22 < 0 )   
         lColor22 = BearishColor;

  double CH23;   
      if (iClose("#PG" , PERIOD_D1,  1) == 0)
      {
      CH23= 0.0000;
      }
      else 
      {          
      CH23 =  (( (iClose("#PG" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#PG" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor23 = NeutralColor;
      if ( CH23 > 0 )
         lColor23 = BullishColor;         
      if ( CH23 < 0 )   
         lColor23 = BearishColor;

  double CH24;   
      if (iClose("#MO" , PERIOD_D1,  1) == 0)
      {
      CH24= 0.0000;
      }
      else 
      {          
      CH24 =  (( (iClose("#MO" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#MO" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor24 = NeutralColor; 
      if ( CH24 > 0 )
         lColor24 = BullishColor;         
      if ( CH24 < 0 )   
         lColor24 = BearishColor; 

  double CH25;   
      if (iClose("#WMT" , PERIOD_D1,  1) == 0)
      {
      CH25= 0.0000;
      }
      else 
      {          
      CH25 =  (( (iClose("#WMT" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#WMT" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor25 = NeutralColor;
      if ( CH25 > 0 )
         lColor25 = BullishColor;         
      if ( CH25 < 0 )   
         lColor25 = BearishColor;

  double CH26;   
      if (iClose("#HD" , PERIOD_D1,  1) == 0)
      {
      CH26= 0.0000;
      }
      else 
      {          
      CH26 =  (( (iClose("#HD" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#HD" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor26 = NeutralColor; 
      if ( CH26 > 0 )
         lColor26 = BullishColor;         
      if ( CH26 < 0 )   
         lColor26 = BearishColor; 

  double CH27;   
      if (iClose("#MRK" , PERIOD_D1,  1) == 0)
      {
      CH27= 0.0000;
      }
      else 
      {                
      CH27 =  (( (iClose("#MRK" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#MRK" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor27 = NeutralColor;
      if ( CH27 > 0 )
         lColor27 = BullishColor;         
      if ( CH27 < 0 )   
         lColor27 = BearishColor;
         
  double CH28;   
      if (iClose("#T" , PERIOD_D1,  1) == 0)
      {
      CH28= 0.0000;
      }
      else 
      {          
      CH28 =   (( (iClose("#T" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#T" , PERIOD_D1,  1)  - 100 ) ); 
      }
  color lColor28 = NeutralColor; 
      if ( CH28 > 0 )
         lColor28 = BullishColor;         
      if ( CH28 < 0 )   
         lColor28 = BearishColor; 
  
  double CH29;   
      if (iClose("#C" , PERIOD_D1,  1) == 0)
      {
      CH29= 0.0000;
      }
      else 
      { 
      CH29 =  (( (iClose("#C" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#C" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor29 = NeutralColor; 
      if ( CH29 > 0 )
         lColor29 = BullishColor;         
      if ( CH29 < 0 )   
         lColor29 = BearishColor;  
         
  double CH30;   
      if (iClose("#JPM" , PERIOD_D1,  1) == 0)
      {
      CH30= 0.0000;
      }
      else 
      { 
      CH30 =  (( (iClose("#JPM" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#JPM" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor30 = NeutralColor; 
      if ( CH30 > 0 )
         lColor30 = BullishColor;         
      if ( CH30 < 0 )   
         lColor30 = BearishColor;   
 
  double CH31;   
      if (iClose("#AXP" , PERIOD_D1,  1) == 0)
      {
      CH31= 0.0000;
      }
      else 
      {   
      CH31 =   (( (iClose("#AXP" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#AXP" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor31 = NeutralColor; 
      if ( CH31 > 0 )
         lColor31 = BullishColor;         
      if ( CH31 < 0 )   
         lColor31 = BearishColor;                     
 
  double CH32;   
      if (iClose("FTSE100" , PERIOD_D1,  1) == 0)
      {
      CH32= 0.0000;
      }
      else 
      { 
      CH32 =  (( (iClose("FTSE100" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("FTSE100" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor32 = NeutralColor; 
      if ( CH32 > 0 )
         lColor32 = BullishColor;         
      if ( CH32 < 0 )   
         lColor32 = BearishColor;   

  double CH33;   
      if (iClose("CAC40" , PERIOD_D1,  1) == 0)
      {
      CH33= 0.0000;
      }
      else 
      { 
      CH33 =  (( (iClose("CAC40" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("CAC40" , PERIOD_D1,  1)  - 100 ) );
      }
  color lColor33 = NeutralColor; 
      if ( CH33 > 0 )
         lColor33 = BullishColor;         
      if ( CH33 < 0 )   
         lColor33 = BearishColor;  

  double CH34;   
      if (iClose("DAX" , PERIOD_D1,  1) == 0)
      {
      CH34= 0.0000;
      }
      else 
      {          
      CH34 =  (( (iClose("DAX" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("DAX" , PERIOD_D1,  1)  - 100 ) ); 
      }
  color lColor34 = NeutralColor; 
      if ( CH34 > 0 )
         lColor34 = BullishColor;         
      if ( CH34 < 0 )   
         lColor34 = BearishColor;   

  double CH35;   
      if (iClose("NIKKEI" , PERIOD_D1,  1) == 0)
      {
      CH35= 0.0000;
      }
      else 
      {   
      CH35 =  (( (iClose("NIKKEI" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("NIKKEI" , PERIOD_D1,  1)  - 100 ) ); 
      }
  color lColor35 = NeutralColor; 
      if ( CH35 > 0 )
         lColor35 = BullishColor;         
      if ( CH35 < 0 )   
         lColor35 = BearishColor;           

  double CH36;   
      if (iClose("#PFE" , PERIOD_D1,  1) == 0)
      {
      CH36= 0.0000;
      }
      else 
      {   
      CH36 =  (( (iClose("#PFE" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#PFE" , PERIOD_D1,  1)  - 100 ) ); 
      }
  color lColor36 = NeutralColor; 
      if ( CH36 > 0 )
         lColor36 = BullishColor;         
      if ( CH36 < 0 )   
         lColor36 = BearishColor;
         
  double CH37;   
      if (iClose("#BAC" , PERIOD_D1,  1) == 0)
      {
      CH37= 0.0000;
      }
      else 
      {   
      CH37 =  (( (iClose("#BAC" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("#BAC" , PERIOD_D1,  1)  - 100 ) ); 
      }
  color lColor37 = NeutralColor; 
      if ( CH37 > 0 )
         lColor37 = BullishColor;         
      if ( CH37 < 0 )   
         lColor37 = BearishColor;                           
//------------------------Объявление названий----------------------------- 4 --| 
  string Процент1 ="Dow Jones "+DoubleToStr(CH1,2)+"% (" 
  +DoubleToStr(iClose("DJI" , PERIOD_D1,  0),2)+")";
  string Процент2 ="S&P 500 "+DoubleToStr(CH2,2)+"% (" 
  +DoubleToStr(iClose("S&P500" ,PERIOD_D1  ,0),2)+")";
  string Процент3 ="NASDAQ Composite "+DoubleToStr(CH3,2)+"% (" 
  +DoubleToStr(iClose("NQCOMP" , PERIOD_D1,  0),2)+")";
  string Процент4 ="IBM "+DoubleToStr(CH4,2)+"% (" 
  +DoubleToStr(iClose("#IBM" , PERIOD_D1,  0),2)+")";  

  // Промышленность - Industrial
  string Процент5 ="Alcoa "+DoubleToStr(CH5,2)+"% (" 
  +DoubleToStr(iClose("#AA" , PERIOD_D1,  0),2)+")";
  string Процент6 ="Verizon Communications "+DoubleToStr(CH6,2)+"% (" 
  +DoubleToStr(iClose("#VZ" , PERIOD_D1,  0),2)+")"; 
  string Процент7 ="Du Pont "+DoubleToStr(CH7,2)+"% (" 
  +DoubleToStr(iClose("#DD" , PERIOD_D1,  0),2)+")"; 
  string Процент8 ="Exxon Mobile "+DoubleToStr(CH8,2)+"% (" 
  +DoubleToStr(iClose("#XOM" , PERIOD_D1,  0),2)+")";
  string Процент9 ="Chevron "+DoubleToStr(CH9,2)+"% (" 
  +DoubleToStr(iClose("#CVX" , PERIOD_D1,  0),2)+")";
  string Процент10 ="General Motors "+DoubleToStr(CH10,2)+"% (" 
  +DoubleToStr(iClose("#GM" , PERIOD_D1,  0),2)+")";
  string Процент11 ="General Electric "+DoubleToStr(CH11,2)+"% (" 
  +DoubleToStr(iClose("#GE" , PERIOD_D1,  0),2)+")";  
  string Процент12 ="Caterpillar "+DoubleToStr(CH12,2)+"% (" 
  +DoubleToStr(iClose("#CAT" , PERIOD_D1,  0),2)+")";
  string Процент13 ="Boeing "+DoubleToStr(CH13,2)+"% (" 
  +DoubleToStr(iClose("#BA" , PERIOD_D1,  0),2)+")";
  
  // Высокие технологии - High Tech
  string Процент14 ="Hewlett Packard "+DoubleToStr(CH14,2)+"% (" 
  +DoubleToStr(iClose("#HPQ" , PERIOD_D1,  0),2)+")";
  string Процент15 ="Intel "+DoubleToStr(CH15,2)+"% (" 
  +DoubleToStr(iClose("#INTC" , PERIOD_D1,  0),2)+")";
  string Процент16 ="Microsoft "+DoubleToStr(CH16,2)+"% (" 
  +DoubleToStr(iClose("#MSFT" , PERIOD_D1,  0),2)+")";
  string Процент17 ="Honeywell International "+DoubleToStr(CH17,2)+"% (" 
  +DoubleToStr(iClose("#HON" , PERIOD_D1,  0),2)+")";
  string Процент18 ="United Technologies "+DoubleToStr(CH18,2)+"% (" 
  +DoubleToStr(iClose("#UTX" , PERIOD_D1,  0),2)+")";
  string Процент19 ="Eastman Kodak "+DoubleToStr(CH19,2)+"% (" 
  +DoubleToStr(iClose("#EK" , PERIOD_D1,  0),2)+")";
  
  // Широкое потребление - Wide Consumption
  string Процент20 ="McDonalds "+DoubleToStr(CH20,2)+"% (" 
  +DoubleToStr(iClose("#MCD" , PERIOD_D1,  0),2)+")"; 
  string Процент21 ="Coca Cola "+DoubleToStr(CH21,2)+"% (" 
  +DoubleToStr(iClose("#KO" , PERIOD_D1,  0),2)+")";
  string Процент22 ="Johnson & Johnson "+DoubleToStr(CH22,2)+"% (" 
  +DoubleToStr(iClose("#JNJ" , PERIOD_D1,  0),2)+")";
  string Процент23 ="Procter & Gamble "+DoubleToStr(CH23,2)+"% (" 
  +DoubleToStr(iClose("#PG" , PERIOD_D1,  0),2)+")";
  string Процент24 ="Altria Group "+DoubleToStr(CH24,2)+"% (" 
  +DoubleToStr(iClose("#MO" , PERIOD_D1,  0),2)+")";
  string Процент25 ="Wal-Mart Stores "+DoubleToStr(CH25,2)+"% (" 
  +DoubleToStr(iClose("#WMT" , PERIOD_D1,  0),2)+")"; 
  string Процент26 ="Home Depot "+DoubleToStr(CH26,2)+"% (" 
  +DoubleToStr(iClose("#HD" , PERIOD_D1,  0),2)+")";
  string Процент27 ="Merck "+DoubleToStr(CH27,2)+"% (" 
  +DoubleToStr(iClose("#MRK" , PERIOD_D1,  0),2)+")";
  string Процент28 ="AT%T "+DoubleToStr(CH28,2)+"% (" 
  +DoubleToStr(iClose("#T" , PERIOD_D1,  0),2)+")";
  string Процент36 ="Pfizer "+DoubleToStr(CH36,2)+"% (" 
  +DoubleToStr(iClose("#PFE" , PERIOD_D1,  0),2)+")";
  
  // Финансовые учреждения - Financial
  string Процент37 ="Bank of America "+DoubleToStr(CH37,2)+"% (" 
  +DoubleToStr(iClose("#BAC" , PERIOD_D1,  0),2)+")";
  string Процент29 ="Citigroup "+DoubleToStr(CH29,2)+"% (" 
  +DoubleToStr(iClose("#C" , PERIOD_D1,  0),2)+")";
  string Процент30 ="J.P. Morgan Chase "+DoubleToStr(CH30,2)+"% (" 
  +DoubleToStr(iClose("#JPM" , PERIOD_D1,  0),2)+")";
  string Процент31 ="American Express "+DoubleToStr(CH31,2)+"% (" 
  +DoubleToStr(iClose("#AXP" , PERIOD_D1,  0),2)+")";
  
  // Индексы другие
  string Процент32 ="FTSE "+DoubleToStr(CH32,2)+"% (" 
  +DoubleToStr(iClose("FTSE100" , PERIOD_D1,  0),2)+")";
  string Процент33 ="CAC "+DoubleToStr(CH33,2)+"% (" 
  +DoubleToStr(iClose("CAC40" , PERIOD_D1,  0),2)+")";
  string Процент34 ="DAX "+DoubleToStr(CH34,2)+"% (" 
  +DoubleToStr(iClose("DAX" , PERIOD_D1,  0),2)+")";
  string Процент35 ="NIKKEI "+DoubleToStr(CH35,2)+"% (" 
  +DoubleToStr(iClose("NIKKEI" , PERIOD_D1,  0),2)+")";
 
  string Надпись1 ="Industrial";
  string Надпись2 ="--------------------------------";
  string Надпись3 ="High Tech";
  string Надпись4 ="--------------------------------";
  string Надпись5 ="Wide Consumption";
  string Надпись6 ="--------------------------------";
  string Надпись7 ="Financial";
  string Надпись8 ="--------------------------------";
  string Надпись9 ="--------------------------------";  
//-----------------------------Построение--------------------------------- 5 --|     
     ObjectSetText("Процент1",Процент1,14,"Verdana",lColor1);
     ObjectSet("Процент1",OBJPROP_XDISTANCE,5);     
     ObjectSet("Процент1",OBJPROP_YDISTANCE,5);   
     
     ObjectSetText("Процент2",Процент2,14,"Verdana",lColor2);
     ObjectSet("Процент2",OBJPROP_XDISTANCE,5);     
     ObjectSet("Процент2",OBJPROP_YDISTANCE,20);
     
     ObjectSetText("Процент3",Процент3,14,"Verdana",lColor3);
     ObjectSet("Процент3",OBJPROP_XDISTANCE,5);     
     ObjectSet("Процент3",OBJPROP_YDISTANCE,35);
     
     ObjectSetText("Процент4",Процент4,9,"Verdana",lColor4);
     ObjectSet("Процент4",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент4",OBJPROP_YDISTANCE,186);
     
     ObjectSetText("Процент5",Процент5,9,"Verdana",lColor5);
     ObjectSet("Процент5",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент5",OBJPROP_YDISTANCE,79); 
     
     ObjectSetText("Процент6",Процент6,9,"Verdana",lColor6);
     ObjectSet("Процент6",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент6",OBJPROP_YDISTANCE,383); 
     
     ObjectSetText("Процент7",Процент7,9,"Verdana",lColor7);
     ObjectSet("Процент7",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент7",OBJPROP_YDISTANCE,89);
     
     ObjectSetText("Процент8",Процент8,9,"Verdana",lColor8);
     ObjectSet("Процент8",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент8",OBJPROP_YDISTANCE,99);  
     
     ObjectSetText("Процент9",Процент9,9,"Verdana",lColor9);
     ObjectSet("Процент9",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент9",OBJPROP_YDISTANCE,109);
     
     ObjectSetText("Процент10",Процент10,9,"Verdana",lColor10);
     ObjectSet("Процент10",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент10",OBJPROP_YDISTANCE,119); 
     
     ObjectSetText("Процент11",Процент11,9,"Verdana",lColor11);
     ObjectSet("Процент11",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент11",OBJPROP_YDISTANCE,129);        
     
     ObjectSetText("Процент12",Процент12,9,"Verdana",lColor12);
     ObjectSet("Процент12",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент12",OBJPROP_YDISTANCE,139);                     
     
     ObjectSetText("Процент13",Процент13,9,"Verdana",lColor13);
     ObjectSet("Процент13",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент13",OBJPROP_YDISTANCE,149); 
          
     ObjectSetText("Процент14",Процент14,9,"Verdana",lColor14);
     ObjectSet("Процент14",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент14",OBJPROP_YDISTANCE,196); 
          
     ObjectSetText("Процент15",Процент15,9,"Verdana",lColor15);
     ObjectSet("Процент15",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент15",OBJPROP_YDISTANCE,206); 
     
     ObjectSetText("Процент16",Процент16,9,"Verdana",lColor16);
     ObjectSet("Процент16",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент16",OBJPROP_YDISTANCE,216); 
     
     ObjectSetText("Процент17",Процент17,9,"Verdana",lColor17);
     ObjectSet("Процент17",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент17",OBJPROP_YDISTANCE,226); 
     
     ObjectSetText("Процент18",Процент18,9,"Verdana",lColor18);
     ObjectSet("Процент18",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент18",OBJPROP_YDISTANCE,236);                
          
     ObjectSetText("Процент19",Процент19,9,"Verdana",lColor19);
     ObjectSet("Процент19",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент19",OBJPROP_YDISTANCE,246); 
     
     ObjectSetText("Процент20",Процент20,9,"Verdana",lColor20);
     ObjectSet("Процент20",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент20",OBJPROP_YDISTANCE,283);  
     
     ObjectSetText("Процент21",Процент21,9,"Verdana",lColor21);
     ObjectSet("Процент21",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент21",OBJPROP_YDISTANCE,293);           
     
     ObjectSetText("Процент22",Процент22,9,"Verdana",lColor22);
     ObjectSet("Процент22",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент22",OBJPROP_YDISTANCE,303); 
     
     ObjectSetText("Процент23",Процент23,9,"Verdana",lColor23);
     ObjectSet("Процент23",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент23",OBJPROP_YDISTANCE,313);
     
     ObjectSetText("Процент24",Процент24,9,"Verdana",lColor24);
     ObjectSet("Процент24",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент24",OBJPROP_YDISTANCE,323); 
     
     ObjectSetText("Процент25",Процент25,9,"Verdana",lColor25);
     ObjectSet("Процент25",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент25",OBJPROP_YDISTANCE,333); 
       
     ObjectSetText("Процент26",Процент26,9,"Verdana",lColor26);
     ObjectSet("Процент26",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент26",OBJPROP_YDISTANCE,343);                  
     
     ObjectSetText("Процент27",Процент27,9,"Verdana",lColor27);
     ObjectSet("Процент27",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент27",OBJPROP_YDISTANCE,353);  
     
     ObjectSetText("Процент28",Процент28,9,"Verdana",lColor28);
     ObjectSet("Процент28",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент28",OBJPROP_YDISTANCE,373);            
            
     ObjectSetText("Процент29",Процент29,9,"Verdana",lColor29);
     ObjectSet("Процент29",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент29",OBJPROP_YDISTANCE,430);                  
     
     ObjectSetText("Процент30",Процент30,9,"Verdana",lColor30);
     ObjectSet("Процент30",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент30",OBJPROP_YDISTANCE,440);  
     
     ObjectSetText("Процент31",Процент31,9,"Verdana",lColor31);
     ObjectSet("Процент31",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент31",OBJPROP_YDISTANCE,450);  
 
     ObjectSetText("Процент32",Процент32,9,"Verdana",lColor32);
     ObjectSet("Процент32",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент32",OBJPROP_YDISTANCE,469);            
            
     ObjectSetText("Процент33",Процент33,9,"Verdana",lColor33);
     ObjectSet("Процент33",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент33",OBJPROP_YDISTANCE,479);                  
     
     ObjectSetText("Процент34",Процент34,9,"Verdana",lColor34);
     ObjectSet("Процент34",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент34",OBJPROP_YDISTANCE,489);  
     
     ObjectSetText("Процент35",Процент35,9,"Verdana",lColor35);
     ObjectSet("Процент35",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент35",OBJPROP_YDISTANCE,499);  
     
     ObjectSetText("Процент36",Процент36,9,"Verdana",lColor36);
     ObjectSet("Процент36",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент36",OBJPROP_YDISTANCE,363);  
 
     ObjectSetText("Процент37",Процент37,9,"Verdana",lColor37);
     ObjectSet("Процент37",OBJPROP_XDISTANCE,10);     
     ObjectSet("Процент37",OBJPROP_YDISTANCE,420);            
    
     
        
     ObjectSetText("Надпись1",Надпись1,9,"Verdana",NeutralColor);
     ObjectSet("Надпись1",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись1",OBJPROP_YDISTANCE,61); 

     ObjectSetText("Надпись2",Надпись2,9,"Verdana",NeutralColor);
     ObjectSet("Надпись2",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись2",OBJPROP_YDISTANCE,69); 
     
     ObjectSetText("Надпись3",Надпись3,9,"Verdana",NeutralColor);
     ObjectSet("Надпись3",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись3",OBJPROP_YDISTANCE,168); 
     
     ObjectSetText("Надпись4",Надпись4,9,"Verdana",NeutralColor);
     ObjectSet("Надпись4",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись4",OBJPROP_YDISTANCE,176); 

     ObjectSetText("Надпись5",Надпись5,9,"Verdana",NeutralColor);
     ObjectSet("Надпись5",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись5",OBJPROP_YDISTANCE,265); 
     
     ObjectSetText("Надпись6",Надпись6,9,"Verdana",NeutralColor);
     ObjectSet("Надпись6",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись6",OBJPROP_YDISTANCE,273);
     
     ObjectSetText("Надпись7",Надпись7,9,"Verdana",NeutralColor);
     ObjectSet("Надпись7",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись7",OBJPROP_YDISTANCE,402); 
     
     ObjectSetText("Надпись8",Надпись8,9,"Verdana",NeutralColor);
     ObjectSet("Надпись8",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись8",OBJPROP_YDISTANCE,410);     
              
     ObjectSetText("Надпись9",Надпись9,9,"Verdana",NeutralColor);
     ObjectSet("Надпись9",OBJPROP_XDISTANCE,5);     
     ObjectSet("Надпись9",OBJPROP_YDISTANCE,459);                              
  return(0);
  }
//--------------------------------Конец----------------------------------- 6 --|