Percent Change MICEX

//|----------------------------------------------------------------------------|
//| Percent Change MICEX.mq4                                                   |
//| Àâòîð: Äèìîí Áàðìåí © Copyright 2009                                       |             
//| ICQ: 241448448                                                             |
//|----------------------------------------------------------------------------|
//| Âåðñèÿ: 03.03.2009                                                         |
//| Ãîòîâíîñòü: 100%                                                           |
//| Òåñòèðîâàíèå: Ïðîâåäåíî 100%                                               |
//| Îïèñàíèå: Èíäèêàòîð ïðîöåíòíîãî èçìåíåíèÿ öåíû çà äåíü àêöèé ÌÌÂÁ âõîäÿùèõ | 
//| â èíäåêñ ÌÌÂÁ à òàêæå òåêóùèõ êóðñîâ ïðîäàæè ïîêóïêè ðóáëÿ                 |   
//|----------------------------------------------------------------------------|
//| Ïàðàìåòðû: Íèæå                                                            |
//|----------------------------------------------------------------------------|
#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("Íàäïèñü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);  
   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 ("Íàäïèñü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");
   return(0);
   }
//-----------------Âû÷èñëåíèå ïðîöåíòà è ïðèñâîåíèå öâåòà----------------- 3 --|
int start()
  { 
  double CH1;   
      if (iClose("MICEX" , PERIOD_D1,  1) == 0)
      {
      CH1= 0.0000;
      }
      else 
      {   
      CH1 = (( (iClose("MICEX" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("MICEX" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor1 = NeutralColor; 
      if ( CH1 > 0 )
         lColor1 = BullishColor;         
      if ( CH1 < 0 )   
         lColor1 = BearishColor;
         
  double CH2;   
      if (iClose("GAZP" , PERIOD_D1,  1) == 0)
      {
      CH2= 0.0000;
      }
      else 
      {   
      CH2 = (( (iClose("GAZP" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("GAZP" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor2 = NeutralColor; 
      if ( CH2 > 0 )
         lColor2 = BullishColor;         
      if ( CH2 < 0 )   
         lColor2 = BearishColor; 
         
  double CH3;   
      if (iClose("LKOH" , PERIOD_D1,  1) == 0)
      {
      CH3= 0.0000;
      }
      else 
      {   
      CH3 = (( (iClose("LKOH" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("LKOH" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor3 = NeutralColor; 
      if ( CH3 > 0 )
         lColor3 = BullishColor;         
      if ( CH3 < 0 )   
         lColor3 = BearishColor; 
         
  double CH4;   
      if (iClose("ROSN" , PERIOD_D1,  1) == 0)
      {
      CH4= 0.0000;
      }
      else 
      {   
      CH4 = (( (iClose("ROSN" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("ROSN" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor4 = NeutralColor; 
      if ( CH4 > 0 )
         lColor4 = BullishColor;         
      if ( CH4 < 0 )   
         lColor4 = BearishColor; 
         
  double CH5;   
      if (iClose("SNGS" , PERIOD_D1,  1) == 0)
      {
      CH5= 0.0000;
      }
      else 
      {   
      CH5 = (( (iClose("SNGS" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("SNGS" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor5 = NeutralColor; 
      if ( CH5 > 0 )
         lColor5 = BullishColor;         
      if ( CH5 < 0 )   
         lColor5 = BearishColor; 
               
  double CH6;   
      if (iClose("TATN" , PERIOD_D1,  1) == 0)
      {
      CH6= 0.0000;
      }
      else 
      {   
      CH6 = (( (iClose("TATN" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("TATN" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor6 = NeutralColor; 
      if ( CH6 > 0 )
         lColor6 = BullishColor;         
      if ( CH6 < 0 )   
         lColor6 = BearishColor; 

  double CH7;   
      if (iClose("SIBN" , PERIOD_D1,  1) == 0)
      {
      CH7= 0.0000;
      }
      else 
      {   
      CH7 = (( (iClose("SIBN" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("SIBN" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor7 = NeutralColor; 
      if ( CH7 > 0 )
         lColor7 = BullishColor;         
      if ( CH7 < 0 )   
         lColor7 = BearishColor;    
         
  double CH8;   
      if (iClose("TRNF" , PERIOD_D1,  1) == 0)
      {
      CH8= 0.0000;
      }
      else 
      {   
      CH8 = (( (iClose("TRNF" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("TRNF" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor8 = NeutralColor; 
      if ( CH8 > 0 )
         lColor8 = BullishColor;         
      if ( CH8 < 0 )   
         lColor8 = BearishColor;       
                 
  double CH9;   
      if (iClose("GMKN" , PERIOD_D1,  1) == 0)
      {
      CH9= 0.0000;
      }
      else 
      {   
      CH9 = (( (iClose("GMKN" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("GMKN" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor9 = NeutralColor; 
      if ( CH9 > 0 )
         lColor9 = BullishColor;         
      if ( CH9 < 0 )   
         lColor9 = BearishColor;       
         
  double CH10;   
      if (iClose("CHMF" , PERIOD_D1,  1) == 0)
      {
      CH10= 0.0000;
      }
      else 
      {   
      CH10 = (( (iClose("CHMF" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("CHMF" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor10 = NeutralColor; 
      if ( CH10 > 0 )
         lColor10 = BullishColor;         
      if ( CH10 < 0 )   
         lColor10 = BearishColor; 
         
  double CH11;   
      if (iClose("NLMK" , PERIOD_D1,  1) == 0)
      {
      CH11= 0.0000;
      }
      else 
      {   
      CH11 = (( (iClose("NLMK" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("NLMK" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor11 = NeutralColor; 
      if ( CH11 > 0 )
         lColor11 = BullishColor;         
      if ( CH11 < 0 )   
         lColor11 = BearishColor; 
         
  double CH12;   
      if (iClose("MAGN" , PERIOD_D1,  1) == 0)
      {
      CH12= 0.0000;
      }
      else 
      {   
      CH12 = (( (iClose("MAGN" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("MAGN" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor12 = NeutralColor; 
      if ( CH12 > 0 )
         lColor12 = BullishColor;         
      if ( CH12 < 0 )   
         lColor12 = BearishColor; 
          
  double CH13;   
      if (iClose("PLZL" , PERIOD_D1,  1) == 0)
      {
      CH13= 0.0000;
      }
      else 
      {   
      CH13 = (( (iClose("PLZL" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("PLZL" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor13 = NeutralColor; 
      if ( CH13 > 0 )
         lColor13 = BullishColor;         
      if ( CH13 < 0 )   
         lColor13 = BearishColor; 
 
  double CH14;   
      if (iClose("MTSI" , PERIOD_D1,  1) == 0)
      {
      CH14= 0.0000;
      }
      else 
      {   
      CH14 = (( (iClose("MTSI" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("MTSI" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor14 = NeutralColor; 
      if ( CH14 > 0 )
         lColor14 = BullishColor;         
      if ( CH14 < 0 )   
         lColor14 = BearishColor; 
         
  double CH15;   
      if (iClose("RBCI" , PERIOD_D1,  1) == 0)
      {
      CH15= 0.0000;
      }
      else 
      {   
      CH15 = (( (iClose("RBCI" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("RBCI" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor15 = NeutralColor; 
      if ( CH15 > 0 )
         lColor15 = BullishColor;         
      if ( CH15 < 0 )   
         lColor15 = BearishColor;  
               
  double CH16;   
      if (iClose("RTKM" , PERIOD_D1,  1) == 0)
      {
      CH16= 0.0000;
      }
      else 
      {   
      CH16 = (( (iClose("RTKM" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("RTKM" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor16 = NeutralColor; 
      if ( CH16 > 0 )
         lColor16 = BullishColor;         
      if ( CH16 < 0 )   
         lColor16 = BearishColor;               
         
  double CH17;   
      if (iClose("URSI" , PERIOD_D1,  1) == 0)
      {
      CH17= 0.0000;
      }
      else 
      {   
      CH17 = (( (iClose("URSI" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("URSI" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor17 = NeutralColor; 
      if ( CH17 > 0 )
         lColor17 = BullishColor;         
      if ( CH17 < 0 )   
         lColor17 = BearishColor;   
   
  double CH18;   
      if (iClose("VTEL" , PERIOD_D1,  1) == 0)
      {
      CH18= 0.0000;
      }
      else 
      {   
      CH18 = (( (iClose("VTEL" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("VTEL" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor18 = NeutralColor; 
      if ( CH18 > 0 )
         lColor18 = BullishColor;         
      if ( CH18 < 0 )   
         lColor18 = BearishColor;                                           

  double CH19;   
      if (iClose("MSNG" , PERIOD_D1,  1) == 0)
      {
      CH19= 0.0000;
      }
      else 
      {   
      CH19 = (( (iClose("MSNG" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("MSNG" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor19 = NeutralColor; 
      if ( CH19 > 0 )
         lColor19 = BullishColor;         
      if ( CH19 < 0 )   
         lColor19 = BearishColor;
          
   double CH20;   
      if (iClose("OGKE" , PERIOD_D1,  1) == 0)
      {
      CH20= 0.0000;
      }
      else 
      {   
      CH20 = (( (iClose("OGKE" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("OGKE" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor20 = NeutralColor; 
      if ( CH20 > 0 )
         lColor20 = BullishColor;         
      if ( CH20 < 0 )   
         lColor20 = BearishColor;
         
   double CH21;   
      if (iClose("SBER" , PERIOD_D1,  1) == 0)
      {
      CH21= 0.0000;
      }
      else 
      {   
      CH21 = (( (iClose("SBER" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("SBER" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor21 = NeutralColor; 
      if ( CH21 > 0 )
         lColor21 = BullishColor;         
      if ( CH21 < 0 )   
         lColor21 = BearishColor;
        
   double CH22;   
      if (iClose("VTBR" , PERIOD_D1,  1) == 0)
      {
      CH22= 0.0000;
      }
      else 
      {   
      CH22 = (( (iClose("VTBR" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("VTBR" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor22 = NeutralColor; 
      if ( CH22 > 0 )
         lColor22 = BullishColor;         
      if ( CH22 < 0 )   
         lColor22 = BearishColor;

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

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

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

   double CH27;   
      if (iClose("HYDR" , PERIOD_D1,  1) == 0)
      {
      CH27= 0.0000;
      }
      else 
      {   
      CH27 = (( (iClose("HYDR" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("HYDR" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor27 = NeutralColor; 
      if ( CH27 > 0 )
         lColor27 = BullishColor;         
      if ( CH27 < 0 )   
         lColor27 = BearishColor; 
  
  double CH28;   
      if (iClose("OGKC" , PERIOD_D1,  1) == 0)
      {
      CH28= 0.0000;
      }
      else 
      {   
      CH28 = (( (iClose("OGKC" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("OGKC" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor28 = NeutralColor; 
      if ( CH28 > 0 )
         lColor28 = BullishColor;         
      if ( CH28 < 0 )   
         lColor28 = BearishColor; 
         
        
  double CH29;   
      if (iClose("PMT" , PERIOD_D1,  1) == 0)
      {
      CH29= 0.0000;
      }
      else 
      {   
      CH29 = (( (iClose("PMT" ,PERIOD_D1  ,0) * 100 ) / 
      iClose("PMT" , PERIOD_D1,  1)  - 100 ) );
      }
      color lColor29 = NeutralColor; 
      if ( CH29 > 0 )
         lColor29 = BullishColor;         
      if ( CH29 < 0 )   
         lColor29 = BearishColor;         
//------------------------Îáúÿâëåíèå íàçâàíèé----------------------------- 4 --|          
  string Ïðîöåíò1 ="MICEX "+DoubleToStr(CH1,2)+"% (" 
  +DoubleToStr(iClose("MICEX" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò2 ="Ãàçïðîì "+DoubleToStr(CH2,2)+"% (" 
  +DoubleToStr(iClose("GAZP" ,PERIOD_D1  ,0),2)+")";
  string Ïðîöåíò3 ="Ëóêîéë "+DoubleToStr(CH3,2)+"% (" 
  +DoubleToStr(iClose("LKOH" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò4 ="Ðîñíåôòü "+DoubleToStr(CH4,2)+"% (" 
  +DoubleToStr(iClose("ROSN" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò5 ="Ñóðãóòíåôòåãàç "+DoubleToStr(CH5,2)+"% (" 
  +DoubleToStr(iClose("SNGS" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò6 ="Òàòíåôòü "+DoubleToStr(CH6,2)+"% (" +
  DoubleToStr(iClose("TATN" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò7 ="Ãàçïðîìíåôòü "+DoubleToStr(CH7,2)+"% (" 
  +DoubleToStr(iClose("SIBN" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò8 ="Òðàíñíåôòü "+DoubleToStr(CH8,2)+"% (" 
  +DoubleToStr(iClose("TRNF" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò9 ="Íîðíèêåëü "+DoubleToStr(CH9,2)+"% (" 
  +DoubleToStr(iClose("GMKN" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò10 ="Ñåâåðñòàëü "+DoubleToStr(CH10,2)+"% (" 
  +DoubleToStr(iClose("CHMF" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò11 ="Íîâîëèïåöêèé ÌÊ "+DoubleToStr(CH11,2)+"% (" 
  +DoubleToStr(iClose("NLMK" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò12 ="Ìàãíèòîãîðñêèé ÌÊ "+DoubleToStr(CH12,2)+"% (" 
  +DoubleToStr(iClose("MAGN" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò13 ="Ïîëþñ Çîëîòî "+DoubleToStr(CH13,2)+"% (" 
  +DoubleToStr(iClose("PLZL" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò14 ="MTC "+DoubleToStr(CH14,2)+"% (" 
  +DoubleToStr(iClose("MTSI" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò15 ="ÐÁÊ Ñèñòåìû "+DoubleToStr(CH15,2)+"% (" 
  +DoubleToStr(iClose("RBCI" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò16 ="Ðîñòåëåêîì "+DoubleToStr(CH16,2)+"% (" 
  +DoubleToStr(iClose("RTKM" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò17 ="Óðàëñâÿçüèíôîðì "+DoubleToStr(CH17,2)+"% (" 
  +DoubleToStr(iClose("URSI" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò18 ="Âîëãà Òåëåêîì "+DoubleToStr(CH18,2)+"% (" 
  +DoubleToStr(iClose("VTEL" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò19 ="Ìîñýíåðãî "+DoubleToStr(CH19,2)+"% (" 
  +DoubleToStr(iClose("MSNG" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò20 ="ÎÃÊ-5 "+DoubleToStr(CH20,2)+"% (" 
  +DoubleToStr(iClose("OGKE" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò21 ="Ñáåðáàíê "+DoubleToStr(CH21,2)+"% (" 
  +DoubleToStr(iClose("SBER" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò22 ="ÂÒÁ "+DoubleToStr(CH22,2)+"% (" 
  +DoubleToStr(iClose("VTBR" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò23 ="Óðàëêàëèé "+DoubleToStr(CH23,2)+"% (" 
  +DoubleToStr(iClose("URKA" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò24 ="Àýðîôëîò "+DoubleToStr(CH24,2)+"% (" 
  +DoubleToStr(iClose("AFLT" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò25 ="USDRUR "+DoubleToStr(CH25,2)+"% (" 
  +DoubleToStr(iClose("USDRUR" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò26 ="EURRUR "+DoubleToStr(CH26,2)+"% (" 
  +DoubleToStr(iClose("EURRUR" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò27 ="Ðóñãèäðî "+DoubleToStr(CH27,2)+"% (" 
  +DoubleToStr(iClose("HYDR" , PERIOD_D1,  0),2)+")";
  string Ïðîöåíò28 ="ÎÃÊ-3 "+DoubleToStr(CH28,2)+"% (" 
  +DoubleToStr(iClose("OGKC" , PERIOD_D1,  0),2)+")"; 
  string Ïðîöåíò29 ="Ïîëèìåòàëë "+DoubleToStr(CH29,2)+"% (" 
  +DoubleToStr(iClose("PMT" , PERIOD_D1,  0),2)+")";
   
  string Íàäïèñü1 ="Íåôòü è ãàç";
  string Íàäïèñü2 ="--------------------------------";
  string Íàäïèñü3 ="Ìåòàëëóðãèÿ";
  string Íàäïèñü4 ="--------------------------------";
  string Íàäïèñü5 ="Òåëåêîììóíèêàöèè";
  string Íàäïèñü6 ="--------------------------------";
  string Íàäïèñü7 ="Ýëåêòðîýíåðãåòèêà";
  string Íàäïèñü8 ="--------------------------------";
  string Íàäïèñü9 ="Áàíêîâñêèé ñåêòîð";
  string Íàäïèñü10 ="--------------------------------"; 
  string Íàäïèñü11 ="Óäîáðåíèÿ";
  string Íàäïèñü12 ="--------------------------------";
  string Íàäïèñü13 ="Ïåðåâîçêè";
  string Íàäïèñü14 ="--------------------------------";
  string Íàäïèñü15 ="--------------------------------";
//-----------------------------Ïîñòðîåíèå--------------------------------- 5 --|   
     ObjectSetText("Ïðîöåíò1",Ïðîöåíò1,14,"Verdana",lColor1);
     ObjectSet("Ïðîöåíò1",OBJPROP_XDISTANCE,5);     
     ObjectSet("Ïðîöåíò1",OBJPROP_YDISTANCE,5);   
     
     ObjectSetText("Ïðîöåíò2",Ïðîöåíò2,9,"Verdana",lColor2);
     ObjectSet("Ïðîöåíò2",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò2",OBJPROP_YDISTANCE,50);
     
     ObjectSetText("Ïðîöåíò3",Ïðîöåíò3,9,"Verdana",lColor3);
     ObjectSet("Ïðîöåíò3",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò3",OBJPROP_YDISTANCE,60);
     
     ObjectSetText("Ïðîöåíò4",Ïðîöåíò4,9,"Verdana",lColor4);
     ObjectSet("Ïðîöåíò4",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò4",OBJPROP_YDISTANCE,70);
     
     ObjectSetText("Ïðîöåíò5",Ïðîöåíò5,9,"Verdana",lColor5);
     ObjectSet("Ïðîöåíò5",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò5",OBJPROP_YDISTANCE,80); 
     
     ObjectSetText("Ïðîöåíò6",Ïðîöåíò6,9,"Verdana",lColor6);
     ObjectSet("Ïðîöåíò6",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò6",OBJPROP_YDISTANCE,90); 
     
     ObjectSetText("Ïðîöåíò7",Ïðîöåíò7,9,"Verdana",lColor7);
     ObjectSet("Ïðîöåíò7",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò7",OBJPROP_YDISTANCE,100);
     
     ObjectSetText("Ïðîöåíò8",Ïðîöåíò8,9,"Verdana",lColor8);
     ObjectSet("Ïðîöåíò8",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò8",OBJPROP_YDISTANCE,110);  
     
     ObjectSetText("Ïðîöåíò9",Ïðîöåíò9,9,"Verdana",lColor9);
     ObjectSet("Ïðîöåíò9",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò9",OBJPROP_YDISTANCE,149);
     
     ObjectSetText("Ïðîöåíò10",Ïðîöåíò10,9,"Verdana",lColor10);
     ObjectSet("Ïðîöåíò10",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò10",OBJPROP_YDISTANCE,159); 
     
     ObjectSetText("Ïðîöåíò11",Ïðîöåíò11,9,"Verdana",lColor11);
     ObjectSet("Ïðîöåíò11",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò11",OBJPROP_YDISTANCE,169);        
     
     ObjectSetText("Ïðîöåíò12",Ïðîöåíò12,9,"Verdana",lColor12);
     ObjectSet("Ïðîöåíò12",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò12",OBJPROP_YDISTANCE,179);                     
     
     ObjectSetText("Ïðîöåíò13",Ïðîöåíò13,9,"Verdana",lColor13);
     ObjectSet("Ïðîöåíò13",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò13",OBJPROP_YDISTANCE,199); 
          
     ObjectSetText("Ïðîöåíò14",Ïðîöåíò14,9,"Verdana",lColor14);
     ObjectSet("Ïðîöåíò14",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò14",OBJPROP_YDISTANCE,237); 
          
     ObjectSetText("Ïðîöåíò15",Ïðîöåíò15,9,"Verdana",lColor15);
     ObjectSet("Ïðîöåíò15",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò15",OBJPROP_YDISTANCE,247); 
     
     ObjectSetText("Ïðîöåíò16",Ïðîöåíò16,9,"Verdana",lColor16);
     ObjectSet("Ïðîöåíò16",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò16",OBJPROP_YDISTANCE,257); 
     
     ObjectSetText("Ïðîöåíò17",Ïðîöåíò17,9,"Verdana",lColor17);
     ObjectSet("Ïðîöåíò17",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò17",OBJPROP_YDISTANCE,267); 
     
     ObjectSetText("Ïðîöåíò18",Ïðîöåíò18,9,"Verdana",lColor18);
     ObjectSet("Ïðîöåíò18",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò18",OBJPROP_YDISTANCE,277);                
          
     ObjectSetText("Ïðîöåíò19",Ïðîöåíò19,9,"Verdana",lColor19);
     ObjectSet("Ïðîöåíò19",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò19",OBJPROP_YDISTANCE,315); 
     
     ObjectSetText("Ïðîöåíò20",Ïðîöåíò20,9,"Verdana",lColor20);
     ObjectSet("Ïðîöåíò20",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò20",OBJPROP_YDISTANCE,335);  
     
     ObjectSetText("Ïðîöåíò21",Ïðîöåíò21,9,"Verdana",lColor21);
     ObjectSet("Ïðîöåíò21",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò21",OBJPROP_YDISTANCE,459);           
     
     ObjectSetText("Ïðîöåíò22",Ïðîöåíò22,9,"Verdana",lColor22);
     ObjectSet("Ïðîöåíò22",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò22",OBJPROP_YDISTANCE,469); 
     
     ObjectSetText("Ïðîöåíò23",Ïðîöåíò23,9,"Verdana",lColor23);
     ObjectSet("Ïðîöåíò23",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò23",OBJPROP_YDISTANCE,421);
     
     ObjectSetText("Ïðîöåíò24",Ïðîöåíò24,9,"Verdana",lColor24);
     ObjectSet("Ïðîöåíò24",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò24",OBJPROP_YDISTANCE,383); 
     
     ObjectSetText("Ïðîöåíò25",Ïðîöåíò25,9,"Verdana",lColor25);
     ObjectSet("Ïðîöåíò25",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò25",OBJPROP_YDISTANCE,488); 
       
     ObjectSetText("Ïðîöåíò26",Ïðîöåíò26,9,"Verdana",lColor26);
     ObjectSet("Ïðîöåíò26",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò26",OBJPROP_YDISTANCE,498);                  
     
     ObjectSetText("Ïðîöåíò27",Ïðîöåíò27,9,"Verdana",lColor27);
     ObjectSet("Ïðîöåíò27",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò27",OBJPROP_YDISTANCE,345);  
     
     ObjectSetText("Ïðîöåíò28",Ïðîöåíò28,9,"Verdana",lColor28);
     ObjectSet("Ïðîöåíò28",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò28",OBJPROP_YDISTANCE,325);            

     ObjectSetText("Ïðîöåíò29",Ïðîöåíò29,9,"Verdana",lColor29);
     ObjectSet("Ïðîöåíò29",OBJPROP_XDISTANCE,10);     
     ObjectSet("Ïðîöåíò29",OBJPROP_YDISTANCE,189);             
  
            
        
     ObjectSetText("Íàäïèñü1",Íàäïèñü1,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü1",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü1",OBJPROP_YDISTANCE,32); 

     ObjectSetText("Íàäïèñü2",Íàäïèñü2,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü2",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü2",OBJPROP_YDISTANCE,40); 
     
     ObjectSetText("Íàäïèñü3",Íàäïèñü3,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü3",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü3",OBJPROP_YDISTANCE,131); 
     
     ObjectSetText("Íàäïèñü4",Íàäïèñü4,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü4",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü4",OBJPROP_YDISTANCE,139); 

     ObjectSetText("Íàäïèñü5",Íàäïèñü5,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü5",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü5",OBJPROP_YDISTANCE,219); 
     
     ObjectSetText("Íàäïèñü6",Íàäïèñü6,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü6",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü6",OBJPROP_YDISTANCE,227);
     
     ObjectSetText("Íàäïèñü7",Íàäïèñü7,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü7",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü7",OBJPROP_YDISTANCE,297); 
     
     ObjectSetText("Íàäïèñü8",Íàäïèñü8,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü8",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü8",OBJPROP_YDISTANCE,305);    
     
     ObjectSetText("Íàäïèñü9",Íàäïèñü9,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü9",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü9",OBJPROP_YDISTANCE,441); 
     
     ObjectSetText("Íàäïèñü10",Íàäïèñü10,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü10",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü10",OBJPROP_YDISTANCE,449);       
     
     ObjectSetText("Íàäïèñü11",Íàäïèñü11,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü11",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü11",OBJPROP_YDISTANCE,403); 
     
     ObjectSetText("Íàäïèñü12",Íàäïèñü12,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü12",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü12",OBJPROP_YDISTANCE,411);       
     
     ObjectSetText("Íàäïèñü13",Íàäïèñü13,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü13",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü13",OBJPROP_YDISTANCE,365); 
     
     ObjectSetText("Íàäïèñü14",Íàäïèñü14,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü14",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü14",OBJPROP_YDISTANCE,373);       
             
     ObjectSetText("Íàäïèñü15",Íàäïèñü15,9,"Verdana",NeutralColor);
     ObjectSet("Íàäïèñü15",OBJPROP_XDISTANCE,5);     
     ObjectSet("Íàäïèñü15",OBJPROP_YDISTANCE,478);                          
  return(0);
  }
//--------------------------------Êîíåö----------------------------------- 6 --|