Analizador Root - indicador para MetaTrader 4

Analizador.

Base de analitica.

Miner que recoge precio en forma binaria y lo deposita a

1. Array - body[x,x] 

2. Fichero txt - File_Name_Close

para posterior procesamiento. Fichero File_Name_Close es de tipo CSV que contiene tablas  de siguiente formato

Las variables Counter_Summa1 y Counter_Summa0 recogen suma de 1 y 0 durante la sesion de 1 minuto

      //+------------------------------------------------------------------+
      //|Grafic indicator                                                  |
      //+------------------------------------------------------------------+
     }
   if(Bar_Tm==0 && time_BR==Time[0])
     {
      Text_OBJ_LABEL("Tx_FM",1,1,50,"l",28,"Wingdings",clrWhite);
      return(0);
     }
   if(Bar_Tm!=Time[0])
     {
      Bar_Tm=Time[0];
      string File_Name_Close=TimeToStr(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+"-"+SYmbol+FR_Nm;
      int replacedC=StringReplace(File_Name_Close,":"," ");
      FileClose(replacedC);
      filename=TimeToStr(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+"-"+SYmbol+FR_Nm;
      string terminal_data_path=TerminalInfoString(TERMINAL_DATA_PATH);
      File_Name=terminal_data_path+"\\MQL4\\Files\\digitscandlesALL\\"+filename;
      int replaced=StringReplace(File_Name,":"," ");
      File_Name=DoubleToStr(Bar_Tm/60,0)+FR_Nm;
      Str_Pr_Bar=Bid;
      //Handle=FileOpen(File_Name_Close,FILE_CSV|FILE_WRITE,";");
     }
   Bars_Z(Bid);
   Text_OBJ_LABEL("Tx_FM",1,1,50,"l",28,"Wingdings",clrOrange);
   return(0);
  }
//+------------------------------------------------------------------+
//|Grafic indicator                                                  |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//|       Binary Miner                                               |
//+------------------------------------------------------------------+
void Bars_Z(double iBid)// Собрал я с Ирой с красочьных полей зерно и дали по горсти каждый дочери Крестине
  {
   int Cqt=0;
   Counter++;
   Cqt=(int)NormalizeDouble((iBid-Str_Pr_Bar)/Point,0);
   int qt_C=0;
   if(Cqt>1)//paso 1 arriba
     {
      for(int qt=0; qt<Cqt-1; qt++)
        {
         if(Array_Errors==true)
           {
            Print(" Index Array ",qt," 28507 ");


           }
         qt_C=Counter+qt;
         body[qt_C,0]=3;
         body[qt_C,1]=1;
         body [qt_C,2]=2;
         body [qt_C,3]=Str_Pr_Bar+(qt+1)*Point;
         //body [qt_C,4]=TimeCurrent();//Записываю время тика.
         //bintoarr[IFb1,IFb2]=1;//запись в строку параметров бинарного вычисления
         //bintoarrBID[IFb1,IFb2]=Bid;
         //body [qt_C,7]=iTime(Symbol(),PERIOD_CURRENT,0);
         //---
         // body [qt_C,4]=Open[0];
         // body [qt_C,5]=High[0];
         // body [qt_C,6]=Low[0];
         // body [qt_C,7]=111;//TEST
         //    FileWrite(Handle,body[qt_C,0],body[qt_C,1],body[qt_C,2],body[qt_C,3],body[qt_C,4],body[qt_C,5],body[qt_C,6],body[qt_C,7]);
         Counter1++;
        }
      Counter=qt_C+1;
     }
   if(Cqt<-1)
     {
      for(int qt=0; qt<MathAbs(Cqt)-1; qt++)
        {
         if(Array_Errors==true)
           {
            Print(" Index Array ",qt," 28535 ");


           }
         qt_C=Counter+qt;
         body [qt_C,0]=3;
         body [qt_C,1]=0;
         body [qt_C,2]=3;
         body [qt_C,3]=Str_Pr_Bar-(qt+1)*Point;
         //body [qt_C,4]=TimeCurrent();//Записываю время тика.
         // bintoarr[IFb1,IFb2]=0;
         // bintoarrBID[IFb1,IFb2]=Bid;
         //body [qt_C,7]=iTime(Symbol(),PERIOD_CURRENT,0);
         //---
         // body [qt_C,4]=Open[0];
         // body [qt_C,5]=High[0];
         // body [qt_C,6]=Low[0];
         //FileWrite(Handle,body[qt_C,0],body[qt_C,1],body[qt_C,2],body[qt_C,3],body[qt_C,4],body[qt_C,5],body[qt_C,6],body[qt_C,7]);
         Counter0++;
        }
      Counter=qt_C+1;
     }
   if(Str_Pr_Bar<=iBid)
     {
      body [Counter,1]=1;
      body [Counter,2]=1;
      //body [Counter,4]=TimeCurrent();//Записываю время тика.
      //bintoarr[IFb1,IFb2]=1;
      //bintoarrBID[IFb1,IFb2]=Bid;
      Counter1_1++;
     }
   else
     {
      body [Counter,1]=0;
      body [Counter,2]=0;
      //body [Counter,4]=TimeCurrent();//Записываю время тика.
      //bintoarr[IFb1,IFb2]=0;//пишу тик в бинарной интерпретации
      //bintoarrBID[IFb1,IFb2]=Bid;//пишу цену для тика
      Counter0_1++;
     }
   body [Counter,0]=iBid;
   body [Counter,3]=111;
//body [Counter,4]=TimeCurrent();//Записываю время тика.p
// body [Counter,4]=Open[0];
// body [Counter,5]=High[0];
// body [Counter,6]=Low[0];
//body[Counter,7]=iTime(Symbol(),PERIOD_CURRENT,0);
//FileWrite(Handle,body[Counter,0],body[Counter,1],body[Counter,2],body[Counter,3],body[Counter,4],body[Counter,5],body[Counter,6],body[Counter,7]);
   Str_Pr_Bar=iBid;
   Counter_Summa1 = Counter1+Counter1_1;
   Counter_Summa0 = Counter0+Counter0_1;
  }
//+------------------------------------------------------------------+
//|      END  Binary Miner                                           |
//+------------------------------------------------------------------+

Una vez procesado el Time Frame de 1 minuto en nuestro caso se aplican filtros para extraer la comrension de las fuerzas " Bear " y " Bool ".

" Girasol - La referencia de canto "

Indicador recoge dentro de un array la cantidad de precio mas referido a base de una sesion de 1 minuto y lo muestra desde siguiente variable MaxInd_bodypips

//+------------------------------------------------------------------+
         //|Sunflower Maximum Price Reference                                             |
         //+------------------------------------------------------------------+
         // ----- BigPipsFinder indicator ------
         price_Menus_one=bodypips[MaxInd_bodypips,0];
         pips_Menus_one=bodypips[MaxInd_bodypips,1];
         //Print("Price init 1  - ",bodypips[MaxInd_bodypips,0]);
         ArrayInitialize(bodypips,0);
         ArrayInitialize(comp_bodypips,0);
         for(int imm=1; imm<=99998; imm++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",imm," Array Name Body 1200");
              }
            //Print("body[imm,0] ",body[imm,0]);
            if(body[imm,0]==10)
              {
               break;
              }
           }
         if(body[1,0]>0 && body[1,0]<3)
           {
            if(body[1,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
              {
               // Indicate the price
               double price=body[1,0]+0.00001;// Get the price of the pointer
               bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
               bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
              }
            if(body[1,1]==0)// If in binary cell 1, then indicate the price higher - 0.00001
              {
               // Indicate the price
               double price=body[1,0]-0.00001;//Get the price of the pointer
               bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
               bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
              }
           }
         if(body[1,3]>0 && body[1,3]<3)
           {
            if(body[1,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
              {
               // Indicate the price
               double price=body[1,3]+0.00001;//Получаю цену указателя
               bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
               bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
              }
            if(body[1,1]==0)//Если в бинарной ячейке 1 то указуваем на цену выше - 0,00001
              {
               // Indicate the price
               double price=body[1,3]-0.00001;//Получаю цену указателя
               bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
               bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
              }
           }
         // ----- Processing the loop from the second line of the array -----
         Switch1=0;// Switch between iterations
         for(iaq=2; iaq<=99998; iaq++)// Iterate through the body array
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",iaq," Array Name Body 1248");
              }
            Switch1=0;// Assign 0 when re-entering the overflow
            if(body[iaq,0]>0 && body[iaq,0]<3)
              {
               // ---------- Processing 1 --------------
               if(body[iaq,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
                 {
                  // Indicate the price
                  double price=body[iaq,0]+0.00001;// Get the price of the pointer
                  int findeprice=0;//
                  int Break1=0;//exit from enumeration 1
                  int Break2=0;//exit from enumeration 1
                  for(ibq=1; ibq<=99998; ibq++)//Perebor stolbca 1
                    {
                     if(Array_Errors==true)
                       {
                        Print(" Index Array ",ibq," Array Name Bodypips 1265");
                       }
                     //Print("Price -7 ",price);
                     if(bodypips[ibq,0]==price)
                       {
                        //bodypips[ib,0]=price;//Присваиваю цену в первую ящейку массива.Массив заполнен 0;
                        bodypips[ibq,1]=bodypips[ibq,1]+1;
                        findeprice=1;// Assign 1 since we entered the body
                        Break1=1;// Assign 1 since we entered the body
                        Switch1=1;// Function executed; switch to column 3 is not necessary
                        break;
                       }
                     if(Break1==1)
                       {
                        break;
                       }
                    }
                  // ------ If there is no price, then add the price below ------
                  if(findeprice==0)// If the price is not found, then you need to add an entry to the arrayь
                    {
                     for(ibq=1; ibq<=99998; ibq++)
                       {
                        if(Array_Errors==true)
                          {
                           Print(" Index Array ",inx,"  1289");
                          }
                        if(bodypips[ibq,0]==0)
                          {
                           //Print("Price -6 ",price);
                           bodypips[ibq,0]=price;
                           bodypips[ibq,1]=bodypips[ibq,1]+1;
                           Break2=1;
                           Switch1=1;
                           break;
                          }
                        if(Break2==1)
                          {
                           break;
                          }
                       }
                    }
                 }
               // ------ Processing 0 ------
               if(body[iaq,1]==0)// If in binary cell 1, then indicate the price higher - 0.00001
                 {
                  double price=body[iaq,0]-0.00001;// Get the price of the pointer
                  int findeprice=0;
                  int Break1=0;
                  int Break2=0;
                  Switch1=1;
                  for(ibq=1; ibq<=99998; ibq++)
                    {
                     if(Array_Errors==true)
                       {
                        Print(" Index Array ",ibq,"  1319");
                       }
                     //Print("Price -5 ",price);
                     if(bodypips[ibq,0]==price)
                       {
                        //bodypips[ib,0]=price;
                        bodypips[ibq,1]=bodypips[ibq,1]+1;
                        findeprice=1;
                        Break1=1;
                        break;
                       }
                     if(Break1==1)
                       {
                        break;
                       }
                    }
                  // ------ If there is no price, then add the price below -------
                  if(findeprice==0)// If the price is not found, then you need to add an entry to the array
                    {
                     for(ibq=1; ibq<=99998; ibq++)
                       {
                        if(Array_Errors==true)
                          {
                           Print(" Index Array ",ibq,"  1342");
                          }
                        if(bodypips[ibq,0]==0)
                          {
                           //Print("Price -4 ",price);
                           bodypips[ibq,0]=price;
                           bodypips[ibq,1]=bodypips[ibq,1]+1;
                           Break2=1;
                           Switch1=1;
                           break;
                          }
                        if(Break2==1)
                          {
                           break;
                          }
                       }
                    }
                 }
               //---
              }
            if(Switch1==0)// If the switch is 1, then iterate over column 3
              {
               // ------- If the price record in the array is in column 3 ------
               if(body[iaq,3]>0 && body[iaq,3]<3)
                 {
                  if(body[iaq,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
                    {
                     double price=body[iaq,3]+0.00001;
                     int findeprice=0;
                     int Break1=0;
                     int Break2=0;
                     for(ibq=1; ibq<=99998; ibq++)
                       {
                        if(Array_Errors==true)
                          {
                           Print(" Index Array ",ibq,"  1377");
                          }
                        //Print("Price -3 ",price);
                        if(bodypips[ibq,0]==price)
                          {
                           //bodypips[ib,0]=price;
                           bodypips[ibq,1]=bodypips[ibq,1]+1;
                           findeprice=1;
                           Break1=1;
                           break;
                          }
                        if(Break1==1)
                          {
                           break;
                          }
                       }
                     // ------- If there is no price, then add the price below ------
                     if(findeprice==0)//Если не найдена цена значит нужно добавить в массив запись
                       {
                        for(ibq=1; ibq<=99998; ibq++)
                          {
                           if(Array_Errors==true)
                             {
                              Print(" Index Array ",ibq,"  1400");
                             }
                           if(bodypips[ibq,0]==0)
                             {
                              //Print("Price -2 ",price);
                              bodypips[ibq,0]=price;
                              bodypips[ibq,1]=bodypips[ibq,1]+1;
                              Break2=1;
                              break;
                             }
                           if(Break2==1)
                             {
                              break;
                             }
                          }
                       }
                    }
                  // ---------- Processing 0 ----------------
                  if(body[iaq,1]==0)// If in binary cell 1, then indicate the price higher - 0.00001
                    {
                     double price=body[iaq,3]-0.00001;
                     int findeprice=0;
                     int Break1=0;
                     int Break2=0;
                     for(ibq=1; ibq<=99998; ibq++)
                       {
                        if(Array_Errors==true)
                          {
                           Print(" Index Array ",ibq,"  1428");
                          }
                        //Print("Price -1 ",price);
                        if(bodypips[ibq,0]==price)
                          {
                           //bodypips[ib,0]=price;
                           bodypips[ibq,1]=bodypips[ibq,1]+1;
                           findeprice=1;
                           Break1=1;
                           break;
                          }
                        if(Break1==1)
                          {
                           break;
                          }
                       }
                     // ------ If there is no price, then add the price below ------
                     if(findeprice==0)
                       {
                        for(ibq=1; ibq<=99998; ibq++)
                          {
                           if(Array_Errors==true)
                             {
                              Print(" Index Array ",ibq,"  1451");
                             }
                           if(bodypips[ibq,0]==0)
                             {
                              //Print("Price ",price);
                              bodypips[ibq,0]=price;
                              bodypips[ibq,1]=bodypips[ibq,1]+1;
                              Break2=1;
                              break;
                             }
                           if(Break2==1)
                             {
                              break;
                             }
                          }
                       }
                    }
                 }
              }
           }
         for(int ic=1; ic<=99998; ic++)//Perebor stolbca 1
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",ic,"  1475");
              }
            comp_bodypips[ic]=bodypips[ic,1];
            //Print("line 1031 ",bodypips[ic,1]);
            //Print("line 1032 ",bodypips[ic,0]);
            if(bodypips[ic,0]==0)
              {
               break;
              }
           }
         MaxInd_bodypips=ArrayMaximum(comp_bodypips,WHOLE_ARRAY,0);// Get the index in the array in which the binary code for the price showed the most
         //+------------------------------------------------------------------+
         //|END Maximum Price Reference                                       |
         //+------------------------------------------------------------------+

Indicador de fuerza maxima " 1 " y fuerza minima " 0 " Las variables  Maximum   y Minimum muestran los resultados.

         //+------------------------------------------------------------------------+
         //| Counter Summa 1/0 -   Maximum , Minimum INDICARTOR   |
         //+-------------------------------------------------------------------------+
         k=0;
         ArrayInitialize(MaxMinArr,0);
         int inf;
         int ic;
         for(ic=1; ic<=99998; ic++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",ic,"  1500");
              }
            if(body[ic,0]==10)
              {
               break;
              }
           }
         inf=ic-1;
         int b1=(int)body[1,1];
         if(b1==1)
           {
            k=1;
           };
         if(b1==0)
           {
            k=0;
           };
         MaxMinArr[1,1]=k;
         MaxMinArr[1,2]=k;
         //-----------------------------
         int ina;
         for(ina=2; ina<=inf; ina++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",ina,"  1525");
              }
            if(body[ina,1]==1)
              {
               k++;
               MaxMinArr[1,1]=k;
               //Print(" k++ ",k);
              }
            if(body[ina,1]==0)
              {
               k--;
               MaxMinArr[1,2]=k;
               // Print(" k-- ",k);
              }
           }
         //Print(" k++ Ar",MaxMinArr[1,1]," k-- Ar",MaxMinArr[1,2]);
         //--------Max Min Numbers
         Maximum=MaxMinArr[1,1];//bool
         Minimum=MaxMinArr[1,2];//bear
         //Print(" Maximum ",Maximum," Minimum ",Minimum);
         ///-----------------------------
         double operandopen=iOpen(Symbol(),PERIOD_M1,1);
         double operandclose=iClose(Symbol(),PERIOD_M1,1);
         if(body[zeroindex,0]>0 && body[zeroindex,0]<2)
           {
            PriceZero=body[zeroindex,0];//Цена первого 0
           }
         else
            PriceZero=body[zeroindex,3];
         //Print(" PriceZero ",PriceZero);
         //----------Индикатор сложения бинарного кода с ценой зеро-----------------
         if(Maximum>0)
           {
            restantemaximum=NormalizeDouble(Maximum*Point,5);
            resOperandMax=operandopen-restantemaximum;
           }
         if(Maximum<0)
           {
            Maximum=MathAbs(Maximum);
            restantemaximum=NormalizeDouble(Maximum*Point,5);
            resOperandMax=operandopen-restantemaximum;
           }
         //Print(" restantemaximum ",restantemaximum," Maximum ",Maximum," operandopen ",operandopen," resOperandMax ",resOperandMax);
         if(Minimum>0)
           {
            restanteminimum=NormalizeDouble(Minimum*Point,5);
            resOperandMin=operandclose+restanteminimum;
           }
         if(Minimum<0)
           {
            Minimum=MathAbs(Minimum);
            restanteminimum=NormalizeDouble(Minimum*Point,5);
            resOperandMin=operandclose+restanteminimum;
           }
         //Print(" restanteminimum ",restanteminimum," Minimum ",Minimum," operandclose ",operandclose," resOperandMin ",resOperandMin);
         bool tr=false;
         if(resOperandMax==PriceZero || resOperandMin==PriceZero)
           {
            tr=true;
           }
         //Print( " tr ",tr);
         // --- The last digit indicates the type of resistance that formed inside the candle --- //
         //int LasData=MaxMinArr[inf];// Used for the divergence indicator
         //+-----------------------------------------------------------+
         //| END Counter Summa 1/0 -   Maximum , Minimum INDICARTOR    |
         //+-----------------------------------------------------------+

Indicador - " Semilla de Girasol "

Basade en formula que convalida subida y bajada de precio en 4 vaiables . Variedad Maternal " Be_0 " Variedad Paternal " Bo_0 " y su reflejo Variedad Maternal " Be_1 " y Variedad Paternal " Bo_1 "

Desde este bloque se realiza inlleccion del mismo dato a otras ramas de analitica.

Ejemplo en Imagen:

//+------------------------------------------------------------------+
         //|Sunflower Seed sides                                             |
         //+------------------------------------------------------------------+
         // ----- Formula 2 - If the new price is higher than the previous one, then the resulting maximum is translated into pips and summed up to the previous price (price + 1) price
         // If the new price is less than the previous one, then the resulting maximum is translated into pips and minus the previous price (price-1) price.
         // The obtained result is compared with the current price. If the price has risen and the current price is less than price-1 plus pips, then the price is inside
         // If the price has dropped and the price is higher than the price-1 minus pips, then the price is inside I will Condition 0
         // If the price has risen and the current price is higher than the price-1 plus pips, then the price is outside
         // If the price has dropped and the price is less than price-1 minus pips, then the price is outside and I will Condition 1
         double PipsPrice=NormalizeDouble(pips_Menus_one*Point,5);
         BinInd3BO=10;
         BinInd3BE=10;
         
         if(bodypips[MaxInd_bodypips,0]>price_Menus_one)
           {
            price_plus=price_Menus_one+PipsPrice;// Summed to the price -1 pips of the maximum -1
            if(bodypips[MaxInd_bodypips,0]<price_plus)// If the current price is less than the Received price with pips, then the price inside is assigned 1
              {
               BinInd3=0;
               BinInd3BO=0;
               
               Bo="Bo_"+IntegerToString(BinInd3);
               //Подача значений на маховик
               Bo_0=1;//Подача значений для X
               z_Bo_0=1;//Подача значений для Z
               Bo_0_C=1;//Подача значений для Kupol
               f_Bo_0=1;// Складывание в Лепесток
               //Обнуление преременных подачи после расчёта по блоку
               Be_0_C=0;
               Be_1_C=0;
               Bo_1_C=0;
              }
            if(bodypips[MaxInd_bodypips,0]>price_plus)
              {
               
               BinInd3=1;
               BinInd3BO=1;
               Bo="Bo_"+IntegerToString(BinInd3);
               //Подача значений на маховик
               Bo_1=1;//Подача значений для X
               z_Bo_1=1;//Подача значений для Z
               Bo_1_C=1;//Подача значений для Kupol
               f_Bo_1=1;// Складывание в Лепесток
               //Обнуление преременных подачи после расчёта по блоку
               Be_0_C=0;
               Bo_0_C=0;
               Be_1_C=0;
              }
           }
         //------------------------------------------------
         if(bodypips[MaxInd_bodypips,0]<price_Menus_one)
           {
            price_minus=price_Menus_one-PipsPrice;
            if(bodypips[MaxInd_bodypips,0]>price_minus)
              {
               
               BinInd3=0;
               BinInd3BE=0;
               Be="Be_"+IntegerToString(BinInd3);
               //Подача значений на маховик
               Be_0=1;//Подача значений для X
               z_Be_0=1;//Подача значений для Z
               Be_0_C=1;//Подача значений для Kupol
               f_Be_0=1;// Складывание в Лепесток
               //Обнуление преременных подачи после расчёта по блоку
               Bo_0_C=0;
               Be_1_C=0;
               Bo_1_C=0;
              }
            if(bodypips[MaxInd_bodypips,0]<price_minus)
              {
              
               BinInd3=1;
               BinInd3BE=1;
               Be="Be_"+IntegerToString(BinInd3);
               //Подача значений на маховик
               Be_1=1;//Подача значений для X
               z_Be_1=1;//Подача значений для Z
               Be_1_C=1;//Подача значений для Kupol
               f_Be_1=1;// Складывание в Лепесток
               //Обнуление преременных подачи после расчёта по блоку
               Be_0_C=0;
               Bo_0_C=0;
               Bo_1_C=0;
              }
           }
         //+------------------------------------------------------------------+
         //|END Sunflower Seed sides                                          |
         //+------------------------------------------------------------------+

Bloque de calculo de los niveles de fibonacci

//+------------------------------------------------------------------+
         //| Counter Summa 1/0 - Fibonacci ruler calculation                  |
         //+------------------------------------------------------------------+
         one_BE=Counter_Summa1_AR;//Power of bears
         int zero_BE=Counter_Summa0_AR;//Power of Bull
         Rez_BE=one_BE-zero_BE;
         // ----- Calculation of Fibonacci levels -----
         RefreshRates();
         datetime IreceiveBarTime=iTime(Symbol(),0,1);
         bartimeresult=IreceiveBarTime;
         IreceiveLevelresult=one_BE;
         HIGHT=iHigh(Symbol(),0,1);
         LOW=iLow(Symbol(),0,1);
         CLOSE=iClose(Symbol(),0,1);
         OPEN=iOpen(Symbol(),0,1);
         normalLevel=IreceiveLevelresult*Point;
         center=NormalizeDouble(HIGHT-((HIGHT-LOW)/2),NormalizaDigi);
         DoublspredPoint=spredpoints*Point();
         LEVELUP=NormalizeDouble((center+normalLevel),NormalizaDigi);//1
         LEVELDOWN=NormalizeDouble((center-normalLevel),NormalizaDigi);//1
         IpaintFiboLineUP_2=NormalizeDouble((LEVELUP+(normalLevel*2)),NormalizaDigi);//2
         IpaintFiboLineUP_3=NormalizeDouble((IpaintFiboLineUP_2+(normalLevel*3)),NormalizaDigi);//3
         IpaintFiboLineUP_5=NormalizeDouble((IpaintFiboLineUP_3+(normalLevel*5)),NormalizaDigi);//5
         IpaintFiboLineUP_8=NormalizeDouble((IpaintFiboLineUP_5+(normalLevel*8)),NormalizaDigi);//8
         IpaintFiboLineUP_13=NormalizeDouble((IpaintFiboLineUP_8+(normalLevel*13)),NormalizaDigi);//13
         IpaintFiboLineUP_21=NormalizeDouble((IpaintFiboLineUP_13+(normalLevel*21)),NormalizaDigi);//21
         IpaintFiboLineUP_34=NormalizeDouble((IpaintFiboLineUP_21+(normalLevel*34)),NormalizaDigi);
         IpaintFiboLineUP_55=NormalizeDouble((IpaintFiboLineUP_34+(normalLevel*55)),NormalizaDigi);
         IpaintFiboLineUP_89=NormalizeDouble((IpaintFiboLineUP_55+(normalLevel*89)),NormalizaDigi);
         IpaintFiboLineUP_144=NormalizeDouble((IpaintFiboLineUP_89+(normalLevel*144)),NormalizaDigi);
         IpaintFiboLineDOWN_2=NormalizeDouble((LEVELDOWN-(normalLevel*2)),NormalizaDigi);
         IpaintFiboLineDOWN_3=NormalizeDouble((IpaintFiboLineDOWN_2-(normalLevel*3)),NormalizaDigi);
         IpaintFiboLineDOWN_5=NormalizeDouble((IpaintFiboLineDOWN_3-(normalLevel*5)),NormalizaDigi);
         IpaintFiboLineDOWN_8=NormalizeDouble((IpaintFiboLineDOWN_5-(normalLevel*8)),NormalizaDigi);
         IpaintFiboLineDOWN_13=NormalizeDouble((IpaintFiboLineDOWN_8-(normalLevel*13)),NormalizaDigi);
         IpaintFiboLineDOWN_21=NormalizeDouble((IpaintFiboLineDOWN_13-(normalLevel*21)),NormalizaDigi);
         IpaintFiboLineDOWN_34=NormalizeDouble((IpaintFiboLineDOWN_21-(normalLevel*34)),NormalizaDigi);
         IpaintFiboLineDOWN_55=NormalizeDouble((IpaintFiboLineDOWN_34-(normalLevel*55)),NormalizaDigi);
         IpaintFiboLineDOWN_89=NormalizeDouble((IpaintFiboLineDOWN_55-(normalLevel*89)),NormalizaDigi);
         IpaintFiboLineDOWN_144=NormalizeDouble((IpaintFiboLineDOWN_89-(normalLevel*144)),NormalizaDigi);
         //+------------------------------------------------------------------+
         //| END Counter Summa 1/0 - Fibonacci ruler calculation              |
         //+------------------------------------------------------------------+

//+------------------------------------------------------------------+
         //|Sunflower Cupol                                                   |
         //+------------------------------------------------------------------+

//+------------------------------------------------------------------+
         //|Sunflower 8 bit volume feed - start calculation                   |
         //+------------------------------------------------------------------+

Calculo de la estructura de 8 bits la que contiene 4 lados de pipa de girasol desde adelante y 4 lados de la pipa de girasol desde atras.

La variedad se consigue a base de giro de brujula y sus 4 destinos correspondientes

La vercion x usa variedad 1 de calculos de giro de brujula https://github.com/Yevheniy83/Root/blob/master/Slide2.JPG

//+------------------------------------------------------------------+
         //|Sunflower 8 bit volume feed  side X calculation                   |
         //+------------------------------------------------------------------+
         //Print("Step2 ",Be_0," -Be_0 ",Bo_0," -Bo_0 ",Be_1," -Be_1 ",Bo_1," -Bo_1 ");
         //Print("Nueva ronda ",Var1_Be_0," Var1_Be_0 ",Var1_Bo_0," Var1_Bo_0 ",Var1_Be_1," Var1_Be_1 ",Var1_Bo_1," Var1_Bo_ ");
         //Подача значений
         int Var2_Be_0_p,Var2_Bo_0_p,Var2_Be_1_p,Var2_Bo_1_p;
         if(Be_0==1)
           {
            Var2_Be_0=1;
            Var2_Bo_0=2;
            Var2_Be_1=2;
            Var2_Bo_1=2;
            Be_0=0;
            Bo_0=0;
            Be_1=0;
            Bo_1=0;
            //impresion
            Var2_Be_0_p=1;
           }
         if(Bo_0==1)
           {
            Var2_Be_0=2;
            Var2_Bo_0=1;
            Var2_Be_1=2;
            Var2_Bo_1=2;
            Be_0=0;
            Bo_0=0;
            Be_1=0;
            Bo_1=0;
            //impresion
            Var2_Bo_0_p=1;
           }
         if(Be_1==1)
           {
            Var2_Be_1=1;
            Var2_Be_0=2;
            Var2_Bo_0=2;
            Var2_Bo_1=2;
            Be_0=0;
            Bo_0=0;
            Be_1=0;
            Bo_1=0;
            //impresion
            Var2_Be_1_p=1;
           }
         if(Bo_1==1)
           {
            Var2_Bo_1=1;
            Var2_Be_0=2;
            Var2_Bo_0=2;
            Var2_Be_1=2;
            Be_0=0;
            Bo_0=0;
            Be_1=0;
            Bo_1=0;
            //impresion
            Var2_Bo_1_p=1;
           }
         // Варианты вращение в правильной позиции. Смена строны производится мо методу переварота страницы в книге с лева на право или с права на лево
         // Вращение производится базируясь на вторую переменную. После присваивания и расчёта значения из второй переменной перетекают в первую.
         //Перед обработкой событий нужно выявить все правила для каждого направления.
         //Переприсваивание значения в тойже плоскости и том же лице если выпало тоже самое значение.Пример Be_0 и Be_0


         //Asignacion de datos a base de calculos de Claster
         // Print("1 - bodypips[MaxInd_bodypips,0] ",bodypips[MaxInd_bodypips,0]);
         float opa_float=bodypips[MaxInd_bodypips,0]*100000;
         int opa=opa_float;
         double opa_double=bodypips[MaxInd_bodypips,0]*100000;
         // Print("1- OPA ",opa);
         // Print("1- opa_float ",opa_float);
         //  Print("1- opa_double ",opa_double);
         //запуск кластерной архитектуры
         //доступ в массив по индексу
         int sev_p,zap_p,yug_p,vost_p;
         if(flower_Price_3[opa,36]==1)
           {
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            sev_p=1;
           }
         if(flower_Price_3[opa,36]==2)
           {
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            vost_p=1;
           }
         if(flower_Price_3[opa,36]==3)
           {
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            yug_p=1;
           }
         if(flower_Price_3[opa,36]==4)
           {
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            zap_p=1;
           }
         if(flower_Price_3[opa,35]==1)
           {
            Var1_Be_0=0;
            Var1_Bo_0=1;
            Var1_Be_1=1;
            Var1_Bo_1=1;
           }
         if(flower_Price_3[opa,35]==2)
           {
            Var1_Be_0=1;
            Var1_Bo_0=0;
            Var1_Be_1=1;
            Var1_Bo_1=1;
           }
         if(flower_Price_3[opa,35]==3)
           {
            Var1_Be_0=1;
            Var1_Bo_0=1;
            Var1_Be_1=0;
            Var1_Bo_1=1;
           }
         if(flower_Price_3[opa,35]==4)
           {
            Var1_Be_0=1;
            Var1_Bo_0=1;
            Var1_Be_1=1;
            Var1_Bo_1=0;
           }
         // Назначение переменной
         if(Var1_Be_0==0 && Var2_Be_0==1)
           {
            Var1_Bo_0=0;
            Var2_Be_0=1;
           }
         if(Var1_Be_0==2 && Var2_Be_0==1)
           {
            Var2_Be_0=1;
           }
         if(Var1_Bo_0==0 && Var2_Bo_0==1)
           {
            Var1_Be_0=0;
            Var2_Bo_0=1;
           }
         if(Var1_Bo_0==2 && Var2_Bo_0==1)
           {
            Var2_Bo_0=1;
           }
         if(Var1_Be_1==0 && Var2_Be_1==1)
           {
            Var1_Bo_1=0;
            Var2_Be_1=1;
           }
         if(Var1_Be_1==2 && Var2_Be_1==1)
           {
            Var2_Be_1=1;
           }
         if(Var1_Bo_1==0 && Var2_Bo_1==1)
           {
            Var1_Be_1=0;
            Var2_Bo_1=1;
           }
         if(Var1_Bo_1==2 && Var2_Bo_1==1)
           {
            Var2_Bo_1=1;
           }//CHeck ok
         //Print("Step3 ",Var1_Be_0," Var1_Be_0 ",Var1_Bo_0," Var1_Bo_0 ",Var1_Be_1," Var1_Be_1 ",Var1_Bo_1," Var1_Bo_1 ");
         //Print("Step4 ",Var2_Be_0," Var2_Be_0 ",Var2_Bo_0," Var2_Bo_0 ",Var2_Be_1," Var2_Be_1 ",Var2_Bo_1," Var2_Bo_1 ");
         ArrayInitialize(errorprint,0);
         bool ChekDIr=true;//еременная разрешающая 1 раз в цикл анализиравать блок направлений по компасу
         string BlockNum="0";
         // Правильная конфигурация Север
         // 1
         // Правильная конфигурация Север
         // 1
         //+------------------------------------------------------------------+
         //| Sunflower 1/0 - Cluster meter                                    |
         //+------------------------------------------------------------------+
         if(sev==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-om место то следует подавать с северной стороны  блюдо номер 2
           {
            Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 1";
            errorprint[1]=1;

            //официант подаёт блюдо-заказ с правой руки дальнюю позицию
           }
         // 2
         if(sev==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с северной стороны  блюдо номер 1
           {
            Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 2";
            errorprint[2]=1;

            //официант подаёт блюдо-заказ с левой руки дальнюю позицию
           }
         // 3
         if(sev==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с северной стороны  блюдо номер 4
           {
            Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 3";
            errorprint[3]=1;

            //официант подаёт блюдо-заказ с левой руки ближнюю позицию
           }
         // 4
         if(sev==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с северной стороны  блюдо номер 3
           {
            Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 4";
            errorprint[4]=1;

            //официант подаёт блюдо-заказ с правой руки ближнюю позицию
           }
         // 5
         // Не правильная конфигурация
         //Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ом место то следует подавать с Восточьной стороны  блюдо номер 4 "Используя подачи с левой руки"
         if(sev==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //Смещение по регистру с Севера *| на Запад «-
           {
            // разрешение на обработку события.
            Vost_1=1;
            Sev_1=0;
            Zap_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="S 5";
            errorprint[5]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Be_1=0;
              }
            //Второй варриант подачи абьёма после разворота по компасу
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;//Исходная переменная обнуляется для корректной работы механизма
               Var1_Bo_1=0;// Правельная переменная
               Var2_Be_1=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию
               // После разворота с севера на Восток, подача с Бо 1 Превращается в Бе1 а значит задействуется вторая правельна переменная для регистра обьёма Бо1
              }
            //Ссылка на инструкцию

           }
         // 6
         //Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(sev==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  // Смещение по регистру с Севера *| на Запад «-
           {
            // разрешение на обработку события. ok
            Zap_1=1;
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 6";
            errorprint[6]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 7
         //Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны  блюдо номер 3 "Используя подачи с правой руки"
         if(sev==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Севера *| на Восток -» //Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны  блюдо номер 3 "Используя подачи с правой руки"
           {
            // разрешение на обработку события. ok
            Vost_1=0;
            //Запрет для 3 направлений
            Zap_1=1;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="S 7";
            errorprint[7]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 8
         //Если официант подаёт с северной стороны и предыдущее блюдо на 3-м месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточьной стороны  блюдо номер 2 "Используя подачи с правой руки"
         if(sev==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // Смещение по регистру с Севера *| на Восток -»
           {
            // разрешение на обработку события. ok
            Vost_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="S 8";
            errorprint[8]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 9
         //Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Южной стороны  блюдо номер 4 "Используя подачи с правой руки"
         if(sev==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // Смещение по регистру с Севера *| на Юг .|
           {
            Yug_1=1;
            // разрешение на обработку события.ok
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="S 9";
            errorprint[9]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var2_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 10
         //Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны  блюдо номер 2 "Используя подачи с правой руки"
         if(sev==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Севера *|  на Юг .|
           {
            Yug_1=1;
            // разрешение на обработку события.
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Var1_Be_1=0;
            //Var2_Bo_1=1;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="S 10";
            errorprint[10]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var2_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 11
         //Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны  блюдо номер 3 "Используя подачи с правой руки"
         if(sev==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Севера *|  на Юг .|
           {
            Yug_1=1;
            // разрешение на обработку события. ok
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="S 11";
            errorprint[11]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var2_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 12
         //Если официант подаёт с северной стороны и предыдущее блюдо на 3-eм месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(sev==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // Смещение по регистру с Севера *|  на Юг .|
           {
            Yug_1=1;
            // разрешение на обработку события. ok
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="S 12";
            errorprint[12]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var2_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         //__________________________________
         // Правильная конфигурация Запад
         //Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
           {
            Zap_1=1;// разрешение на обработку события.
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 1";
            errorprint[13]=1;

            //став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
           }
         // 2
         //Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
           {
            Zap_1=1;// разрешение на обработку события.
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 2";
            errorprint[14]=1;

            //став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
           }
         // 3
         //Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
           {
            Zap_1=1;// разрешение на обработку события.
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 3";
            errorprint[5]=1;

            //став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
           }
         // 4
         //Если официант подаёт с западной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
           {
            Zap_1=1;// разрешение на обработку события.
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 4";
            errorprint[16]=1;

            //став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
           }
         // 5
         // Не правильная конфигурация
         //Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
           {
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=1;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 5";
            errorprint[17]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на север официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         // 6
         //Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
           {
            // разрешение на обработку события.ok
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=1;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 6";
            errorprint[18]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 7
         //Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
           {
            // разрешение на обработку события.ok
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=1;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 7";
            errorprint[19]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 8
         //Если официант подаёт с западной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
           {
            // разрешение на обработку события. ok
            Yug_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=1;
            //Var2_Be_0=1;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Z 8";
            errorprint[20]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на север официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 9
         //Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            Vost_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Zap_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Z 9";
            errorprint[21]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var2_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 10
         //Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"
         if(zap==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            Vost_1=1;
            // разрешение на обработку события. ok
            Zap_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Z 10";
            errorprint[22]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var2_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 11
         //Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(zap==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            Vost_1=1;
            // разрешение на обработку события.ok
            Zap_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Z 11";
            errorprint[23]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var2_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 12
         //Если официант подаёт с западной стороны и предыдущее блюдо на 3-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(zap==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            Vost_1=1;
            // разрешение на обработку события.ok
            Zap_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Z 12";
            errorprint[24]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var2_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         //__________________________________
         // Правильная конфигурация Восток
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
           {
            Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="V 1";
            errorprint[25]=1;
            //став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию

           }
         // 2
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-е место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
           {
            Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="V 2";
            errorprint[26]=1;
            //став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию

           }
         // 3
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-е место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
           {
            Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="V 3";
            errorprint[27]=1;
            //став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию

           }
         // 4
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
           {
            Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="V 4";
            errorprint[28]=1;
            //став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию

           }
         // 5
         // Не правильная конфигурация
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //Смещение по регистру с Востока -» на Север *| . 9 часов
           {
            // разрешение на обработку события.
            Sev_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=1;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="V 5";
            errorprint[29]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         // 6
         //Если официант подаёт с Восрочной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //Смещение по регистру с Востока -» на Север *|   9 часов
           {
            // разрешение на обработку события.ok
            Sev_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 6";
            errorprint[30]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на север официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 7
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Востока -» на Юг .|  3 часа
           {
            // разрешение на обработку события.ok
            Sev_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 7";
            errorprint[31]=1;
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на север официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 8
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-е место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // Смещение по регистру с Востока -» на Юг .|  3 часа
           {
            // разрешение на обработку события.ok
            Yug_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="V 8";
            errorprint[32]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 9
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            Zap_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 9";
            errorprint[33]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var2_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 10
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            Zap_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 10";
            errorprint[34]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var2_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 11
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            Zap_1=1;
            // разрешение на обработку события.ok
            Vost_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 11";
            errorprint[35]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var2_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 12
         //Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(vost==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            Zap_1=1;
            // разрешение на обработку события.ok
            Vost_1=0;
            //Запрет для 3 направлений
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="V 12";
            errorprint[36]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var2_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         //__________________________________
         // Правильная конфигурация Юг
         // 1
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
           {
            Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 1";
            errorprint[37]=1;
            //став лицом на юг официант подаёт блюдо-заказ с правой руки дальнюю позицию

           }
         // 2
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
           {
            Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 2";
            errorprint[38]=1;
            //став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию

           }
         // 3
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара  на 4-ое место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
           {
            Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 3";
            errorprint[39]=1;
            //став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию

           }
         // 4
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
           {
            Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Sev_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=1;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 4";
            errorprint[40]=1;
            //став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию

           }
         // 5
         // Не правильная конфигурация
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //Смещение по регистру с Юга на .| на Восток -» 9 часов
           {
            // разрешение на обработку события.ok
            Zap_1=1;
            //Запрет для 3 направлений
            Vost_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 5";
            errorprint[41]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         // 6
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //Смещение по регистру с Юга на .| на Восток -» 9 часов
           {
            // разрешение на обработку события.ok
            Vost_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Sev_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Y 6";
            errorprint[42]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 7
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Юга на .| на  Запад «- 3 часа
           {
            // разрешение на обработку события.ok
            Vost_1=1;
            //Запрет для 3 нап равлений
            Sev_1=0;
            Zap_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=0;
            yug=0;
            vost=1;
            ChekDIr=false;
            BlockNum="Y 7";
            errorprint[43]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 8
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // Смещение по регистру с Юга на .| на Запад «- 3 часа
           {
            // разрешение на обработку события.ok
            Zap_1=1;
            //Запрет для 3 направлений
            Sev_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=0;
            zap=1;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 8";
            errorprint[44]=1;
            //Перекласификация после разворота с класса 90 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 9
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            Sev_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 9";
            errorprint[45]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_0=2;
               Var1_Be_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_0=2;
               Var2_Bo_1=2;
               Var1_Be_0=0;
               Var2_Bo_0=1;//став лицом на север официант подаёт блюдо-заказ с правой руки дальнюю позицию
              }

           }
         // 10
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            Sev_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 10";
            errorprint[46]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Bo_1=2;
               Var1_Be_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Bo_1=2;
               Var2_Bo_0=2;
               Var1_Be_1=0;
               Var2_Bo_1=1;//став лицом на север официант подаёт блюдо-заказ с левой руки ближнюю позицию
              }

           }
         // 11
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            Sev_1=1;
            // разрешение на обработку события.ok
            Yug_1=0;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 11";
            errorprint[47]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_0=2;
               Var1_Bo_1=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_0=2;
               Var2_Be_1=2;
               Var1_Bo_0=0;
               Var2_Be_0=1;//став лицом на север официант подаёт блюдо-заказ с левой руки дальнюю позицию
              }

           }
         // 12
         //Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Северной стороны  блюдо номер 1 "Используя подачи с правой руки"  .
         if(yug==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            // разрешение на обработку события.ok
            Sev_1=1;
            //Запрет для 3 направлений
            Zap_1=0;
            Vost_1=0;
            Yug_1=0;
            //Проверка значения направления
            sev=1;
            zap=0;
            yug=0;
            vost=0;
            ChekDIr=false;
            BlockNum="Y 12";
            errorprint[48]=1;
            //Перекласификация после разворота с класса 180 градусов в класс 0 градусов
            if(Vol_B_Chang_1==true)
              {
               Var1_Be_1=2;
               Var1_Bo_0=0;
              }
            if(Vol_B_Chang_1==false)
              {
               Var1_Be_1=2;
               Var2_Be_0=2;
               Var1_Bo_1=0;
               Var2_Be_1=1;//став лицом на север официант подаёт блюдо-заказ с правой руки ближнюю позицию
              }

           }
         //+------------------------------------------------------------------+
         //| END - Sunflower 1/0 - Cluster meter                              |
         //+------------------------------------------------------------------+
         //Слой  Системы Коорденат. Расчёт системы коорденат базируется на выведенную архитектуру подсолнечника. Архитектура имеет 2 под архитектуры координат
         //из которой выводится вся архитектура с использованием центра в каждом из углов и сопряжений 4 переменных. В сути можно представить квадрат с 9 центрами.
         // 8 переметральных и 1 центральный.
         // Выведение Групп по коорденатам с использованием полового признака. Be Женский род Bo Мужской род
         //Grupo1 - исходный квадрат под индексом 1 в котором по средствам координат сведены 4 основные переменные.Человек взят для определения
         //движение по средствам механики как лицо лицевые и изнаночные движения
         // Соединение контура иконы Божей Матери "Кропивницкая церковь"
         //Звёздочек вокруг иконы "Божей матери"  Верикаль 2*12 Горизонталь 2*4 Всего 32
         // Индекс BM - "Молитва божей матери"
         //Comment(" Reloj ",Reloj," Contra Reloj ", Contra_Reloj," Reloj_1 ",Reloj_1," Contra Reloj_1 ", Contra_Reloj_1," Vost_1 ",Vost_1," Yug_1 ",Yug_1," Zap_1 ",Zap_1," Sev_1 ",Sev_1);
         //Функция купольного вращения 2
         //Проверка шаг 3
         string napravlenie;
         if(Sev_1==1)
           {
            napravlenie="Sev_1";
           }
         if(Yug_1==1)
           {
            napravlenie="Yug_1";
           }
         if(Zap_1==1)
           {
            napravlenie="Zap_1";
           }
         if(Vost_1==1)
           {
            napravlenie="Vost_1";
           }
         //Print(napravlenie);
         // 4 направления в которых вложены 2 стороны и 8 регистров. В сумме 768 регистров
         // ечать ошибок блока разрешений для индикатора Семечка
         //for(int gh=1;gh<49;gh++)
         //{
         //Print("index ",gh);
         //Print("errorprint ",errorprint[gh]);
         ArrayInitialize(errorprint2,0);
         //}
         //Поведение северной стороны
         //Поведение северной стороны
         if(Sev_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица ok
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,2]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[1]=1;//Proverka zapuska bloka
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(Sev[1,2]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку  ok
                 {
                  Sev[1,6]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[2]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению ok
               if(Sev[1,6]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[3]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(Sev[1,6]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку ok
                 {
                  Sev[1,2]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[4]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,1]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[5]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(Sev[1,1]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,5]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[6]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки OK
              {
               //1/1 Bo_0 && Be_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,5]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[6]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(Sev[1,5]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,1]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[7]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,4]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[8]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(Sev[1,4]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,8]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[9]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки OK
              {
               //1/1 Be_1 && Bo_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,8]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[10]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(Sev[1,8]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,4]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[11]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,3]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[12]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(Sev[1,3]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,7]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[13]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,7]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[14]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(Sev[1,7]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,3]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[15]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
           }// Sever фин
         //_____________________________________
         // Поведение Юг
         if(Yug_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,4]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[32]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(Sev[1,4]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,8]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[33]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,8]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[34]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(Sev[1,8]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,4]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[35]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица ok
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,3]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[36]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(Sev[1,3]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,7]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[37]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,7]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[38]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(Sev[1,7]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,3]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[39]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,2]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[40]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(Sev[1,2]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,6]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[41]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,6]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[42]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(Sev[1,6]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,2]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gx++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[43]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,1]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[44]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(Sev[1,1]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,5]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[45]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,5]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[46]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(Sev[1,5]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,1]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gx--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[47]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// izn==1 фин
           }// Yug фин
         //___________________________________
         // Поведение Запад
         if(Zap_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,1]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[64]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(Sev[1,1]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,5]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[65]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,5]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[66]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(Sev[1,5]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,1]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[67]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,4]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[68]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(Sev[1,4]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,8]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[69]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,8]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[70]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(Sev[1,8]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,4]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[71]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,3]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[72]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(Sev[1,3]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,7]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[73]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,7]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[74]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(Sev[1,7]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,3]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[75]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,2]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,2]=1;//ПРОВЕРИТъ Должно быть 1,4 Смена в регистре на противоположное значение на лице
                  Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[76]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(Sev[1,2]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,6]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[77]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,6]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,6]=1;//Проверить 1,7 Смена в регистре на противоположное значение на лице
                  Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[78]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(Sev[1,6]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,2]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[79]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
           }// Zapad фин
         //___________________________________
         // Поведение Восток
         if(Vost_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,3]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[96]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(Sev[1,3]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,7]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[97]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,7]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[98]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(Sev[1,7]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,3]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=0;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[99]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,2]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[100]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(Sev[1,2]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,6]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[101]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,6]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[102]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(Sev[1,6]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,2]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=0;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=2;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[103]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,1]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[104]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(Sev[1,1]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,5]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[105]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,5]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[106]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(Sev[1,5]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,1]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=2;
                  Var1_Bo_1=0;
                  //----------
                  Gy++;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[107]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[108]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(Sev[1,4]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,8]=0;
                  lic=0;//Смена Стороны
                  izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[109]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[110]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(Sev[1,4]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  Sev[1,8]=0;
                  lic=1;//Смена Стороны
                  izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  Var1_Be_0=2;
                  Var1_Bo_0=2;
                  Var1_Be_1=0;
                  Var1_Bo_1=2;
                  //----------
                  Gy--;
                  Var2_Be_0=2;
                  Var2_Bo_0=2;
                  Var2_Be_1=2;
                  Var2_Bo_1=2;
                  BlockPermis=false;
                  errorprint2[111]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// izn==1 фин
           }// Vostok фин
         //Праверка шаг 4
         string face;
         if(lic==1)
           {
            face="lic";
           }
         if(izn==1)
           {
            face="izn";
           }
         //-----
         //--Проверка на колличество входов в блоки
         int err2=0;
         for(int yk=0; yk<=149; yk++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",yk,"  5211");
              }
            if(errorprint2[yk]==1)
              {
               err2++;
              }
           }
         string Sterr2;
         Sterr2=IntegerToString(err2);
         //+------------------------------------------------------------------+
         //|END Sunflower 8 bit volume feed  side X calculation               |
         //+------------------------------------------------------------------+

Calculo de la estructura de 8 bits la que contiene 4 lados de pipa de girasol desde adelante y 4 lados de la pipa de girasol desde atras.

La variedad se consigue a base de giro de brujula y sus 4 destinos correspondientes

La vercion y usa variedad 2 de calculos de giro de brujula https://github.com/Yevheniy83/Root/blob/master/Slide2.JPG

//+------------------------------------------------------------------+
         //|Sunflower 8 bit volume feed  side Z calculation                   |
         //+------------------------------------------------------------------+
         //--Вращение Оси Z
         if(z_Be_0==1)
           {
            z_Var2_Be_0=1;
            z_Var2_Bo_0=2;
            z_Var2_Be_1=2;
            z_Var2_Bo_1=2;
            z_Be_0=0;
            z_Bo_0=0;
            z_Be_1=0;
            z_Bo_1=0;
           }
         if(z_Bo_0==1)
           {
            z_Var2_Be_0=2;
            z_Var2_Bo_0=1;
            z_Var2_Be_1=2;
            z_Var2_Bo_1=2;
            z_Be_0=0;
            z_Bo_0=0;
            z_Be_1=0;
            z_Bo_1=0;
           }
         if(z_Be_1==1)
           {
            z_Var2_Be_1=1;
            z_Var2_Be_0=2;
            z_Var2_Bo_0=2;
            z_Var2_Bo_1=2;
            z_Be_0=0;
            z_Bo_0=0;
            z_Be_1=0;
            z_Bo_1=0;
           }
         if(z_Bo_1==1)
           {
            z_Var2_Bo_1=1;
            z_Var2_Be_0=2;
            z_Var2_Bo_0=2;
            z_Var2_Be_1=2;
            z_Be_0=0;
            z_Bo_0=0;
            z_Be_1=0;
            z_Bo_1=0;
           }
         // Варианты вращение в правильной позиции. Смена строны производится мо методу переварота страницы в книге с лева на право или с права на лево
         // Вращение производится базируясь на вторую переменную. После присваивания и расчёта значения из второй переменной перетекают в первую.
         //Перед обработкой событий нужно выявить все правила для каждого направления.
         //Переприсваивание значения в тойже плоскости и том же лице если выпало тоже самое значение.Пример Be_0 и Be_0
         // Назначение переменной
         if(z_Var1_Be_0==0 && z_Var2_Be_0==1)
           {
            z_Var1_Bo_0=0;
            z_Var2_Be_0=1;
           }
         if(z_Var1_Be_0==2 && z_Var2_Be_0==1)
           {
            z_Var2_Be_0=1;
           }
         if(z_Var1_Bo_0==0 && z_Var2_Bo_0==1)
           {
            z_Var1_Be_0=0;
            z_Var2_Bo_0=1;
           }
         if(z_Var1_Bo_0==2 && z_Var2_Bo_0==1)
           {
            z_Var2_Bo_0=1;
           }
         if(z_Var1_Be_1==0 && z_Var2_Be_1==1)
           {
            z_Var1_Bo_1=0;
            z_Var2_Be_1=1;
           }
         if(z_Var1_Be_1==2 && z_Var2_Be_1==1)
           {
            z_Var2_Be_1=1;
           }
         if(z_Var1_Bo_1==0 && z_Var2_Bo_1==1)
           {
            z_Var1_Be_1=0;
            z_Var2_Bo_1=1;
           }
         if(z_Var1_Bo_1==2 && z_Var2_Bo_1==1)
           {
            z_Var2_Bo_1=1;
           }//CHeck ok
         //Print("Step3 ",Var1_Be_0," Var1_Be_0 ",Var1_Bo_0," Var1_Bo_0 ",Var1_Be_1," Var1_Be_1 ",Var1_Bo_1," Var1_Bo_1 ");
         //Print("Step4 ",Varz_Be_0," Varz_Be_0 ",Varz_Bo_0," Varz_Bo_0 ",Varz_Be_1," Varz_Be_1 ",Varz_Bo_1," Varz_Bo_1 ");
         ArrayInitialize(z_errorprint,0);
         bool z_ChekDIr=true;//еременная разрешающая 1 раз в цикл анализиравать блок направлений по компасу
         z_BlockNum="0";
         // Правильная конфигурация Север
         // 1
         // Правильная конфигурация Север
         // 1
         if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
           {
            z_Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 1";
            z_errorprint[1]=1;
           }
         // 2
         if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
           {
            z_Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 2";
            z_errorprint[2]=1;
           }
         // 3
         if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
           {
            z_Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 3";
            z_errorprint[3]=1;
           }
         // 4
         if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
           {
            z_Sev_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 4";
            z_errorprint[4]=1;
           }
         // 5
         // Не правильная конфигурация
         if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //Смещение по регистру с Севера *| на Запад «-
           {
            // разрешение на обработку события.
            z_Vost_1=0;
            z_Sev_1=0;
            z_Zap_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 5";
            z_errorprint[5]=1;
            z_Var1_Be_0=2;
            z_Var1_Be_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 6
         if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *| на Запад «-
           {
            // разрешение на обработку события.
            z_Zap_1=0;
            z_Sev_1=0;
            z_Vost_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 6";
            z_errorprint[6]=1;
            z_Var1_Bo_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 7
         if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *| на Восток -»
           {
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 7";
            z_errorprint[7]=1;
            z_Var1_Bo_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 8
         if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *| на Восток -»
           {
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 8";
            z_errorprint[8]=1;
            z_Var1_Be_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 9
         if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *| на Юг .|
           {
            z_Yug_1=0;
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 9";
            z_errorprint[9]=1;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 10
         if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Севера *|  на Юг .|
           {
            z_Yug_1=0;
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            //Var1_Be_1=0;
            //Varz_Bo_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="S 10";
            z_errorprint[10]=1;
            z_Var1_Bo_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 11
         if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *|  на Юг .|
           {
            z_Yug_1=0;
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="S 11";
            z_errorprint[11]=1;
            z_Var1_Be_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 12
         if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  // Смещение по регистру с Севера *|  на Юг .|
           {
            z_Yug_1=0;
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="S 12";
            z_errorprint[12]=1;
            z_Var1_Be_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         //__________________________________
         // Правильная конфигурация Запад
         if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
           {
            z_Zap_1=1;// разрешение на обработку события.
            z_Sev_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 1";
            z_errorprint[13]=1;
           }
         // 2
         if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
           {
            z_Zap_1=1;// разрешение на обработку события.
            z_Sev_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 2";
            z_errorprint[14]=1;
           }
         // 3
         if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
           {
            z_Zap_1=1;// разрешение на обработку события.
            z_Sev_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 3";
            z_errorprint[5]=1;
           }
         // 4
         if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
           {
            z_Zap_1=1;// разрешение на обработку события.
            z_Sev_1=0;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 4";
            z_errorprint[16]=1;
           }
         // 5
         // Не правильная конфигурация
         if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
           {
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Z 5";
            z_errorprint[17]=1;
            z_Var1_Be_0=2;
            z_Var1_Be_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 6
         if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Z 6";
            z_errorprint[18]=1;
            z_Var1_Bo_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 7
         if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Z 7";
            z_errorprint[19]=1;
            z_Var1_Bo_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 8
         if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
           {
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            z_Sev_1=0;
            //Varz_Be_0=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Z 8";
            z_errorprint[20]=1;
            z_Var1_Be_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 9
         if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            z_Vost_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Sev_1=1;
            z_Zap_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 9";
            z_errorprint[21]=1;
            z_Var1_Bo_0=2;
            z_Var1_Be_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 10
         if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            z_Vost_1=0;
            // разрешение на обработку события.
            z_Zap_1=0;
            //Запрет для 3 направлений
            z_Sev_1=1;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 10";
            z_errorprint[22]=1;
            z_Var1_Bo_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 11
         if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            z_Vost_1=0;
            // разрешение на обработку события.
            z_Zap_1=0;
            //Запрет для 3 направлений
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 11";
            z_errorprint[23]=1;
            z_Var1_Be_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 12
         if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
           {
            z_Vost_1=0;
            // разрешение на обработку события.
            z_Zap_1=0;
            //Запрет для 3 направлений
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Z 12";
            z_errorprint[24]=1;
            z_Var1_Be_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         //__________________________________
         // Правильная конфигурация Восток
         if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
           {
            z_Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="V 1";
            z_errorprint[25]=1;
           }
         // 2
         if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
           {
            z_Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="V 2";
            z_errorprint[26]=1;
           }
         // 3
         if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
           {
            z_Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="V 3";
            z_errorprint[27]=1;
           }
         // 4
         if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
           {
            z_Vost_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="V 4";
            z_errorprint[28]=1;
           }
         // 5
         // Не правильная конфигурация
         if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //Смещение по регистру с Востока -» на Север *| . 9 часов
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 5";
            z_errorprint[29]=1;
            z_Var1_Be_0=2;
            z_Var1_Be_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 6
         if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  //Смещение по регистру с Востока -» на Север *|   9 часов
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 6";
            z_errorprint[30]=1;
            z_Var1_Bo_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 7
         if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Востока -» на Юг .|  3 часа
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 7";
            z_errorprint[31]=1;
            z_Var1_Bo_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 8
         if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)  // Смещение по регистру с Востока -» на Юг .|  3 часа
           {
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 8";
            z_errorprint[32]=1;
            z_Var1_Be_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 9
         if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            z_Zap_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Sev_1=1;
            z_Vost_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 9";
            z_errorprint[33]=1;
            z_Var1_Bo_0=2;
            z_Var1_Be_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 10
         if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            z_Zap_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Sev_1=1;
            z_Vost_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 10";
            z_errorprint[34]=1;
            z_Var1_Bo_1=2;
            z_Var1_Be_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 11
         if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            z_Zap_1=0;
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 направлений
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 11";
            z_errorprint[35]=1;
            z_Var1_Be_0=2;
            z_Var1_Bo_1=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 12
         if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  // Смещение по регистру с Востока -» на Запад «- 6 часов
           {
            z_Zap_1=0;
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 направлений
            z_Sev_1=0;
            z_Yug_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="V 12";
            z_errorprint[36]=1;
            z_Var1_Be_1=2;
            z_Var1_Bo_0=0;
            //Смена Оси для правил Z
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         //__________________________________
         // Правильная конфигурация Юг
         // 1
         if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
           {
            z_Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 1";
            z_errorprint[37]=1;
           }
         // 2
         if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
           {
            z_Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 2";
            z_errorprint[38]=1;
           }
         // 3
         if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
           {
            z_Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 3";
            z_errorprint[39]=1;
           }
         // 4
         if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
           {
            z_Yug_1=1;// разрешение на обработку события.
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=0;
            z_Sev_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=1;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 4";
            z_errorprint[40]=1;
           }
         // 5
         // Не правильная конфигурация
         if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //Смещение по регистру с Юга на .| на Восток -» 9 часов
           {
            // разрешение на обработку события.
            z_Zap_1=0;
            //Запрет для 3 направлений
            z_Vost_1=0;
            z_Sev_1=1;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 5";
            z_errorprint[41]=1;
            z_Var1_Be_0=2;
            z_Var1_Be_1=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 6
         if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  //Смещение по регистру с Юга на .| на Восток -» 9 часов
           {
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Sev_1=1;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 6";
            z_errorprint[42]=1;
            z_Var1_Bo_1=2;
            z_Var1_Bo_0=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 7
         if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Юга на .| на  Запад «- 3 часа
           {
            // разрешение на обработку события.
            z_Vost_1=0;
            //Запрет для 3 нап равлений
            z_Sev_1=1;
            z_Zap_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 7";
            z_errorprint[43]=1;
            z_Var1_Bo_0=2;
            z_Var1_Bo_1=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 8
         if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)  // Смещение по регистру с Юга на .| на Запад «- 3 часа
           {
            // разрешение на обработку события.
            z_Zap_1=0;
            //Запрет для 3 направлений
            z_Sev_1=1;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=1;
            z_zap=0;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 8";
            z_errorprint[44]=1;
            z_Var1_Be_1=2;
            z_Var1_Be_0=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 9
         if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            z_Sev_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Y 9";
            z_errorprint[45]=1;
            z_Var1_Bo_0=2;
            z_Var1_Be_1=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 10
         if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            z_Sev_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=0;
            z_Vost_1=1;
            //Проверка значения направления
            z_sev=0;
            z_zap=0;
            z_yug=0;
            z_vost=1;
            z_ChekDIr=false;
            z_BlockNum="Y 10";
            z_errorprint[46]=1;
            z_Var1_Bo_1=2;
            z_Var1_Be_0=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 11
         if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            z_Sev_1=0;
            // разрешение на обработку события.
            z_Yug_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 11";
            z_errorprint[47]=1;
            z_Var1_Be_0=2;
            z_Var1_Bo_1=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         // 12
         if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true)  // Смещение по регистру с Юга на .| на Север *| 6 часов
           {
            // разрешение на обработку события.
            z_Sev_1=0;
            //Запрет для 3 направлений
            z_Zap_1=1;
            z_Vost_1=0;
            z_Yug_1=0;
            //Проверка значения направления
            z_sev=0;
            z_zap=1;
            z_yug=0;
            z_vost=0;
            z_ChekDIr=false;
            z_BlockNum="Y 12";
            z_errorprint[48]=1;
            z_Var1_Be_1=2;
            z_Var1_Bo_0=0;
            z_CheFe=1;
            if(z_CheFe==1 && z_lic==1)
              {
               z_izn=1;
               z_lic=0;
               z_CheFe=0;
              }
            if(z_CheFe==1 && z_izn==1)
              {
               z_izn=0;
               z_lic=1;
               z_CheFe=0;
              }
           }
         //Проверка шаг 3
         string z_napravlenie;
         if(z_Sev_1==1)
           {
            z_napravlenie="z_Sev_1";
           }
         if(z_Yug_1==1)
           {
            z_napravlenie="z_Yug_1";
           }
         if(z_Zap_1==1)
           {
            z_napravlenie="z_Zap_1";
           }
         if(z_Vost_1==1)
           {
            z_napravlenie="z_Vost_1";
           }
         //Print(napravlenie);
         // 4 направления в которых вложены 2 стороны и 8 регистров. В сумме 768 регистров
         // ечать ошибок блока разрешений для индикатора Семечка
         //for(int gh=1;gh<49;gh++)
         //{
         //Print("index ",gh);
         //Print("errorprint ",errorprint[gh]);
         ArrayInitialize(z_errorprint2,0);
         //}
         //Поведение северной стороны
         if(z_Sev_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,2]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[1]=1;//Proverka zapuska bloka
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(z_Sev[1,2]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[2]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,5]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[3]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(z_Sev[1,5]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[4]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,1]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[5]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(z_Sev[1,1]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[6]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[6]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(z_Sev[1,6]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[7]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,4]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[8]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(z_Sev[1,4]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[9]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,7]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[10]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(z_Sev[1,7]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[11]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,3]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[12]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(z_Sev[1,3]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[13]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,8]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[14]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(z_Sev[1,8]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[15]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// izn==1 фин
           }// Sever фин
         //_____________________________________
         // Поведение Юг
         if(z_Yug_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,4]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[32]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(z_Sev[1,4]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[33]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[34]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(z_Sev[1,7]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[35]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,3]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[36]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(z_Sev[1,3]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[37]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,8]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[38]=1;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(z_Sev[1,8]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[39]=1;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,2]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[40]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(z_Sev[1,2]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[41]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,5]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[42]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(z_Sev[1,5]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gx++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[43]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,1]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[44]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(z_Sev[1,1]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[45]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,6]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[46]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(z_Sev[1,6]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gx--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[47]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
           }// Yug фин
         //___________________________________
         // Поведение Запад
         if(z_Zap_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,1]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[64]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(z_Sev[1,1]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[65]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[66]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(z_Sev[1,7]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[67]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,4]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[68]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(z_Sev[1,4]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[69]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[70]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(z_Sev[1,6]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[71]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,3]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[72]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(z_Sev[1,3]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[73]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,8]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[74]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(z_Sev[1,8]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[75]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,2]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=1;//ПРОВЕРИТъ Должно быть 1,4 Смена в регистре на противоположное значение на лице
                  z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[76]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(z_Sev[1,2]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[77]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,5]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=1;//Проверить 1,7 Смена в регистре на противоположное значение на лице
                  z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[78]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(z_Sev[1,5]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[79]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
           }// Zapad фин
         //___________________________________
         // Поведение Восток
         if(z_Vost_1==1)
           {
            //Подача значения на Лицо номер 1
            //1 Be_0 && Bo_0
            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,3]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[96]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
               if(z_Sev[1,3]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[97]=1;
                  kubo_8++;
                  Text_Kubo_8=IntegerToString(kubo_8);
                  ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
              {
               //1/1 Be_0 && Bo_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,8]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[98]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
               if(z_Sev[1,8]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=0;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[99]=1;
                  kubo_6++;
                  Text_Kubo_6=IntegerToString(kubo_6);
                  ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 2
            //1 Bo_0 && Be_0
            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,2]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[100]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
               if(z_Sev[1,2]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[101]=1;
                  kubo_5++;
                  Text_Kubo_5=IntegerToString(kubo_5);
                  ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
              {
               //1/1 Bo_0 && Be_0
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,5]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[102]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
               if(z_Sev[1,5]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=0;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[103]=1;
                  kubo_7++;
                  Text_Kubo_7=IntegerToString(kubo_7);
                  ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 3
            //1 Be_1 && Bo_1
            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,1]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[104]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
               if(z_Sev[1,1]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,5]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[105]=1;
                  kubo_2++;
                  Text_Kubo_2=IntegerToString(kubo_2);
                  ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
              {
               //1/1 Be_1 && Bo_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,6]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[106]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
               if(z_Sev[1,6]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,2]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=2;
                  z_Var1_Bo_1=0;
                  //----------
                  z_Gy++;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[107]=1;
                  kubo_4++;
                  Text_Kubo_4=IntegerToString(kubo_4);
                  ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
                 }
              }// izn==1 фин
            //Подача значения на Лицо номер 4
            //1 Bo_1 && Be_1
            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
              {
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,4]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[108]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
               if(z_Sev[1,4]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,8]=0;
                  z_lic=0;//Смена Стороны
                  z_izn=1;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[109]=1;
                  kubo_3++;
                  Text_Kubo_3=IntegerToString(kubo_3);
                  ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
                 }
              }// lic==1 фин
            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
              {
               //1/1 Bo_1 && Be_1
               bool z_BlockPermis=true;
               // Сравнение состояния 2 регистров лица и изнанки по поданному значению
               if(z_Sev[1,7]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
                 {
                  z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
                  z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[110]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
               if(z_Sev[1,7]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
                 {
                  z_Sev[1,3]=0;
                  z_lic=1;//Смена Стороны
                  z_izn=0;//Смена Стороны
                  //Перераспределение разрешений переменных
                  z_Var1_Be_0=2;
                  z_Var1_Bo_0=2;
                  z_Var1_Be_1=0;
                  z_Var1_Bo_1=2;
                  //----------
                  z_Gy--;
                  z_Var2_Be_0=2;
                  z_Var2_Bo_0=2;
                  z_Var2_Be_1=2;
                  z_Var2_Bo_1=2;
                  z_BlockPermis=false;
                  z_errorprint2[111]=1;
                  kubo_1++;
                  Text_Kubo_1=IntegerToString(kubo_1);
                  ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
                 }
              }// izn==1 фин
           }// Vostok фин
         //+------------------------------------------------------------------+
         //|END Sunflower 8 bit volume feed  side Z calculation                   |
         //+------------------------------------------------------------------+

Modulo de calculo de asignacion de precio a base de 5 semillas de la cupula ortodoxal. 5 semillas forman grupo de 20 pecios que se asignas a los cantos para proporcionar facilidad de calculo posterior

//+------------------------------------------------------------------+
         //|Sunflower -  5 cells of the church dome                           |
         //+------------------------------------------------------------------+
         //-Купол - Расчёт базируется на 5 семечках и 4 архитектурах. Используется ценавая привязка к 20 центрам в 5 семечках
         //-Формула расчёта привязки семечки
         //Модуль позиционирования цены в купол
         //Print(" 2 - bodypips[MaxInd_bodypips,0] ",bodypips[MaxInd_bodypips,0]);

         Price=bodypips[MaxInd_bodypips,0];
         Print(" Price - ", Price);
         //Print (" Price ",Price);
         PriceConv1=(Price*cienm)/Veinte;
         PriceConv2=PriceConv1;
         PriceConv4=PriceConv2;
         PriceConv3=NormalizeDouble((PriceConv1-PriceConv4),2)*cien;
         N_Centro=PriceConv3/5;//Приведение цены к купольному центру
         N_Gr20=PriceConv2+1;
         if(N_Centro==0)
           {
            N_Centro=20;
            N_Gr20++;
           }
         //+------------------------------------------------------------------+
         //|Sunflower -  cluster 16 variables of the church dome              |
         //+------------------------------------------------------------------+
         int Arch_Inf;
         string Var_Inf;
         int Cluster16_inf;
         int AgujaReloj_inf;
         //Print(" + -------------------------------------------+");
         double Price_A=(bodypips[MaxInd_bodypips,0])*cienm;
         //Print(" Price_A] ",Price_A);
         //double CLuster_Ne=Price_A/16;
         //Print("CLuster_Ne ",CLuster_Ne);
         double CLuster_N=NormalizeDouble(Price_A/16,4);
         //Print("CLuster_N ",CLuster_N);
         int CLuster_N1=CLuster_N;
         //Print("CLuster_N1 ",CLuster_N1);
         double Cluster_Res=(CLuster_N-CLuster_N1)*100;
         //Print("Cluster_Res ",Cluster_Res);
         double Var_I=Cluster_Res/6.25;
         //Print(" + -------------------------------------------+");
         if(Var_I==0)
           {
            Var_I=16;
           }
         //Print("Var_I ",Var_I);
         //Comment(" Numero de Variedad ",Var_I);
         if(Var_I==1)
           {
            // Print("+------------------------------------------------------------------+");
            Arch_Inf=1;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==2)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=2;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==3)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=3;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==4)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=4;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==5)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=1;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==6)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=2;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==7)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=3;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==8)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=4;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==9)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=1;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==10)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=2;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==11)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=3;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==12)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=4;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=-1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==13)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=1;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==14)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=2;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==15)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=3;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Bo_1_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         if(Var_I==16)
           {
            //Print("+------------------------------------------------------------------+");
            Arch_Inf=4;
            //Print(" Arch_Inf ",Arch_Inf);
            Var_Inf="Be_0_Sev";
            //Print(" Var_Inf ",Var_Inf);
            //Print(" N_Centro_20 ",N_Centro);
            //Print(" N_Gr200 ",N_Gr20);
            Cluster16_inf=CLuster_N1+1;
            //Print(" Cluster16_inf ",Cluster16_inf);
            AgujaReloj_inf=1;
            //Print(" AgujaReloj_inf ",AgujaReloj_inf);
           }
         //+------------------------------------------------------------------+
         //|END Sunflower -  5 cells of the church dome                       |
         //+------------------------------------------------------------------+

Bloque de cuento del patern 1. 

Se calcula la formula a base de juntar precio en un petalo de arquitectura.

//+----------------------------------------------------------------+
//|Sunflower -  sunflower seeds architecture                         |
//+----------------------------------------------------------------+
         // ------ Свод Цена-Купол + Свод Цена - Крест Абьём
         // Пример. Массива Север
         //   Sev[1,1]=0; Be_0
         //   Sev[1,2]=0; Bo_0
         //   Sev[1,3]=0; Be_1
         //   Sev[1,4]=0; Bo_1
         //Блок Получения Разрешений для оброботки события расчёта патернов
         //1.Расчитывается - сравнивается предыдущие значения с текущими
         //Print(" comp_Sev[1,1]!=Sev[1,1] ",comp_Sev[1,1]!=Sev[1,1]); //
         //Print(" comp_Sev ",comp_Sev[1,1],comp_Sev[1,2],comp_Sev[1,3],comp_Sev[1,4],comp_Sev[1,5],comp_Sev[1,6],comp_Sev[1,7],comp_Sev[1,8]);
         //Print("      Sev ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8]);
         if(comp_Sev[1,1]!=Sev[1,1] && Sev[1,1]==1)//Be_0 Место 1,5,9,13,17 Если в массиве  появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
           {
            Per_Sev1=1;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev1 ",Per_Sev1);
            Arch3=1;
           }  //присвоил разрешение на оброботку события
         if(comp_Sev[1,2]!=Sev[1,2] && Sev[1,2]==1)//Bo_0  Место 2,6,10,14,18
           {
            Per_Sev1=0;
            Per_Sev2=1;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev2 ",Per_Sev2);
            Arch3=2;
           }
         if(comp_Sev[1,3]!=Sev[1,3] && Sev[1,3]==1)//Be_1 Место 3,7,11,15,19
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=1;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev3 ",Per_Sev3);
            Arch3=3;
           }
         if(comp_Sev[1,4]!=Sev[1,4] && Sev[1,4]==1)//Bo_1 Место 4,8,12,16,20
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=1;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev4 ",Per_Sev4);
            Arch3=4;
           }
         if(comp_Sev[1,5]!=Sev[1,5] && Sev[1,5]==1)//Be_0 Место 1,5,9,13,17 Если в массиве  появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=1;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev1 ",Per_Sev1);
            Arch3=5;
           }  //присвоил разрешение на оброботку события
         if(comp_Sev[1,6]!=Sev[1,6] && Sev[1,6]==1)//Be_0 Место 1,5,9,13,17 Если в массиве  появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=1;
            Per_Sev7=0;
            Per_Sev8=0;
            //Print("Per_Sev1 ",Per_Sev1);
            Arch3=6;
           }  //присвоил разрешение на оброботку события
         if(comp_Sev[1,7]!=Sev[1,7] && Sev[1,7]==1)//Be_0 Место 1,5,9,13,17 Если в массиве  появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=1;
            Per_Sev8=0;
            //Print("Per_Sev1 ",Per_Sev1);
            Arch3=7;
           }  //присвоил разрешение на оброботку события
         if(comp_Sev[1,8]!=Sev[1,8] && Sev[1,8]==1)//Be_0 Место 1,5,9,13,17 Если в массиве  появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
           {
            Per_Sev1=0;
            Per_Sev2=0;
            Per_Sev3=0;
            Per_Sev4=0;
            Per_Sev5=0;
            Per_Sev6=0;
            Per_Sev7=0;
            Per_Sev8=1;
            //Print("Per_Sev1 ",Per_Sev1);
            Arch3=8;
           }  //присвоил разрешение на оброботку события
         //Print("Arch3 ",Arch3);
         //int PermisBLock=0;
         //if(comp_Sev[1,1]!=Sev[1,1] && comp_Sev[1,2]!=Sev[1,2] && comp_Sev[1,3]!=Sev[1,3] && comp_Sev[1,4]!=Sev[1,4] && comp_Sev[1,5]!=Sev[1,5] && comp_Sev[1,6]==Sev[1,6] && comp_Sev[1,7]==Sev[1,7] && comp_Sev[1,8]==Sev[1,8])//Если патерн после пересчёта на изменился относительно подачи абьёма
         //{  PermisBLock=1;}
         //if(PermisBLock==1 && Price_Compare!=bodypips[MaxInd_bodypips,0])//Если цена разная то доступ в блок открыт
         //{
         //2. Определяется номер центра и порядковый номер семечки
         //Print("N_Centro 1 ",N_Centro);//test OK
         N_Centro_r=0;
         PipsNumber=0;
         if(N_Centro==1)
           {
            N_Centro_r=1;
            PipsNumber=1;
           }
         if(N_Centro==2)
           {
            N_Centro_r=2;
            PipsNumber=1;
           }
         if(N_Centro==3)
           {
            N_Centro_r=3;
            PipsNumber=1;
           }
         if(N_Centro==4)
           {
            N_Centro_r=4;
            PipsNumber=1;
           }
         if(N_Centro==5)
           {
            N_Centro_r=1;
            PipsNumber=2;
           }
         if(N_Centro==6)
           {
            N_Centro_r=2;
            PipsNumber=2;
           }
         if(N_Centro==7)
           {
            N_Centro_r=3;
            PipsNumber=2;
           }
         if(N_Centro==8)
           {
            N_Centro_r=4;
            PipsNumber=2;
           }
         if(N_Centro==9)
           {
            N_Centro_r=1;
            PipsNumber=3;
           }
         if(N_Centro==10)
           {
            N_Centro_r=2;
            PipsNumber=3;
           }
         if(N_Centro==11)
           {
            N_Centro_r=3;
            PipsNumber=3;
           }
         if(N_Centro==12)
           {
            N_Centro_r=4;
            PipsNumber=3;
           }
         if(N_Centro==13)
           {
            N_Centro_r=1;
            PipsNumber=4;
           }
         if(N_Centro==14)
           {
            N_Centro_r=2;
            PipsNumber=4;
           }
         if(N_Centro==15)
           {
            N_Centro_r=3;
            PipsNumber=4;
           }
         if(N_Centro==16)
           {
            N_Centro_r=4;
            PipsNumber=4;
           }
         if(N_Centro==17)
           {
            N_Centro_r=1;
            PipsNumber=5;
           }
         if(N_Centro==18)
           {
            N_Centro_r=2;
            PipsNumber=5;
           }
         if(N_Centro==19)
           {
            N_Centro_r=3;
            PipsNumber=5;
           }
         if(N_Centro==20)
           {
            N_Centro_r=4;
            PipsNumber=5;
           }
         //Print(" N_Centro ",N_Centro); ok
         //Print(" N_Centro_r ",N_Centro_r);ok
         //Print(" PipsNumber ",PipsNumber);
         //string PrintArch;
         //3.Производится расчт по переменным  Be_0,Bo_0,Be_1,Bo_1
         //Расчёт по переменной Be_0 Место 1,5,9,13,17
         //Print(" Be_0_C,Bo_0_C,Be_1_C,Bo_1_C" ,Be_0_C,Bo_0_C,Be_1_C,Bo_1_C);//ok
         //InternalPat_1=0;
         if(Per_Sev1==1 && N_Centro_r==1 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=1;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev1==1 && N_Centro_r==2 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=1;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev1==1 && N_Centro_r==3 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            // N_Centro_r==3 - зелёный
            // Per_Sev1==1 - Подача обьёма на Be_0
            // Be_0_C==1 - Подаваемая переменная в архитектуре центра 3
            InternalPat_1=1;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev1==1 && N_Centro_r==4 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=1;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 2,6,10,14,18
         if(Per_Sev2==1 && N_Centro_r==1 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=2;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev2==1 && N_Centro_r==2 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=2;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev2==1 && N_Centro_r==3 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=2;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev2==1 && N_Centro_r==4 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=2;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 3,7,11,15,19
         if(Per_Sev3==1 && N_Centro_r==1 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=3;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev3==1 && N_Centro_r==2 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=3;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev3==1 && N_Centro_r==3 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=3;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev3==1 && N_Centro_r==4 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=3;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 4,8,12,16,20
         if(Per_Sev4==1 && N_Centro_r==1 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=4;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev4==1 && N_Centro_r==2 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=4;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev4==1 && N_Centro_r==3 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=4;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev4==1 && N_Centro_r==4 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=4;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev5==1 && N_Centro_r==1 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=5;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev5==1 && N_Centro_r==2 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=5;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev5==1 && N_Centro_r==3 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            // N_Centro_r==3 - зелёный
            // Per_Sev1==1 - Подача обьёма на Be_0
            // Be_0_C==1 - Подаваемая переменная в архитектуре центра 3
            InternalPat_1=5;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev5==1 && N_Centro_r==4 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=5;//Присваивание понимания обьёма и цены
            //Per_Sev1=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 2,6,10,14,18
         if(Per_Sev6==1 && N_Centro_r==1 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=6;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev6==1 && N_Centro_r==2 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=6;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev6==1 && N_Centro_r==3 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=6;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev6==1 && N_Centro_r==4 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=6;//Присваивание понимания обьёма и цены
            //Per_Sev2=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 3,7,11,15,19
         if(Per_Sev7==1 && N_Centro_r==1 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=7;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev7==1 && N_Centro_r==2 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=7;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev7==1 && N_Centro_r==3 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=7;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev7==1 && N_Centro_r==4 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=7;//Присваивание понимания обьёма и цены
            //Per_Sev3=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Расчёт по переменной Be_0 Место 4,8,12,16,20
         if(Per_Sev8==1 && N_Centro_r==1 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=8;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev8==1 && N_Centro_r==2 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=8;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev8==1 && N_Centro_r==3 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=8;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         if(Per_Sev8==1 && N_Centro_r==4 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
           {
            InternalPat_1=8;//Присваивание понимания обьёма и цены
            //Per_Sev4=0;//Снятие разрешение на оброботку блока
            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
           }
         //Print(" R1 "," Per_Sev1 ",Per_Sev1," Per_Sev2 ",Per_Sev2," Per_Sev3 ",Per_Sev3," Per_Sev4 ",Per_Sev4," N_Centro_r ",N_Centro_r," Bo_0_C ",Bo_0_C," Be_0_C ",Be_0_C," Be_1_C ",Be_1_C," Bo_1_C ",Bo_1_C," InternalPat_1 ",InternalPat_1," Form_Patern_Finder[w3,8] ",Form_Patern_Finder[w3,8]);
         // ------ Функция записи новой цены и отслеживание существующей на предмет складывания патерна "Внутреннего" ------
         int newPrise=0;
         int PriceExist=0;
         for(w=1; w<=1000; w++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w,"  9113");
              }
            if((Form_Patern_Finder[w,13]!=0 && Form_Patern_Finder[w,13]==N_Gr20 && Form_Patern_Finder[w,12]==PipsNumber && ((Form_Patern_Finder[w,1]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w,2]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w,3]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w,4]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==1)       //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist=1;
               if(PriceExist==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==1/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w,11]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  //  Print("Acces ok");
                  //  Print("Form_Patern_Finder[w,2] ",Form_Patern_Finder[w,2]);
                  //  Print("Form_Patern_Finder[w,3] ",Form_Patern_Finder[w,3]);
                  //  Print("Form_Patern_Finder[w,4] ",Form_Patern_Finder[w,4]);
                  //  Print("Form_Patern_Finder[w,5] ",Form_Patern_Finder[w,5]);
                  //  Print("Form_Patern_Finder[w,8] ",Form_Patern_Finder[w,8]);
                  //  Print("N_Centro_r ",N_Centro_r);
                  //Form_Patern_Finder[w,10]=Form_Patern_Finder[w,10]+1;//Подсчёт заходов на проверку при совпадении
                  //Прослеживаю существующий параметр патерна по 4 направлениям
                  //Центр 1 Желтый
                  int Change1=0,Change2=0,Change3=0,Change4=0;
                  //Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,2] ",Form_Patern_Finder[w,2]," N_Centro_r==1 ",N_Centro_r==1);
                  if(Form_Patern_Finder[w,5]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w,5]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w,1]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w,1]=iTime(Symbol(),PERIOD_M1,1);
                     Change1=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
                       {
                        Form_Patern_Finder[w,11]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  // Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,3] ",Form_Patern_Finder[w,3]," N_Centro_r==2 ",N_Centro_r==2);
                  if(Form_Patern_Finder[w,6]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w,6]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w,2]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w,2]=iTime(Symbol(),PERIOD_M1,1);
                     Change2=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
                       {
                        Form_Patern_Finder[w,11]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  //Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,4] ",Form_Patern_Finder[w,4]," N_Centro_r==3 ",N_Centro_r==3);
                  if(Form_Patern_Finder[w,7]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w,7]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w,3]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w,3]=iTime(Symbol(),PERIOD_M1,1);
                     Change3=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
                       {
                        Form_Patern_Finder[w,11]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  //Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,5] ",Form_Patern_Finder[w,5]," N_Centro_r==4 ",N_Centro_r==4);
                  if(Form_Patern_Finder[w,8]==0 && N_Centro_r==4) // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w,8]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w,4]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w,4]=iTime(Symbol(),PERIOD_M1,1);
                     Change4=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
                       {
                        Form_Patern_Finder[w,11]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         int WriteData=1;
         for(int z=1; z<=1000; z++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z,"  9203");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist==0 && (Form_Patern_Finder[z,1]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z,2]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z,3]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z,4]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData=0;
               break;
              }
           }
         if(PriceExist==0 &&  InternalPat_1==1 && WriteData==1)  //Еси нет цены в массиве для просмотра
           {
            // int WRinLine=0;
            int t;
            for(t=1; t<=1000; t++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t,"  9219");
                 }
               if(Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0 /*&& (Form_Patern_Finder[t,12]==PipsNumber && Form_Patern_Finder[t,13]==N_Gr20 ||Form_Patern_Finder[t,27]==PipsNumber && Form_Patern_Finder[t,28]==N_Gr20 || Form_Patern_Finder[t,42]==PipsNumber && Form_Patern_Finder[t,43]==N_Gr20 || Form_Patern_Finder[t,57]==PipsNumber && Form_Patern_Finder[t,58]==N_Gr20)*/)  //Последнее пустое место в массиве
                 {
                  //  WRinLine=1;
                  break;
                 }
              }
            // for(t=1; t<1000; t++)
            // {
            // if(WRinLine=0 && Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0)  //Последнее пустое место в массиве
            //  {
            //   break;
            //  }
            // }
            //Зацикливание процеса на остановке записывания в Массив данных
            //int BlockPermis1=0;
            // if(w==1000 && Form_Patern_Finder[t,1]>0)
            // {
            // BlockPermis1=1;
            // }
            //  Print(" t ", t);
            // if(BlockPermis1==0)
            // {  }
            //Праизводится запись нового элемента
            //новый элемент записан
            //ok Print(" Form_Patern_Finder[t,1] ", Form_Patern_Finder[t,1]);
            //ok Print(" N_Centro ",N_Centro_r);
            //Print("t ",t);
            if(N_Centro_r==1)
              {
               // Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t,5]=1;
               Form_Patern_Finder[t,1]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t,1]=iTime(Symbol(),PERIOD_M1,1);
               //Print(" Form_Patern_Finder[t,1] " ,Form_Patern_Finder[t,1]);
               //ok Print(" Form_Patern_Finder[t,2] ", Form_Patern_Finder[t,2]);
              }
            if(N_Centro_r==2)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t,6]=1;
               Form_Patern_Finder[t,2]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t,2]=iTime(Symbol(),PERIOD_M1,1);
               //Print("Form_Patern_Finder[t,2] ",Form_Patern_Finder[t,2]);
               //ok Print(" Form_Patern_Finder[t,3] ", Form_Patern_Finder[t,2]);
              }
            if(N_Centro_r==3)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t,7]=1;
               Form_Patern_Finder[t,3]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t,3]=iTime(Symbol(),PERIOD_M1,1);
               //Print("Form_Patern_Finder[t,3] ",Form_Patern_Finder[t,3]);
               //ok Print(" Form_Patern_Finder[t,4] ", Form_Patern_Finder[t,4]);
              }
            if(N_Centro_r==4)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t,8]=1;
               Form_Patern_Finder[t,4]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t,4]=iTime(Symbol(),PERIOD_M1,1);
               // Print("Form_Patern_Finder[t,4] ",Form_Patern_Finder[t,4]);
               //ok Print(" Form_Patern_Finder[t,5] ", Form_Patern_Finder[t,5]);
              }
            Form_Patern_Finder[t,12]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t,13]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t,14]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //BO_0
         int newPrise1=0;
         int PriceExist1=0;
         for(w1=1; w1<=1000; w1++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w1,"  9296");
              }

            if((Form_Patern_Finder[w1,28]!=0 && Form_Patern_Finder[w1,28]==N_Gr20 && Form_Patern_Finder[w1,27]==PipsNumber && ((Form_Patern_Finder[w1,16]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w1,17]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w1,18]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w1,19]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==2)      //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist1=1;
               if(PriceExist==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==2/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w,26]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_1=0,Change2_1=0,Change3_1=0,Change4_1=0;
                  if(Form_Patern_Finder[w1,20]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w1,20]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w1,16]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w1,16]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_1=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
                       {
                        Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w1,21]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w1,21]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w1,17]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w1,17]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_1=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
                       {
                        Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w1,22]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w1,22]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w1,18]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w1,18]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_1=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
                       {
                        Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w1,23]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w1,23]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w1,19]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w1,19]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_1=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
                       {
                        Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData1=1;
         for(int z1=1; z1<=1000; z1++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z1,"  9374");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist1==0 && (Form_Patern_Finder[z1,16]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z1,17]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z1,18]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z1,19]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData1=0;
               break;
              }
           }
         if(PriceExist1==0 &&  InternalPat_1==2 && WriteData1==1)  //Еси нет цены в массиве для просмотра
           {
            //int WRinLine1=0;
            int t1;
            for(t1=1; t1<=1000; t1++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t1,"  9390");
                 }
               if(Form_Patern_Finder[t1,16]==0 && Form_Patern_Finder[t1,17]==0 && Form_Patern_Finder[t1,18]==0 && Form_Patern_Finder[t1,19]==0 /*&& (Form_Patern_Finder[t1,12]==PipsNumber && Form_Patern_Finder[t1,13]==N_Gr20 ||Form_Patern_Finder[t1,27]==PipsNumber && Form_Patern_Finder[t1,28]==N_Gr20 || Form_Patern_Finder[t1,42]==PipsNumber && Form_Patern_Finder[t1,43]==N_Gr20 || Form_Patern_Finder[t1,57]==PipsNumber && Form_Patern_Finder[t1,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  // WRinLine1=1;
                  break;
                 }
              }
            //for(t1=1; t1<1000; t1++)
            //  {
            // if(WRinLine1=0 && Form_Patern_Finder[t1,17]==0 && Form_Patern_Finder[t1,18]==0 && Form_Patern_Finder[t1,19]==0 && Form_Patern_Finder[t1,20]==0)  //Последнее пустое место в массиве
            // {
            //  break;
            // }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t1,20]=1;
               Form_Patern_Finder[t1,16]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t1,16]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t1,21]=1;
               Form_Patern_Finder[t1,17]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t1,17]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t1,22]=1;
               Form_Patern_Finder[t1,18]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t1,18]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t1,23]=1;
               Form_Patern_Finder[t1,19]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t1,19]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t1,27]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t1,28]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t1,29]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //Be_1
         int newPrise2=0;
         int PriceExist2=0;
         for(w2=1; w2<=1000; w2++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w2,"  9441");
              }
            if((Form_Patern_Finder[w2,43]!=0 && Form_Patern_Finder[w2,43]==N_Gr20 && Form_Patern_Finder[w2,42]==PipsNumber && ((Form_Patern_Finder[w2,31]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w2,32]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w2,33]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w2,34]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==3)     //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist2=1;
               if(PriceExist2==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==3/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w2,41]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_2=0,Change2_2=0,Change3_2=0,Change4_2=0;
                  if(Form_Patern_Finder[w2,35]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w2,35]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w2,31]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w2,31]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_2=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
                       {
                        Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w2,36]==0 && N_Centro_r==2) // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w2,36]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w2,32]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w2,32]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_2=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
                       {
                        Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w2,37]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w2,37]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w2,33]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w2,33]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_2=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
                       {
                        Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w2,38]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w2,38]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w2,34]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w2,34]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_2=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
                       {
                        Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData2=1;
         for(int z2=1; z2<=1000; z2++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z2,"  9518");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist2==0 && (Form_Patern_Finder[z2,31]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z2,32]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z2,33]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z2,34]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData2=0;
               break;
              }
           }
         if(PriceExist2==0 &&  InternalPat_1==3 && WriteData2==1)  //Еси нет цены в массиве для просмотра
           {
            // int WRinLine2=0;
            int t2;
            for(t2=1; t2<=1000; t2++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t2,"  9534");
                 }
               if(Form_Patern_Finder[t2,31]==0 && Form_Patern_Finder[t2,32]==0 && Form_Patern_Finder[t2,33]==0 && Form_Patern_Finder[t2,34]==0 /*&& (Form_Patern_Finder[t2,12]==PipsNumber && Form_Patern_Finder[t2,13]==N_Gr20 ||Form_Patern_Finder[t2,27]==PipsNumber && Form_Patern_Finder[t2,28]==N_Gr20 || Form_Patern_Finder[t2,42]==PipsNumber && Form_Patern_Finder[t2,43]==N_Gr20 || Form_Patern_Finder[t2,57]==PipsNumber && Form_Patern_Finder[t2,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  //  WRinLine2=1;
                  break;
                 }
              }
            // for(t2=1; t2<1000; t2++)
            // {
            //  if(WRinLine2=0 && Form_Patern_Finder[t2,31]==0 && Form_Patern_Finder[t2,32]==0 && Form_Patern_Finder[t2,33]==0 && Form_Patern_Finder[t2,34]==0)  //Последнее пустое место в массиве
            //   {
            //  break;
            //  }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t2,35]=1;
               Form_Patern_Finder[t2,31]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t2,31]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t2,36]=1;
               Form_Patern_Finder[t2,32]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t2,32]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t2,37]=1;
               Form_Patern_Finder[t2,33]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t2,33]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t2,38]=1;
               Form_Patern_Finder[t2,34]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t2,34]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t2,42]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t2,43]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t2,44]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //Bo_1
         int newPrise3=0;
         int PriceExist3=0;
         for(w3=1; w3<=1000; w3++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w3,"  9585");
              }
            if((Form_Patern_Finder[w3,58]!=0 && Form_Patern_Finder[w3,58]==N_Gr20 && Form_Patern_Finder[w3,57]==PipsNumber && ((Form_Patern_Finder[w3,46]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w3,47]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w3,48]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w3,49]!=bodypips[MaxInd_bodypips,0])))&& InternalPat_1==4)      //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist3=1;
               if(PriceExist3==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==4/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w3,56]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_3=0,Change2_3=0,Change3_3=0,Change4_3=0;
                  if(Form_Patern_Finder[w3,50]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w3,50]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w3,46]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w3,46]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_3=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
                       {
                        Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w3,51]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w3,51]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w3,47]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w3,47]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_3=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
                       {
                        Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w3,52]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w3,52]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w3,48]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w3,48]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_3=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
                       {
                        Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w3,53]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w3,53]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w3,49]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w3,49]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_3=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
                       {
                        Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData3=1;
         for(int z3=1; z3<=1000; z3++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z3,"  9662");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist3==0 && (Form_Patern_Finder[z3,46]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z3,47]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z3,48]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z3,49]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData3=0;
               break;
              }
           }
         if(PriceExist3==0 &&  InternalPat_1==4 && WriteData3==1)  //Еси нет цены в массиве для просмотра
           {
            //  int WRinLine3=0;
            int t3;
            for(t3=1; t3<=1000; t3++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t3,"  9678");
                 }
               if(Form_Patern_Finder[t3,46]==0 && Form_Patern_Finder[t3,47]==0 && Form_Patern_Finder[t3,48]==0 && Form_Patern_Finder[t3,49]==0 /*&& (Form_Patern_Finder[t3,12]==PipsNumber && Form_Patern_Finder[t3,13]==N_Gr20 ||Form_Patern_Finder[t3,27]==PipsNumber && Form_Patern_Finder[t3,28]==N_Gr20 || Form_Patern_Finder[t3,42]==PipsNumber && Form_Patern_Finder[t3,43]==N_Gr20 || Form_Patern_Finder[t3,57]==PipsNumber && Form_Patern_Finder[t3,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  // WRinLine3=1;
                  break;
                 }
              }
            // for(t3=1; t3<1000; t3++)
            //   {
            //  if(WRinLine3=0 && Form_Patern_Finder[t3,46]==0 && Form_Patern_Finder[t3,47]==0 && Form_Patern_Finder[t3,48]==0 && Form_Patern_Finder[t3,49]==0)  //Последнее пустое место в массиве
            //   {
            //   break;
            //  }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t3,50]=1;
               Form_Patern_Finder[t3,46]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t3,46]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t3,51]=1;
               Form_Patern_Finder[t3,47]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t3,47]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t3,52]=1;
               Form_Patern_Finder[t3,48]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t3,48]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t3,53]=1;
               Form_Patern_Finder[t3,49]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t3,49]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t3,57]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t3,58]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t3,59]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //BE_0_IZN
         int PriceExist4=0;
         int w4;
         for(w4=1; w4<=1000; w4++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w4,"  9729");
              }
            if((Form_Patern_Finder[w4,73]!=0 && Form_Patern_Finder[w4,73]==N_Gr20 && Form_Patern_Finder[w4,72]==PipsNumber && ((Form_Patern_Finder[w4,61]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w4,62]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w4,63]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w4,64]!=bodypips[MaxInd_bodypips,0]))) && InternalPat_1==5)     //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist4=1;
               if(PriceExist4==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==5/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w4,71]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_4=0,Change2_4=0,Change3_4=0,Change4_4=0;
                  if(Form_Patern_Finder[w4,65]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w4,65]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w4,61]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w4,61]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_4=1;
                     if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
                       {
                        Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
                       }
                    }
                  //Центр 2 Красный
                  // Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,3] ",Form_Patern_Finder[w4,3]," N_Centro_r==2 ",N_Centro_r==2);
                  if(Form_Patern_Finder[w4,66]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w4,66]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w4,62]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w4,62]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_4=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
                       {
                        Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  //Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,4] ",Form_Patern_Finder[w4,4]," N_Centro_r==3 ",N_Centro_r==3);
                  if(Form_Patern_Finder[w4,67]==0 && N_Centro_r==3) // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w4,67]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w4,63]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w4,63]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_4=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
                       {
                        Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  //Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,5] ",Form_Patern_Finder[w4,5]," N_Centro_r==4 ",N_Centro_r==4);
                  if(Form_Patern_Finder[w4,68]==0 && N_Centro_r==4) // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w4,68]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w4,64]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w4,64]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_4=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
                       {
                        Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         int WriteData4=1;
         for(int z4=1; z4<=1000; z4++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z4,"  9806");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist4==0 && (Form_Patern_Finder[z4,61]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z4,62]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z4,63]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z4,64]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData4=0;
               break;
              }
           }
         if(PriceExist4==0 &&  InternalPat_1==5 && WriteData4==1)  //Еси нет цены в массиве для просмотра
           {
            // int WRinLine=0;
            int t4;
            for(t4=1; t4<=1000; t4++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t4,"  9822");
                 }
               if(Form_Patern_Finder[t4,61]==0 && Form_Patern_Finder[t4,62]==0 && Form_Patern_Finder[t4,63]==0 && Form_Patern_Finder[t4,64]==0 /*&& (Form_Patern_Finder[t,12]==PipsNumber && Form_Patern_Finder[t,13]==N_Gr20 ||Form_Patern_Finder[t,27]==PipsNumber && Form_Patern_Finder[t,28]==N_Gr20 || Form_Patern_Finder[t,42]==PipsNumber && Form_Patern_Finder[t,43]==N_Gr20 || Form_Patern_Finder[t,57]==PipsNumber && Form_Patern_Finder[t,58]==N_Gr20)*/) //Последнее пустое место в массиве
                 {
                  //  WRinLine=1;
                  break;
                 }
              }
            // for(t4=1; t4<1000; t4++)
            // {
            // if(WRinLine=0 && Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0)  //Последнее пустое место в массиве
            //  {
            //   break;
            //  }
            // }
            //Зацикливание процеса на остановке записывания в Массив данных
            //int BlockPermis1=0;
            // if(w==1000 && Form_Patern_Finder[t,1]>0)
            // {
            // BlockPermis1=1;
            // }
            //  Print(" t ", t);
            // if(BlockPermis1==0)
            // {  }
            //Праизводится запись нового элемента
            //новый элемент записан
            //ok Print(" Form_Patern_Finder[t,1] ", Form_Patern_Finder[t,1]);
            //ok Print(" N_Centro ",N_Centro_r);
            //Print("t ",t);
            if(N_Centro_r==1)
              {
               // Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t4,65]=1;
               Form_Patern_Finder[t4,61]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t4,61]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t4,66]=1;
               Form_Patern_Finder[t4,62]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t4,62]=iTime(Symbol(),PERIOD_M1,1);
               //Print("Form_Patern_Finder[t,2] ",Form_Patern_Finder[t,2]);
               //ok Print(" Form_Patern_Finder[t,3] ", Form_Patern_Finder[t,2]);
              }
            if(N_Centro_r==3)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t4,67]=1;
               Form_Patern_Finder[t4,63]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t4,63]=iTime(Symbol(),PERIOD_M1,1);
               //Print("Form_Patern_Finder[t,3] ",Form_Patern_Finder[t,3]);
               //ok Print(" Form_Patern_Finder[t,4] ", Form_Patern_Finder[t,4]);
              }
            if(N_Centro_r==4)
              {
               //Print("N_Centro_r ",N_Centro_r);
               Form_Patern_Finder[t4,68]=1;
               Form_Patern_Finder[t4,64]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t4,64]=iTime(Symbol(),PERIOD_M1,1);
               // Print("Form_Patern_Finder[t,4] ",Form_Patern_Finder[t,4]);
               //ok Print(" Form_Patern_Finder[t,5] ", Form_Patern_Finder[t,5]);
              }
            Form_Patern_Finder[t4,72]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t4,73]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t4,74]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //BO_0_IZN
         int newPrise5=0;
         int PriceExist5=0;
         int w5;
         for(w5=1; w5<=1000; w5++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w5,"  9898");
              }
            if((Form_Patern_Finder[w5,88]!=0 && Form_Patern_Finder[w5,88]==N_Gr20 && Form_Patern_Finder[w5,87]==PipsNumber && ((Form_Patern_Finder[w5,76]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w5,77]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w5,78]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w5,79]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w4,9]=N_Gr20 && Form_Patern_Finder[w4,6]==1 &&*/ && InternalPat_1==6)       //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist5=1;
               if(PriceExist5==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==6/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w5,86]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_5=0,Change2_5=0,Change3_5=0,Change4_5=0;
                  if(Form_Patern_Finder[w5,80]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w5,80]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w5,76]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w5,76]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_5=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
                       {
                        Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w5,81]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w5,81]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w5,77]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w5,77]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_5=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
                       {
                        Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w5,82]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w5,82]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w5,78]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w5,78]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_5=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
                       {
                        Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w5,83]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w5,83]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w5,79]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w5,79]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_5=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
                       {
                        Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData5=1;
         for(int z5=1; z5<=1000; z5++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z5,"  9975");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist5==0 && (Form_Patern_Finder[z5,76]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z5,77]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z5,78]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z5,79]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData5=0;
               break;
              }
           }
         if(PriceExist5==0 &&  InternalPat_1==6 && WriteData5==1)  //Еси нет цены в массиве для просмотра
           {
            //int WRinLine1=0;
            int t5;
            for(t5=1; t5<1000; t5++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t5,"  9991");
                 }
               if(Form_Patern_Finder[t5,76]==0 && Form_Patern_Finder[t5,77]==0 && Form_Patern_Finder[t5,78]==0 && Form_Patern_Finder[t5,79]==0 /*&& (Form_Patern_Finder[t5,12]==PipsNumber && Form_Patern_Finder[t5,13]==N_Gr20 ||Form_Patern_Finder[t5,27]==PipsNumber && Form_Patern_Finder[t5,28]==N_Gr20 || Form_Patern_Finder[t5,42]==PipsNumber && Form_Patern_Finder[t5,43]==N_Gr20 || Form_Patern_Finder[t5,57]==PipsNumber && Form_Patern_Finder[t5,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  // WRinLine1=1;
                  break;
                 }
              }
            //for(t5=1; t5<1000; t5++)
            //  {
            // if(WRinLine1=0 && Form_Patern_Finder[t5,17]==0 && Form_Patern_Finder[t5,18]==0 && Form_Patern_Finder[t5,19]==0 && Form_Patern_Finder[t5,20]==0)  //Последнее пустое место в массиве
            // {
            //  break;
            // }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t5,80]=1;
               Form_Patern_Finder[t5,76]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t5,76]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t5,81]=1;
               Form_Patern_Finder[t5,77]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t5,77]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t5,82]=1;
               Form_Patern_Finder[t5,78]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t5,78]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t5,83]=1;
               Form_Patern_Finder[t5,79]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t5,79]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t5,87]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t5,88]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t5,89]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //Be_1_IZN
         int newPrise6=0;
         int PriceExist6=0;
         int w6;
         for(w6=1; w6<=1000; w6++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w6,"  10043");
              }
            if((Form_Patern_Finder[w6,103]!=0 && Form_Patern_Finder[w6,103]==N_Gr20 && Form_Patern_Finder[w6,102]==PipsNumber && ((Form_Patern_Finder[w6,91]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w6,92]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w6,93]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w6,94]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w4,9]=N_Gr20 && Form_Patern_Finder[w4,6]==1 &&*/ && InternalPat_1==7)    //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist6=1;
               if(PriceExist6==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==7/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w6,101]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_6=0,Change2_6=0,Change3_6=0,Change4_6=0;
                  if(Form_Patern_Finder[w6,95]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w6,95]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w6,91]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w6,91]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_6=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
                       {
                        Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w6,96]==0 && N_Centro_r==2) // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w6,96]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w6,92]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w6,92]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_6=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
                       {
                        Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w6,97]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w6,97]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w6,93]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w6,93]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_6=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
                       {
                        Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w6,98]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w6,98]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w6,94]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w6,94]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_6=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
                       {
                        Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData6=1;
         for(int z6=1; z6<=1000; z6++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z6,"  10120");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist6==0 && (Form_Patern_Finder[z6,91]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z6,92]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z6,93]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z6,94]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData6=0;
               break;
              }
           }
         if(PriceExist6==0 &&  InternalPat_1==7 && WriteData6==1)  //Еси нет цены в массиве для просмотра
           {
            // int WRinLine2=0;
            int t6;
            for(t6=1; t6<=1000; t6++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t6,"  10136");
                 }
               if(Form_Patern_Finder[t6,91]==0 && Form_Patern_Finder[t6,92]==0 && Form_Patern_Finder[t6,93]==0 && Form_Patern_Finder[t6,94]==0 /*&& (Form_Patern_Finder[t6,12]==PipsNumber && Form_Patern_Finder[t6,13]==N_Gr20 ||Form_Patern_Finder[t6,27]==PipsNumber && Form_Patern_Finder[t6,28]==N_Gr20 || Form_Patern_Finder[t6,42]==PipsNumber && Form_Patern_Finder[t6,43]==N_Gr20 || Form_Patern_Finder[t6,57]==PipsNumber && Form_Patern_Finder[t6,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  //  WRinLine2=1;
                  break;
                 }
              }
            // for(t6=1; t6<1000; t6++)
            // {
            //  if(WRinLine6=0 && Form_Patern_Finder[t6,31]==0 && Form_Patern_Finder[t6,32]==0 && Form_Patern_Finder[t6,33]==0 && Form_Patern_Finder[t6,34]==0)  //Последнее пустое место в массиве
            //   {
            //  break;
            //  }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t6,95]=1;
               Form_Patern_Finder[t6,91]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t6,91]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t6,96]=1;
               Form_Patern_Finder[t6,92]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t6,92]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t6,97]=1;
               Form_Patern_Finder[t6,93]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t6,93]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t6,98]=1;
               Form_Patern_Finder[t6,94]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t6,94]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t6,102]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t6,103]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t6,104]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         //Bo_1_IZN
         int newPrise7=0;
         int PriceExist7=0;
         int w7;
         for(w7=1; w7<=1000; w7++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",w7,"  10188");
              }
            if((Form_Patern_Finder[w7,118]!=0 && Form_Patern_Finder[w7,118]==N_Gr20 && Form_Patern_Finder[w7,117]==PipsNumber && ((Form_Patern_Finder[w7,106]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w7,107]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w7,108]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w7,109]!=bodypips[MaxInd_bodypips,0])))&& InternalPat_1==8)       //Поиск цены . Возвращает индекс в массиве
              {
               PriceExist7=1;
               if(PriceExist7==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==8/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w7,116]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
                 {
                  int Change1_7=0,Change2_7=0,Change3_7=0,Change4_7=0;
                  if(Form_Patern_Finder[w7,110]==0 && N_Centro_r==1)  // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w7,110]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w7,106]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w7,106]=iTime(Symbol(),PERIOD_M1,1);
                     Change1_7=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
                       {
                        Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 2 Красный
                  if(Form_Patern_Finder[w7,111]==0 && N_Centro_r==2)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w7,111]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w7,107]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w7,107]=iTime(Symbol(),PERIOD_M1,1);
                     Change2_7=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
                       {
                        Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 3 Зелёный
                  if(Form_Patern_Finder[w7,112]==0 && N_Centro_r==3)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w7,112]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w7,108]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w7,108]=iTime(Symbol(),PERIOD_M1,1);
                     Change3_7=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
                       {
                        Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                  //Центр 4 Синий
                  if(Form_Patern_Finder[w7,113]==0 && N_Centro_r==4)  // Параметр архитектуры 1
                    {
                     //Присваиваю значение по архитектуре
                     Form_Patern_Finder[w7,113]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
                     Form_Patern_Finder[w7,109]=bodypips[MaxInd_bodypips,0];
                     DT_Form_Patern_Finder[w7,109]=iTime(Symbol(),PERIOD_M1,1);
                     Change4_7=1;
                     //Проверяю наличие остальных архитектур в ячейке
                     if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
                       {
                        Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
                        //Вывести на график цены флаг собранного патерна
                       }
                    }
                 }
               // break;
              }
           }
         // ----- Ески нет цены в массиве для просмотра
         int WriteData7=1;
         for(int z7=1; z7<=1000; z7++)
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",z7,"  10265");
              }
            if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist7==0 && (Form_Patern_Finder[z7,106]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z7,107]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z7,108]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z7,109]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
              {
               WriteData7=0;
               break;
              }
           }
         if(PriceExist7==0 &&  InternalPat_1==8 && WriteData7==1)  //Еси нет цены в массиве для просмотра
           {
            //  int WRinLine3=0;
            int t7;
            for(t7=1; t7<=1000; t7++)
              {
               if(Array_Errors==true)
                 {
                  Print(" Index Array ",t7,"  10281");
                 }
               if(Form_Patern_Finder[t7,110]==0 && Form_Patern_Finder[t7,111]==0 && Form_Patern_Finder[t7,112]==0 && Form_Patern_Finder[t7,113]==0 /*&& (Form_Patern_Finder[t7,12]==PipsNumber && Form_Patern_Finder[t7,13]==N_Gr20 ||Form_Patern_Finder[t7,27]==PipsNumber && Form_Patern_Finder[t7,28]==N_Gr20 || Form_Patern_Finder[t7,42]==PipsNumber && Form_Patern_Finder[t7,43]==N_Gr20 || Form_Patern_Finder[t7,57]==PipsNumber && Form_Patern_Finder[t7,58]==N_Gr20)*/)   //Последнее пустое место в массиве
                 {
                  // WRinLine3=1;
                  break;
                 }
              }
            // for(t7=1; t7<1000; t7++)
            //   {
            //  if(WRinLine3=0 && Form_Patern_Finder[t7,46]==0 && Form_Patern_Finder[t7,47]==0 && Form_Patern_Finder[t7,48]==0 && Form_Patern_Finder[t7,49]==0)  //Последнее пустое место в массиве
            //   {
            //   break;
            //  }
            //  }
            if(N_Centro_r==1)
              {
               Form_Patern_Finder[t7,106]=1;
               Form_Patern_Finder[t7,110]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t7,110]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==2)
              {
               Form_Patern_Finder[t7,107]=1;
               Form_Patern_Finder[t7,111]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t7,111]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==3)
              {
               Form_Patern_Finder[t7,108]=1;
               Form_Patern_Finder[t7,112]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t7,112]=iTime(Symbol(),PERIOD_M1,1);
              }
            if(N_Centro_r==4)
              {
               Form_Patern_Finder[t7,109]=1;
               Form_Patern_Finder[t7,113]=bodypips[MaxInd_bodypips,0];
               DT_Form_Patern_Finder[t7,113]=iTime(Symbol(),PERIOD_M1,1);
              }
            Form_Patern_Finder[t7,117]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
            Form_Patern_Finder[t7,118]=N_Gr20;//Номер блока ценавой 20-ки
            Form_Patern_Finder[t7,119]=N_Centro;//Номер центра архитектуры
            //Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
           }
         Pr_Arch="0";
         //Функция соответствия ключа в к номеру центра и полюсному состоянию
         //Print("TEST1 Print "," N_Centro_Ind ",N_Centro_Ind," Arch3 ",Arch3);
         // клас для складывания и раскладывания архитектуры. Управляющие элементы
         //Существует Подклас для Деления с указанием на переменную
         //Подкласы:Kлас деления, Указание на перемнную и Подклас Деление с Указанием на переменную поочерёдно накладываются на Круг и Звезду и выводят следующие подкласы.
         // 1. Звесда с Переменной. 2. Звезда с вертикальным разделением 3. Звезда с горизонтальным разделением.4. Звезда с вертикальным разделением и указателем Переменной 5.Звезда с горизонтальным разделением и указателем Переменной
         // 1. Круг с Переменной. 2. Круг с вертикальным разделением 3. Круг с горизонтальным разделением.4. Круг с вертикальным разделением и указателем Переменной 5.Круг с горизонтальным разделением и указателем Переменной
         if(comp_Sev[1,1]==0 && comp_Sev[1,2]==0 && comp_Sev[1,3]==0 && comp_Sev[1,4]==0 && comp_Sev[1,5]==0 && comp_Sev[1,6]==0 && comp_Sev[1,7]==0 && comp_Sev[1,8]==0)
           {
            N_Petalo_1=0;
           }
         int Ch_d1=0;//Permiso para cambiar datos
         for(int iu=1; iu<=8; iu++)//Сравнение пересчёта бинарного кода. Выявление изменений в 01110110 байте 01101110
           {
            if(Array_Errors==true)
              {
               Print(" Index Array ",iu,"  10342");
              }
            if(comp_Sev[1,iu]!=Sev[1,iu] && Sev[1,iu]==1)// условие если произошло изменение в структуре 8 бит
              {
               N_Petalo_1=iu;//Присвоение индекса как номер лепестка
               Ch_d1=1;
               break;
              }
           }
         if(N_Petalo_1!=0 && Ch_d1==1)
           {
            N_Petalo=N_Petalo_1;
           }
         //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);
         //Произвести присваивание новых значений в Массив сравнения после проведения всего расчёта
         //Print(" Cotejamiento de Arrays antes de reasignacion",comp_Sev[1,1],comp_Sev[1,2],comp_Sev[1,3],comp_Sev[1,4]);
         comp_Sev[1,1]=Sev[1,1];
         //Print(" comp_Sev[1,1]",comp_Sev[1,1]);
         comp_Sev[1,2]=Sev[1,2];
         //Print(" comp_Sev[1,2]",comp_Sev[1,2]);
         comp_Sev[1,3]=Sev[1,3];
         //Print(" comp_Sev[1,3]",comp_Sev[1,3]);
         comp_Sev[1,4]=Sev[1,4];
         //Print(" comp_Sev[1,4",comp_Sev[1,4]);
         comp_Sev[1,5]=Sev[1,5];
         //Print(" comp_Sev[1,1]",comp_Sev[1,1]);
         comp_Sev[1,6]=Sev[1,6];
         //Print(" comp_Sev[1,2]",comp_Sev[1,2]);
         comp_Sev[1,7]=Sev[1,7];
         //Print(" comp_Sev[1,3]",comp_Sev[1,3]);
         comp_Sev[1,8]=Sev[1,8];
         //Print(" comp_Sev[1,4",comp_Sev[1,4]);
         Price_Compare=bodypips[MaxInd_bodypips,0];//Переменная для сравнения цены с предыдущим значением

//+----------------------------------------------------------------+
|Sunflower -  sunflower seeds architecture - End                   |
//+----------------------------------------------------------------+