ROOT-SIGNALS - 1.8.0

ÿþ//+------------------------------------------------------------------+

//|                                             Yevheniy             |

//|                                             Nucleo   v 2.5.2.mq4 |

//|                                                                  |

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

#property copyright "Yevheniy Kopanitskyy"

#property link      "https://www.mql5.com/en/users/eugeniokp"

#property version   "2.5"

#property strict

//-----EXTERNAL VAR-----

bool LongPosition=false;//Long   moneda

bool ShortPosition=false;//Short moneda

extern bool BinIndWRITE=true;//moneda

extern bool Array_Errors=false;

bool ALLtoARRAYWRITE=true;//moneda

bool BODYHorizont=true;//moneda

extern string NAA_1="YevheniyKopanitskyy";

extern string NAA_2="TetianaPalchykova";

extern string NAA_3="DenisPryymak";

extern string NAA_4="KristynaKopanitska";

extern string NAA_5="";

extern string NAA_6="SofiiaPalchykova";

extern string NAA_7="";

extern string NAA_8="OlgaPryymak";

extern string NAA_9="MarceloArandano";

extern string NAA_10="AlinaPryymak";

extern string NAA_11="";

extern string NAA_12="AbigailKopanitska";

extern string NAA_13="";

extern string NAA_14="";

extern string NAA_15="";

extern string NAA_16="";

extern string NAA_17="";

extern string NAA_18="";

extern string NAA_19="";

extern string NAA_20="";

extern string NAA_21="";

extern string NAA_22="";

extern string NAA_23="";

extern string NAA_24="";

extern string NAA_25="";

extern string NAA_26="";

extern string NAA_27="";

extern string NAA_28="";

extern string NAA_29="";

extern string NAA_30="";

extern string NAA_31="";

extern string NAA_32="";

//--END---EXTERNAL VAR-----

//------Importing TELEGRAM library - Sending messages to a channel------------------------------

//#import "Telegram4Mql.dll"

//string TelegramSendTextAsync(string apiKey,string chatId,string chatText);

//string TelegramSendText(string apiKey,string chatId,string chatText);

//string TelegramSendScreenAsync(string apiKey,string chatId,string caption="");

//string TelegramSendScreen(string apiKey,string chatId,string caption="");

//string TelegramGetUpdates(string apiKey,string validUsers,bool confirmUpdates);

//string TelegramSendPhoto(string apiKey,string chatId,string filePath,string caption="");

//string TelegramSendPhotoAsync(string apiKey,string chatId,string filePath, string caption = "");

//string TelegramSendDocument(string apiKey, string chatId, string filePath, string caption = "");

//string TelegramSendDocumentAsync(string apiKey,string chatId,string filePath,string caption="");

//...

//#import

//---END---Importing TELEGRAM library - Sending messages to a channel------------------------------

//A5 <0AA82K double 70?>;=ONBO ?> 5 7=0:0< ?>A;5 70?OB>9. @8<5@ 99999 = 0,001¬  2 8B>35 25AL <0AA82 = 1¬ 

//------ARRAYS-----

double body[99999,20];//m

//double BinaryKeys[9999,2000];

int MaxMinArr[9,3];//

double kompa[10000];

double kompa1[10000];

datetime PIPS_COL_DT[99999];

double  PIPS_COL_Price[99999,6];

int bbb[1681,3];

int bbb_compare[9999,2,1681];

int errorprint[50];

int errorprint2[150];

//int priceBEBO[100000,2];

double AllAnalisysData[7205,20];

datetime DT_AllAnalisysData[7205,1];

double BodyHorizont_Bin[7210,2000];

double BodyHorizont_Price[7210,2000];

datetime BodyHorizont_Time[7210];

double bodyAR[90000,50];

datetime bodydt[90000];

double body_Plus[99999,20];//0AA82 4;O ?5@570?8A8

double komp1[99999];// Array for displaying the synapse in the record

int ArrayMaximum_0[10000];//999999

int ArrayMaximum_1[10000];//999999

int flower[99,99];//aAA82 4;O ?>;CG5=8O 0@E8B5:BC@K

datetime flower_Price_3_TIME[200001,1000];

float flower_Price_3[200001,100];

//int bintoarr[1441,1001];//70?8AL ?0@0<5B@>2 18=0@=>3> :>40 2 <0AA82.0?8AL <0AA820 @07 2 ACB:8 2 18=0@=K9 D08;

//int IFb1;//=45:A 1 4;O <0AA820 bintoarr

//int IFb2;//=45:A 2 4;O <0AA820 bintoarr

//int BinaryToArray[32000,1001];//<5AOF 70?8A8 2 <0AA82 18=0@=>3> :>40. 0?8A8AL =C6=> ?@>872>48BL 4@C38< A:@8?B><

//datetime bintoarrTIME [1441];//0AA82 4;O 70?8A8 2@5<5=8 A25G8

//datetime BinaryToArrayTIME[32000];//0AA82 4;O >1L545=5=8O 2@5<5=8 A25G8

//double bintoarrBID[1441,1001];//0AA82 4;O 70?8A8 184 F5=K ?> B8:C

//double BinaryToArrayBID[32000,1001];//0AA82 4;O 70?8A8  184

//int temparrbin[1441,1001];//0AA82 4;O 70?8A8 >BA55==KE 40==KE 18=0@=>3> :>40

//double temparrbid[1441,1001];

//datetime temparrtime[1441];

//datetime binrepit[32000,1001];//0?8AL ?>2B>@>2 18=0@=KE A25G59

double bodypips[99999,5];// Array for data analysis using the Sunflower method

double comp_bodypips[99999];



int Particula[33];// Array en el cual se cuadran los numeros de claster

             

int Sev_Part_Lic[5,33];// 1-4 N centros - Tiempo asignado. 5-12 dobavochnie"2 po poryadku 1-4 " 13-16 Cotejo.17 -32 Fracciones de 1-4

int Vost_Part_Lic[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

int Yug_Part_Lic[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

int Zap_Part_Lic[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

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

int Sev_Part_Izn[5,33];// 1-4 N centros - Tiempo asignado. 5-12 dobavochnie"2 po poryadku 1-4 " 13-16 Cotejo.17 -32 Fracciones de 1-4

int Vost_Part_Izn[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

int Yug_Part_Izn[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

int Zap_Part_Izn[5,33];// 1-4 N centros - Tiempo asignado. 5-6 dobavochnie"2 po poryadku 1-4 " 7 Cotejo.7 -11 Fracciones de 1-4

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

//---END---ARRAYS----

//------DOUBLE VARS-----

int Arch3=0;

double normalLevel;//moneda

double center;//moneda

double DoublspredPoint;//moneda

double LEVELUP;//moneda

double LEVELDOWN;//moneda

double PriceZero;//moneda

double CopenRes;//moneda

double CcloseRes;//moneda

double Level;//moneda

double LEVELK=1;//moneda

double Onda1;//moneda

double CurPips;//moneda

double price_Menus_one,pips_Menus_one;

double restanteminimum;//moneda

double restantemaximum;

double Str_Pr_Bar=0;

double Price1;

double Price0;

double price_minus;

double price_plus;

double BoolInd;//Bool

double BearInd;

double Maximum;//bool

double Minimum;

double PipsDif;

double IpaintFiboLineUP_2;

double IpaintFiboLineUP_3;

double IpaintFiboLineUP_5;

double IpaintFiboLineUP_8;

double IpaintFiboLineUP_13;

double IpaintFiboLineUP_21;

double IpaintFiboLineUP_34;

double IpaintFiboLineUP_55;

double IpaintFiboLineUP_89;

double IpaintFiboLineUP_144;

double IpaintFiboLineDOWN_2;

double IpaintFiboLineDOWN_3;

double IpaintFiboLineDOWN_5;

double IpaintFiboLineDOWN_8;

double IpaintFiboLineDOWN_13;

double IpaintFiboLineDOWN_21;

double IpaintFiboLineDOWN_34;

double IpaintFiboLineDOWN_55;

double IpaintFiboLineDOWN_89;

double IpaintFiboLineDOWN_144;

double HIGHT;

double LOW;

double CLOSE;

double OPEN;

double resOperandMax;

double resOperandMin;

//--END----DOUBLE VARS-----

//--Claster Variables

//--

//Angelusvitae fond

int odna_chaska_kofe;

int kolvo_gram_1_chashka_kofe;

double ves_1_zerno;

double kolvo_zeren_1_chashka_Kofe;

int one_kg_kofe_soderzhit_chawek;

double Kolvo_zeren_v_kilograme;

extern int Kolvo_sredstv_dlya_sbora=15000;

int Kolvo_chashek_kofe_dlya_sbora;

int Kolvo_zeren_dlya_Sbora;

int kolvo_zeren_sessiya;

int kolvo_zeren;

int Gx,Gy;

int fgf;

int fgi;

int fgo;

int k;

int printdesc1;

int printdesc2;

int printdesc3;

int printdesc4;

int printdesc5, permis;

int LongShort;

int Counter1;

int Counter1_1;

int Counter0;

int Counter0_1;

int Counter_Summa1;

int Counter_Summa0;

int zeroindex;

int Counter=0;

int TotaltuADDtoSELLTEXT,TotaltuADDtoBUYTEXT;

int file_handle4;

int iarw,BinInd3,BinInd3BO,BinInd3BE;

int  spredpoints=15;

int Handle;

int MaxBinNumber_1Index;

int MaxBinNumber_0Index;

int MaxBinNumber_1;

int MaxBinNumber_0;

int mult=100000;

int IndexMaximum;

int IndexMinimum;

int MaxInd_bodypips;

int Switch1;

int iaq,ibq;

int ONE_BE;

int IreceiveLevelresult;

int NormalizaDigi=5;

int im;

int Bear_Z,Bool_Z;

int Switch_L_S;

int Rez_BE,one_BE;

//---END---INTEGER VARS-----

//---5@5<5==K5 8=48:0B>@0 0E>28: @5<5=8

int comp_Sev[9,9];//0AA82 4;O A@02=5=8O ?>A;5 ?5@5AGQB0

double Form_Patern_Finder[1002,121];//0AA82 4;O >BA;56820=8O D>@<0F88 0B5@=>2 =0 :C?>;L=>9 0@E8B5:BC@5

datetime DT_Form_Patern_Finder[1002,121];//0AA82 4;O >BA;56820=8O 2@5<5=8 D>@<0F88 0B5@=>2 =0 :C?>;L=>9 0@E8B5:BC@5

int PipsNumber; //1,2,3,4,5

int N_Centro_r;

//'0AK 1

// 0AA82K 4;O ?5@5AGQB>2

int Sev[9,9];

int Var1_Be_0;

int Var1_Bo_0;

int Var1_Be_1;

int Var1_Bo_1;

int Var2_Be_0;

int Var2_Bo_0;

int Var2_Be_1;

int Var2_Bo_1;

// 5@5<5==K5 4;O @07@5H5=89

int sev;

int yug;

int zap;

int vost;

// 5@5<5==K5 4;O ;8F0 8 87=0=:8

int lic;

int izn;

//>40G0 40==KE 87 ?>4A>;=CE0

double Price_Compare;

int Be_0=0;

int Bo_0=0;

int Be_1=0;

int Bo_1=0;

int Be_0_Asign=0;

int Bo_0_Asign=0;

int Be_1_Asign=0;

int Bo_1_Asign=0;

int CheFe=0;

//'0AK 2

int Be_0_C=0;

int Bo_0_C=0;

int Be_1_C=0;

int Bo_1_C=0;

// 0AA82K 4;O ?5@5AGQB>2 4;O Z A8

int z_Sev[9,9];

int z_Var1_Be_0;

int z_Var1_Bo_0;

int z_Var1_Be_1;

int z_Var1_Bo_1;

int z_Var2_Be_0;

int z_Var2_Bo_0;

int z_Var2_Be_1;

int z_Var2_Bo_1;

// 5@5<5==K5 4;O @07@5H5=89

int z_sev;

int z_yug;

int z_zap;

int z_vost;

// 5@5<5==K5 4;O ;8F0 8 87=0=:8

int z_lic;

int z_izn;

//>40G0 40==KE 87 ?>4A>;=CE0

int z_Be_0;

int z_Bo_0;

int z_Be_1;

int z_Bo_1;

int z_Be_0_Asign;

int z_Bo_0_Asign;

int z_Be_1_Asign;

int z_Bo_1_Asign;

int z_CheFe=0;

int z_Sev_1;

int z_Yug_1;

int z_Vost_1;

int z_Zap_1;

string z_BlockNum="0";

int z_errorprint[150];

int z_errorprint2[150];

int z_Gx,z_Gy;

int N_Petalo;

int N_Petalo_1;

int Petalos_32=0;

//C?>; - @>B82 '0A>2>9 !B@5;:8

// ------ !2>4 &5=0-C?>; + !2>4 &5=0 - @5AB 1LQ<

int Per_Sev1=0;//Be_0 ;8F

int Per_Sev2=0;//Bo_0 ;8F

int Per_Sev3=0;//Be_1 ;8F

int Per_Sev4=0;//Bo_1 ;8F

int Per_Sev5=0;//Be_0 87=

int Per_Sev6=0;//Bo_0 87=

int Per_Sev7=0;//Be_1 87=

int Per_Sev8=0;//Bo_1 87=

int w;

int w1;

int w2;

int w3;

bool flower_perm=false;

int InternalPat_1;//8=48:0B>@ D>@<8@>20=8O 2=CB@5==53> ?0B5@=0 2>:@C3 F5=K

int ExternalPat_1;//8=48:0B>@ D>@<8@>20=8O =5H=53> ?0B5@=0 2>:@C3 F5=K

// @8<5@. 0AA820 !525@

//   Sev[1,1]=0; Be_0

//   Sev[1,2]=0; Bo_0

//   Sev[1,3]=0; Be_1

//   Sev[1,4]=0; Bo_1

double PriceConv1;

double Veinte=20;

double cien=100;

double cienm=100000;

int N_Gr20;

int PriceConv2;

double PriceConv3;

double PriceConv4;

int N_Centro;

float Price;

int zapret_podachi_input=0;

int zapret_podachi_output=0;

int zaryad;

int f_Bo_0;

int f_Be_0;// !:;04K20=85 2 5?5AB>:

int f_Bo_1;// !:;04K20=85 2 5?5AB>:

int f_Be_1;// !:;04K20=85 2 5?5AB>:

int Contra_Reloj;

int Rest_Vost;

int Rest_Sever;

int Rest_Yug;

int Rest_Zap;

int Sev_B=0;//0?>;=5==>ABL <>4C;O

int Zap_B=0;

int Yug_B=0;

int Vost_B=0;

int SZBV=0;

//> G0A>2>9 AB@5;:5

int Reloj;

int Sum_Vost;

int Sum_Sever;

int Sum_Yug;

int Sum_Zap;

int Sum_B=0;//0?>;=5==>ABL <>4C;O

int Sum_Zap_B=0;

int Sum_Yug_B=0;

int Sum_Vost_B=0;

int Sum_Sev_B=0;

int Sum_SZBV=0;

int insert_chanel_1;

int insert_chanel_2;

int output_Dir;//vostok

//> G0A>2>9 Bo_0

int Reloj_1;

int Sum_Vost_1;

int Sum_Sever_1;

int Sum_Yug_1;

int Sum_Zap_1;

int Sum_B_1=0;//0?>;=5==>ABL <>4C;O

int Sum_Zap_B_1=0;

int Sum_Yug_B_1=0;

int Sum_Vost_B_1=0;

int Sum_Sev_B_1=0;

int Sum_SZBV_1=0;

int flower_Plus=0;//&25B>: A:;0;AO 0

//@>B82 '0A>2>9 Bo_0

int Contra_Reloj_1;

int Rest_Vost_1;

int Rest_Sever_1;

int Rest_Yug_1;

int Rest_Zap_1;

int Sev_B_1=0;//0?>;=5==>ABL <>4C;O

int Zap_B_1=0;

int Yug_B_1=0;

int Vost_B_1=0;

int SZBV_1=0;

//0AA82K 4;O @538AB@0 AC<<K >1LQ<02 2 8 G0ABOE :C10

int kubo_1=0;

int kubo_2=0;

int kubo_3=0;

int kubo_4=0;

int kubo_5=0;

int kubo_6=0;

int kubo_7=0;

int kubo_8=0;

//C:070BL 2 AAK;:5 >1@0B=CN 8=45:A0F8N

//  0AH8D@>2:0 A8<2>;>2. 1 G8A;> @E8B5:BC@0 2 G8A;> x :>>@45=0B0 3 G8A;> y :>>@45=0B0

int C_Ar_1,C_Ar_2,C_Ar_3,C_Ar_4,C_Ar_5,C_Ar_6,C_Ar_7,C_Ar_8,C_Ar_9,C_Ar_10,C_Ar_11,C_Ar_12,C_Ar_13,C_Ar_14,C_Ar_15,C_Ar_16,C_Ar_17,C_Ar_18,C_Ar_19,C_Ar_20,C_Ar_21,C_Ar_22,C_Ar_23,C_Ar_24,C_Ar_25,C_Ar_26,C_Ar_27,C_Ar_28,C_Ar_29,C_Ar_30,C_Ar_31,C_Ar_32;

string G111211311411Be0l111221311421Bo0i;

string Ar_1=G111211311411Be0l111221311421Bo0i+NAA_1;//OlgGuclenko;4 ok1

string G111221311421Bo0l111211311411Be0i;

string Ar_2=G111221311421Bo0l111211311411Be0i+NAA_2;//YevheniKopnitsk;4 2ok

string G111211311411Be0i111221311421Bo0l;

string Ar_3=G111211311411Be0i111221311421Bo0l+NAA_3;//InnCim;4 ok1

string G111221311421Bo0i111211311411Be0l;

string Ar_4=G111221311421Bo0i111211311411Be0l+NAA_4;//SergeiDolzhikov;4 ok1

string G111222312421Be1l111212312411Bo1i;

string Ar_5=G111222312421Be1l111212312411Bo1i+NAA_5;//ElenZhulitsk; 4 ok1

string G111212312411Bo1l111222312421Be1i;

string Ar_6=G111212312411Bo1l111222312421Be1i+NAA_6;//SergeZvidn; 4 ok1

string G111222312421Be1i111212312411Bo1l;

string Ar_7=G111222312421Be1i111212312411Bo1l+NAA_7;//IrinDzhuli;4 ok1

string G111212312411Bo1i111222312421Be1l;

string Ar_8=G111212312411Bo1i111222312421Be1l+NAA_8;//SergeSoloviov;4 ok1

string G111221311421Be0l111222312421Bo0i;

string Ar_9=G111221311421Be0l111222312421Bo0i+NAA_9;//AlinaPriimak;4ok1

string G111222312421Bo0l111221311421Be0i;

string Ar_10=G111222312421Bo0l111221311421Be0i+NAA_10;//MarceloArandano;4 ok1

string G111221311421Be0i111222312421Bo0l;

string Ar_11=G111221311421Be0i111222312421Bo0l+NAA_11;//ConchaTorres;4 ok1

string G111222312421Bo0i111221311421Be0l;

string Ar_12=G111222312421Bo0i111221311421Be0l+NAA_12;//AngelDelRosario;4 ok1

string G111212312411Be1l111211311411Bo1i;

string Ar_13=G111212312411Be1l111211311411Bo1i+NAA_13;//MashaDidenko;4 ok1

string G111211311411Bo1l111212312411Be1i;

string Ar_14=G111211311411Bo1l111212312411Be1i+NAA_14;//AnatoliMacola;4 ok1

string G111212312411Be1i111211311411Bo1l;

string Ar_15=G111212312411Be1i111211311411Bo1l+NAA_15;//NataliaFurina;4 ok1

string G111211311411Bo1i111212312411Be1l;

string Ar_16=G111211311411Bo1i111212312411Be1l+NAA_16;//YuriSarapin;4 ok1

string G111222312421Be0l11121231241iBo0i;

string Ar_17=G111222312421Be0l11121231241iBo0i+NAA_17;//ValentinaShavritskaa;4 ok1

string G111212312411Bo0l111222312421Be0i;

string Ar_18=G111212312411Bo0l111222312421Be0i+NAA_18;//BeiViktorZotov;4 +-ok1

string G111222312421Be0111212312411lBo0i;

string Ar_19=G111222312421Be0111212312411lBo0i+NAA_19;//ViktoriaDunaeva;4 ok1 +-

string G111212312411Bo0i111222312421Be0l;

string Ar_20=G111212312411Bo0i111222312421Be0l+NAA_20;//BelOlegDunaev;4 ok1

string G111211311411Be1l111221311421Bo1i;

string Ar_21=G111211311411Be1l111221311421Bo1i+NAA_21;//Bo1iMarinaGudimenko;4 ok1

string G111221311421Bo1l111211311411Be1i;

string Ar_22=G111221311421Bo1l111211311411Be1i+NAA_22;//Be1iDimaGudimenko;4 ok1

string G111211311411Be1i111221311421Bo1l;

string Ar_23=G111211311411Be1i111221311421Bo1l+NAA_23;//Bo1lSvetlanaVarazhko;4 ok1

string G111221311421Bo1i111211311411Be1l;

string Ar_24=G111221311421Bo1i111211311411Be1l+NAA_24;//Be1lArtemVarazhko;4 ok

string G111212312411Be0l111211311411Bo0i;

string Ar_25=G111212312411Be0l111211311411Bo0i+NAA_25;//RozaBerioza;4 ok1

string G111211311411Bo0l111212312411Be0i;

string Ar_26=G111211311411Bo0l111212312411Be0i+NAA_26;//YuriTurasov;4 ok1

string G111211311411Be0i111211311411Bo0l;

string Ar_27=G111211311411Be0i111211311411Bo0l+NAA_27;//AnnaDanko; ok1

string G111211311411Bo0i111212312411Be0l;

string Ar_28=G111211311411Bo0i111212312411Be0l+NAA_28;//RomanTischenko;4 ok1

string G111221311421Be1l111222312421Bo1i;

string Ar_29=G111221311421Be1l111222312421Bo1i+NAA_29;//MarinaEletskaa;4 ok1

string G111222312421Bo1l111221311421Be1i;

string Ar_30=G111222312421Bo1l111221311421Be1i+NAA_30;//DenisVinnikov;4 ok1

string G111221311421Be1i111222312421Bo1l;

string Ar_31=G111221311421Be1i111222312421Bo1l+NAA_31;//TetianaPalchkova;4 ok1

string G111222312421Bo1i111221311421Be1l;

string Ar_32=G111222312421Bo1i111221311421Be1l+NAA_32;//AndrePalchkov;4 ok1

string Pr_C_Ar_1,Pr_C_Ar_2,Pr_C_Ar_3,Pr_C_Ar_4,Pr_C_Ar_5,Pr_C_Ar_6,Pr_C_Ar_7,Pr_C_Ar_8,Pr_C_Ar_9,Pr_C_Ar_10,Pr_C_Ar_11,Pr_C_Ar_12,Pr_C_Ar_13,Pr_C_Ar_14,Pr_C_Ar_15,Pr_C_Ar_16,Pr_C_Ar_17,Pr_C_Ar_18,Pr_C_Ar_19,Pr_C_Ar_20,Pr_C_Ar_21,Pr_C_Ar_22,Pr_C_Ar_23,Pr_C_Ar_24,Pr_C_Ar_25,Pr_C_Ar_26,Pr_C_Ar_27,Pr_C_Ar_28,Pr_C_Ar_29,Pr_C_Ar_30,Pr_C_Ar_31,Pr_C_Ar_32;

string Pr_Arch;

string Text_Kubo_1="0";

string Text_Kubo_2="0";

string Text_Kubo_3="0";

string Text_Kubo_4="0";

string Text_Kubo_5="0";

string Text_Kubo_6="0";

string Text_Kubo_7="0";

string Text_Kubo_8="0";

string Obiekt3001="3001";

//;0A8D8:0F8O G0AB8 :C10

// kube_1 - Be_o_x_Lic / Bo_0_Z_izn

// kube_2 - Bo_o_x_Lic / Bo_0_Z_lic

// kube_3 - Be_1_x_Lic / Bo_1_Z_lic

// kube_4 - Bo_1_x_Lic / Be_0_Z_izn

// kube_5 - Be_o_x_izn / Bo_0_Z_lic

// kube_6 - Bo_o_x_izn / Be_0_Z_izn

// kube_7 - Be_1_x_izn / Bo_1_Z_izn

// kube_8 - Bo_o_x_izn / Be_1_Z_lic

string obiekt502="502";

string obiekt503="503";

string obiekt504="504";

string obiekt505="505";

string obiekt506="506";

string obiekt507="507";

string obiekt508="508";

string obiekt509="509";

extern bool Vol_B_Chang_1=false;

extern bool Compens=true;

extern bool GAP=false;

// >40G0 @07@5H5=89 4;O AB>@>= A25B0

int Sev_1;

int Yug_1;

int Vost_1;

int Zap_1;

//--#3;>20O =0?@02;5==>ABL O4@0

int Nucleo_0_Gr;

int Nucleo_45_Gr;

int Nucleo_90_Gr;

int Nucleo_135_Gr;

int Nucleo_180_Gr;

int Nucleo_225_Gr;

int Nucleo_270_Gr;

int Nucleo_315_Gr;

int Nucleo_Gradus[15];//>:070B5;L =0?@02;5=8O O4@0 ?>A;5 ?@>:@CG820=8O M;5:B@>=0<8. AE>4=0O ?>78F8O A525@ 0@E8B5:BC@0 3 ?>A;5 A83=0;0. 8 ?>78F89 4;O C3;>2 453@04CA>2 + 8 4 ?>78F88 4;O @538AB@0F88 B>GL:8 7@5=8O A 8A?>;L7>20=85< 0@E8B5:BC@ 1234

//  07<5B:0 4 ?5@5<5==KE ?> 4 AB>@>=0< A25B0 A ;8F>< 8 87=0=:>9 8 ?@82O7:>9 : !525@=>9 AB>@>=5 :0: 8AE>4=>9 ?>78F88

//!525@

//   Sev[1,1]=0; Be_0

//   Sev[1,2]=0; Bo_0

//   Sev[1,3]=0; Be_1

//   Sev[1,4]=0; Bo_1

// 7=0=:0

//   Sev[1,5]=1; Bo_0

//   Sev[1,6]=1; Be_0

//   Sev[1,7]=1; Bo_1

//   Sev[1,8]=1; Be_1

//.3

//   Sev[1,1]=0; Be_1

//   Sev[1,2]=0; Bo_1

//   Sev[1,3]=0; Be_0

//   Sev[1,4]=0; Bo_0

// 7=0=:0

//   Sev[1,5]=1; Bo_1

//   Sev[1,6]=1; Be_1

//   Sev[1,7]=1; Bo_0

//   Sev[1,8]=1; Be_0

//0?04

//   Sev[1,1]=0; Bo_0

//   Sev[1,2]=0; Be_1

//   Sev[1,3]=0; Bo_1

//   Sev[1,4]=0; Be_0

// 7=0=:0

//   Sev[1,5]=1; Be_1

//   Sev[1,6]=1; Bo_0

//   Sev[1,7]=1; Be_0

//   Sev[1,8]=1; Bo_1

//>AB>:

//   Sev[1,1]=0; Bo_1

//   Sev[1,2]=0; Be_0

//   Sev[1,3]=0; Bo_0

//   Sev[1,4]=0; Be_1

// 7=0=:0

//   Sev[1,5]=1; Be_0

//   Sev[1,6]=1; Bo_1

//   Sev[1,7]=1; Be_1

//   Sev[1,8]=1; Bo_0

//---

//int Andryuschenko_I;

//int Antipenko_P;

//int Buyakov_D;

//int Ryabashtan_N;

//int Krivenko_L;

//int Kopanitskyy_E;

//int Elizarova_G;

//int Cima_I;

//int Konyahina_A;

//int Parmuzina_N;

//int Matvienko_L;

//int Zhulickaya_L;

//int Pravda_Y;

//int Furina_N;

//int Zotov_V;

//int Jarkina_T;

//int Moroz_I;

//int Turasov_Y;

//int Macola_A;

//int Sarapin_Y;

//int Nasypaiko_O;

//int Prityupa_V;

//int Golovchuk_D;

//int Shpilevoy_R;

//int Vaskevich_L;

//int Yurchenko_D;

//int Vinokurov_R;

//int Taran_R;

//int Plasovenko_A;

//int Bilichenko_V;

//int Romanyuk_I;

//int Malaya_A_S;

//int Dunaeva_V_A;

//int Kamashko_V;

//int Zimuha_V;

//int Galushko_R;

//------STRING VARS-----

string File_Name="File.csv";

string FR_Nm=".csv";

string filename;

string Sw_On;

string copy="copy";

string SYmbol=Symbol();

string RectanglLabel;

string TextVisualIndicator;

string Bo,Be;

string Obiekt101="Obiekt101";

string Obiektcampo1="100",Obiektcampo2="101",Obiektcampo3="102",Obiektcampo4="103",Obiektcampo5="104",Obiektcampo6="105",Obiektcampo7="106",Obiektcampo8="107",Obiektcampo9="108",Obiektcampo10="109",Obiektcampo11="110",Obiektcampo12="111",Obiektcampo13="112",Obiektcampo14="113",Obiektcampo15="114";

//---END---STRING VARS-----

//-----FILE NAMES-----

//string FileName1=SYmbol+" MEMORYnature.txt";

//string FileName3=SYmbol+" MEMORYnature_FTP.txt";

//string FileName2=SYmbol+" MEMORYnature-ALLSIGNALS.txt";

string FileName4=SYmbol+"1.8Long&Short-Signals.txt";

//string FileName5=SYmbol+" LEVELS PRICE.txt";

string FileName6=SYmbol+"1.8indexarray.bin";

string FileName7=SYmbol+"1.8alltoarray.bin";

//string FileName8=SYmbol+" BinaryKeys_BIN.bin";

//string FileName9=SYmbol+" BinaryKeys_BID.bin";

string FileName10=SYmbol+"DT_CupolPat1.bin";

string FileName12="1.8bbb.bin";

//string FileName11=SYmbol+" BinaryKeys-Repit_TIME.bin";//<0AA82 2 :>B>@>< E@0=OBAO ?>2B>@K :;NG59 ?> 2@5<5=8, 5A;8 ?>2B>@ 1K; B> D8:A8@C5BAO 2@5<O >B:@KB8O A25G8

string FileName13="1.8bbb_compare.bin";

string FileName14=SYmbol+"1.8PIPS_COLLECTION.txt";

string FileName15=SYmbol+"1.8PIPS_COL_DT.bin";

string FileName16=SYmbol+"1.8PIPS_COL_Price.bin";

string FileName17=SYmbol+"1.8DataCompare.txt";

string FileName18=SYmbol+"CupolPat1.bin";//$08; >B3@C7:8 8 703@C7:8

string FileName19=SYmbol+"1.8AllAnalisysData.bin";//m

string FileName20=SYmbol+"1.8DT_AllAnalisysData.bin";

string FileName21=SYmbol+"1.8BodyHorizont_Bin.bin";

string FileName22=SYmbol+"1.8BodyHorizont_Price.bin";

string FileName23=SYmbol+"1.8BodyHorizont_Time.bin";

string FileName25=SYmbol+"flower_Price_3.bin";

string FileName26=SYmbol+"flower_Price_3_TIME.bin";

string FileName27=SYmbol+"SunwlowerSignals.txt";



string FileName28="Sev_Part_Lic.bin";

string FileName29="Vost_Part_Lic.bin";

string FileName30="Yug_Part_Lic.bin";

string FileName31="Zap_Part_Lic.bin";



string FileName32="Sev_Part_Izn.bin";

string FileName33="Vost_Part_Izn.bin";

string FileName34="Yug_Part_Izn.bin";

string FileName35="Zap_Part_Izn.bin";

//string apikey="630515987:AAHk0ChIBaW3aOZBP1mFQBSK-4HXsBvbB6I";

//string chatid="-1001177290832";//654751710 bot chat

//--END---FILE NAMES-----

//------DATETIME VARS-----

datetime time_bar,time_BR,Bar_Tm=0;

datetime BrTime;

datetime bartimeresult;

//---END---DATETIME VARS-----

//------BOOL VARS-----

bool write=true;

bool writeall=true;

bool write_Zero=true;

//---END---BOOL VARS-----

//------LONG VARS-----

long CHWPX;

//---END---LONG VARS-----

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

//| Expert initialization function                                   |

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

int init()

  {

// --- REVISIONS --- //

//---1.9.1

// --- Added enabling and disabling writing to arrays ALLtoARRAYWRITE

// --- Added enabling and disabling recording to BODYHorizont arrays

// --- Added changing the ONE_be variable to int in the cycle of transferring messages to telegrams and writing data to a file

//-------imag fibanachi-----

   string   Kubo_Img="\\Images\\Kubo_Mql4.bmp";

//-----------------------

   string obiekt501="501";

   ObjectDelete(0,obiekt501);

   ObjectDelete(Obiekt3001);

   ObjectDelete(obiekt501);

   ObjectCreate(obiekt501,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt501,OBJPROP_BMPFILE,Kubo_Img);

   ObjectSetInteger(0,obiekt501,OBJPROP_XDISTANCE,CHWPX+1450);

   ObjectSetInteger(0,obiekt501,OBJPROP_YDISTANCE,350);

//-------imag emoji-----

//string   fileemoji="\\Images\\11_p.bmp";

//for(int x; x<500; x++)

//{

//for(int y; y<2000; y++)

//{

//  Sleep(20);

//Comment(" ",x);

//-----------------------

//    string Obiekt3001="3001";

//  ObjectDelete(Obiekt3001);

// ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

// ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

// ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

// ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

// }

//  }

   ObjectDelete(0,obiekt502);

   ObjectDelete(obiekt502);

   ObjectCreate(obiekt502,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);

   ObjectSetInteger(0,obiekt502,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt502,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt502,OBJPROP_XDISTANCE,CHWPX+1565);

   ObjectSetInteger(0,obiekt502,OBJPROP_YDISTANCE,450);

   ObjectDelete(0,obiekt503);

   ObjectDelete(obiekt503);

   ObjectCreate(obiekt503,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);

   ObjectSetInteger(0,obiekt503,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt503,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt503,OBJPROP_XDISTANCE,CHWPX+1665);

   ObjectSetInteger(0,obiekt503,OBJPROP_YDISTANCE,450);

   ObjectDelete(0,obiekt504);

   ObjectDelete(obiekt504);

   ObjectCreate(obiekt504,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);

   ObjectSetInteger(0,obiekt504,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt504,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt504,OBJPROP_XDISTANCE,CHWPX+1665);

   ObjectSetInteger(0,obiekt504,OBJPROP_YDISTANCE,540);

   ObjectDelete(0,obiekt505);

   ObjectDelete(obiekt505);

   ObjectCreate(obiekt505,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);

   ObjectSetInteger(0,obiekt505,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt505,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt505,OBJPROP_XDISTANCE,CHWPX+1565);

   ObjectSetInteger(0,obiekt505,OBJPROP_YDISTANCE,540);

   ObjectDelete(0,obiekt506);

   ObjectDelete(obiekt506);

   ObjectCreate(obiekt506,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);

   ObjectSetInteger(0,obiekt506,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt506,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt506,OBJPROP_XDISTANCE,CHWPX+1710);

   ObjectSetInteger(0,obiekt506,OBJPROP_YDISTANCE,350);

   ObjectDelete(0,obiekt507);

   ObjectDelete(obiekt507);

   ObjectCreate(obiekt507,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);

   ObjectSetInteger(0,obiekt507,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt507,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt507,OBJPROP_XDISTANCE,CHWPX+1590);

   ObjectSetInteger(0,obiekt507,OBJPROP_YDISTANCE,350);

   ObjectDelete(0,obiekt508);

   ObjectDelete(obiekt508);

   ObjectCreate(obiekt508,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);

   ObjectSetInteger(0,obiekt508,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt508,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt508,OBJPROP_XDISTANCE,CHWPX+1470);

   ObjectSetInteger(0,obiekt508,OBJPROP_YDISTANCE,520);

   ObjectDelete(0,obiekt509);

   ObjectDelete(obiekt509);

   ObjectCreate(obiekt509,OBJ_LABEL,0,BrTime,HIGHT+0.00015);

   ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);

   ObjectSetInteger(0,obiekt509,OBJPROP_COLOR,clrRed);

   ObjectSetInteger(0,obiekt509,OBJPROP_FONTSIZE,9);

   ObjectSetInteger(0,obiekt509,OBJPROP_XDISTANCE,CHWPX+1760);

   ObjectSetInteger(0,obiekt509,OBJPROP_YDISTANCE,500);

// --- initialization of arrays-----

   ArrayInitialize(body,10);

   ArrayInitialize(bodypips,0);

   ArrayInitialize(comp_bodypips,0);

   ArrayInitialize(PIPS_COL_DT,0);

   ArrayInitialize(PIPS_COL_Price,0);

   ArrayInitialize(comp_Sev,0);

   ArrayInitialize(Form_Patern_Finder,0);

   ArrayInitialize(AllAnalisysData,1000);//0AA82 8=8F80;878@CN G8A;><

   ArrayInitialize(BodyHorizont_Bin,10);

   ArrayInitialize(BodyHorizont_Price,10);

   ArrayInitialize(bodyAR,61);

   ArrayInitialize(flower_Price_3,0);

   ArrayInitialize(flower_Price_3_TIME,0);

   ArrayInitialize(Particula,0);

// ---END---initialization of arrays-----

// --- Initialization of the Telegram Bot

//TelegramSendText(apikey,chatid,"Tatiana_Bot_Initialized_V_1.7");

// ---END---Initialization of the Telegram Bot

//--=48:0B>@ 18=0@=K9 :>4 - F5;L ?>;CG5=85 ?>2B>@5=89 8=48:0B>@0

   Price1=0;

   Price0=0;

// ?@8A20820=85 7=0G5=8O 8=45:A0< 4;O <0AA820

// IFb1=0;//=><5@ AB@>:8

// IFb2=0;// OG59:0 2 AB@>:5

// ArrayInitialize(bintoarr,10);//=8F80;878@CN <0AA82 ?@8 70?CA:5 A>25B=8:0

// ArrayInitialize(BinaryToArray,10);//=8F80;878@CN <0AA82 ?@8 70?CA:5 A>25B=8:0

// ArrayInitialize(temparrbin,10);

// ArrayInitialize(temparrbid,10);

// ArrayInitialize(temparrtime,10);

// ArrayInitialize(bintoarrBID,10);

// ArrayInitialize(BinaryToArrayBID,10);

// ArrayInitialize(binrepit,10);

//--Autentification

// if(AccountNumber()!=29856891)

//   {

//    Alert(" Autentificacion Faild ");

//   }

// return(0);

//--END --- Autentification

// - Working with charts ---

   ChartSetInteger(0,CHART_SHOW_GRID,0,false);

   ChartSetInteger(0,CHART_DRAG_TRADE_LEVELS,0,false);

   ChartSetInteger(0,CHART_SHIFT,0,true);

   ChartSetDouble(0,CHART_SHIFT_SIZE,25);

   ChartSetSymbolPeriod(0,Symbol(),PERIOD_M1);

   ChartSetInteger(0,CHART_MODE,CHART_CANDLES);

   ChartSetInteger(0,CHART_COLOR_BACKGROUND,clrWhite);

   ChartSetInteger(0,CHART_COLOR_FOREGROUND,clrBlack);

   ChartSetInteger(0,CHART_COLOR_CHART_UP,clrBlack);

   ChartSetInteger(0,CHART_COLOR_CHART_DOWN,clrBlack);

   ChartSetInteger(0,CHART_COLOR_CHART_LINE,clrBlack);

   ChartSetInteger(0,CHART_COLOR_CANDLE_BULL,clrWhite);

   ChartSetInteger(0,CHART_COLOR_CANDLE_BEAR,clrBlack);

   ChartSetInteger(0,CHART_COLOR_BID,clrGreen);

//---END--- Working with charts ---

   printdesc1=1;

   printdesc2=0;

   printdesc3=0;

   printdesc4=0;

   printdesc5=0;

// ----- rectangular window object-----

   CHWPX=-1;

   ChartGetInteger(0,CHART_WIDTH_IN_PIXELS,0,CHWPX);

// ---END -- rectangular window object-----

//----General Variables------

   BrTime=iTime(Symbol(),0,1);

   HIGHT=iHigh(Symbol(),0,1);

   im=0;

//--END--General Variables------

//-----------------------Loading Files bbb.bin i bbb_compare.bin into an array---------------------------//

   int file_handle12=FileOpen(FileName12,FILE_READ|FILE_WRITE|FILE_BIN);//Loading bbb.bin

//Print("HANDLE bbb.bin ",file_handle12);

   if(file_handle12>0)

     {

      FileSeek(file_handle12,0,SEEK_CUR);

      uint test=FileReadArray(file_handle12,bbb,0,WHOLE_ARRAY);

      //Print("READ bbb.bin ",test);

      FileClose(file_handle12);

     }

//-----------------------------------------------------------------------------------

   int file_handle13=FileOpen(FileName13,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

//Print("HANDLE bbb_compare ",file_handle13);

   if(file_handle13>0)

     {

      FileSeek(file_handle13,0,SEEK_CUR);

      uint test=FileReadArray(file_handle13,bbb_compare,0,WHOLE_ARRAY);

      //Print("READ bbb_compare ",test);

      FileClose(file_handle13);

     }

//-----------------------------------------------------------------------------------

   int file_handle25=FileOpen(FileName18,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

//Print("HANDLE CupolPat1.bin Load ",file_handle25);

   if(file_handle25>0)

     {

      FileSeek(file_handle25,0,SEEK_CUR);

      uint test=FileReadArray(file_handle25,Form_Patern_Finder,0,WHOLE_ARRAY);

      Print("READ CupolPat1.bin ",test);

      FileClose(file_handle25);

     }

//-----------------------------------------------------------------------------------

//-----------------------------------------------------------------------------------

   int file_handle26=FileOpen(FileName10,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

//Print("HANDLE CupolPat1.bin Load ",file_handle25);

   if(file_handle26>0)

     {

      FileSeek(file_handle26,0,SEEK_CUR);

      uint test=FileReadArray(file_handle26,DT_Form_Patern_Finder,0,WHOLE_ARRAY);

      //Print("READ CupolPat1.bin ",test);

      FileClose(file_handle26);

     }

//-----------------------------------------------------------------------------------

//-----------------------------------------------------------------------------------

   int file_handle27=FileOpen(FileName25,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

//Print("HANDLE CupolPat1.bin Load ",file_handle25);

   if(file_handle27>0)

     {

      FileSeek(file_handle27,0,SEEK_CUR);

      uint test=FileReadArray(file_handle27,flower_Price_3,0,WHOLE_ARRAY);

      //Print("READ CupolPat1.bin ",test);

      FileClose(file_handle27);

     }

//-----------------------------------------------------------------------------------

//-----------------------------------------------------------------------------------

   int file_handle28=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

//Print("HANDLE CupolPat1.bin Load ",file_handle25);

   if(file_handle28>0)

     {

      FileSeek(file_handle28,0,SEEK_CUR);

      uint test=FileReadArray(file_handle28,flower_Price_3_TIME,0,WHOLE_ARRAY);

      //Print("READ CupolPat1.bin ",test);

      FileClose(file_handle28);

     }

//-----------------------------------------------------------------------------------

// int file_handle15=FileOpen(FileName15,FILE_READ|FILE_WRITE|FILE_BIN);//03@C7:0

// Print("PIPS_COL_DT ",file_handle15);

// if(file_handle15>0)

// {

//FileSeek(file_handle15,0,SEEK_CUR);

// uint test=FileReadArray(file_handle15,PIPS_COL_DT,0,WHOLE_ARRAY);

// Print("READ PIPS_COL_DT ",test);

// FileClose(file_handle15);

// }

//-----------------------------------------------------------------------------------

//int file_handle16=FileOpen(FileName16,FILE_READ|FILE_WRITE|FILE_BIN);//03@C7:0

// Print("PIPS_COL_Price ",file_handle16);

// if(file_handle16>0)

//  {

//  FileSeek(file_handle16,0,SEEK_CUR);

//   uint test=FileReadArray(file_handle16,PIPS_COL_Price,0,WHOLE_ARRAY);

//  Print("READ PIPS_COL_Price ",test);

// FileClose(file_handle16);

// }

//-------Loading previously collected and filtered data-----------------------------

   int file_handle17=FileOpen(FileName21,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

   if(file_handle17>0)

     {

      FileSeek(file_handle17,0,SEEK_CUR);

      uint test=FileReadArray(file_handle17,BodyHorizont_Bin,0,WHOLE_ARRAY);

      FileClose(file_handle17);

     }

//-----------------------------------------------------------------------------------

   int file_handle18=FileOpen(FileName22,FILE_READ|FILE_WRITE|FILE_BIN);//Loading

   if(file_handle18>0)

     {

      FileSeek(file_handle18,0,SEEK_CUR);

      uint test=FileReadArray(file_handle18,BodyHorizont_Price,0,WHOLE_ARRAY);

      FileClose(file_handle18);

     }

//-----------------------------------------------------------------------------------

   int file_handle19=FileOpen(FileName23,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle19>0)

     {

      FileSeek(file_handle19,0,SEEK_CUR);

      uint test=FileReadArray(file_handle19,BodyHorizont_Time,0,WHOLE_ARRAY);

      FileClose(file_handle19);

     }



//-----------------------------------------------------------------------------------

   int file_handle30=FileOpen(FileName28,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle30>0)

     {

      FileSeek(file_handle30,0,SEEK_CUR);

      uint test=FileReadArray(file_handle30,Sev_Part_Lic,0,WHOLE_ARRAY);

      FileClose(file_handle30);

     }



//-----------------------------------------------------------------------------------

   int file_handle31=FileOpen(FileName29,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle31>0)

     {

      FileSeek(file_handle31,0,SEEK_CUR);

      uint test=FileReadArray(file_handle31,Vost_Part_Lic,0,WHOLE_ARRAY);

      FileClose(file_handle31);

     }

//-----------------------------------------------------------------------------------

   int file_handle32=FileOpen(FileName30,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle32>0)

     {

      FileSeek(file_handle32,0,SEEK_CUR);

      uint test=FileReadArray(file_handle32,Yug_Part_Lic,0,WHOLE_ARRAY);

      FileClose(file_handle32);

     }

//-----------------------------------------------------------------------------------

   int file_handle33=FileOpen(FileName31,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle33>0)

     {

      FileSeek(file_handle33,0,SEEK_CUR);

      uint test=FileReadArray(file_handle33,Zap_Part_Lic,0,WHOLE_ARRAY);

      FileClose(file_handle33);

     }



//-----------------------------------------------------------------------------------

   int file_handle34=FileOpen(FileName32,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle34>0)

     {

      FileSeek(file_handle34,0,SEEK_CUR);

      uint test=FileReadArray(file_handle34,Sev_Part_Izn,0,WHOLE_ARRAY);

      FileClose(file_handle34);

     }

//-----------------------------------------------------------------------------------

   int file_handle35=FileOpen(FileName33,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle35>0)

     {

      FileSeek(file_handle35,0,SEEK_CUR);

      uint test=FileReadArray(file_handle35,Vost_Part_Izn,0,WHOLE_ARRAY);

      FileClose(file_handle35);

     }

//-----------------------------------------------------------------------------------

   int file_handle36=FileOpen(FileName34,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle36>0)

     {

      FileSeek(file_handle36,0,SEEK_CUR);

      uint test=FileReadArray(file_handle36,Yug_Part_Izn,0,WHOLE_ARRAY);

      FileClose(file_handle36);

     }

//-----------------------------------------------------------------------------------

   int file_handle37=FileOpen(FileName35,FILE_READ|FILE_WRITE|FILE_BIN);//m

   if(file_handle37>0)

     {

      FileSeek(file_handle37,0,SEEK_CUR);

      uint test=FileReadArray(file_handle37,Zap_Part_Izn,0,WHOLE_ARRAY);

      FileClose(file_handle37);

     }









//-----END Loading previously collected and filtered data----------------------------

// ----- The function that reflects the "circle" symbol on the chart when loading the algorithm into memory--

   time_BR=Time[0];

   if(time_BR!=0)

      Text_OBJ_LABEL("Tx_FM",1,1,50,"l",28,"Wingdings",clrGreen);

   else

      Text_OBJ_LABEL("Tx_FM",1,1,50,"l",28,"Wingdings",clrRed);

// -----END --- The function that reflects the "circle" symbol on the chart when loading the algorithm into memory--

   return(0);

  }

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

//| Expert tick function                                             |

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

int start()

  {

   if(time_bar!=Time[0])// Body area containing binary code analyzers

     {

      //----

      time_bar=Time[0];

      // ---- unwrap writing the body array and writing data to the week array

      // --- I write to 3 arrays using the index. Array 1 Binary sequence Array 2 price corresponding to the binary sequence 3 candle open time

      // --- It is necessary to combine the array data with a separate script

      // --- arrays are 7210 lines in size and 10000 width

      int inx;

      for(inx=1; inx<=7209; inx++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",inx," Array Name BodyHorizont_Bin 937");

           }

         if(BodyHorizont_Bin[inx,1]==10)//8=45:A 70?>;=O5<>9 AB@>:8 2 <0AA825

           {

            break;

           }

        }

      // rewrite from vertical to horizontal

      // Assigning candle time values   to an array

      BodyHorizont_Time[inx]=iTime(Symbol(),0,1);

      int inx_1;

      for(inx_1=1; inx_1<=99998; inx_1++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",inx_1," Array Name Body 952");

           }

         //Print("Body Init ",body[inx_1,0]);//H81>: "

         if(body[inx_1,0]==10)// line number where writing to the array ended

           {

            break;

           }

        }

      // Add the use of Hep overshoot to the top or bottom

      // For gaps, use calculations that determine the number of pips.

      // Correction of the first value from the previous record.

      // You need to select the value of the last item in the array

      // Assign the binary code values   to the BodyHorizont_Bin and BodyHorizont_Price array and compare with the first price and bincode value in the Body array

      // If the price is the same as in the body, then the new record is assigned the value of the last record of the body array. Horizon example Body 1 1.13200 and body horizon 1 1.13200

      // If the price is the same as in the body, then the new record is assigned the value of the last record of the body array. Horizon example Body 1 1.13200 and body horizon 0 1.13200 then change the value to 0

      // if the price in the body has decreased from the price of the bodyhorizon, then set 0; if it has risen, then set 1

      // define the end of the previous record in the BodyHorizont_Bin array through the pho loop

      if(GAP==true)

        {

         int fg;

         int swi=0;

         if(inx>1)// the first record in the array is skipped

           {

            for(fg=1; fg<=1999; fg++)

              {

               if(Array_Errors==true)

                 {

                  Print(" Index Array ",fg," Array Name BodyHorizont_Bin 979");

                 }

               //Print("fg ",fg);

               if(BodyHorizont_Bin[inx-1,fg]==10)

                 {

                  break;

                 }

              }

            // ----- Defining a gap when opening a new bar-----

            if(inx>1 && body[1,0]<3)// the first record in the array is skipped

              {

               if(BodyHorizont_Price[inx-1,fg-1]!=body[1,0])

                 {

                  if(BodyHorizont_Price[inx-1,fg-1]>body[1,0])// The closing price is higher than the opening price, which means the price has dropped

                    {

                     PipsDif=NormalizeDouble(((NormalizeDouble(BodyHorizont_Price[inx-1,fg-1],5)-NormalizeDouble(body[1,0],5))*100000),0);// Get the number of pips of the price difference

                     //Print(" PipsDIf 1 ",PipsDif);

                     swi=1;

                    }

                  if(BodyHorizont_Price[inx-1,fg-1]<body[1,0])// The closing price is higher than the opening price, which means the price has dropped

                    {

                     PipsDif=NormalizeDouble(((NormalizeDouble(body[1,0],5)- NormalizeDouble(BodyHorizont_Price[inx-1,fg-1],5))*100000),0);// Get the number of pips of the price difference

                     //Print(" PipsDIf 2 ",PipsDif," body[1,0] ",body[1,0]," BodyHorizont_Price[inx-1,fg-1] ",BodyHorizont_Price[inx-1,fg-1]);

                     swi=2;

                    }

                 }

              }

            if(inx>1 && body[1,3]<3)// the first record in the array is skipped

              {

               if(BodyHorizont_Price[inx-1,fg-1]!=body[1,3])

                 {

                  if(BodyHorizont_Price[inx-1,fg-1]>body[1,3])// The closing price is higher than the opening price, which means the price has dropped

                    {

                     PipsDif=NormalizeDouble(((NormalizeDouble(BodyHorizont_Price[inx-1,fg-1],5)-NormalizeDouble(body[1,3],5))*100000),0);// Get the number of pips of the price difference

                     //Print(" PipsDIf 3 ",PipsDif);

                     swi=1;

                    }

                  if(BodyHorizont_Price[inx-1,fg-1]<body[1,3])// The closing price is higher than the opening price, which means the price has dropped

                    {

                     PipsDif=NormalizeDouble(((NormalizeDouble(body[1,3],5)-NormalizeDouble(BodyHorizont_Price[inx-1,fg-1],5))*100000),0);// Get the number of pips of the price difference

                     //Print(" PipsDIf 4 ",PipsDif);

                     swi=2;

                    }

                 }

              }

            // ----- I overwrite arrays to add values -----

            // -----I transfer the values   of the body array to the body plus

            if(inx>1)// the first record in the array is skipped

              {

               for(fgf=1; fgf<=99998; fgf++)

                 {

                  if(Array_Errors==true)

                    {

                     Print(" Index Array ",fgf," Array Name Body 1032");

                    }

                  //Print("fg ",fg);

                  if(body[fgf,0]==10)

                    {

                     break;

                    }

                 }

              }

            // ----- I overwrite arrays -----------------

            for(fgo=0; fgo<4; fgo++)

              {

               for(fgi=1; fgi<fgf; fgi++)

                 {

                  if(Array_Errors==true)

                    {

                     Print(" Index Array ",fgi," ind 2",fgo," Array Name Body_plus 1048");

                    }

                  //Print("Line 613 ",body[fgi,fgo]);//0AA<>B@5BL <0A82 ?> AB>;1F0< @0745;L=>

                  body_Plus[fgi,fgo]=body[fgi,fgo];

                 }

              }

            // ----- Fill the array with GEP values-----

            if(BodyHorizont_Price[inx-1,fg-1]<body[1,0])// If the price is the same in the arrays and the binary code is the same, then I skip the action

              {

               if(body[1,0]<3)

                 {

                  ArrayInitialize(body,10);

                  if(swi==2)

                    {

                     for(int fgw=0; fgw<PipsDif+1; fgw++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",fgw," Array Name Body 1066");

                          }

                        body[fgw,0]=BodyHorizont_Price[inx-1,fg-1]+0.00001;// Assign price values

                        body[fgw,1]=1;// Assign binary code values

                        //Print("Body Init 2 ",body[fgw,0]);

                       }

                    }

                 }

              }

            // Comparison of 2 arrays, I correct the writing of the binary code in the BODY array

            if(BodyHorizont_Price[inx-1,fg-1]<body[1,0])// If the price is the same in the arrays and the binary code is the same, then I skip the action

              {

               body[1,1]=1;// If the price in BODY is more than in BodyHorizont then I assign 1

              }

            if(BodyHorizont_Price[inx-1,fg-1]>body[1,0])// If the price is the same in the arrays and the binary code is the same, then I skip the action

              {

               body[1,1]=0;// If the price in BODY is less than in BodyHorizont then I assign 0

              }

            if(BodyHorizont_Price[inx-1,fg-1]==body[1,0] && BodyHorizont_Bin[inx-1,fg-1]!=body[1,1])// If the price is the same in the arrays and the binary code is the same, then I skip the action

              {

               body[1,1]=BodyHorizont_Bin[inx-1,fg-1];// If the price in the body is more than in the bodyhorizont, then I assign 1

              }

           }

         int inx_2;

         for(inx_2=1; inx_2<inx_1; inx_2++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",inx," In 2",inx_2," Array Name BodyHorizont_Bin 1094");

              }

            //Print(" Line 659 ",body[inx_2,0]);

            BodyHorizont_Bin[inx,inx_2]=body[inx_2,1];

           }

         // Assigning price values   to an array

         for(inx_2=1; inx_2<inx_1; inx_2++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",inx_2," Array Name Body 1104");

              }

            if(body[inx_2,0]<2 && body[inx_2,0]!=3)// Assign a value if the value in the 0 column is less than 0

              {

               BodyHorizont_Price[inx,inx_2]=body[inx_2,0];

              }

            if(body[inx_2,0]==3)// Assign a value if the 0 column has a value of 3

              {

               BodyHorizont_Price[inx,inx_2]=body[inx_2,3];

              }

           }

         if(BODYHorizont==true)

           {

            // Writing arrays to a binary file

            // --- ADD CHANGE FILE NAME TO x_FILE NAME

            //------Writing the received data to a files-----------

            int file_handle21=FileOpen(FileName21,FILE_READ|FILE_WRITE|FILE_BIN);

            if(file_handle21>0)

              {

               FileSeek(file_handle21,0,SEEK_CUR);

               uint test=FileWriteArray(file_handle21,BodyHorizont_Bin,0,WHOLE_ARRAY);

               FileClose(file_handle21);

              }

            //-----------------------------------------------------------------------------------

            int file_handle22=FileOpen(FileName22,FILE_READ|FILE_WRITE|FILE_BIN);

            if(file_handle22>0)

              {

               FileSeek(file_handle22,0,SEEK_CUR);

               uint test=FileWriteArray(file_handle22,BodyHorizont_Price,0,WHOLE_ARRAY);

               FileClose(file_handle22);

              }

            //-----------------------------------------------------------------------------------

            int file_handle23=FileOpen(FileName23,FILE_READ|FILE_WRITE|FILE_BIN);

            if(file_handle23>0)

              {

               FileSeek(file_handle23,0,SEEK_CUR);

               uint test=FileWriteArray(file_handle23,BodyHorizont_Time,0,WHOLE_ARRAY);

               FileClose(file_handle23);

              }

           }

        }//END GAP

      //------Loading data from an array-----------

      // ----- testing process

      //-----=45:AK

      //Print("=45:A 70?8A8 inx ",inx);

      //Print(";C18=0 >48 inx_1 ",inx_1);

      //Print(">;;8G5AB2> 70?>;=5==KE M;5<5=B>2 inx_2 ",inx_2);

      //-----@>25@:0 70?8A8

      //for(int ghj=1; ghj<2000; ghj++)

      // {

      // if(BodyHorizont_Price[inx,ghj]==10)

      //{

      //   Print(" >=5F 70?>;=5=>9 AB@>:8 ",ghj);

      //  break;

      // }

      // }

      // Print("&5=0 =0G0;> 1>48 ",body[1,0]);

      // Print("&5=0 :>=5F 1>48 ",body[inx_1-1,0]);

      // Print("8=:>4 =0G0;> 1>48 ",body[inx_1,1]);

      // Print("8=:>4 >=5F 1>48 ",body[inx_1-1,1]);

      //Print("8=:>4 =0G0;> <0AA820 ",BodyHorizont_Bin[inx,1]);

      //Print("8=:>4 >=5F <0AA820 ",BodyHorizont_Bin[inx,inx_1-1]);

      //Print("&5=0 =0G0;> <0AA820 ",BodyHorizont_Price[inx,1]);

      //Print("&5=0 :>=5F <0AA820 ",BodyHorizont_Price[inx,inx_1-1]);

      //Print("&5=0 =0G0;> <0AA820 -:>=B@>;L ",BodyHorizont_Price[inx,0]);

      //Print("&5=0 :>=5F <0AA820 - :>=B@>;L ",BodyHorizont_Price[inx,inx_1]);

      //Print("8=:>4 =0G0;> <0AA820 -:>=B@>;L ",BodyHorizont_Bin[inx,0]);

      //Print("8=:>4 :>=5F <0AA820 - :>=B@>;L ",BodyHorizont_Bin[inx,inx_1]);

      //Print("@5<O  - :>=B@>;L ",BodyHorizont_Time[inx]);

      //----------------------------------------------------------

      //for(int mn=1; mn<inx_1; mn++)

      //  {

      //   Print("&5=0 25AL 0AA82 ",BodyHorizont_Price[inx,mn]);

      //  }

      // for(int mn=1; mn<inx_1; mn++)

      // {

      //  Print("8=:>4 5AL 0AA82 ",BodyHorizont_Bin[inx,mn]);

      // }

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

      //|Sunflower                                                         |

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

      if(BinIndWRITE==true)

        {

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

         //|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;//>;CG0N F5=C C:070B5;O

               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)//A;8 2 18=0@=>9 OG59:5 1 B> C:07C205< =0 F5=C 2KH5 - 0,00001

              {

               // Indicate the price

               double price=body[1,3]-0.00001;//>;CG0N F5=C C:070B5;O

               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;//@8A20820N F5=C 2 ?5@2CN OI59:C <0AA820.0AA82 70?>;=5= 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 arrayL

                    {

                     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)//A;8 =5 =0945=0 F5=0 7=0G8B =C6=> 4>1028BL 2 <0AA82 70?8AL

                       {

                        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                                         |

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

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

         //| 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];//&5=0 ?5@2>3> 0

           }

         else

            PriceZero=body[zeroindex,3];

         //Print(" PriceZero ",PriceZero);

         //----------=48:0B>@ A;>65=8O 18=0@=>3> :>40 A F5=>9 75@>-----------------

         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           |

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

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

         //|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;

         //#:070B5;L 0<0 0?0 8 @QA=K9 8 @QA=0O

         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;

               //=4@59 ;048<8@>28GL >?0=8F:89

               Bo="Bo_"+IntegerToString(BinInd3);

               //>40G0 7=0G5=89 =0 <0E>28:

               Bo_0=1;//>40G0 7=0G5=89 4;O X

               z_Bo_0=1;//>40G0 7=0G5=89 4;O Z

               Bo_0_C=1;//>40G0 7=0G5=89 4;O Kupol

               f_Bo_0=1;// !:;04K20=85 2 5?5AB>:

               //1=C;5=85 ?@5@5<5==KE ?>40G8 ?>A;5 @0AGQB0 ?> 1;>:C

               Be_0_C=0;

               Be_1_C=0;

               Bo_1_C=0;

              }

            if(bodypips[MaxInd_bodypips,0]>price_plus)

              {

               //!0;:> @8H0

               BinInd3=1;

               BinInd3BO=1;

               Bo="Bo_"+IntegerToString(BinInd3);

               //>40G0 7=0G5=89 =0 <0E>28:

               Bo_1=1;//>40G0 7=0G5=89 4;O X

               z_Bo_1=1;//>40G0 7=0G5=89 4;O Z

               Bo_1_C=1;//>40G0 7=0G5=89 4;O Kupol

               f_Bo_1=1;// !:;04K20=85 2 5?5AB>:

               //1=C;5=85 ?@5@5<5==KE ?>40G8 ?>A;5 @0AGQB0 ?> 1;>:C

               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)

              {

               //2@>20 ;L30 !5@3552=0

               BinInd3=0;

               BinInd3BE=0;

               Be="Be_"+IntegerToString(BinInd3);

               //>40G0 7=0G5=89 =0 <0E>28:

               Be_0=1;//>40G0 7=0G5=89 4;O X

               z_Be_0=1;//>40G0 7=0G5=89 4;O Z

               Be_0_C=1;//>40G0 7=0G5=89 4;O Kupol

               f_Be_0=1;// !:;04K20=85 2 5?5AB>:

               //1=C;5=85 ?@5@5<5==KE ?>40G8 ?>A;5 @0AGQB0 ?> 1;>:C

               Bo_0_C=0;

               Be_1_C=0;

               Bo_1_C=0;

              }

            if(bodypips[MaxInd_bodypips,0]<price_minus)

              {

               //N:0@520 N4<8;0 8:>;052=0

               BinInd3=1;

               BinInd3BE=1;

               Be="Be_"+IntegerToString(BinInd3);

               //>40G0 7=0G5=89 =0 <0E>28:

               Be_1=1;//>40G0 7=0G5=89 4;O X

               z_Be_1=1;//>40G0 7=0G5=89 4;O Z

               Be_1_C=1;//>40G0 7=0G5=89 4;O Kupol

               f_Be_1=1;// !:;04K20=85 2 5?5AB>:

               //1=C;5=85 ?@5@5<5==KE ?>40G8 ?>A;5 @0AGQB0 ?> 1;>:C

               Be_0_C=0;

               Bo_0_C=0;

               Bo_1_C=0;

              }

           }

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

         //|END Sunflower Seed sides                                          |

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

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

         //|Sunflower Cupol                                                   |

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

         //-----Rotation-----

         //----- >B0F8O >A8 1078@C5BAO =0 45;5=88 A5<5G:8 ?>4>A=CE0 =0 4 G0AB8.@8A20820NBAO A;54CNI85 8=45:AK

         //-----Be_0,Bo_0 (!=8AE>4OI89 B@5=4, 2>AE>4OI89 B@5=4).B5_1,Bo_1 (!=8AE>4OI89 B@5=4, 2>AE>4OI89 B@5=4)

         // -------- Binary price field scanner

         // -------- When the minute arrives, write the price change to the array, assigning the value obtained by the indicator

         // -------------- Phase 1 ------------- // Calculation. I get the number of pips traversed by the price for periods 1 and 2.

         // ---->4C;L ?@>25@:8 :>=25@A88 ?5@<5==KE 2 <>4C;OE

         string Var1Wr;

         if(Var1_Bo_1==0)

           {

            Var1Wr="Bo_1";

           }

         if(Var1_Bo_0==0)

           {

            Var1Wr="Bo_0";

           }

         if(Var1_Be_0==0)

           {

            Var1Wr="Be_0";

           }

         if(Var1_Be_1==0)

           {

            Var1Wr="Be_1";

           }

         Price1=Price0;

         Price0=bodypips[MaxInd_bodypips,0];

         if(Price1!=0 && Price0!=0)

           {

            if(Price1<Price0)

              {

               CurPips=NormalizeDouble((Price0-Price1),5)*mult;//

              }

            if(Price1>Price0)

              {

               CurPips=NormalizeDouble((Price1-Price0),5)*mult;

              }

            // -------------- Phase 2 ------------- // Divide the received pips by the number of the indicator

            Onda1=NormalizeDouble(CurPips/bodypips[MaxInd_bodypips,1],5);

            //Print(" CurPips ",CurPips," Onda1 ",Onda1);

           }

         int indmas;//Index

         for(indmas=1; indmas<=99998; indmas++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",indmas,"  1728");

              }

            if(PIPS_COL_Price[indmas,0]==0)

              {

               break;

              }

           }

         if(bodypips[MaxInd_bodypips,0]>price_Menus_one)

           {

            PIPS_COL_Price[indmas,2]=0;// Boolean type

            PIPS_COL_Price[indmas,3]=1;// Subtype 0/1

           }

         if(bodypips[MaxInd_bodypips,0]<price_Menus_one)

           {

            PIPS_COL_Price[indmas,2]=1;//Bear type

            PIPS_COL_Price[indmas,3]=0;// Subtype 0/1

           }

         //-----Time-----

         PIPS_COL_DT[indmas]=iTime(Symbol(),0,1);// record the time

         //-----Price------

         PIPS_COL_Price[indmas,0]=bodypips[MaxInd_bodypips,0];// Write the price to zero

         PIPS_COL_Price[indmas,1]=bodypips[MaxInd_bodypips,1];// Maximum index value-

         //----- 0AGQB 0E>28: @5<5=8

         for(int il=1; il<=99998; il++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",il,"  1755");

              }

            //Print(bodypips[il,0]);

            if(bodypips[il,0]==0)

              {

               break;

              }

           }

         //---   ;O 2KG8A;5=8O ?>;=>3> F8:;0 =C6=> 8<5BL 2 ?5@5<5==K5, !525@ 8 .3

         //---   5@5<5==0O, @50;L=>ABL 14;O 2=5H=53> :>;LF0 =5 87<5=O5BAO 0 >AB0QBAO ?>AB>O==>9 :>=AB0=B>9. !GQBG8: ?@8 A<5=5 A A525@0 =0 N3 AG8B05B 2 >1@0B=>< ?>@O4:5.?@8 A<5=5 A N30 =0 A525@ AG8B05B 2 ?@028;L=>< ?>@O4:5.

         //---   4 AB>@>=K ?;NA 2 ?5@52>@>B0.1_2_3_4_0/1

         //---   B>@>9 =01>@ 1_2_3_4_0/1 G0A>2K5 1,2

         //---   "@5B89 =01>@ 1_2_3_4_0/1 G0A>2K5 3 8 4 1_0/1 >B=>H5=85 A525@ N3

         //---   UP_BeBo0-1_0/1_1_2_3_4_0/1_1_2_3_4_0/1_1_2_3_4_0/1

         // @8A20820=85 7=0G5=89 87 ?>4A>;=CE0. C6=> >?@545;8BL 2 :0:CN 87 4 ?5@5<5==KE ?@>872545=> ?@8A20820=85.

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

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

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

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

         //|   Counter Summa 1/0                                              |

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

         if(GetLastError()==4002)

           {

            Alert(" EA ERROR- RELOAD");

            ResetLastError();

           }

         im=im++;

         //Compensation price calculation function

         int ikz;

         for(ikz=1; ikz<=99998; ikz++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",ikz,"  1788");

              }

            if(body[ikz,1]==10)

              {

               break;

              }

           }

         int Counter_Summa1_AR=0;

         int Counter_Summa0_AR=0;

         for(int ik=1; ik<ikz; ik++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",ik,"  1801");

              }

            if(body[ik,1]==1)

              {

               Counter_Summa1_AR++;

              }

           }

         for(int il=1; il<ikz; il++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",il,"  1812");

              }

            if(body[il,1]==0)

              {

               Counter_Summa0_AR++;

              }

           }

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

         //|Counter Summa 1/0 -   Synapsys Indicator                          |

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

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

         //| 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 -----

         //Angelusvitae fond - https://www.facebook.com/angelusvitae.fond

         //<>6=> ?@>25AB8 M:2820;5=B @0AGQB0 0@E8B5:BC@K A5<5GL:8 ?>4A>;=CE0 ?@8@02=820O : 4 A5<5G:0< :>D5

         //4>1028BL AGQBG8: A1>@0 7Q@5= A D09;0

         odna_chaska_kofe=15;// 3@=

         kolvo_gram_1_chashka_kofe=9;

         ves_1_zerno=0.2;

         kolvo_zeren_1_chashka_Kofe=kolvo_gram_1_chashka_kofe/ves_1_zerno;//45 75@5= :>D5

         one_kg_kofe_soderzhit_chawek=111;

         Kolvo_zeren_v_kilograme=one_kg_kofe_soderzhit_chawek*kolvo_zeren_1_chashka_Kofe;//4.995

         Kolvo_chashek_kofe_dlya_sbora=Kolvo_sredstv_dlya_sbora/odna_chaska_kofe;//1000

         Kolvo_zeren_dlya_Sbora=Kolvo_chashek_kofe_dlya_sbora*kolvo_zeren_1_chashka_Kofe;//45000 7Q@5= :>D5

         kolvo_zeren_sessiya=(one_BE+zero_BE)/2;//;O ?@82545=8O 75@=0 :>D5 : 4 3@0=O< 75@=0 ?>4A>;=CE0 =C6=> 8A?>;L7>20BL 2 75@=0

         kolvo_zeren=kolvo_zeren+kolvo_zeren_sessiya;//>;;8G5AB2> 7Q@5= ?@8 A:;04K20=88 A5AA89.

         //Print("kolvo_zeren ",kolvo_zeren);

         if(kolvo_zeren>=Kolvo_zeren_dlya_Sbora)

           {

            string SM_AV=IntegerToString(kolvo_zeren);

            SendNotification(SM_AV);

            //Print(" beans collected from the field Let's start making coffee - https://send.monobank.ua/jar/2GXP5PQZRz https://m.facebook.com/profile.php/?id=100061828946176 https://m.facebook.com/profile.php/?id=100069337776471 https://youtu.be/9xMScFIFcz4?si=Uqyk0CV-ZLV8zZa-",kolvo_zeren);

            kolvo_zeren=0;

           }

         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              |

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

         // AE>4=>5 ?>;>65=85 !25G0 :><?8=A0F88. 5@5CAB0=>2:0 7=0G5=89

         if((resOperandMin==PriceZero || resOperandMax==PriceZero) && one_BE>=15 && one_BE<=60 && one_BE!=0 && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && Rez_BE==0 && Compens==true)

           {

            //Array_Errors=true;

            // #AB0=>2:0 ?>78F88 <0E>28:0 =0 !525@

            sev=1;// >1@01>B:0 A>1KB8O !525@

            zap=0;

            yug=0;

            vost=0;

            // #AB0=>2:0 8F0

            lic=1;

            izn=0;

            // !=OB85 @07@5H5=85 =0 CAB0=>2;5=85 A525@0

            Compens=false;

            // #AB0=>28BL 7=0G5=8O <0AA820 =0 0 8 1

            // 8F>

            Sev[1,1]=0;//Be_0

            Sev[1,2]=0;//Bo_0

            Sev[1,3]=0;//Be_1

            Sev[1,4]=0;//Bo_1

            // 7=0=:0

            Sev[1,5]=0;//Be_0

            Sev[1,6]=0;//Bo_0

            Sev[1,7]=0;//Be_1

            Sev[1,8]=0;//Bo_1

            Var1_Be_0=0;

            Var1_Bo_0=2;

            Var1_Be_1=2;

            Var1_Bo_1=2;

            //Print(" Last Pips Sincronization ",iTime(Symbol(),PERIOD_M1,0));

            Gx=0;

            Gy=0;

            //#AB0=>2;5=85 7=0G5=89 >A8 " "Z"

            z_sev=1;// >1@01>B:0 A>1KB8O !525@

            z_zap=0;

            z_yug=0;

            z_vost=0;

            // #AB0=>2:0 8F0

            z_lic=1;

            z_izn=0;

            z_Gx=0;

            z_Gy=0;

            z_Sev[1,1]=0;

            z_Sev[1,2]=0;

            z_Sev[1,3]=0;

            z_Sev[1,4]=0;

            // 7=0=:0

            z_Sev[1,5]=1;

            z_Sev[1,6]=1;

            z_Sev[1,7]=1;

            z_Sev[1,8]=1;

            z_Var1_Be_0=0;

            z_Var1_Bo_0=2;

            z_Var1_Be_1=2;

            z_Var1_Bo_1=2;

            // 0AA82 F25B>:

            ArrayInitialize(flower,0);

            flower_perm=true;

            int file_handle14=FileOpen(FileName14,FILE_READ|FILE_WRITE," ");

            if(file_handle14>0)

              {

               FileSeek(file_handle14,0,SEEK_END);

               FileWrite(file_handle14,Symbol()," Start Time for flywheel ",iTime(Symbol(),0,1));

               FileClose(file_handle14);

              }

            //#AB0=>2:0 2 0 8AE>4=KE ?5@5<5==KE ?@8 ;8F5

            //Print(" Fly INIT ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8]);

            //Print(" Step 0 "," sev ",sev," zap ",zap," yug ",yug," vost ",vost );

           }//Fin init

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

         //|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_ ");

         //>40G0 7=0G5=89

         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;

           }

         // 0@80=BK 2@0I5=85 2 ?@028;L=>9 ?>78F88. !<5=0 AB@>=K ?@>872>48BAO <> <5B>4C ?5@520@>B0 AB@0=8FK 2 :=835 A ;520 =0 ?@02> 8;8 A ?@020 =0 ;52>

         // @0I5=85 ?@>872>48BAO 1078@COAL =0 2B>@CN ?5@5<5==CN. >A;5 ?@8A20820=8O 8 @0AGQB0 7=0G5=8O 87 2B>@>9 ?5@5<5==>9 ?5@5B5:0NB 2 ?5@2CN.

         //5@54 >1@01>B:>9 A>1KB89 =C6=> 2KO28BL 2A5 ?@028;0 4;O :064>3> =0?@02;5=8O.

         //5@5?@8A20820=85 7=0G5=8O 2 B>965 ?;>A:>AB8 8 B>< 65 ;8F5 5A;8 2K?0;> B>65 A0<>5 7=0G5=85.@8<5@ Be_0 8 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);

         //70?CA: :;0AB5@=>9 0@E8B5:BC@K

         //4>ABC? 2 <0AA82 ?> 8=45:AC

         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;

           }

         // 07=0G5=85 ?5@5<5==>9

         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;//5@5<5==0O @07@5H0NI0O 1 @07 2 F8:; 0=0;878@020BL 1;>: =0?@02;5=89 ?> :><?0AC

         string BlockNum="0";

         // @028;L=0O :>=D83C@0F8O !525@

         // 1

         // @028;L=0O :>=D83C@0F8O !525@

         // 1

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

         //| Sunflower 1/0 - Cluster meter                                    |

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

         if(sev==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)//A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2-om <5AB> B> A;54C5B ?>4020BL A A525@=>9 AB>@>=K  1;N4> =><5@ 2

           {

            Sev_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 1";

            errorprint[1]=1;



            //>D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

           }

         // 2

         if(sev==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)//A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A A525@=>9 AB>@>=K  1;N4> =><5@ 1

           {

            Sev_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 2";

            errorprint[2]=1;



            //>D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

           }

         // 3

         if(sev==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)//A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A A525@=>9 AB>@>=K  1;N4> =><5@ 4

           {

            Sev_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 3";

            errorprint[3]=1;



            //>D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

           }

         // 4

         if(sev==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)//A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A A525@=>9 AB>@>=K  1;N4> =><5@ 3

           {

            Sev_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 4";

            errorprint[4]=1;



            //>D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->< <5AB> B> A;54C5B ?>4020BL A >AB>GL=>9 AB>@>=K  1;N4> =><5@ 4 "A?>;L7CO ?>40G8 A ;52>9 @C:8"

         if(sev==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A !525@0 *| =0 0?04 «-

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Vost_1=1;

            Sev_1=0;

            Zap_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="S 5";

            errorprint[5]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            if(Vol_B_Chang_1==true)

              {

               Var1_Be_0=2;

               Var1_Be_1=0;

              }

            //B>@>9 20@@80=B ?>40G8 01LQ<0 ?>A;5 @072>@>B0 ?> :><?0AC

            if(Vol_B_Chang_1==false)

              {

               Var1_Be_0=2;//AE>4=0O ?5@5<5==0O >1=C;O5BAO 4;O :>@@5:B=>9 @01>BK <5E0=87<0

               Var1_Bo_1=0;// @025;L=0O ?5@5<5==0O

               Var2_Be_1=1;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

               // >A;5 @072>@>B0 A A525@0 =0 >AB>:, ?>40G0 A > 1 @52@0I05BAO 2 51 0 7=0G8B 70459AB2C5BAO 2B>@0O ?@025;L=0 ?5@5<5==0O 4;O @538AB@0 >1LQ<0 >1

              }

            //!AK;:0 =0 8=AB@C:F8N



           }

         // 6

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 0?04 «-

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Zap_1=1;

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 6";

            errorprint[6]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 7

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 3 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 >AB>: -» //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 3 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=1;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="S 7";

            errorprint[7]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 8

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A >AB>GL=>9 AB>@>=K  1;N4> =><5@ 2 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 >AB>: -»

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Vost_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="S 8";

            errorprint[8]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 9

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 4 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 .3 .|

           {

            Yug_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="S 9";

            errorprint[9]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 10

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 2 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            Yug_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //Var1_Be_1=0;

            //Var2_Bo_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="S 10";

            errorprint[10]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 11

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 3 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            Yug_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="S 11";

            errorprint[11]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 12

         //A;8 >D8F80=B ?>40QB A A525@=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-e< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(sev==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            Yug_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="S 12";

            errorprint[12]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O 0?04

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)

           {

            Zap_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 1";

            errorprint[13]=1;



            //AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

           }

         // 2

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)

           {

            Zap_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 2";

            errorprint[14]=1;



            //AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

           }

         // 3

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)

           {

            Zap_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 3";

            errorprint[5]=1;



            //AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

           }

         // 4

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)

           {

            Zap_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 4";

            errorprint[16]=1;



            //AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 -3 |. !<5I5=85 ?@>B82 G0A>2>9 AB@5;:8.

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 5";

            errorprint[17]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 6

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 -3 |. !<5I5=85 ?@>B82 G0A>2>9 AB@5;:8.

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 6";

            errorprint[18]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 7

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 !525@0 *| !<5I5=85 ?> G0A>2>9 AB@5;:5

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 7";

            errorprint[19]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 8

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 !525@0 *| !<5I5=85 ?> G0A>2>9 AB@5;:5

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=1;

            //Var2_Be_0=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Z 8";

            errorprint[20]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 9

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            Vost_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Zap_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Z 9";

            errorprint[21]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 10

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"

         if(zap==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            Vost_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O. ok

            Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Z 10";

            errorprint[22]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 11

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(zap==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            Vost_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Z 11";

            errorprint[23]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 12

         //A;8 >D8F80=B ?>40QB A 70?04=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(zap==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            Vost_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Z 12";

            errorprint[24]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O >AB>:

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)

           {

            Vost_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="V 1";

            errorprint[25]=1;

            //AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N



           }

         // 2

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1-5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)

           {

            Vost_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="V 2";

            errorprint[26]=1;

            //AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N



           }

         // 3

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4-5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)

           {

            Vost_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="V 3";

            errorprint[27]=1;

            //AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N



           }

         // 4

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)

           {

            Vost_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="V 4";

            errorprint[28]=1;

            //AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N



           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A >AB>:0 -» =0 !525@ *| . 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="V 5";

            errorprint[29]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 6

         //A;8 >D8F80=B ?>40QB A >A@>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A >AB>:0 -» =0 !525@ *|   9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="V 6";

            errorprint[30]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 7

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 .3 .|  3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 8

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2-5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 .3 .|  3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="V 8";

            errorprint[32]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 9

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            Zap_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="V 9";

            errorprint[33]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 10

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            Zap_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="V 10";

            errorprint[34]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 11

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            Zap_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="V 11";

            errorprint[35]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 12

         //A;8 >D8F80=B ?>40QB A >AB>G=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(vost==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            Zap_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="V 12";

            errorprint[36]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O .3

         // 1

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)

           {

            Yug_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 1";

            errorprint[37]=1;

            //AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N



           }

         // 2

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)

           {

            Yug_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 2";

            errorprint[38]=1;

            //AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N



           }

         // 3

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0  =0 4->5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)

           {

            Yug_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 3";

            errorprint[39]=1;

            //AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N



           }

         // 4

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A .6=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)

           {

            Yug_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=1;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 4";

            errorprint[40]=1;

            //AB02 ;8F>< =0 N3 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N



           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A .30 =0 .| =0 >AB>: -» 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Zap_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Vost_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 5";

            errorprint[41]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 6

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true)  //!<5I5=85 ?> @538AB@C A .30 =0 .| =0 >AB>: -» 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Vost_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Sev_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Y 6";

            errorprint[42]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 7

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A >AB>G=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0  0?04 «- 3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Vost_1=1;

            //0?@5B 4;O 3 =0? @02;5=89

            Sev_1=0;

            Zap_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=0;

            yug=0;

            vost=1;

            ChekDIr=false;

            BlockNum="Y 7";

            errorprint[43]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 2>AB>: >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 8

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A 0?04=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 0?04 «- 3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Zap_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Sev_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=0;

            zap=1;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 8";

            errorprint[44]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 90 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 70?04 >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 9

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 2->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 4->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            Sev_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 9";

            errorprint[45]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 10

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 4->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 2->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            Sev_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 10";

            errorprint[46]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 1;86=NN ?>78F8N

              }



           }

         // 11

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 1->< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 3-5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            Sev_1=1;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 11";

            errorprint[47]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ;52>9 @C:8 40;L=NN ?>78F8N

              }



           }

         // 12

         //A;8 >D8F80=B ?>40QB A .6=>9 AB>@>=K 8 ?@54K4CI55 1;N4> =0 3-5< <5AB5 0 ?>40205<>5 1;N4> 0B8@C5BAO 2 A?8A:5 B>20@0 =0 1->5 <5AB> B> A;54C5B ?>4020BL A !525@=>9 AB>@>=K  1;N4> =><5@ 1 "A?>;L7CO ?>40G8 A ?@02>9 @C:8"  .

         if(yug==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.ok

            Sev_1=1;

            //0?@5B 4;O 3 =0?@02;5=89

            Zap_1=0;

            Vost_1=0;

            Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            sev=1;

            zap=0;

            yug=0;

            vost=0;

            ChekDIr=false;

            BlockNum="Y 12";

            errorprint[48]=1;

            //5@5:;0A8D8:0F8O ?>A;5 @072>@>B0 A :;0AA0 180 3@04CA>2 2 :;0AA 0 3@04CA>2

            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;//AB02 ;8F>< =0 A525@ >D8F80=B ?>40QB 1;N4>-70:07 A ?@02>9 @C:8 1;86=NN ?>78F8N

              }



           }

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

         //| END - Sunflower 1/0 - Cluster meter                              |

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

         //!;>9  !8AB5<K >>@45=0B.  0AGQB A8AB5<K :>>@45=0B 1078@C5BAO =0 2K2545==CN 0@E8B5:BC@C ?>4A>;=5G=8:0. @E8B5:BC@0 8<55B 2 ?>4 0@E8B5:BC@K :>>@48=0B

         //87 :>B>@>9 2K2>48BAO 2AO 0@E8B5:BC@0 A 8A?>;L7>20=85< F5=B@0 2 :064>< 87 C3;>2 8 A>?@O65=89 4 ?5@5<5==KE.  ACB8 <>6=> ?@54AB028BL :204@0B A 9 F5=B@0<8.

         // 8 ?5@5<5B@0;L=KE 8 1 F5=B@0;L=K9.

         // K2545=85 @C?? ?> :>>@45=0B0< A 8A?>;L7>20=85< ?>;>2>3> ?@87=0:0. Be 5=A:89 @>4 Bo C6A:>9 @>4

         //Grupo1 - 8AE>4=K9 :204@0B ?>4 8=45:A>< 1 2 :>B>@>< ?> A@54AB20< :>>@48=0B A2545=K 4 >A=>2=K5 ?5@5<5==K5.'5;>25: 27OB 4;O >?@545;5=8O

         //42865=85 ?> A@54AB20< <5E0=8:8 :0: ;8F> ;8F52K5 8 87=0=>G=K5 42865=8O

         // !>548=5=85 :>=BC@0 8:>=K >659 0B5@8 "@>?82=8F:0O F5@:>2L"

         //2Q74>G5: 2>:@C3 8:>=K ">659 <0B5@8"  5@8:0;L 2*12 >@87>=B0;L 2*4 A53> 32

         // =45:A BM - ">;8B20 1>659 <0B5@8"

         //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);

         //$C=:F8O :C?>;L=>3> 2@0I5=8O 2

         //@>25@:0 H03 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 =0?@02;5=8O 2 :>B>@KE 2;>65=K 2 AB>@>=K 8 8 @538AB@>2.  AC<<5 768 @538AB@>2

         // 5G0BL >H81>: 1;>:0 @07@5H5=89 4;O 8=48:0B>@0 !5<5G:0

         //for(int gh=1;gh<49;gh++)

         //{

         //Print("index ",gh);

         //Print("errorprint ",errorprint[gh]);

         ArrayInitialize(errorprint2,0);

         //}

         //>2545=85 A525@=>9 AB>@>=K

         //>2545=85 A525@=>9 AB>@>=K

         if(Sev_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0 ok

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,2]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C  ok

                 {

                  Sev[1,6]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N ok

               if(Sev[1,6]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C ok

                 {

                  Sev[1,2]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,1]==0 && Var2_Be_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8 OK

              {

               //1/1 Bo_0 && Be_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,5]==0 && Var2_Be_0==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,4]==0 && Var2_Bo_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8 OK

              {

               //1/1 Be_1 && Bo_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,8]==0 && Var2_Bo_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,3]==0 && Var2_Be_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,7]==0 && Var2_Be_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Sever D8=

         //_____________________________________

         // >2545=85 .3

         if(Yug_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,4]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,8]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0 ok

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,3]==0 && Var2_Be_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,7]==0 && Var2_Be_0==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,2]==0 && Var2_Bo_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,6]==0 && Var2_Bo_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,1]==0 && Var2_Be_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,5]==0 && Var2_Be_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Yug D8=

         //___________________________________

         // >2545=85 0?04

         if(Zap_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,1]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,5]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,4]==0 && Var2_Be_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,8]==0 && Var2_Be_0==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,3]==0 && Var2_Bo_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,7]==0 && Var2_Bo_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,2]==0 && Var2_Be_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=1;//  "J >;6=> 1KBL 1,4 !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,6]==0 && Var2_Be_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=1;//@>25@8BL 1,7 !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Zapad D8=

         //___________________________________

         // >2545=85 >AB>:

         if(Vost_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,3]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,7]==0 && Var2_Bo_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,3]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,2]==0 && Var2_Be_0==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,6]==0 && Var2_Be_0==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,2]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,1]==0 && Var2_Bo_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,5]==0 && Var2_Bo_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,1]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=0;

                  lic=0;//!<5=0 !B>@>=K

                  izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  Sev[1,8]=0;

                  lic=1;//!<5=0 !B>@>=K

                  izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Vostok D8=

         //@025@:0 H03 4

         string face;

         if(lic==1)

           {

            face="lic";

           }

         if(izn==1)

           {

            face="izn";

           }

         //-----

         //--@>25@:0 =0 :>;;8G5AB2> 2E>4>2 2 1;>:8

         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               |

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

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

         //|Sunflower 8 bit volume feed  side Z calculation                   |

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

         //--@0I5=85 A8 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;

           }

         // 0@80=BK 2@0I5=85 2 ?@028;L=>9 ?>78F88. !<5=0 AB@>=K ?@>872>48BAO <> <5B>4C ?5@520@>B0 AB@0=8FK 2 :=835 A ;520 =0 ?@02> 8;8 A ?@020 =0 ;52>

         // @0I5=85 ?@>872>48BAO 1078@COAL =0 2B>@CN ?5@5<5==CN. >A;5 ?@8A20820=8O 8 @0AGQB0 7=0G5=8O 87 2B>@>9 ?5@5<5==>9 ?5@5B5:0NB 2 ?5@2CN.

         //5@54 >1@01>B:>9 A>1KB89 =C6=> 2KO28BL 2A5 ?@028;0 4;O :064>3> =0?@02;5=8O.

         //5@5?@8A20820=85 7=0G5=8O 2 B>965 ?;>A:>AB8 8 B>< 65 ;8F5 5A;8 2K?0;> B>65 A0<>5 7=0G5=85.@8<5@ Be_0 8 Be_0

         // 07=0G5=85 ?5@5<5==>9

         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;//5@5<5==0O @07@5H0NI0O 1 @07 2 F8:; 0=0;878@020BL 1;>: =0?@02;5=89 ?> :><?0AC

         z_BlockNum="0";

         // @028;L=0O :>=D83C@0F8O !525@

         // 1

         // @028;L=0O :>=D83C@0F8O !525@

         // 1

         if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)

           {

            z_Sev_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            z_sev=1;

            z_zap=0;

            z_yug=0;

            z_vost=0;

            z_ChekDIr=false;

            z_BlockNum="S 4";

            z_errorprint[4]=1;

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //!<5I5=85 ?> @538AB@C A !525@0 *| =0 0?04 «-

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            z_Sev_1=0;

            z_Zap_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 0?04 «-

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            z_Sev_1=0;

            z_Vost_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 >AB>: -»

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 >AB>: -»

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *| =0 .3 .|

           {

            z_Yug_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            z_sev=0;

            z_zap=1;

            z_yug=0;

            z_vost=0;

            z_ChekDIr=false;

            z_BlockNum="S 9";

            z_errorprint[9]=1;

            //!<5=0 A8 4;O ?@028; 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) // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            z_Yug_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            //Var1_Be_1=0;

            //Varz_Bo_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            z_Yug_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A !525@0 *|  =0 .3 .|

           {

            z_Yug_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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;

              }

           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O 0?04

         if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)

           {

            z_Zap_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            z_sev=0;

            z_zap=1;

            z_yug=0;

            z_vost=0;

            z_ChekDIr=false;

            z_BlockNum="Z 4";

            z_errorprint[16]=1;

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 -3 |. !<5I5=85 ?@>B82 G0A>2>9 AB@5;:8.

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 -3 |. !<5I5=85 ?@>B82 G0A>2>9 AB@5;:8.

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 !525@0 *| !<5I5=85 ?> G0A>2>9 AB@5;:5

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 !525@0 *| !<5I5=85 ?> G0A>2>9 AB@5;:5

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            z_Sev_1=0;

            //Varz_Be_0=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            z_Vost_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=1;

            z_Zap_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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) //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            z_Vost_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=1;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            z_Vost_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A 0?040 «- =0 AB>: -» !<5I5=85 180 3@04CA>2

           {

            z_Vost_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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;

              }

           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O >AB>:

         if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)

           {

            z_Vost_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            z_sev=0;

            z_zap=0;

            z_yug=0;

            z_vost=1;

            z_ChekDIr=false;

            z_BlockNum="V 4";

            z_errorprint[28]=1;

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //!<5I5=85 ?> @538AB@C A >AB>:0 -» =0 !525@ *| . 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  //!<5I5=85 ?> @538AB@C A >AB>:0 -» =0 !525@ *|   9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 .3 .|  3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 .3 .|  3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            z_Zap_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=1;

            z_Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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) // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            z_Zap_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=1;

            z_Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            z_Zap_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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)  // !<5I5=85 ?> @538AB@C A >AB>:0 -» =0 0?04 «- 6 G0A>2

           {

            z_Zap_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=0;

            z_Yug_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

            //!<5=0 A8 4;O ?@028; 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;

              }

           }

         //__________________________________

         // @028;L=0O :>=D83C@0F8O .3

         // 1

         if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)

           {

            z_Yug_1=1;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;// @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=0;

            z_Sev_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            z_sev=0;

            z_zap=0;

            z_yug=1;

            z_vost=0;

            z_ChekDIr=false;

            z_BlockNum="Y 4";

            z_errorprint[40]=1;

           }

         // 5

         // 5 ?@028;L=0O :>=D83C@0F8O

         if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)  //!<5I5=85 ?> @538AB@C A .30 =0 .| =0 >AB>: -» 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Vost_1=0;

            z_Sev_1=1;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  //!<5I5=85 ?> @538AB@C A .30 =0 .| =0 >AB>: -» 9 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Sev_1=1;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0  0?04 «- 3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Vost_1=0;

            //0?@5B 4;O 3 =0? @02;5=89

            z_Sev_1=1;

            z_Zap_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 0?04 «- 3 G0A0

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Zap_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Sev_1=1;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            z_Sev_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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) // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            z_Sev_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=0;

            z_Vost_1=1;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            z_Sev_1=0;

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Yug_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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)  // !<5I5=85 ?> @538AB@C A .30 =0 .| =0 !525@ *| 6 G0A>2

           {

            // @07@5H5=85 =0 >1@01>B:C A>1KB8O.

            z_Sev_1=0;

            //0?@5B 4;O 3 =0?@02;5=89

            z_Zap_1=1;

            z_Vost_1=0;

            z_Yug_1=0;

            //@>25@:0 7=0G5=8O =0?@02;5=8O

            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;

              }

           }

         //@>25@:0 H03 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 =0?@02;5=8O 2 :>B>@KE 2;>65=K 2 AB>@>=K 8 8 @538AB@>2.  AC<<5 768 @538AB@>2

         // 5G0BL >H81>: 1;>:0 @07@5H5=89 4;O 8=48:0B>@0 !5<5G:0

         //for(int gh=1;gh<49;gh++)

         //{

         //Print("index ",gh);

         //Print("errorprint ",errorprint[gh]);

         ArrayInitialize(z_errorprint2,0);

         //}

         //>2545=85 A525@=>9 AB>@>=K

         if(z_Sev_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,2]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,5]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,1]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,4]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,7]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,3]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,8]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Sever D8=

         //_____________________________________

         // >2545=85 .3

         if(z_Yug_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,4]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,3]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,8]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,2]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,5]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,1]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,6]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Yug D8=

         //___________________________________

         // >2545=85 0?04

         if(z_Zap_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,1]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,4]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,3]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,8]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,2]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=1;//  "J >;6=> 1KBL 1,4 !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,5]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=1;//@>25@8BL 1,7 !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Zapad D8=

         //___________________________________

         // >2545=85 >AB>:

         if(z_Vost_1==1)

           {

            //>40G0 7=0G5=8O =0 8F> =><5@ 1

            //1 Be_0 && Bo_0

            if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,3]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,7]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //@025@:0 @538AB@0 Bo_0 7=0=:8

              {

               //1/1 Be_0 && Bo_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,8]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,4]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 2

            //1 Bo_0 && Be_0

            if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,2]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,6]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //@025@:0 @538AB@0 Be_0 7=0=:8

              {

               //1/1 Bo_0 && Be_0

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,5]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,1]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 3

            //1 Be_1 && Bo_1

            if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,1]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,1]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,5]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,5]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //@025@:0 @538AB@0 Bo_1 7=0=:8

              {

               //1/1 Be_1 && Bo_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,6]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,6]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,2]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,2]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            //>40G0 7=0G5=8O =0 8F> =><5@ 4

            //1 Bo_1 && Be_1

            if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 8F0

              {

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,4]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,4]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,8]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,8]=0;

                  z_lic=0;//!<5=0 !B>@>=K

                  z_izn=1;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

            if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //@025@:0 @538AB@0 Be_1 7=0=:8

              {

               //1/1 Bo_1 && Be_1

               bool z_BlockPermis=true;

               // !@02=5=85 A>AB>O=8O 2 @538AB@>2 ;8F0 8 87=0=:8 ?> ?>40==><C 7=0G5=8N

               if(z_Sev[1,7]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// !<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,7]=1;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 ;8F5

                  z_Sev[1,3]=0;//!<5=0 2 @538AB@5 =0 ?@>B82>?>;>6=>5 7=0G5=85 =0 87=0=:5

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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) // !<5=0 2 @538AB@5 =5 ?@>872>48BAO8 !<5=0 8F0 =0 7=0=:C

                 {

                  z_Sev[1,3]=0;

                  z_lic=1;//!<5=0 !B>@>=K

                  z_izn=0;//!<5=0 !B>@>=K

                  //5@5@0A?@545;5=85 @07@5H5=89 ?5@5<5==KE

                  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 D8=

           }// Vostok D8=

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

         //|END Sunflower 8 bit volume feed  side Z calculation                   |

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

         //-----I write the received data into a Binary File for drawing data using the Histogram method

         //-----int file_handle15=FileOpen(FileName15,FILE_READ|FILE_WRITE|FILE_BIN);

         //-----if(file_handle15>0)

         //----- {

         //-----  FileSeek(file_handle15,0,SEEK_CUR);

         //-----  FileWriteArray(file_handle15,PIPS_COL_DT,0,WHOLE_ARRAY);

         //----- FileClose(file_handle15);

         //----- }

         //-----int file_handle16=FileOpen(FileName16,FILE_READ|FILE_WRITE|FILE_BIN);

         //-----if(file_handle16>0)

         //-----  {

         //-----  FileSeek(file_handle16,0,SEEK_CUR);

         //-----  FileWriteArray(file_handle16,PIPS_COL_Price,0,WHOLE_ARRAY);

         //-----  FileClose(file_handle16);

         //----- }

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

         //|Sunflower -  5 cells of the church dome                           |

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

         //-C?>; -  0AGQB 1078@C5BAO =0 5 A5<5G:0E 8 4 0@E8B5:BC@0E. A?>;L7C5BAO F5=020O ?@82O7:0 : 20 F5=B@0< 2 5 A5<5G:0E

         //-$>@<C;0 @0AGQB0 ?@82O7:8 A5<5G:8

         //>4C;L ?>78F8>=8@>20=8O F5=K 2 :C?>;

         //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;//@82545=85 F5=K : :C?>;L=><C F5=B@C

         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                       |

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

         //Print(" N_Centro ",N_Centro," N_Gr20 ",N_Gr20);

         //Be_0

         //!5<5G:0 1

         //@E8B5:BC@0 1

         //0E>4 2 0@E8B5:BC@C ?> D>@<C;5

         //Be_0

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

         //|Sunflower -  sunflower seeds architecture                         |

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

         // ------ !2>4 &5=0-C?>; + !2>4 &5=0 - @5AB 1LQ<

         // @8<5@. 0AA820 !525@

         //   Sev[1,1]=0; Be_0

         //   Sev[1,2]=0; Bo_0

         //   Sev[1,3]=0; Be_1

         //   Sev[1,4]=0; Bo_1

         //;>: >;CG5=8O  07@5H5=89 4;O >1@>1>B:8 A>1KB8O @0AGQB0 ?0B5@=>2

         //1. 0AG8BK205BAO - A@02=8205BAO ?@54K4CI85 7=0G5=8O A B5:CI8<8

         //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 5AB> 1,5,9,13,17 A;8 2 <0AA825  ?>O28;8AL 87<5=5=8O ?>A;5 ?5@5AGQB0 A <0AA82>< A@02=5=8O B> 2KO2;O5BAO <5AB> 2 :>B>@>< ?>O28;8AL 87<5=5=8O 8 ?@8A20820NBAO @07@5H5=8O =0 >1@>1>B:C

           {

            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;

           }  //?@8A2>8; @07@5H5=85 =0 >1@>1>B:C A>1KB8O

         if(comp_Sev[1,2]!=Sev[1,2] && Sev[1,2]==1)//Bo_0  5AB> 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 5AB> 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 5AB> 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 5AB> 1,5,9,13,17 A;8 2 <0AA825  ?>O28;8AL 87<5=5=8O ?>A;5 ?5@5AGQB0 A <0AA82>< A@02=5=8O B> 2KO2;O5BAO <5AB> 2 :>B>@>< ?>O28;8AL 87<5=5=8O 8 ?@8A20820NBAO @07@5H5=8O =0 >1@>1>B:C

           {

            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;

           }  //?@8A2>8; @07@5H5=85 =0 >1@>1>B:C A>1KB8O

         if(comp_Sev[1,6]!=Sev[1,6] && Sev[1,6]==1)//Be_0 5AB> 1,5,9,13,17 A;8 2 <0AA825  ?>O28;8AL 87<5=5=8O ?>A;5 ?5@5AGQB0 A <0AA82>< A@02=5=8O B> 2KO2;O5BAO <5AB> 2 :>B>@>< ?>O28;8AL 87<5=5=8O 8 ?@8A20820NBAO @07@5H5=8O =0 >1@>1>B:C

           {

            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;

           }  //?@8A2>8; @07@5H5=85 =0 >1@>1>B:C A>1KB8O

         if(comp_Sev[1,7]!=Sev[1,7] && Sev[1,7]==1)//Be_0 5AB> 1,5,9,13,17 A;8 2 <0AA825  ?>O28;8AL 87<5=5=8O ?>A;5 ?5@5AGQB0 A <0AA82>< A@02=5=8O B> 2KO2;O5BAO <5AB> 2 :>B>@>< ?>O28;8AL 87<5=5=8O 8 ?@8A20820NBAO @07@5H5=8O =0 >1@>1>B:C

           {

            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;

           }  //?@8A2>8; @07@5H5=85 =0 >1@>1>B:C A>1KB8O

         if(comp_Sev[1,8]!=Sev[1,8] && Sev[1,8]==1)//Be_0 5AB> 1,5,9,13,17 A;8 2 <0AA825  ?>O28;8AL 87<5=5=8O ?>A;5 ?5@5AGQB0 A <0AA82>< A@02=5=8O B> 2KO2;O5BAO <5AB> 2 :>B>@>< ?>O28;8AL 87<5=5=8O 8 ?@8A20820NBAO @07@5H5=8O =0 >1@>1>B:C

           {

            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;

           }  //?@8A2>8; @07@5H5=85 =0 >1@>1>B:C A>1KB8O

         //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])//A;8 ?0B5@= ?>A;5 ?5@5AGQB0 =0 87<5=8;AO >B=>A8B5;L=> ?>40G8 01LQ<0

         //{  PermisBLock=1;}

         //if(PermisBLock==1 && Price_Compare!=bodypips[MaxInd_bodypips,0])//A;8 F5=0 @07=0O B> 4>ABC? 2 1;>: >B:@KB

         //{

         //2. ?@545;O5BAO =><5@ F5=B@0 8 ?>@O4:>2K9 =><5@ A5<5G:8

         //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.@>872>48BAO @0AGB ?> ?5@5<5==K<  Be_0,Bo_0,Be_1,Bo_1

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 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)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=1;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev1==1 && N_Centro_r==2 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=1;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev1==1 && N_Centro_r==3 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            // N_Centro_r==3 - 75;Q=K9

            // Per_Sev1==1 - >40G0 >1LQ<0 =0 Be_0

            // Be_0_C==1 - >40205<0O ?5@5<5==0O 2 0@E8B5:BC@5 F5=B@0 3

            InternalPat_1=1;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev1==1 && N_Centro_r==4 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=1;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 2,6,10,14,18

         if(Per_Sev2==1 && N_Centro_r==1 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=2;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev2==1 && N_Centro_r==2 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=2;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev2==1 && N_Centro_r==3 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=2;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev2==1 && N_Centro_r==4 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=2;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 3,7,11,15,19

         if(Per_Sev3==1 && N_Centro_r==1 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=3;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev3==1 && N_Centro_r==2 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=3;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev3==1 && N_Centro_r==3 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=3;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev3==1 && N_Centro_r==4 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=3;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 4,8,12,16,20

         if(Per_Sev4==1 && N_Centro_r==1 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=4;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev4==1 && N_Centro_r==2 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=4;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev4==1 && N_Centro_r==3 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=4;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev4==1 && N_Centro_r==4 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=4;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev5==1 && N_Centro_r==1 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=5;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev5==1 && N_Centro_r==2 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=5;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev5==1 && N_Centro_r==3 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            // N_Centro_r==3 - 75;Q=K9

            // Per_Sev1==1 - >40G0 >1LQ<0 =0 Be_0

            // Be_0_C==1 - >40205<0O ?5@5<5==0O 2 0@E8B5:BC@5 F5=B@0 3

            InternalPat_1=5;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev5==1 && N_Centro_r==4 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=5;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev1=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 2,6,10,14,18

         if(Per_Sev6==1 && N_Centro_r==1 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=6;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev6==1 && N_Centro_r==2 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=6;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev6==1 && N_Centro_r==3 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=6;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev6==1 && N_Centro_r==4 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=6;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev2=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 3,7,11,15,19

         if(Per_Sev7==1 && N_Centro_r==1 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=7;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev7==1 && N_Centro_r==2 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=7;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev7==1 && N_Centro_r==3 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=7;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev7==1 && N_Centro_r==4 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=7;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev3=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         // 0AGQB ?> ?5@5<5==>9 Be_0 5AB> 4,8,12,16,20

         if(Per_Sev8==1 && N_Centro_r==1 && Bo_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=8;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev8==1 && N_Centro_r==2 && Be_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=8;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev8==1 && N_Centro_r==3 && Bo_1_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=8;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>:0

            //Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);

           }

         if(Per_Sev8==1 && N_Centro_r==4 && Be_0_C==1)//!>545=5=85 &5=K 2 2845 0@E8B5:BC@K 8 >1LQ<0 2 2845 18=0@=>3> <5E0=87<0 0B5@= 1 =CB@5==55 A>548=5=85 //

           {

            InternalPat_1=8;//@8A20820=85 ?>=8<0=8O >1LQ<0 8 F5=K

            //Per_Sev4=0;//!=OB85 @07@5H5=85 =0 >1@>1>B:C 1;>: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]);

         // ------ $C=:F8O 70?8A8 =>2>9 F5=K 8 >BA;56820=85 ACI5AB2CNI59 =0 ?@54<5B A:;04K20=8O ?0B5@=0 "=CB@5==53>" ------

         int newPrise=0;

         int PriceExist=0;

         for(w=1; w<=1000; w++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)       //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist=1;

               if(PriceExist==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==1/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w,11]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  //  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;//>4AGQB 70E>4>2 =0 ?@>25@:C ?@8 A>2?045=88

                  //@>A;56820N ACI5AB2CNI89 ?0@0<5B@ ?0B5@=0 ?> 4 =0?@02;5=8O<

                  //&5=B@ 1 5;BK9

                  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)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w,5]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w,1]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w,1]=iTime(Symbol(),PERIOD_M1,1);

                     Change1=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  // 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)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w,6]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w,2]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w,2]=iTime(Symbol(),PERIOD_M1,1);

                     Change2=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  //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)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w,7]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w,3]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w,3]=iTime(Symbol(),PERIOD_M1,1);

                     Change3=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  //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) // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w,8]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w,4]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w,4]=iTime(Symbol(),PERIOD_M1,1);

                     Change4=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // 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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData=0;

               break;

              }

           }

         if(PriceExist==0 &&  InternalPat_1==1 && WriteData==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            // 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)*/)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  //  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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //  {

            //   break;

            //  }

            // }

            //0F8:;820=85 ?@>F5A0 =0 >AB0=>2:5 70?8AK20=8O 2 0AA82 40==KE

            //int BlockPermis1=0;

            // if(w==1000 && Form_Patern_Finder[t,1]>0)

            // {

            // BlockPermis1=1;

            // }

            //  Print(" t ", t);

            // if(BlockPermis1==0)

            // {  }

            //@0872>48BAO 70?8AL =>2>3> M;5<5=B0

            //=>2K9 M;5<5=B 70?8A0=

            //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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t,13]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t,14]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //BO_0

         int newPrise1=0;

         int PriceExist1=0;

         for(w1=1; w1<=1000; w1++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)      //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist1=1;

               if(PriceExist==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==2/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w,26]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_1=0,Change2_1=0,Change3_1=0,Change4_1=0;

                  if(Form_Patern_Finder[w1,20]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w1,20]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w1,16]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w1,16]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_1=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w1,21]==0 && N_Centro_r==2)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w1,21]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w1,17]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w1,17]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_1=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w1,22]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w1,22]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w1,18]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w1,18]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_1=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w1,23]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w1,23]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w1,19]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w1,19]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_1=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData1=0;

               break;

              }

           }

         if(PriceExist1==0 &&  InternalPat_1==2 && WriteData1==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            //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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  // 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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            // {

            //  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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t1,28]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t1,29]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //Be_1

         int newPrise2=0;

         int PriceExist2=0;

         for(w2=1; w2<=1000; w2++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)     //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist2=1;

               if(PriceExist2==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==3/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w2,41]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_2=0,Change2_2=0,Change3_2=0,Change4_2=0;

                  if(Form_Patern_Finder[w2,35]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w2,35]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w2,31]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w2,31]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_2=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w2,36]==0 && N_Centro_r==2) // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w2,36]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w2,32]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w2,32]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_2=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w2,37]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w2,37]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w2,33]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w2,33]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_2=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w2,38]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w2,38]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w2,34]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w2,34]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_2=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData2=0;

               break;

              }

           }

         if(PriceExist2==0 &&  InternalPat_1==3 && WriteData2==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            // 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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  //  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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //   {

            //  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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t2,43]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t2,44]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //Bo_1

         int newPrise3=0;

         int PriceExist3=0;

         for(w3=1; w3<=1000; w3++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)      //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist3=1;

               if(PriceExist3==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==4/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w3,56]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_3=0,Change2_3=0,Change3_3=0,Change4_3=0;

                  if(Form_Patern_Finder[w3,50]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w3,50]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w3,46]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w3,46]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_3=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w3,51]==0 && N_Centro_r==2)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w3,51]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w3,47]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w3,47]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_3=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w3,52]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w3,52]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w3,48]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w3,48]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_3=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w3,53]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w3,53]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w3,49]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w3,49]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_3=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData3=0;

               break;

              }

           }

         if(PriceExist3==0 &&  InternalPat_1==4 && WriteData3==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            //  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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  // 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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //   {

            //   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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t3,58]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t3,59]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //BE_0_IZN

         int PriceExist4=0;

         int w4;

         for(w4=1; w4<=1000; w4++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)     //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist4=1;

               if(PriceExist4==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==5/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w4,71]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_4=0,Change2_4=0,Change3_4=0,Change4_4=0;

                  if(Form_Patern_Finder[w4,65]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w4,65]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"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;//0B5@= 0?>;=5=

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  // 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)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w4,66]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w4,62]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w4,62]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_4=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  //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) // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w4,67]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w4,63]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w4,63]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_4=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  //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) // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w4,68]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w4,64]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w4,64]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_4=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // 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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData4=0;

               break;

              }

           }

         if(PriceExist4==0 &&  InternalPat_1==5 && WriteData4==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            // 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)*/) //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  //  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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //  {

            //   break;

            //  }

            // }

            //0F8:;820=85 ?@>F5A0 =0 >AB0=>2:5 70?8AK20=8O 2 0AA82 40==KE

            //int BlockPermis1=0;

            // if(w==1000 && Form_Patern_Finder[t,1]>0)

            // {

            // BlockPermis1=1;

            // }

            //  Print(" t ", t);

            // if(BlockPermis1==0)

            // {  }

            //@0872>48BAO 70?8AL =>2>3> M;5<5=B0

            //=>2K9 M;5<5=B 70?8A0=

            //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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t4,73]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t4,74]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //BO_0_IZN

         int newPrise5=0;

         int PriceExist5=0;

         int w5;

         for(w5=1; w5<=1000; w5++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)       //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist5=1;

               if(PriceExist5==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==6/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w5,86]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_5=0,Change2_5=0,Change3_5=0,Change4_5=0;

                  if(Form_Patern_Finder[w5,80]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w5,80]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w5,76]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w5,76]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_5=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w5,81]==0 && N_Centro_r==2)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w5,81]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w5,77]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w5,77]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_5=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w5,82]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w5,82]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w5,78]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w5,78]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_5=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w5,83]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w5,83]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w5,79]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w5,79]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_5=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData5=0;

               break;

              }

           }

         if(PriceExist5==0 &&  InternalPat_1==6 && WriteData5==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            //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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  // 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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            // {

            //  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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t5,88]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t5,89]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //Be_1_IZN

         int newPrise6=0;

         int PriceExist6=0;

         int w6;

         for(w6=1; w6<=1000; w6++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)    //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist6=1;

               if(PriceExist6==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==7/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w6,101]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_6=0,Change2_6=0,Change3_6=0,Change4_6=0;

                  if(Form_Patern_Finder[w6,95]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w6,95]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w6,91]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w6,91]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_6=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w6,96]==0 && N_Centro_r==2) // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w6,96]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w6,92]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w6,92]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_6=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w6,97]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w6,97]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w6,93]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w6,93]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_6=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w6,98]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w6,98]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w6,94]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w6,94]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_6=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData6=0;

               break;

              }

           }

         if(PriceExist6==0 &&  InternalPat_1==7 && WriteData6==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            // 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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  //  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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //   {

            //  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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t6,103]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t6,104]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         //Bo_1_IZN

         int newPrise7=0;

         int PriceExist7=0;

         int w7;

         for(w7=1; w7<=1000; w7++)//5@51>@ 4;O ?>8A:0 ?> CA;>28N A;8 F5=0  @02=0 70?8A0==0<C 7=0G5=8N 2 0AA825 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)       //>8A: F5=K . >72@0I05B 8=45:A 2 <0AA825

              {

               PriceExist7=1;

               if(PriceExist7==1/*"#:07K205B =0 =0945==CN F5=C $C=:F859 2KH5"*/ && InternalPat_1==8/*"#:07K205B =0 A>545=5=85 2 OG59:5 F5=K 8 01LQ<0"*/ && Form_Patern_Finder[w7,116]!=1)//A;8 F5=0 ACI5AB2C5B 8 w =5 @025= 0 8 0B5@= =5 1K; A>1@0=. A;8 w @025= =0;N ?@>8725AB8 =>2CN 70?8AL B> 4>ABC? 2 DC=:F8N >B:@KB

                 {

                  int Change1_7=0,Change2_7=0,Change3_7=0,Change4_7=0;

                  if(Form_Patern_Finder[w7,110]==0 && N_Centro_r==1)  // 0@0<5B@ 0@E8B5:BC@K 1 ;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w7,110]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w7,106]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w7,106]=iTime(Symbol(),PERIOD_M1,1);

                     Change1_7=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 2 @0A=K9

                  if(Form_Patern_Finder[w7,111]==0 && N_Centro_r==2)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w7,111]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w7,107]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w7,107]=iTime(Symbol(),PERIOD_M1,1);

                     Change2_7=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 3 5;Q=K9

                  if(Form_Patern_Finder[w7,112]==0 && N_Centro_r==3)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w7,112]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w7,108]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w7,108]=iTime(Symbol(),PERIOD_M1,1);

                     Change3_7=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                  //&5=B@ 4 !8=89

                  if(Form_Patern_Finder[w7,113]==0 && N_Centro_r==4)  // 0@0<5B@ 0@E8B5:BC@K 1

                    {

                     //@8A20820N 7=0G5=85 ?> 0@E8B5:BC@5

                     Form_Patern_Finder[w7,113]=1;//@8A20820N 7=0G5=85 A>545=5=8O 2 0@E8B5:BC@5 "5;BK9 0@A=K9 !8=89 5;Q=K9 " + 5AB> ?> F5=5"@E8B5:BC@0" + 5AB> ?> ?>;CG5==><C 01LQ<C"00000000"

                     Form_Patern_Finder[w7,109]=bodypips[MaxInd_bodypips,0];

                     DT_Form_Patern_Finder[w7,109]=iTime(Symbol(),PERIOD_M1,1);

                     Change4_7=1;

                     //@>25@ON =0;8G85 >AB0;L=KE 0@E8B5:BC@ 2 OG59:5

                     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;//0B5@= 0?>;=5=

                        //K25AB8 =0 3@0D8: F5=K D;03 A>1@0==>3> ?0B5@=0

                       }

                    }

                 }

               // break;

              }

           }

         // ----- A:8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

         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]))//A;8 2 ;N1>9 87 OG55: ACI5AB2C5B F5=0 B> 70?8AL 40==KE =5 =C6=0

              {

               WriteData7=0;

               break;

              }

           }

         if(PriceExist7==0 &&  InternalPat_1==8 && WriteData7==1)  //A8 =5B F5=K 2 <0AA825 4;O ?@>A<>B@0

           {

            //  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)*/)   //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

                 {

                  // 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)  //>A;54=55 ?CAB>5 <5AB> 2 <0AA825

            //   {

            //   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;//><5@ !5<5G:8 . 8<55B 7=0G5=85 >B 1 4> 5

            Form_Patern_Finder[t7,118]=N_Gr20;//><5@ 1;>:0 F5=02>9 20-:8

            Form_Patern_Finder[t7,119]=N_Centro;//><5@ F5=B@0 0@E8B5:BC@K

            //@>8725AB8 70?8AL <0AA820 2 8=0@=9K D08;.$08; 703@C605BAO 2 <0AA82 ?@8 70?CA:5 ?@>3@0<<K

           }

         Pr_Arch="0";

         //$C=:F8O A>>B25BAB28O :;NG0 2 : =><5@C F5=B@0 8 ?>;NA=><C A>AB>O=8N

         //Print("TEST1 Print "," N_Centro_Ind ",N_Centro_Ind," Arch3 ",Arch3);

         // :;0A 4;O A:;04K20=8O 8 @0A:;04K20=8O 0@E8B5:BC@K. #?@02;ONI85 M;5<5=BK

         //!CI5AB2C5B >4:;0A 4;O 5;5=8O A C:070=85< =0 ?5@5<5==CN

         //>4:;0AK:K;0A 45;5=8O, #:070=85 =0 ?5@5<==CN 8 >4:;0A 5;5=85 A #:070=85< =0 ?5@5<5==CN ?>>G5@Q4=> =0:;04K20NBAO =0 @C3 8 2574C 8 2K2>4OB A;54CNI85 ?>4:;0AK.

         // 1. 25A40 A 5@5<5==>9. 2. 25740 A 25@B8:0;L=K< @0745;5=85< 3. 25740 A 3>@87>=B0;L=K< @0745;5=85<.4. 25740 A 25@B8:0;L=K< @0745;5=85< 8 C:070B5;5< 5@5<5==>9 5.25740 A 3>@87>=B0;L=K< @0745;5=85< 8 C:070B5;5< 5@5<5==>9

         // 1. @C3 A 5@5<5==>9. 2. @C3 A 25@B8:0;L=K< @0745;5=85< 3. @C3 A 3>@87>=B0;L=K< @0745;5=85<.4. @C3 A 25@B8:0;L=K< @0745;5=85< 8 C:070B5;5< 5@5<5==>9 5.@C3 A 3>@87>=B0;L=K< @0745;5=85< 8 C:070B5;5< 5@5<5==>9

         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++)//!@02=5=85 ?5@5AGQB0 18=0@=>3> :>40. KO2;5=85 87<5=5=89 2 01110110 109B5 01101110

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",iu,"  10342");

              }

            if(comp_Sev[1,iu]!=Sev[1,iu] && Sev[1,iu]==1)// CA;>285 5A;8 ?@>87>H;> 87<5=5=85 2 AB@C:BC@5 8 18B

              {

               N_Petalo_1=iu;//@8A2>5=85 8=45:A0 :0: =><5@ ;5?5AB:0

               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);

         //@>8725AB8 ?@8A20820=85 =>2KE 7=0G5=89 2 0AA82 A@02=5=8O ?>A;5 ?@>2545=8O 2A53> @0AGQB0

         //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];//5@5<5==0O 4;O A@02=5=8O F5=K A ?@54K4CI8< 7=0G5=85<

         // >=5F DC=:F88

         //<5B>4 A:;04K20=8O 2 ;5?5AB>:. AE>4=K5 7=0G5=8O. ><5@0 F5=B@>2 ?>40G8 8 ?@8Q<0 + 8;8 - 8<?C;A0 ?@545;5=85 ?>40G8 >B F5=B@0 2 2 F5=B@ 4 A 8A?>;L7>20=85< B5:CI59 0@E8B5:BC@K

         // ?@>8725AB8 A@02=5=8O 18=0@=>AB8 4;O 2KO2;5=8O =><5@0 ;5?5AB:0.

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

         //| Sunflower 1/0 - Cluster flower                                   |

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

         // 1@>A ?0@0<5B@>2 ?5@5<5==KE ?5@54 @0AGQB><

         // flower[99,39] 1LO28BL <0AA82 0. @>8725AB8 ?@>25@:C =0 >=1 0000 5?5AB>:1(?> 0@E8B5:BC@=> 0@E 1 2 3 4) 0000 5?5AB>:2 0000 5?5AB>:3 0000 ;5?5AB>:4  B0:65 5 6 7 8

         insert_chanel_1=0;

         insert_chanel_2=0;

         output_Dir=0;

         zaryad=0;

         zapret_podachi_input=0;

         zapret_podachi_output=0;

         //----modo test

         Print("2- OPA ",opa);

         // Print(" flower_Price_3[opa,33] ",flower_Price_3[0,33]);

         Print(" Precio AR ",flower_Price_3[opa,33]," precio cor ",Price," N centro AR ",flower_Price_3[opa,37]," N centro ",N_Centro," n20 arr ",flower_Price_3[opa,38]," N20 ",N_Gr20);



         if(flower_perm==true)

           {

            //



            if(sev==1 && N_Petalo==1/* ?@545;O5BAO ?> 3 0@E8B5:BC@5 */ && N_Centro_r==1/* ?@545;O5BAO ?> F5=5 2 ?>4A>;=. */  && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //Be_1 + " - " Arhitektura

               flower[1,1]=flower[1,1]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\11_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_1++;

               //Print(Ar_1," Ar_1  ",C_Ar_1);

               if(C_Ar_1>0)

                 {

                  Pr_C_Ar_1=Ar_1;

                 }

               if(C_Ar_1<0)

                 {

                  Pr_C_Ar_1=" ";

                 }



               //-------------Tiempos y permisos - 23 - -1 " una tercera parte de letra ,usar suma para punto adecuado "  - 24 - 0 " 3 partes de letra se realiza suma en 2 puntos iluminacion en 3 partes " - 25 1 " 2 partes de letra se suman 2 partes de 3 iluminan 2 partes" si el volumen es el mismo y se cuadro numero volumen realiza el mismo impulso

               

               //summa punto 1

               if((Particula[2]!=23 || Particula[2]!=24 || Particula[2]!=25) && Particula[2]<25)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[2]=Particula[2]+Sev_Part_Lic[1,24];//tramo 9-12 ok



                 }

               if(Particula[2]>25)

                 {

                  Print(" Particula [2] error >25",Particula[2]);



                 }

               //summa punto 2

               // 5A;8 23 B> =5 >1@010BK205BAO AC<<0

               if((Particula[2]!=23 || Particula[2]!=24 || Particula[2]!=25 || Particula[2]==24 || Particula[2]==25) && Particula[2]<25 && (Particula[4]!=23 || Particula[4]!=24 || Particula[4]!=25) && Particula[4]<25 )

                 {

                  Particula[4]=Particula[4]+Sev_Part_Lic[1,32];//tramo 9-12



                 }





               if(Particula[4]>25)

                 {

                  Print("Particula [4] error >25",Particula[4]);



                 }



               //<8=CA>20=85 2 7=0=:5

               //@8 AC<<5 25 ?@>872>48BAO AC<<0 2 D@0:F88 => =5 >1=C;5=85 A >1@0B=>9 AB>@>=K 

               // <>3CB 1KBL 2 20@@80=B0. 1 1=C;5=85 4;O ?5@570?>;=5=8O 2 <8=CA>20=85.

               // 0B8@0=85 ?@>8AE>48B ?> =0?@02;5=8N ?5@5<5==>9

               //$@0:F8O 1

               if(Particula[2]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[24]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[2]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[24]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  //Particula[24]=0;//0@@80=B 157 >1=C;5=8O =0 25

                 }

               if(Particula[2]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  Particula[24]=0; 

                 }

               //$@0:F8O 2





               if(Particula[4]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[4]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }

               if(Particula[4]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               //permisos necesarios para dibujar indicador

               // @8 4>AB865=88 AC<<K 23,24 ,25 01LQ< 1;>:8@C5BAO 4> >1=C;5=8O. 1=C;5=85 ?@>872>48B 87=0=>GL=0O AB>@>=0.

               // @8 ?>2B>@=>9 ?>40G5 01LQ<0 01LQ< 4>E>48B 4> D@0:F88 1 : ?@8<5@C 8 >AB0=02;8205BAO.

               





               









               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,1]=flower_Price_3[opa,1]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",opa," index  2",ye,"  10445");

                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",opa," index  2",ye,"  10445");

                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 10477 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,1]!=flower_Price_3[opa,1])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,1]=flower_Price_3[opa,1];//

                           Print(" hehe - cantidad de cambios total 1 ",hehe);

                          }

                       }

                     // flower_Price_3[1,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[1,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }





                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 10525 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA



                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }



            if(sev==1 && N_Petalo==2 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,5]=flower[1,5]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\11_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_2--;

               //Print(Ar_2," Ar_2 ",C_Ar_2);

               if(C_Ar_2>0)

                 {

                  Pr_C_Ar_5=Ar_2;

                 }

               if(C_Ar_2<0)

                 {

                  Pr_C_Ar_5=" ";

                 }

                 

                 //-------------Tiempos y permisos - 23 - -1 " una tercera parte de letra ,usar suma para punto adecuado "  - 24 - 0 " 3 partes de letra se realiza suma en 2 puntos iluminacion en 3 partes " - 25 1 " 2 partes de letra se suman 2 partes de 3 iluminan 2 partes" si el volumen es el mismo y se cuadro numero volumen realiza el mismo impulso

               

               //summa punto 1

               if((Particula[8]!=23 || Particula[8]!=24 || Particula[8]!=25) && Particula[8]<25)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[8]=Particula[8]+Sev_Part_Lic[2,24];//tramo 9-12 ok



                 }

               if(Particula[8]>25)

                 {

                  Print(" Particula [8] error >25",Particula[8]);



                 }

               //summa punto 2

               // 5A;8 23 B> =5 >1@010BK205BAO AC<<0

               if((Particula[8]!=23 || Particula[8]!=24 || Particula[8]!=25 || Particula[8]==24 || Particula[8]==25) && Particula[8]<25 && (Particula[6]!=23 || Particula[6]!=24 || Particula[6]!=25) && Particula[6]<25 )

                 {

                  Particula[6]=Particula[6]+Sev_Part_Lic[2,20];//tramo 9-12



                 }





               if(Particula[6]>25)

                 {

                  Print("Particula [6] error >25",Particula[6]);



                 }



               //<8=CA>20=85 2 7=0=:5

               //@8 AC<<5 25 ?@>872>48BAO AC<<0 2 D@0:F88 => =5 >1=C;5=85 A >1@0B=>9 AB>@>=K 

               // <>3CB 1KBL 2 20@@80=B0. 1 1=C;5=85 4;O ?5@570?>;=5=8O 2 <8=CA>20=85.

               // 0B8@0=85 ?@>8AE>48B ?> =0?@02;5=8N ?5@5<5==>9

               //$@0:F8O 1

               if(Particula[8]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[18]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[8]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[18]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  //Particula[24]=0;//0@@80=B 157 >1=C;5=8O =0 25

                 }

               if(Particula[8]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[18]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  Particula[20]=0; 

                 }

               //$@0:F8O 2





               if(Particula[6]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[20]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[6]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[20]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }

               if(Particula[6]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[20]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }

                 

                 

                 

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,5]=flower_Price_3[opa,5]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10590 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10608 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {



                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 10627 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,5]!=flower_Price_3[opa,5])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,5]=flower_Price_3[opa,5];//

                           Print(" hehe - cantidad de cambios total 5 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 673 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==3 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,9]=flower[1,9]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\12_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_3++;

               //Print(Ar_3," Ar_3 ",C_Ar_3);

               if(C_Ar_3>0)

                 {

                  Pr_C_Ar_9=Ar_3;

                 }

               if(C_Ar_3<0)

                 {

                  Pr_C_Ar_9=" ";

                 }

                 

                 //summa punto 1

               if((Particula[2]!=23 || Particula[2]!=24 || Particula[2]!=25) && Particula[2]<25)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[2]=Particula[2]+Sev_Part_Lic[1,24];//tramo 9-12 ok



                 }

               if(Particula[2]>25)

                 {

                  Print(" Particula [2] error >25",Particula[2]);



                 }

               //summa punto 2

               // 5A;8 23 B> =5 >1@010BK205BAO AC<<0

               if((Particula[2]!=23 || Particula[2]!=24 || Particula[2]!=25 || Particula[2]==24 || Particula[2]==25) && Particula[2]<25 && (Particula[4]!=23 || Particula[4]!=24 || Particula[4]!=25) && Particula[4]<25 )

                 {

                  Particula[4]=Particula[4]+Sev_Part_Lic[1,32];//tramo 9-12



                 }





               if(Particula[4]>25)

                 {

                  Print("Particula [4] error >25",Particula[4]);



                 }



               //<8=CA>20=85 2 7=0=:5

               //@8 AC<<5 25 ?@>872>48BAO AC<<0 2 D@0:F88 => =5 >1=C;5=85 A >1@0B=>9 AB>@>=K 

               // <>3CB 1KBL 2 20@@80=B0. 1 1=C;5=85 4;O ?5@570?>;=5=8O 2 <8=CA>20=85.

               // 0B8@0=85 ?@>8AE>48B ?> =0?@02;5=8N ?5@5<5==>9

               //$@0:F8O 1

               if(Particula[2]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[24]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[2]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[24]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  //Particula[24]=0;//0@@80=B 157 >1=C;5=8O =0 25

                 }

               if(Particula[2]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88

                  Particula[24]=0; 

                 }

               //$@0:F8O 2





               if(Particula[4]==23) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               if(Particula[4]==25) //5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }

               if(Particula[4]==24)//5A;8 =5B A;>65==KE AC< B> A:;0ABL. A;8 MB> 10 B> AC<8@C5< A525@

                 {

                  Particula[22]=0;//0?@5B =0 ?>40GC 1>;55 G5< =0 1 G0ABL D@0:F88



                 }



               //permisos necesarios para dibujar indicador

               // @8 4>AB865=88 AC<<K 23,24 ,25 01LQ< 1;>:8@C5BAO 4> >1=C;5=8O. 1=C;5=85 ?@>872>48B 87=0=>GL=0O AB>@>=0.

               // @8 ?>2B>@=>9 ?>40G5 01LQ<0 01LQ< 4>E>48B 4> D@0:F88 1 : ?@8<5@C 8 >AB0=02;8205BAO.

               



                 

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,9]=flower_Price_3[opa,9]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10736 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10754 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 10772 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,9]!=flower_Price_3[opa,9])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,9]=flower_Price_3[opa,9];//

                           Print(" hehe - cantidad de cambios total 9 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 10818 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==4 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,13]=flower[1,13]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\12_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_4--;

               //Print(Ar_4," Ar_4 ",C_Ar_4);

               if(C_Ar_4>0)

                 {

                  Pr_C_Ar_13=Ar_4;

                 }

               if(C_Ar_4<0)

                 {

                  Pr_C_Ar_13=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,13]=flower_Price_3[opa,13]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10881 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 10899 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 10917 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,13]!=flower_Price_3[opa,13])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,13]=flower_Price_3[opa,13];//

                           Print(" hehe - cantidad de cambios total  13",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 10963 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==5/* ?@545;O5BAO ?> 3 0@E8B5:BC@5 */ && N_Centro_r==1/* ?@545;O5BAO ?> F5=5 2 ?>4A>;=. */  && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,17]=flower[1,17]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\13_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_5++;

               //Print(Ar_5," Ar_5  ",C_Ar_5);

               if(C_Ar_5>0)

                 {

                  Pr_C_Ar_17=Ar_5;

                 }

               if(C_Ar_5<0)

                 {

                  Pr_C_Ar_17=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,17]=flower_Price_3[opa,17]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11027 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11045 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11063 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,17]!=flower_Price_3[opa,17])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,17]=flower_Price_3[opa,17];//

                           Print(" hehe - cantidad de cambios total 17 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 11109 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==6 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,21]=flower[1,21]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\13_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_6--;

               //Print(Ar_6," Ar_6  ",C_Ar_6);

               if(C_Ar_6>0)

                 {

                  Pr_C_Ar_21=Ar_6;

                 }

               if(C_Ar_6<0)

                 {

                  Pr_C_Ar_21=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,21]=flower_Price_3[opa,21]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11172  ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11190 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11208 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,21]!=flower_Price_3[opa,21])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,21]=flower_Price_3[opa,21];//

                           Print(" hehe - cantidad de cambios total 21 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 11254 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==7 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,25]=flower[1,25]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\14_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_7++;

               //Print(Ar_7," Ar_7 ",C_Ar_7);

               if(C_Ar_7>0)

                 {

                  Pr_C_Ar_25=Ar_7;

                 }

               if(C_Ar_7<0)

                 {

                  Pr_C_Ar_25=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,25]=flower_Price_3[opa,25]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11317 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11335 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11353 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39]  && flower_Price_3[hehe,25]!=flower_Price_3[opa,25])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,25]=flower_Price_3[opa,25];//

                           Print(" hehe - cantidad de cambios total 25 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 11399 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==8 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,29]=flower[1,29]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\14_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_8--;

               //Print(Ar_8," Ar_8 ",C_Ar_8);

               if(C_Ar_8>0)

                 {

                  Pr_C_Ar_29=Ar_8;

                 }

               if(C_Ar_8<0)

                 {

                  Pr_C_Ar_29=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,29]=flower_Price_3[opa,29]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11462 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11480 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11494 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,29]!=flower_Price_3[opa,29])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,29]=flower_Price_3[opa,29];//

                           Print(" hehe - cantidad de cambios total 29 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 11544 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(sev==1 && N_Petalo==1 && N_Centro_r==2 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,2]=flower[1,2]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\15_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_1--;

               //Print(Ar_1," Ar_1 ",C_Ar_1);

               if(C_Ar_1>0)

                 {

                  Pr_C_Ar_2=Ar_1;

                 }

               if(C_Ar_1<0)

                 {

                  Pr_C_Ar_2=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,2]=flower_Price_3[opa,2]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11609 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11627 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11645 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,2]!=flower_Price_3[opa,2])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,2]=flower_Price_3[opa,2];//

                           Print(" hehe - cantidad de cambios total 2 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 11691 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==2 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,6]=flower[1,6]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\15_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_2++;

               //Print(Ar_2," Ar_2 ",C_Ar_2);

               if(C_Ar_2>0)

                 {

                  Pr_C_Ar_6=Ar_2;

                 }

               if(C_Ar_2<0)

                 {

                  Pr_C_Ar_6=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,6]=flower_Price_3[opa,6]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11754 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11772 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11790 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,6]!=flower_Price_3[opa,6])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,6]=flower_Price_3[opa,6];//

                           Print(" hehe - cantidad de cambios total 6 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 11836 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==3 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,10]=flower[1,10]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\16_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_3--;

               //Print(Ar_3," Ar_3 ",C_Ar_3);

               if(C_Ar_3>0)

                 {

                  Pr_C_Ar_10=Ar_3;

                 }

               if(C_Ar_3<0)

                 {

                  Pr_C_Ar_10=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,10]=flower_Price_3[opa,10]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11899 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 11917 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 11935 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,10]!=flower_Price_3[opa,10])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,10]=flower_Price_3[opa,10];//

                           Print(" hehe - cantidad de cambios total 10 ",hehe);

                          }

                       }

                     // flower_Price_3[1,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[1,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 11981 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==4 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,14]=flower[1,14]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\16_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_4++;

               //Print(Ar_4," Ar_4 ",C_Ar_4);

               if(C_Ar_4>0)

                 {

                  Pr_C_Ar_14=Ar_4;

                 }

               if(C_Ar_4<0)

                 {

                  Pr_C_Ar_14=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,14]=flower_Price_3[opa,14]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12044 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12062 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12080 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,14]!=flower_Price_3[opa,14])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,14]=flower_Price_3[opa,14];//

                           Print(" hehe - cantidad de cambios total 14 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 12126 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==5 && N_Centro_r==2 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,18]=flower[1,18]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\17_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_5--;

               //Print(Ar_5," Ar_5  ",C_Ar_5);

               if(C_Ar_5>0)

                 {

                  Pr_C_Ar_18=Ar_5;

                 }

               if(C_Ar_5<0)

                 {

                  Pr_C_Ar_18=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,18]=flower_Price_3[opa,18]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12190 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12208 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12226 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,18]!=flower_Price_3[opa,18])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,18]=flower_Price_3[opa,18];//

                           Print(" hehe - cantidad de cambios total 18 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 12272 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==6 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,22]=flower[1,22]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\17_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_6++;

               //Print(Ar_6," Ar_6  ",C_Ar_6);

               if(C_Ar_6>0)

                 {

                  Pr_C_Ar_22=Ar_6;

                 }

               if(C_Ar_6<0)

                 {

                  Pr_C_Ar_22=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,22]=flower_Price_3[opa,22]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12335 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12353 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12371 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,22]!=flower_Price_3[opa,22])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,22]=flower_Price_3[opa,22];//

                           Print(" hehe - cantidad de cambios total  22",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 12417 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==7 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,26]=flower[1,26]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\18_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_7--;

               //Print(Ar_7," Ar_7 ",C_Ar_7);

               if(C_Ar_7>0)

                 {

                  Pr_C_Ar_26=Ar_7;

                 }

               if(C_Ar_7<0)

                 {

                  Pr_C_Ar_26=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,26]=flower_Price_3[opa,26]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,26] ",flower_Price_3[opa,24]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12480 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12498 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12516 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,26]!=flower_Price_3[opa,26])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,26]=flower_Price_3[opa,26];//

                           Print(" hehe - cantidad de cambios total 26 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 12562 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==8 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,30]=flower[1,30]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\18_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_8++;

               //Print(Ar_8," Ar_8 ",C_Ar_8);

               if(C_Ar_8>0)

                 {

                  Pr_C_Ar_30=Ar_8;

                 }

               if(C_Ar_8<0)

                 {

                  Pr_C_Ar_30=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,30]=flower_Price_3[opa,30]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12625 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12643 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12657 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,30]!=flower_Price_3[opa,30])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,30]=flower_Price_3[opa,30];//

                           Print(" hehe - cantidad de cambios total 30 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 12707 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(sev==1 && N_Petalo==1 && N_Centro_r==3 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,3]=flower[1,3]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\19_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_1++;

               //Print(Ar_1," Ar_1 ",C_Ar_1);

               if(C_Ar_1>0)

                 {

                  Pr_C_Ar_3=Ar_1;

                 }

               if(C_Ar_1<0)

                 {

                  Pr_C_Ar_3=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,3]=flower_Price_3[opa,3]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12772 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12790 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12808 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,3]!=flower_Price_3[opa,3])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,3]=flower_Price_3[opa,3];//

                           Print(" hehe - cantidad de cambios total 3 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==2 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,7]=flower[1,7]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\19_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_2--;

               //Print(Ar_2," Ar_2 ",C_Ar_2);

               if(C_Ar_2>0)

                 {

                  Pr_C_Ar_7=Ar_2;

                 }

               if(C_Ar_2<0)

                 {

                  Pr_C_Ar_7=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,7]=flower_Price_3[opa,7]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12892 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 12910 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 12928 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,7]!=flower_Price_3[opa,7])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,7]=flower_Price_3[opa,7];//

                           Print(" hehe - cantidad de cambios total 7 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==3 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,11]=flower[1,11]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\20_m.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_3++;

               //Print(Ar_3," Ar_3 ",C_Ar_3);

               if(C_Ar_3>0)

                 {

                  Pr_C_Ar_11=Ar_3;

                 }

               if(C_Ar_3<0)

                 {

                  Pr_C_Ar_11=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,11]=flower_Price_3[opa,11]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13012 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13030 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13047 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,11]!=flower_Price_3[opa,11])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,11]=flower_Price_3[opa,11];//

                           Print(" hehe - cantidad de cambios total 11 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==4 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,15]=flower[1,15]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               //

               string   fileemoji="\\Images\\20_p.bmp";

               //-----------------------

               ObjectDelete(Obiekt3001);

               ObjectCreate(Obiekt3001,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

               ObjectSetString(0,Obiekt3001,OBJPROP_BMPFILE,fileemoji);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_XDISTANCE,CHWPX+500);

               ObjectSetInteger(0,Obiekt3001,OBJPROP_YDISTANCE,100);

               C_Ar_4--;

               //Print(Ar_4," Ar_4 ",C_Ar_4);

               if(C_Ar_4>0)

                 {

                  Pr_C_Ar_15=Ar_4;

                 }

               if(C_Ar_4<0)

                 {

                  Pr_C_Ar_15=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,15]=flower_Price_3[opa,15]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13132 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13150 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13168 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,15]!=flower_Price_3[opa,15])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,15]=flower_Price_3[opa,15];//

                           Print(" hehe - cantidad de cambios total 15 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==5 && N_Centro_r==3 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,19]=flower[1,19]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_5++;

               //Print(Ar_5," Ar_5  ",C_Ar_5);

               if(C_Ar_5>0)

                 {

                  Pr_C_Ar_19=Ar_5;

                 }

               if(C_Ar_5<0)

                 {

                  Pr_C_Ar_19=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,19]=flower_Price_3[opa,19]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13245 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13263 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13281 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,19]!=flower_Price_3[opa,19])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,19]=flower_Price_3[opa,19];//

                           Print(" hehe - cantidad de cambios total 19 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==6 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,23]=flower[1,23]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_6--;

               //Print(Ar_6," Ar_6  ",C_Ar_6);

               if(C_Ar_6>0)

                 {

                  Pr_C_Ar_23=Ar_6;

                 }

               if(C_Ar_6<0)

                 {

                  Pr_C_Ar_23=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,23]=flower_Price_3[opa,23]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13357 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13375 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13393 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,23]!=flower_Price_3[opa,23])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,23]=flower_Price_3[opa,23];//

                           Print(" hehe - cantidad de cambios total 23 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==7 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,27]=flower[1,27]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_7++;

               //Print(Ar_7," Ar_7 ",C_Ar_7);

               if(C_Ar_7>0)

                 {

                  Pr_C_Ar_27=Ar_7;

                 }

               if(C_Ar_7<0)

                 {

                  Pr_C_Ar_27=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,27]=flower_Price_3[opa,27]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13476 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13492 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13511 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,27]!=flower_Price_3[opa,27])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,27]=flower_Price_3[opa,27];//

                           Print(" hehe - cantidad de cambios total 27 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==8 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,31]=flower[1,31]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_8--;

               //Print(Ar_8," Ar_8 ",C_Ar_8);

               if(C_Ar_8>0)

                 {

                  Pr_C_Ar_31=Ar_8;

                 }

               if(C_Ar_8<0)

                 {

                  Pr_C_Ar_31=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,31]=flower_Price_3[opa,31]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13587 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13605 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13623 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,31]!=flower_Price_3[opa,31])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,31]=flower_Price_3[opa,31];//

                           Print(" hehe - cantidad de cambios total 31 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(sev==1 && N_Petalo==1 && N_Centro_r==4 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,4]=flower[1,4]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_1--;

               //Print(Ar_1," Ar_1 ",C_Ar_1);

               if(C_Ar_1>0)

                 {

                  Pr_C_Ar_4=Ar_1;

                 }

               if(C_Ar_1<0)

                 {

                  Pr_C_Ar_4=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,4]=flower_Price_3[opa,4]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13700 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13719 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13737 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,4]!=flower_Price_3[opa,4])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,4]=flower_Price_3[opa,4];//

                           Print(" hehe - cantidad de cambios total 4 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 13783 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==2 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,8]=flower[1,8]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_2++;

               //Print(Ar_2," Ar_2 ",C_Ar_2);

               if(C_Ar_2>0)

                 {

                  Pr_C_Ar_8=Ar_2;

                 }

               if(C_Ar_2<0)

                 {

                  Pr_C_Ar_8=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,8]=flower_Price_3[opa,8]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13837 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13856 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 13870 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,8]!=flower_Price_3[opa,8])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,8]=flower_Price_3[opa,8];//

                           Print(" hehe - cantidad de cambios total 8 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 13920 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==3 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,12]=flower[1,12]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_3--;

               //Print(Ar_3," Ar_3 ",C_Ar_3);

               if(C_Ar_30>0)

                 {

                  Pr_C_Ar_12=Ar_30;

                 }

               if(C_Ar_30<0)

                 {

                  Pr_C_Ar_12=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,12]=flower_Price_3[opa,12]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13975 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 13993 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14011 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,12]!=flower_Price_3[opa,12])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,12]=flower_Price_3[opa,12];//

                           Print(" hehe - cantidad de cambios total 12 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",uau," 14059 ");





                             }

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==4 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,16]=flower[1,16]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_4++;

               //Print(Ar_4," Ar_4 ",C_Ar_4);

               if(C_Ar_4>0)

                 {

                  Pr_C_Ar_16=Ar_4;

                 }

               if(C_Ar_4<0)

                 {

                  Pr_C_Ar_16=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,16]=flower_Price_3[opa,16]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14112 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14129 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14148 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,16]!=flower_Price_3[opa,16])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,16]=flower_Price_3[opa,16];//

                           Print(" hehe - cantidad de cambios total 16 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 14194 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==5 && N_Centro_r==4 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,20]=flower[1,20]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_5--;

               //Print(Ar_5," Ar_5 ",C_Ar_5);

               if(C_Ar_5>0)

                 {

                  Pr_C_Ar_20=Ar_5;

                 }

               if(C_Ar_5<0)

                 {

                  Pr_C_Ar_20=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,20]=flower_Price_3[opa,20]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14250 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14268 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14286 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,20]!=flower_Price_3[opa,20])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,20]=flower_Price_3[opa,20];//

                           Print(" hehe - cantidad de cambios total 20 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 14332 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==6 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,24]=flower[1,24]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_6++;

               //Print(Ar_6," Ar_6 ",C_Ar_6);

               if(C_Ar_6>0)

                 {

                  Pr_C_Ar_24=Ar_6;

                 }

               if(C_Ar_6<0)

                 {

                  Pr_C_Ar_24=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,24]=flower_Price_3[opa,24]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14387 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14405 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14423 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,24]!=flower_Price_3[opa,24])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,24]=flower_Price_3[opa,24];//

                           Print(" hehe - cantidad de cambios total 24 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 14469 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==7 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,28]=flower[1,28]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_7--;

               //Print(Ar_7," Ar_7 ",C_Ar_7);

               if(C_Ar_7>0)

                 {

                  Pr_C_Ar_28=Ar_7;

                 }

               if(C_Ar_7<0)

                 {

                  Pr_C_Ar_28=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,28]=flower_Price_3[opa,28]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14524 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14542 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14560 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,28]!=flower_Price_3[opa,28])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,28]=flower_Price_3[opa,28];//

                           Print(" hehe - cantidad de cambios total 28 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 14606 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(sev==1 && N_Petalo==8 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,32]=flower[1,32]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_8++;

               //Print(Ar_8," Ar_8 ",C_Ar_8);

               if(C_Ar_8>0)

                 {

                  Pr_C_Ar_32=Ar_8;

                 }

               if(C_Ar_8<0)

                 {

                  Pr_C_Ar_32=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,32]=flower_Price_3[opa,32]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=1;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14661 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14679 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14697 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,32]!=flower_Price_3[opa,32])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,32]=flower_Price_3[opa,32];//

                           Print(" hehe - cantidad de cambios total 32 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 14743 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(vost==1 && N_Petalo==1 && N_Centro_r==1  && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,1]=flower[1,1]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_14++;

               //Print(Ar_14," Ar_14 ",C_Ar_14);

               if(C_Ar_14>0)

                 {

                  Pr_C_Ar_1=Ar_14;

                 }

               if(C_Ar_14<0)

                 {

                  Pr_C_Ar_1=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,1]=flower_Price_3[opa,1]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14800 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14818 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14836 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,1]!=flower_Price_3[opa,1])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,1]=flower_Price_3[opa,1];//

                           Print(" hehe - cantidad de cambios total 1 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 14882 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==2 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,5]=flower[1,5]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_9--;

               //Print(Ar_9," Ar_9 ",C_Ar_9);

               if(C_Ar_9>0)

                 {

                  Pr_C_Ar_5=Ar_9;

                 }

               if(C_Ar_9<0)

                 {

                  Pr_C_Ar_5=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,5]=flower_Price_3[opa,5]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14937 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 14955 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 14973 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,5]!=flower_Price_3[opa,5])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,5]=flower_Price_3[opa,5];//

                           Print(" hehe - cantidad de cambios total 5 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15019 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==3 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,9]=flower[1,9]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_10++;

               //Print(Ar_10," Ar_10 ",C_Ar_10);

               if(C_Ar_10>0)

                 {

                  Pr_C_Ar_9=Ar_10;

                 }

               if(C_Ar_10<0)

                 {

                  Pr_C_Ar_9=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,9]=flower_Price_3[opa,9]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15074 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15092 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15110 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,9]!=flower_Price_3[opa,9]-1)//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,9]=flower_Price_3[opa,9];//

                           Print(" hehe - cantidad de cambios total 9 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15156 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==4 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,13]=flower[1,13]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_13--;

               //Print(Ar_13," Ar_13 ",C_Ar_13);

               if(C_Ar_13>0)

                 {

                  Pr_C_Ar_13=Ar_13;

                 }

               if(C_Ar_13<0)

                 {

                  Pr_C_Ar_13=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,13]=flower_Price_3[opa,13]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15211 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15229 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15247 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,13]!=flower_Price_3[opa,13])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,13]=flower_Price_3[opa,13];//

                           Print(" hehe - cantidad de cambios total 13 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15293 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==5 && N_Centro_r==1  && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,17]=flower[1,17]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_16++;

               //Print(Ar_16," Ar_16 ",C_Ar_16);

               if(C_Ar_16>0)

                 {

                  Pr_C_Ar_17=Ar_16;

                 }

               if(C_Ar_16<0)

                 {

                  Pr_C_Ar_17=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,17]=flower_Price_3[opa,17]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15349 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15367 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15385 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,17]!=flower_Price_3[opa,17])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,17]=flower_Price_3[opa,17];//

                           Print(" hehe - cantidad de cambios total 17 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15431 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==6 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,21]=flower[1,21]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_11--;

               //Print(Ar_11," Ar_11 ",C_Ar_11);

               if(C_Ar_11>0)

                 {

                  Pr_C_Ar_21=Ar_11;

                 }

               if(C_Ar_11<0)

                 {

                  Pr_C_Ar_21=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,21]=flower_Price_3[opa,21]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15486 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15504 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15522 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,21]!=flower_Price_3[opa,21])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,21]=flower_Price_3[opa,21];//

                           Print(" hehe - cantidad de cambios total 21 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15568 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==7 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,25]=flower[1,25]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_12++;

               //Print(Ar_12," Ar_12 ",C_Ar_12);

               if(C_Ar_12>0)

                 {

                  Pr_C_Ar_25=Ar_12;

                 }

               if(C_Ar_12<0)

                 {

                  Pr_C_Ar_25=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,25]=flower_Price_3[opa,25]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15623 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15641 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15659 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,25]!=flower_Price_3[opa,25])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,25]=flower_Price_3[opa,25];//

                           Print(" hehe - cantidad de cambios total 25 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15705 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==8 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,29]=flower[1,29]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_15--;

               //Print(Ar_15," Ar_15 ",C_Ar_15);

               if(C_Ar_15>0)

                 {

                  Pr_C_Ar_29=Ar_15;

                 }

               if(C_Ar_15<0)

                 {

                  Pr_C_Ar_29=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,29]=flower_Price_3[opa,29]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15760 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15778 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15796 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,29]!=flower_Price_3[opa,29])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,29]=flower_Price_3[opa,29];//

                           Print(" hehe - cantidad de cambios total 29 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 15842 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(vost==1 && N_Petalo==1 && N_Centro_r==2 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,2]=flower[1,2]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_14--;

               //Print(Ar_14," Ar_14 ",C_Ar_14);

               if(C_Ar_14>0)

                 {

                  Pr_C_Ar_2=Ar_14;

                 }

               if(C_Ar_14<0)

                 {

                  Pr_C_Ar_2=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,2]=flower_Price_3[opa,2]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15899 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 15917 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     for(int hehe=1; hehe<=999; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 15935 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,2]!=flower_Price_3[opa,2])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,2]=flower_Price_3[opa,2];//

                           Print(" hehe - cantidad de cambios total 2 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 15981 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==2 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,6]=flower[1,6]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_9++;

               //Print(Ar_9," Ar_9 ",C_Ar_9);

               if(C_Ar_9>0)

                 {

                  Pr_C_Ar_6=Ar_9;

                 }

               if(C_Ar_9<0)

                 {

                  Pr_C_Ar_6=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,6]=flower_Price_3[opa,6]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16036 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16054 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16072 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,6]!=flower_Price_3[opa,6])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,6]=flower_Price_3[opa,6];//

                           Print(" hehe - cantidad de cambios total 6 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16118 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==3 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,10]=flower[1,10]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_10--;

               //Print(Ar_10," Ar_10 ",C_Ar_10);

               if(C_Ar_10>0)

                 {

                  Pr_C_Ar_10=Ar_10;

                 }

               if(C_Ar_10<0)

                 {

                  Pr_C_Ar_10=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,10]=flower_Price_3[opa,10]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16173 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16191 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16209 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,10]!=flower_Price_3[opa,10])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,10]=flower_Price_3[opa,10];//

                           Print(" hehe - cantidad de cambios total 10 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16255 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==4 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,14]=flower[1,14]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_13++;

               //Print(Ar_13," Ar_13 ",C_Ar_13);

               if(C_Ar_13>0)

                 {

                  Pr_C_Ar_14=Ar_13;

                 }

               if(C_Ar_13<0)

                 {

                  Pr_C_Ar_14=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,14]=flower_Price_3[opa,14]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16310 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16328 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16346 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,14]!=flower_Price_3[opa,14])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,14]=flower_Price_3[opa,14];//

                           Print(" hehe - cantidad de cambios total 14 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16392 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==5 && N_Centro_r==2 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,18]=flower[1,18]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_16--;

               //Print(Ar_16," Ar_16 ",C_Ar_16);

               if(C_Ar_16>0)

                 {

                  Pr_C_Ar_18=Ar_16;

                 }

               if(C_Ar_16<0)

                 {

                  Pr_C_Ar_18=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,18]=flower_Price_3[opa,18]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16448 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16466 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16484 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,18]!=flower_Price_3[opa,18])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,18]=flower_Price_3[opa,18];//

                           Print(" hehe - cantidad de cambios total 18 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16530 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==6 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,22]=flower[1,22]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_11++;

               //Print(Ar_11," Ar_11 ",C_Ar_11);

               if(C_Ar_11>0)

                 {

                  Pr_C_Ar_22=Ar_11;

                 }

               if(C_Ar_11<0)

                 {

                  Pr_C_Ar_22=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,22]=flower_Price_3[opa,22]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16585 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16603 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16621 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,22]!=flower_Price_3[opa,22])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,22]=flower_Price_3[opa,22];//

                           Print(" hehe - cantidad de cambios total 22 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16667 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==7 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,26]=flower[1,26]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_12--;

               //Print(Ar_12," Ar_12 ",C_Ar_12);

               if(C_Ar_12>0)

                 {

                  Pr_C_Ar_26=Ar_12;

                 }

               if(C_Ar_12<0)

                 {

                  Pr_C_Ar_26=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,26]=flower_Price_3[opa,26]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16722 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16740 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16758 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,26]!=flower_Price_3[opa,26])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,26]=flower_Price_3[opa,26];//

                           Print(" hehe - cantidad de cambios total 26 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16804 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==8 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,30]=flower[1,30]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_15++;

               //Print(Ar_15," Ar_15 ",C_Ar_15);

               if(C_Ar_15>0)

                 {

                  Pr_C_Ar_30=Ar_15;

                 }

               if(C_Ar_15<0)

                 {

                  Pr_C_Ar_30=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,30]=flower_Price_3[opa,30]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16859 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16877 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 16895 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,30]!=flower_Price_3[opa,30])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,30]=flower_Price_3[opa,30];//

                           Print(" hehe - cantidad de cambios total 30 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 16941 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(vost==1 && N_Petalo==1 && N_Centro_r==3 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,3]=flower[1,3]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_14++;

               //Print(Ar_14," Ar_14 ",C_Ar_14);

               if(C_Ar_14>0)

                 {

                  Pr_C_Ar_3=Ar_14;

                 }

               if(C_Ar_14<0)

                 {

                  Pr_C_Ar_3=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,3]=flower_Price_3[opa,3]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 16998 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17016 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17034 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,3]!=flower_Price_3[opa,3])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,3]=flower_Price_3[opa,3];//

                           Print(" hehe - cantidad de cambios total 3 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==2 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,7]=flower[1,7]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_9--;

               //Print(Ar_9," Ar_9 ",C_Ar_9);

               if(C_Ar_9>0)

                 {

                  Pr_C_Ar_7=Ar_9;

                 }

               if(C_Ar_9<0)

                 {

                  Pr_C_Ar_7=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,7]=flower_Price_3[opa,7]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17115 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17133 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17151 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,7]!=flower_Price_3[opa,7])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,7]=flower_Price_3[opa,7];//

                           Print(" hehe - cantidad de cambios total 7 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==3 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,11]=flower[1,11]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_10++;

               //Print(Ar_10," Ar_10 ",C_Ar_10);

               if(C_Ar_10>0)

                 {

                  Pr_C_Ar_11=Ar_10;

                 }

               if(C_Ar_10<0)

                 {

                  Pr_C_Ar_11=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,11]=flower_Price_3[opa,11]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17232 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17250 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17268 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,11]!=flower_Price_3[opa,11])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,11]=flower_Price_3[opa,11];//

                           Print(" hehe - cantidad de cambios total 11 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==4 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,15]=flower[1,15]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_13--;

               //Print(Ar_13," Ar_13 ",C_Ar_13);

               if(C_Ar_13>0)

                 {

                  Pr_C_Ar_15=Ar_13;

                 }

               if(C_Ar_13<0)

                 {

                  Pr_C_Ar_15=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,15]=flower_Price_3[opa,15]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17344 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17363 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17380 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,15]!=flower_Price_3[opa,15])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,15]=flower_Price_3[opa,15];//

                           Print(" hehe - cantidad de cambios total 15 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==5 && N_Centro_r==3 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,19]=flower[1,19]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_16++;

               //Print(Ar_16," Ar_16 ",C_Ar_16);

               if(C_Ar_16>0)

                 {

                  Pr_C_Ar_19=Ar_16;

                 }

               if(C_Ar_16<0)

                 {

                  Pr_C_Ar_19=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,19]=flower_Price_3[opa,19]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17457 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17475 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17493 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,19]!=flower_Price_3[opa,19])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,19]=flower_Price_3[opa,19];//

                           Print(" hehe - cantidad de cambios total 19 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==6 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,23]=flower[1,23]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_11--;

               //Print(Ar_11," Ar_11 ",C_Ar_11);

               if(C_Ar_11>0)

                 {

                  Pr_C_Ar_23=Ar_11;

                 }

               if(C_Ar_11<0)

                 {

                  Pr_C_Ar_23=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,23]=flower_Price_3[opa,23]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17569 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17587 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17605 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,23]!=flower_Price_3[opa,23])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,23]=flower_Price_3[opa,23];//

                           Print(" hehe - cantidad de cambios total 23 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==7 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,27]=flower[1,27]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_12++;

               //Print(Ar_12," Ar_12 ",C_Ar_12);

               if(C_Ar_12>0)

                 {

                  Pr_C_Ar_27=Ar_12;

                 }

               if(C_Ar_12<0)

                 {

                  Pr_C_Ar_27=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,27]=flower_Price_3[opa,27]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17681 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17699 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17717 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,27]!=flower_Price_3[opa,27])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,27]=flower_Price_3[opa,27];//

                           Print(" hehe - cantidad de cambios total 27 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==8 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,31]=flower[1,31]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_15--;

               //Print(Ar_15," Ar_15 ",C_Ar_15);

               if(C_Ar_15>0)

                 {

                  Pr_C_Ar_31=Ar_15;

                 }

               if(C_Ar_15<0)

                 {

                  Pr_C_Ar_31=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,31]=flower_Price_3[opa,31]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17793 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17811 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17829 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,31]!=flower_Price_3[opa,31])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,31]=flower_Price_3[opa,31];//

                           Print(" hehe - cantidad de cambios total 31 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(vost==1 && N_Petalo==1 && N_Centro_r==4 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,4]=flower[1,4]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_14--;

               //Print(Ar_14," Ar_14 ",C_Ar_14);

               if(C_Ar_14>0)

                 {

                  Pr_C_Ar_4=Ar_14;

                 }

               if(C_Ar_14<0)

                 {

                  Pr_C_Ar_4=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,4]=flower_Price_3[opa,4]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17912 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 17930 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 17948 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,4]!=flower_Price_3[opa,4])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,4]=flower_Price_3[opa,4];//

                           Print(" hehe - cantidad de cambios total 4 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 17994 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==2 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,8]=flower[1,8]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_9++;

               //Print(Ar_9," Ar_9 ",C_Ar_9);

               if(C_Ar_9>0)

                 {

                  Pr_C_Ar_8=Ar_9;

                 }

               if(C_Ar_9<0)

                 {

                  Pr_C_Ar_8=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,8]=flower_Price_3[opa,8]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18049 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18067 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18085 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,8]!=flower_Price_3[opa,8])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,8]=flower_Price_3[opa,8];//

                           Print(" hehe - cantidad de cambios total 8 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18131 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==3 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,12]=flower[1,12]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_10--;

               //Print(Ar_10," Ar_10 ",C_Ar_10);

               if(C_Ar_10>0)

                 {

                  Pr_C_Ar_12=Ar_10;

                 }

               if(C_Ar_10<0)

                 {

                  Pr_C_Ar_12=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,12]=flower_Price_3[opa,12]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18186 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18204 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18222 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,12]!=flower_Price_3[opa,12])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,12]=flower_Price_3[opa,12];//

                           Print(" hehe - cantidad de cambios total 12 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18268 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==4 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,16]=flower[1,16]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_13++;

               //Print(Ar_13," Ar_13 ",C_Ar_13);

               if(C_Ar_13>0)

                 {

                  Pr_C_Ar_16=Ar_13;

                 }

               if(C_Ar_13<0)

                 {

                  Pr_C_Ar_16=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,16]=flower_Price_3[opa,16]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18323 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18341 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18359 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,16]!=flower_Price_3[opa,16])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,16]=flower_Price_3[opa,16];//

                           Print(" hehe - cantidad de cambios total 16 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18405 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==5 && N_Centro_r==4 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//vostok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,20]=flower[1,20]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_16--;

               //Print(Ar_16," Ar_16 ",C_Ar_16);

               if(C_Ar_16>0)

                 {

                  Pr_C_Ar_20=Ar_16;

                 }

               if(C_Ar_16<0)

                 {

                  Pr_C_Ar_20=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,20]=flower_Price_3[opa,20]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18461 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18479 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18049 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,20]!=flower_Price_3[opa,20])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,20]=flower_Price_3[opa,20];//

                           Print(" hehe - cantidad de cambios total 20 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18543 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==6 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,24]=flower[1,24]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_11++;

               //Print(Ar_11," Ar_11 ",C_Ar_11);

               if(C_Ar_11>0)

                 {

                  Pr_C_Ar_24=Ar_11;

                 }

               if(C_Ar_11<0)

                 {

                  Pr_C_Ar_24=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,24]=flower_Price_3[opa,24]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18598 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18616 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18634 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,24]!=flower_Price_3[opa,24])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,24]=flower_Price_3[opa,24];//

                           Print(" hehe - cantidad de cambios total 24 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18680 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==7 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//vostok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,28]=flower[1,28]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_12--;

               //Print(Ar_12," Ar_12 ",C_Ar_12);

               if(C_Ar_12>0)

                 {

                  Pr_C_Ar_28=Ar_12;

                 }

               if(C_Ar_12<0)

                 {

                  Pr_C_Ar_28=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,28]=flower_Price_3[opa,28]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18735 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18753 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18771 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,28]!=flower_Price_3[opa,28])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,28]=flower_Price_3[opa,28];//

                           Print(" hehe - cantidad de cambios total 28 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18816 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(vost==1 && N_Petalo==8 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//vostok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,32]=flower[1,32]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_15++;

               //Print(Ar_15," Ar_15 ",C_Ar_15);

               if(C_Ar_15>0)

                 {

                  Pr_C_Ar_32=Ar_15;

                 }

               if(C_Ar_15<0)

                 {

                  Pr_C_Ar_32=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,32]=flower_Price_3[opa,32]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=2;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18872 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 18890 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 18908 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,32]!=flower_Price_3[opa,32])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,32]=flower_Price_3[opa,32];//

                           Print(" hehe - cantidad de cambios total 32 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                        //@>8725AB8 70?>AL 2 B5B@04L =0G0;0 A83=0;0,8 2@5<O >BIQB0 8 =><5@ 8=45:A0 4;O 2K2545=8O 40==KE =0 3@0D8:

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 18955 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(yug==1 && N_Petalo==1 && N_Centro_r==1  && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,1]=flower[1,1]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_21++;

               //Print(Ar_21," Ar_21 ",C_Ar_21);

               if(C_Ar_21>0)

                 {

                  Pr_C_Ar_1=Ar_21;

                 }

               if(C_Ar_21<0)

                 {

                  Pr_C_Ar_1=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,1]=flower_Price_3[opa,1]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19012 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19030 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19048 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,1]!=flower_Price_3[opa,1])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,1]=flower_Price_3[opa,1];//

                           Print(" hehe - cantidad de cambios total 1 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19094 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==2 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,5]=flower[1,5]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_22--;

               //Print(Ar_22," Ar_22 ",C_Ar_22);

               if(C_Ar_22>0)

                 {

                  Pr_C_Ar_5=Ar_22;

                 }

               if(C_Ar_22<0)

                 {

                  Pr_C_Ar_5=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,5]=flower_Price_3[opa,5]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19149 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19168 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19185 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,5]!=flower_Price_3[opa,5])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,5]=flower_Price_3[opa,5];//

                           Print(" hehe - cantidad de cambios total 5 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19231 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==3 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,9]=flower[1,9]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_17++;

               //Print(Ar_17," Ar_17 ",C_Ar_17);

               if(C_Ar_17>0)

                 {

                  Pr_C_Ar_9=Ar_17;

                 }

               if(C_Ar_17<0)

                 {

                  Pr_C_Ar_9=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,9]=flower_Price_3[opa,9]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19286 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19304 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19322 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,9]!=flower_Price_3[opa,9])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,9]=flower_Price_3[opa,9];//

                           Print(" hehe - cantidad de cambios total 9 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19368 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==4 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,13]=flower[1,13]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_18--;

               //Print(Ar_18," Ar_18 ",C_Ar_18);

               if(C_Ar_18>0)

                 {

                  Pr_C_Ar_13=Ar_18;

                 }

               if(C_Ar_18<0)

                 {

                  Pr_C_Ar_13=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,13]=flower_Price_3[opa,13]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19423 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19441 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19459 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,13]!=flower_Price_3[opa,13])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,13]=flower_Price_3[opa,13];//

                           Print(" hehe - cantidad de cambios total 13 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19505 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==5 && N_Centro_r==1  && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,17]=flower[1,17]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_23++;

               //Print(Ar_23," Ar_23 ",C_Ar_23);

               if(C_Ar_23>0)

                 {

                  Pr_C_Ar_17=Ar_23;

                 }

               if(C_Ar_23<0)

                 {

                  Pr_C_Ar_17=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,17]=flower_Price_3[opa,17]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19561 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19579 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19597 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,17]!=flower_Price_3[opa,17])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,17]=flower_Price_3[opa,17];//

                           Print(" hehe - cantidad de cambios total 17 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19643 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==6 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,21]=flower[1,21]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_24--;

               //Print(Ar_24," Ar_24 ",C_Ar_24);

               if(C_Ar_24>0)

                 {

                  Pr_C_Ar_21=Ar_24;

                 }

               if(C_Ar_24<0)

                 {

                  Pr_C_Ar_21=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,21]=flower_Price_3[opa,21]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19698 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19716 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19734 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,21]!=flower_Price_3[opa,21])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,21]=flower_Price_3[opa,21];//

                           Print(" hehe - cantidad de cambios total 21 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19780 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==7 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,25]=flower[1,25]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_19++;

               //Print(Ar_19," Ar_19 ",C_Ar_19);

               if(C_Ar_19>0)

                 {

                  Pr_C_Ar_25=Ar_19;

                 }

               if(C_Ar_19<0)

                 {

                  Pr_C_Ar_25=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,25]=flower_Price_3[opa,25]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19835 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19853 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 19871 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,25]!=flower_Price_3[opa,25])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,25]=flower_Price_3[opa,25];//

                           Print(" hehe - cantidad de cambios total 25 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 19917 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==8 && N_Centro_r==1 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,29]=flower[1,29]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_20--;

               //Print(Ar_20," Ar_20 ",C_Ar_20);

               if(C_Ar_20>0)

                 {

                  Pr_C_Ar_29=Ar_20;

                 }

               if(C_Ar_20<0)

                 {

                  Pr_C_Ar_29=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,29]=flower_Price_3[opa,29]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19972 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 19990 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20009 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,29]!=flower_Price_3[opa,29])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,29]=flower_Price_3[opa,29];//

                           Print(" hehe - cantidad de cambios total 29 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 20054 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(yug==1 && N_Petalo==1 && N_Centro_r==2 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,2]=flower[1,2]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_21--;

               //Print(Ar_21," Ar_21 ",C_Ar_21);

               if(C_Ar_21>0)

                 {

                  Pr_C_Ar_2=Ar_21;

                 }

               if(C_Ar_21<0)

                 {

                  Pr_C_Ar_2=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,2]=flower_Price_3[opa,12]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20111 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20129 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20147 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,12]!=flower_Price_3[opa,12])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,12]=flower_Price_3[opa,12];//

                           Print(" hehe - cantidad de cambios total 12 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20193 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==2 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,6]=flower[1,6]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_22++;

               //Print(Ar_22," Ar_22 ",C_Ar_22);

               if(C_Ar_22>0)

                 {

                  Pr_C_Ar_6=Ar_22;

                 }

               if(C_Ar_22<0)

                 {

                  Pr_C_Ar_6=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,6]=flower_Price_3[opa,6]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20248 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20266 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20284 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,6]!=flower_Price_3[opa,6])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,6]=flower_Price_3[opa,6];//

                           Print(" hehe - cantidad de cambios total 6 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20330 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==3 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,10]=flower[1,10]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_17--;

               //Print(Ar_17," Ar_17 ",C_Ar_17);

               if(C_Ar_17>0)

                 {

                  Pr_C_Ar_10=Ar_17;

                 }

               if(C_Ar_17<0)

                 {

                  Pr_C_Ar_10=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,10]=flower_Price_3[opa,10]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20385 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20403 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20421 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,10]!=flower_Price_3[opa,10])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,10]=flower_Price_3[opa,10];//

                           Print(" hehe - cantidad de cambios total 10 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20467 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==4 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,14]=flower[1,14]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_18++;

               //Print(Ar_18," Ar_18 ",C_Ar_18);

               if(C_Ar_18>0)

                 {

                  Pr_C_Ar_14=Ar_18;

                 }

               if(C_Ar_18<0)

                 {

                  Pr_C_Ar_14=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,14]=flower_Price_3[opa,14]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20522 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20540 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20558 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,14]!=flower_Price_3[opa,14])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,14]=flower_Price_3[opa,14];//

                           Print(" hehe - cantidad de cambios total 14 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20604 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==5 && N_Centro_r==2 && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,18]=flower[1,18]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_23--;

               //Print(Ar_23," Ar_23 ",C_Ar_23);

               if(C_Ar_23>0)

                 {

                  Pr_C_Ar_18=Ar_23;

                 }

               if(C_Ar_23<0)

                 {

                  Pr_C_Ar_18=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,18]=flower_Price_3[opa,18]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20660 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20678 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20696 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,18]!=flower_Price_3[opa,18])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,18]=flower_Price_3[opa,18];//

                           Print(" hehe - cantidad de cambios total 18 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20742 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==6 && N_Centro_r==2 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,22]=flower[1,22]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_24++;

               //Print(Ar_24," Ar_24 ",C_Ar_24);

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,22]=flower_Price_3[opa,22]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20789 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20807 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20825 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,22]!=flower_Price_3[opa,22])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,22]=flower_Price_3[opa,22];//

                           Print(" hehe - cantidad de cambios total  ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 20871 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==7 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,26]=flower[1,26]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_19--;

               //Print(Ar_19," Ar_19 ",C_Ar_19);

               if(C_Ar_19>0)

                 {

                  Pr_C_Ar_26=Ar_19;

                 }

               if(C_Ar_19<0)

                 {

                  Pr_C_Ar_26=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,26]=flower_Price_3[opa,26]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20926 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 20944 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 20962 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,26]!=flower_Price_3[opa,26])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,26]=flower_Price_3[opa,26];//

                           Print(" hehe - cantidad de cambios total 26 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 21008 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==8 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,30]=flower[1,30]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_20++;

               //Print(Ar_20," Ar_20 ",C_Ar_20);

               if(C_Ar_20>0)

                 {

                  Pr_C_Ar_30=Ar_20;

                 }

               if(C_Ar_20<0)

                 {

                  Pr_C_Ar_30=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,30]=flower_Price_3[opa,30]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21063 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21081 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21099 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,30]!=flower_Price_3[opa,30])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,30]=flower_Price_3[opa,30];//

                           Print(" hehe - cantidad de cambios total 30 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 21144 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(yug==1 && N_Petalo==1 && N_Centro_r==3 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,3]=flower[1,3]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_21++;

               //Print(Ar_21," Ar_21 ",C_Ar_21);

               if(C_Ar_21>0)

                 {

                  Pr_C_Ar_3=Ar_21;

                 }

               if(C_Ar_21<0)

                 {

                  Pr_C_Ar_3=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,3]=flower_Price_3[opa,3]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21202 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21220 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21238 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,3]!=flower_Price_3[opa,3])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,3]=flower_Price_3[opa,3];//

                           Print(" hehe - cantidad de cambios total 3 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==2 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,7]=flower[1,7]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_22--;

               //Print(Ar_22," Ar_22 ",C_Ar_22);

               if(C_Ar_22>0)

                 {

                  Pr_C_Ar_7=Ar_22;

                 }

               if(C_Ar_22<0)

                 {

                  Pr_C_Ar_7=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,7]=flower_Price_3[opa,7]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21314 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21332 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21350 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,7]!=flower_Price_3[opa,7])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,7]=flower_Price_3[opa,7];//

                           Print(" hehe - cantidad de cambios total 7 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==3 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,11]=flower[1,11]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_17++;

               //Print(Ar_17," Ar_17 ",C_Ar_17);

               if(C_Ar_17>0)

                 {

                  Pr_C_Ar_11=Ar_17;

                 }

               if(C_Ar_17<0)

                 {

                  Pr_C_Ar_11=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,11]=flower_Price_3[opa,11]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21431 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21449 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21467 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,11]!=flower_Price_3[opa,11])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,11]=flower_Price_3[opa,11];//

                           Print(" hehe - cantidad de cambios total 11 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==4 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,15]=flower[1,15]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_18--;

               //Print(Ar_18," Ar_18 ",C_Ar_18);

               if(C_Ar_18>0)

                 {

                  Pr_C_Ar_15=Ar_18;

                 }

               if(C_Ar_18<0)

                 {

                  Pr_C_Ar_15=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,15]=flower_Price_3[opa,15]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21548 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21566 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21584 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,15]!=flower_Price_3[opa,15])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,15]=flower_Price_3[opa,15];//

                           Print(" hehe - cantidad de cambios total 15 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==5 && N_Centro_r==3 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,19]=flower[1,19]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_23++;

               //Print(Ar_23," Ar_23 ",C_Ar_23);

               if(C_Ar_23>0)

                 {

                  Pr_C_Ar_19=Ar_23;

                 }

               if(C_Ar_23<0)

                 {

                  Pr_C_Ar_19=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,19]=flower_Price_3[opa,19]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21661 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21679 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21697 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,19]!=flower_Price_3[opa,19])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,19]=flower_Price_3[opa,19];//

                           Print(" hehe - cantidad de cambios total 19 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==6 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,23]=flower[1,23]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_24--;

               //Print(Ar_24," Ar_24 ",C_Ar_24);

               if(C_Ar_24>0)

                 {

                  Pr_C_Ar_23=Ar_24;

                 }

               if(C_Ar_24<0)

                 {

                  Pr_C_Ar_23=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,23]=flower_Price_3[opa,23]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21773 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21791 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21809 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,23]!=flower_Price_3[opa,23])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,23]=flower_Price_3[opa,23];//

                           Print(" hehe - cantidad de cambios total 23 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==7 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,27]=flower[1,27]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_19++;

               //Print(Ar_19," Ar_19 ",C_Ar_19);

               if(C_Ar_19>0)

                 {

                  Pr_C_Ar_27=Ar_19;

                 }

               if(C_Ar_19<0)

                 {

                  Pr_C_Ar_27=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,27]=flower_Price_3[opa,27]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21890 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 21908 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 21926 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,27]!=flower_Price_3[opa,27])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,27]=flower_Price_3[opa,27];//

                           Print(" hehe - cantidad de cambios total 27 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==8 && N_Centro_r==3 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,31]=flower[1,31]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_20--;

               //Print(Ar_20," Ar_20 ",C_Ar_20);

               if(C_Ar_20>0)

                 {

                  Pr_C_Ar_31=Ar_20;

                 }

               if(C_Ar_20<0)

                 {

                  Pr_C_Ar_31=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,31]=flower_Price_3[opa,31]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22002 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22021 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22039 ");





                          }



                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,31]!=flower_Price_3[opa,31])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,31]=flower_Price_3[opa,31];//

                           Print(" hehe - cantidad de cambios total 31 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(yug==1 && N_Petalo==1 && N_Centro_r==4 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,4]=flower[1,4]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_21--;

               //Print(Ar_21," Ar_21 ",C_Ar_21);

               if(C_Ar_21>0)

                 {

                  Pr_C_Ar_4=Ar_21;

                 }

               if(C_Ar_21<0)

                 {

                  Pr_C_Ar_4=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,4]=flower_Price_3[opa,4]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22127 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22145 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22163 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,4]!=flower_Price_3[opa,4])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,4]=flower_Price_3[opa,4];//

                           Print(" hehe - cantidad de cambios total 4 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22209 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==2 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,8]=flower[1,8]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_22++;

               //Print(Ar_22," Ar_22 ",C_Ar_22);

               if(C_Ar_22>0)

                 {

                  Pr_C_Ar_8=Ar_22;

                 }

               if(C_Ar_22<0)

                 {

                  Pr_C_Ar_8=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,8]=flower_Price_3[opa,8]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22264 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22282 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22300 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,8]!=flower_Price_3[opa,8])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,8]=flower_Price_3[opa,8];//

                           Print(" hehe - cantidad de cambios total 8 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22346 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==3 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,12]=flower[1,12]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_17--;

               //Print(Ar_17," Ar_17 ",C_Ar_17);

               if(C_Ar_17>0)

                 {

                  Pr_C_Ar_12=Ar_17;

                 }

               if(C_Ar_17<0)

                 {

                  Pr_C_Ar_12=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,12]=flower_Price_3[opa,12]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22401 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22419 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22437 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,12]!=flower_Price_3[opa,12])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,12]=flower_Price_3[opa,12];//

                           Print(" hehe - cantidad de cambios total 12 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22483 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==4 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,16]=flower[1,16]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_18++;

               //Print(Ar_18," Ar_18 ",C_Ar_18);

               if(C_Ar_18>0)

                 {

                  Pr_C_Ar_16=Ar_18;

                 }

               if(C_Ar_18<0)

                 {

                  Pr_C_Ar_16=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,16]=flower_Price_3[opa,16]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22538 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22556 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22574 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,16]!=flower_Price_3[opa,16])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,16]=flower_Price_3[opa,16];//

                           Print(" hehe - cantidad de cambios total 16 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22620 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==5 && N_Centro_r==4 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//yugok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,20]=flower[1,20]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_23--;

               //Print(Ar_23," Ar_23 ",C_Ar_23);

               if(C_Ar_23>0)

                 {

                  Pr_C_Ar_20=Ar_23;

                 }

               if(C_Ar_23<0)

                 {

                  Pr_C_Ar_20=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,20]=flower_Price_3[opa,20]-1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22677 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22693 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22712 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,20]!=flower_Price_3[opa,20])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,20]=flower_Price_3[opa,20];//

                           Print(" hehe - cantidad de cambios total 20 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22758 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==6 && N_Centro_r==4 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,24]=flower[1,24]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_24++;

               //Print(Ar_24," Ar_24 ",C_Ar_24);

               if(C_Ar_24>0)

                 {

                  Pr_C_Ar_24=Ar_24;

                 }

               if(C_Ar_24<0)

                 {

                  Pr_C_Ar_24=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,24]=flower_Price_3[opa,10]+1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22813 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22831 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22849 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,24]!=flower_Price_3[opa,24])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,24]=flower_Price_3[opa,24];//

                           Print(" hehe - cantidad de cambios total 24 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 22895 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==7 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//yugok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,28]=flower[1,28]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_19--;

               //Print(Ar_19," Ar_19 ",C_Ar_19);

               if(C_Ar_19>0)

                 {

                  Pr_C_Ar_28=Ar_19;

                 }

               if(C_Ar_19<0)

                 {

                  Pr_C_Ar_28=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,28]=flower_Price_3[opa,28]-1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22950 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 22969 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 22986 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,28]!=flower_Price_3[opa,28])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,28]=flower_Price_3[opa,28];//

                           Print(" hehe - cantidad de cambios total 28 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 23032 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(yug==1 && N_Petalo==8 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//yugok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,32]=flower[1,32]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_20++;

               //Print(Ar_20," Ar_20 ",C_Ar_20);

               if(C_Ar_20>0)

                 {

                  Pr_C_Ar_32=Ar_20;

                 }

               if(C_Ar_20<0)

                 {

                  Pr_C_Ar_32=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,32]=flower_Price_3[opa,32]+1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=3;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23083 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23100 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23118 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,32]!=flower_Price_3[opa,32])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,32]=flower_Price_3[opa,32];//

                           Print(" hehe - cantidad de cambios total 32 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 23164 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==1 && N_Centro_r==1  && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,1]=flower[1,1]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_26++;

               //Print(Ar_26," Ar_26 ",C_Ar_26);

               if(C_Ar_26>0)

                 {

                  Pr_C_Ar_1=Ar_26;

                 }

               if(C_Ar_26<0)

                 {

                  Pr_C_Ar_1=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,1]=flower_Price_3[opa,1]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23221 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23239 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,1] ",flower_Price_3[opa,1]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23257 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,1]!=flower_Price_3[opa,1])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,1]=flower_Price_3[opa,1];//

                           Print(" hehe - cantidad de cambios total 1 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23303 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==2 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,5]=flower[1,5]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_29--;

               //Print(Ar_29," Ar_29 ",C_Ar_29);

               if(C_Ar_29>0)

                 {

                  Pr_C_Ar_5=Ar_29;

                 }

               if(C_Ar_29<0)

                 {

                  Pr_C_Ar_5=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,5]=flower_Price_3[opa,5]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23358 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23376 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,5] ",flower_Price_3[opa,5]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23394 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,5]!=flower_Price_3[opa,5])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,5]=flower_Price_3[opa,5];//

                           Print(" hehe - cantidad de cambios total 5 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23440 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==3 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,9]=flower[1,9]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_30++;

               //Print(Ar_30," Ar_30 ",C_Ar_30);

               if(C_Ar_30>0)

                 {

                  Pr_C_Ar_9=Ar_30;

                 }

               if(C_Ar_30<0)

                 {

                  Pr_C_Ar_9=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,9]=flower_Price_3[opa,9]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23495 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23513 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,9] ",flower_Price_3[opa,9]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23531 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,9]!=flower_Price_3[opa,9])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,9]=flower_Price_3[opa,9];//

                           Print(" hehe - cantidad de cambios total 9 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23577 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==4 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,13]=flower[1,13]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_25--;

               //Print(Ar_25," Ar_25 ",C_Ar_25);

               if(C_Ar_25>0)

                 {

                  Pr_C_Ar_13=Ar_25;

                 }

               if(C_Ar_25<0)

                 {

                  Pr_C_Ar_13=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,13]=flower_Price_3[opa,13]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23632 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23650 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,13] ",flower_Price_3[opa,13]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23668 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,13]!=flower_Price_3[opa,13])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,13]=flower_Price_3[opa,13];//

                           Print(" hehe - cantidad de cambios total 13 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23714 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==5 && N_Centro_r==1  && f_Bo_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,17]=flower[1,17]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_28--;

               //Print(Ar_28," Ar_28 ",C_Ar_28);

               if(C_Ar_28>0)

                 {

                  Pr_C_Ar_17=Ar_28;

                 }

               if(C_Ar_28<0)

                 {

                  Pr_C_Ar_17=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,17]=flower_Price_3[opa,17]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23770 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23788 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,17] ",flower_Price_3[opa,17]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23032 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,17]!=flower_Price_3[opa,17])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,17]=flower_Price_3[opa,17];//

                           Print(" hehe - cantidad de cambios total 17 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23852 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==6 && N_Centro_r==1 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,21]=flower[1,21]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_31--;

               //Print(Ar_31," Ar_31 ",C_Ar_31);

               if(C_Ar_31>0)

                 {

                  Pr_C_Ar_21=Ar_31;

                 }

               if(C_Ar_31<0)

                 {

                  Pr_C_Ar_21=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,21]=flower_Price_3[opa,21]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23907 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 23925 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,21] ",flower_Price_3[opa,21]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 23943 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,21]!=flower_Price_3[opa,21])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,21]=flower_Price_3[opa,21];//

                           Print(" hehe - cantidad de cambios total 21 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 23989 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==7 && N_Centro_r==1 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,25]=flower[1,25]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_32++;

               //Print(Ar_32," Ar_32 ",C_Ar_32);

               if(C_Ar_32>0)

                 {

                  Pr_C_Ar_25=Ar_32;

                 }

               if(C_Ar_32<0)

                 {

                  Pr_C_Ar_25=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,25]=flower_Price_3[opa,25]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24044 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24062 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,25] ",flower_Price_3[opa,25]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24080 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,25]!=flower_Price_3[opa,25])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,25]=flower_Price_3[opa,25];//

                           Print(" hehe - cantidad de cambios total 25 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 24126 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==8 && N_Centro_r==1 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,29]=flower[1,29]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_27--;

               //Print(Ar_27," Ar_27 ",C_Ar_27);

               if(C_Ar_27>0)

                 {

                  Pr_C_Ar_29=Ar_27;

                 }

               if(C_Ar_27<0)

                 {

                  Pr_C_Ar_29=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,29]=flower_Price_3[opa,29]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24181 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24199 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,29] ",flower_Price_3[opa,29]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24217 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,29]!=flower_Price_3[opa,29])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,29]=flower_Price_3[opa,29];//

                           Print(" hehe - cantidad de cambios total 29 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==1)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 24263 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==1 && N_Centro_r==2 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,2]=flower[1,2]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_26--;

               //Print(Ar_26," Ar_26 ",C_Ar_26);

               if(C_Ar_26>0)

                 {

                  Pr_C_Ar_2=Ar_26;

                 }

               if(C_Ar_26<0)

                 {

                  Pr_C_Ar_2=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,2]=flower_Price_3[opa,2]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24320 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24338 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,2] ",flower_Price_3[opa,2]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24356 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,2]!=flower_Price_3[opa,2])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,2]=flower_Price_3[opa,2];//

                           Print(" hehe - cantidad de cambios total 2 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 24402 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==2 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,6]=flower[1,6]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_29++;

               //Print(Ar_29," Ar_29 ",C_Ar_29);

               if(C_Ar_29>0)

                 {

                  Pr_C_Ar_6=Ar_29;

                 }

               if(C_Ar_29<0)

                 {

                  Pr_C_Ar_6=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,6]=flower_Price_3[opa,6]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24456 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24475 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,6] ",flower_Price_3[opa,6]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24493 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,6]!=flower_Price_3[opa,6])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,6]=flower_Price_3[opa,6];//

                           Print(" hehe - cantidad de cambios total 6 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 24539 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==3 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,10]=flower[1,10]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_30--;

               //Print(Ar_30," Ar_30 ",C_Ar_30);

               if(C_Ar_30>0)

                 {

                  Pr_C_Ar_10=Ar_30;

                 }

               if(C_Ar_30<0)

                 {

                  Pr_C_Ar_10=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,10]=flower_Price_3[opa,10]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24595 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24613 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,10] ",flower_Price_3[opa,10]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24631 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,10]!=flower_Price_3[opa,10])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,10]=flower_Price_3[opa,10];//

                           Print(" hehe - cantidad de cambios total 10 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 24677 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==4 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,14]=flower[1,14]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_25++;

               //Print(Ar_25," Ar_25 ",C_Ar_25);

               if(C_Ar_25>0)

                 {

                  Pr_C_Ar_14=Ar_25;

                 }

               if(C_Ar_25<0)

                 {

                  Pr_C_Ar_14=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,14]=flower_Price_3[opa,14]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24733 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24751 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,14] ",flower_Price_3[opa,14]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24769 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,14]!=flower_Price_3[opa,14])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,14]=flower_Price_3[opa,14];//

                           Print(" hehe - cantidad de cambios total 14 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 24815 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==5 && N_Centro_r==2 && f_Be_1==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //"+ " Arhitektura

               flower[1,18]=flower[1,18]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_28++;

               //Print(Ar_28," Ar_28 ",C_Ar_28);

               if(C_Ar_28>0)

                 {

                  Pr_C_Ar_18=Ar_28;

                 }

               if(C_Ar_28<0)

                 {

                  Pr_C_Ar_18=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,18]=flower_Price_3[opa,18]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24872 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 24890 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,18] ",flower_Price_3[opa,18]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 24908 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,18]!=flower_Price_3[opa,18])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,18]=flower_Price_3[opa,18];//

                           Print(" hehe - cantidad de cambios total 18 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uaa=1; uaa<=200000; uaa++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uaa," 24954 ");





                          }

                        if(flower_Price_3[uaa,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uaa,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uaa,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==6 && N_Centro_r==2 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,22]=flower[1,22]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_31++;

               //Print(Ar_31," Ar_31 ",C_Ar_31);

               if(C_Ar_31>0)

                 {

                  Pr_C_Ar_22=Ar_31;

                 }

               if(C_Ar_31<0)

                 {

                  Pr_C_Ar_22=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,22]=flower_Price_3[opa,22]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25009 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25027 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,22] ",flower_Price_3[opa,22]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25045 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,22]!=flower_Price_3[opa,22])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,22]=flower_Price_3[opa,22];//

                           Print(" hehe - cantidad de cambios total 22 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 25091 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==7 && N_Centro_r==2 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,26]=flower[1,26]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_32--;

               //Print(Ar_32," Ar_32 ",C_Ar_32);

               if(C_Ar_32>0)

                 {

                  Pr_C_Ar_26=Ar_32;

                 }

               if(C_Ar_32<0)

                 {

                  Pr_C_Ar_26=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,26]=flower_Price_3[opa,26]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25147 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25165 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,26] ",flower_Price_3[opa,26]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25183 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,26]!=flower_Price_3[opa,26])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,26]=flower_Price_3[opa,26];//

                           Print(" hehe - cantidad de cambios total 26 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 25229 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==8 && N_Centro_r==2 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,30]=flower[1,30]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_27++;

               //Print(Ar_27," Ar_27 ",C_Ar_27);

               if(C_Ar_27>0)

                 {

                  Pr_C_Ar_30=Ar_27;

                 }

               if(C_Ar_27<0)

                 {

                  Pr_C_Ar_30=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,30]=flower_Price_3[opa,30]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25285 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25303 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,30] ",flower_Price_3[opa,30]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25321 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,30]!=flower_Price_3[opa,30])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,30]=flower_Price_3[opa,30];//

                           Print(" hehe - cantidad de cambios total 30 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==2)

                    {

                     for(int uae=1; uae<=200000; uae++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uae," 25367 ");





                          }

                        if(flower_Price_3[uae,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uae,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uae,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==1 && N_Centro_r==3 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,3]=flower[1,3]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_26++;

               //Print(Ar_26," Ar_26 ",C_Ar_26);

               if(C_Ar_26>0)

                 {

                  Pr_C_Ar_3=Ar_26;

                 }

               if(C_Ar_26<0)

                 {

                  Pr_C_Ar_3=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,3]=flower_Price_3[opa,3]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25424 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25442 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,3] ",flower_Price_3[opa,3]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25460 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,3]!=flower_Price_3[opa,3])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,3]=flower_Price_3[opa,3];//

                           Print(" hehe - cantidad de cambios total 3 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==2 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,7]=flower[1,7]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_29--;

               //Print(Ar_29," Ar_29 ",C_Ar_29);

               if(C_Ar_29>0)

                 {

                  Pr_C_Ar_7=Ar_29;

                 }

               if(C_Ar_29<0)

                 {

                  Pr_C_Ar_7=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,7]=flower_Price_3[opa,7]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25543 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25561 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,7] ",flower_Price_3[opa,7]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25579 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,7]!=flower_Price_3[opa,7])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,7]=flower_Price_3[opa,7];//

                           Print(" hehe - cantidad de cambios total 7 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==3 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,11]=flower[1,11]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_30++;

               //Print(Ar_30," Ar_30 ",C_Ar_30);

               if(C_Ar_30>0)

                 {

                  Pr_C_Ar_11=Ar_30;

                 }

               if(C_Ar_30<0)

                 {

                  Pr_C_Ar_11=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,11]=flower_Price_3[opa,11]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25660 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25678 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,11] ",flower_Price_3[opa,11]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25696 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,11]!=flower_Price_3[opa,11])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,11]=flower_Price_3[opa,11];//

                           Print(" hehe - cantidad de cambios total 11 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==4 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,15]=flower[1,15]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_25--;

               //Print(Ar_25," Ar_25 ",C_Ar_25);

               if(C_Ar_25>0)

                 {

                  Pr_C_Ar_15=Ar_25;

                 }

               if(C_Ar_25<0)

                 {

                  Pr_C_Ar_15=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,15]=flower_Price_3[opa,15]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25777 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25795 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,15] ",flower_Price_3[opa,15]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25813 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,15]!=flower_Price_3[opa,15])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,15]=flower_Price_3[opa,15];//

                           Print(" hehe - cantidad de cambios total 15 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==5 && N_Centro_r==3 && f_Bo_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,19]=flower[1,19]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_28--;

               //Print(Ar_28," Ar_28 ",C_Ar_28);

               if(C_Ar_28>0)

                 {

                  Pr_C_Ar_19=Ar_28;

                 }

               if(C_Ar_28<0)

                 {

                  Pr_C_Ar_19=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,19]=flower_Price_3[opa,19]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25895 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 25913 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,19] ",flower_Price_3[opa,19]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 25931 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,19]!=flower_Price_3[opa,19])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,19]=flower_Price_3[opa,19];//

                           Print(" hehe - cantidad de cambios total 19 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==6 && N_Centro_r==3 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,23]=flower[1,23]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_31--;

               //Print(Ar_31," Ar_31 ",C_Ar_31);

               if(C_Ar_31>0)

                 {

                  Pr_C_Ar_23=Ar_31;

                 }

               if(C_Ar_31<0)

                 {

                  Pr_C_Ar_23=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,23]=flower_Price_3[opa,23]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26012 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26030 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,23] ",flower_Price_3[opa,23]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26048 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,23]!=flower_Price_3[opa,23])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,23]=flower_Price_3[opa,23];//

                           Print(" hehe - cantidad de cambios total 23 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==7 && N_Centro_r==3 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,27]=flower[1,27]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_32++;

               //Print(Ar_32," Ar_32 ",C_Ar_32);

               if(C_Ar_32>0)

                 {

                  Pr_C_Ar_27=Ar_32;

                 }

               if(C_Ar_32<0)

                 {

                  Pr_C_Ar_27=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,27]=flower_Price_3[opa,27]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26129 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26147 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,27] ",flower_Price_3[opa,27]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26165 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,27]!=flower_Price_3[opa,27])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,27]=flower_Price_3[opa,27];//

                           Print(" hehe - cantidad de cambios total 27 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==8 && N_Centro_r==3 && f_Be_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,31]=flower[1,31]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_27--;

               //Print(Ar_27," Ar_27 ",C_Ar_27);

               if(C_Ar_27>0)

                 {

                  Pr_C_Ar_31=Ar_27;

                 }

               if(C_Ar_27<0)

                 {

                  Pr_C_Ar_31=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,31]=flower_Price_3[opa,31]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26246 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26264 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,31] ",flower_Price_3[opa,31]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26282 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,31]!=flower_Price_3[opa,31])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,31]=flower_Price_3[opa,31];//

                           Print(" hehe - cantidad de cambios total 31 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            //

            if(zap==1 && N_Petalo==1 && N_Centro_r==4 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" - " Arhitektura

               flower[1,4]=flower[1,4]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_26--;

               //Print(Ar_26," Ar_26 ",C_Ar_26);

               if(C_Ar_26>0)

                 {

                  Pr_C_Ar_4=Ar_26;

                 }

               if(C_Ar_26<0)

                 {

                  Pr_C_Ar_4=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,4]=flower_Price_3[opa,4]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26365 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26383 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,4] ",flower_Price_3[opa,4]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26401 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,4]!=flower_Price_3[opa,4])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,4]=flower_Price_3[opa,4];//

                           Print(" hehe - cantidad de cambios total 4 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 26447 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==2 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,8]=flower[1,8]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_29++;

               //Print(Ar_29," Ar_29 ",C_Ar_29);

               if(C_Ar_29>0)

                 {

                  Pr_C_Ar_8=Ar_29;

                 }

               if(C_Ar_29<0)

                 {

                  Pr_C_Ar_8=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,8]=flower_Price_3[opa,8]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26502 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26520 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,8] ",flower_Price_3[opa,8]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26538 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,8]!=flower_Price_3[opa,8])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,8]=flower_Price_3[opa,8];//

                           Print(" hehe - cantidad de cambios total 8 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 26584 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==3 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,12]=flower[1,12]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_30--;

               //Print(Ar_30," Ar_30 ",C_Ar_30);

               if(C_Ar_30>0)

                 {

                  Pr_C_Ar_12=Ar_30;

                 }

               if(C_Ar_30<0)

                 {

                  Pr_C_Ar_12=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,12]=flower_Price_3[opa,12]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26639 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26657 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,12] ",flower_Price_3[opa,12]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26675 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,12]!=flower_Price_3[opa,12])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,12]=flower_Price_3[opa,12];//

                           Print(" hehe - cantidad de cambios total 12 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 26721 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==4 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,16]=flower[1,16]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_25++;

               //Print(Ar_25," Ar_25 ",C_Ar_25);

               if(C_Ar_25>0)

                 {

                  Pr_C_Ar_16=Ar_25;

                 }

               if(C_Ar_25<0)

                 {

                  Pr_C_Ar_16=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,16]=flower_Price_3[opa,16]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26776 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26793 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,16] ",flower_Price_3[opa,16]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26811 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,16]!=flower_Price_3[opa,16])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,16]=flower_Price_3[opa,16];//

                           Print(" hehe - cantidad de cambios total 16 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 26857 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==5 && N_Centro_r==4 && f_Be_0==1)//&& N_Gr20== 5>1E>48<> ?8A0BL 2 <0AA82

              {

               // Arch 1

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=2;//zapok

               zaryad=1;

               zapret_podachi_input=2;

               zapret_podachi_output=4;

               //" + " Arhitektura

               flower[1,20]=flower[1,20]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_28++;

               //Print(Ar_28," Ar_28 ",C_Ar_28);

               if(C_Ar_28>0)

                 {

                  Pr_C_Ar_20=Ar_28;

                 }

               if(C_Ar_28<0)

                 {

                  Pr_C_Ar_20=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,20]=flower_Price_3[opa,20]-1;//

                     flower_Price_3[opa,35]=1;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26913 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 26931 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,20] ",flower_Price_3[opa,20]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 26949 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,20]!=flower_Price_3[opa,20])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,20]=flower_Price_3[opa,20];//

                           Print(" hehe - cantidad de cambios total 20 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 26995 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==6 && N_Centro_r==4 && f_Bo_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=3;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,24]=flower[1,24]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_31++;

               //Print(Ar_31," Ar_31 ",C_Ar_31);

               if(C_Ar_31>0)

                 {

                  Pr_C_Ar_24=Ar_31;

                 }

               if(C_Ar_31<0)

                 {

                  Pr_C_Ar_24=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,24]=flower_Price_3[opa,24]+1;//

                     flower_Price_3[opa,35]=4;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {



                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27051 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27069 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,24] ",flower_Price_3[opa,24]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 27087 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,24]!=flower_Price_3[opa,24])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,24]=flower_Price_3[opa,24];//

                           Print(" hehe - cantidad de cambios total 24 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 27133 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==7 && N_Centro_r==4 && f_Be_1==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=4;//zapok

               zaryad=0;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" - " Arhitektura

               flower[1,28]=flower[1,28]-1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_32--;

               //Print(Ar_32," Ar_32 ",C_Ar_32);

               if(C_Ar_32>0)

                 {

                  Pr_C_Ar_28=Ar_32;

                 }

               if(C_Ar_32<0)

                 {

                  Pr_C_Ar_28=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,28]=flower_Price_3[opa,28]-1;//

                     flower_Price_3[opa,35]=3;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27188 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27206 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,28] ",flower_Price_3[opa,28]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 27224 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,28]!=flower_Price_3[opa,28])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,28]=flower_Price_3[opa,28];//

                           Print(" hehe - cantidad de cambios total 28 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 27270 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            if(zap==1 && N_Petalo==8 && N_Centro_r==4 && f_Bo_0==1)

              {

               insert_chanel_1=2;

               insert_chanel_2=4;

               output_Dir=1;//zapok

               zaryad=1;

               zapret_podachi_input=4;

               zapret_podachi_output=2;

               //" + " Arhitektura

               flower[1,32]=flower[1,32]+1;// 538AB@0F8O ?>40G8 7=0G5=8O

               C_Ar_27++;

               //Print(Ar_27," Ar_27 ",C_Ar_27);

               if(C_Ar_27>0)

                 {

                  Pr_C_Ar_32=Ar_27;

                 }

               if(C_Ar_27<0)

                 {

                  Pr_C_Ar_32=" ";

                 }

               if(flower_Price_3[opa,42]==0)// A;8 70?@5B =0 70?8AL 40==KE A=OB

                 {

                  // @>872>6C 70?8AL 2 <0AA82 4;O A<5=K @0AGQBG 2 1;>:5 C?@02;5=8O =0?@02;5=8 ":><?0A" #A;>285 - A;8 F5=B@0;L=K9 <0AA82 3 B> 87<5=5=8O 2=>AOBAO B>;L:> 2 0@E8B5:BC@C 3 5A;8 MB> 1 2 8;8 4 B> 87<5=5=8O ?@>2>4OBAO ?> 25<C <0AA82C

                  if(flower_Price_3[opa,33]==Price && flower_Price_3[opa,37]==N_Centro &&  flower_Price_3[opa,38]==N_Gr20)

                    {

                     flower_Price_3[opa,32]=flower_Price_3[opa,32]+1;//

                     flower_Price_3[opa,35]=2;//>A;54=OO ?5@5<5==0O

                     flower_Price_3[opa,36]=4;//>A;54=89 >;NA

                     Print("opa ",opa," flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     // 70?8AL 2@5<5==>3> <0AA820

                     if(flower_Price_3[opa,41]==0) //@5<5==>9 <0AA82 =5 ACI5AB2C5B 4;O MB>3> @0AGQB0

                       {

                        flower_Price_3[opa,41]=1;//ABL 70?8A8 2@5<5=8 2 <0AA825 flower_Price_3_TIME

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27325 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8 4;O 40;L=59H59 0=08B8:8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     if(flower_Price_3[opa,41]==1) //@5<5==>9 <0AA82 ACI5AB2C5B ?@>8725AB8 459AB28O// 70=>A8BAO 2@5<O A25G8 2 <0AA82

                       {

                        int ye;

                        for(ye=0; ye<=999; ye++)

                          {

                           if(Array_Errors==true)

                             {

                              Print(" Index Array ",ye," 27343 ");





                             }

                           if(flower_Price_3_TIME[opa,ye]==0)// index opa >?@545;O5B 2 <0AA825 ;8=8N ?> F5=5, 8=45:A ye <5AB> 2 <0AA825

                             {

                              break;

                             }

                          }

                        flower_Price_3_TIME[opa,ye]=iTime(Symbol(),PERIOD_M1,1);

                        int file_handle31=FileOpen(FileName26,FILE_READ|FILE_WRITE|FILE_BIN);

                        if(file_handle31>0)

                          {

                           FileSeek(file_handle31,0,SEEK_CUR);   // @8A208205BAO 2@5<O A25G8

                           uint test=FileWriteArray(file_handle31,flower_Price_3_TIME,0,WHOLE_ARRAY);

                           FileClose(file_handle31);

                          }

                       }

                     // D>@<C;0 70:@KB8O @0AGQB0

                     // @0AGQB=>5 7=0G5=85 ?> F5=5

                     Print(" flower_Price_3[opa,32] ",flower_Price_3[opa,32]);

                     for(int hehe=1; hehe<=200000; hehe++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",hehe," 27361 ");





                          }

                        //"5>@8O.

                        //;0AB5@ D>@<8@C5BAO 87 8 F5=.

                        //A;8 ?@>872>48BAO 87<5=5=85 2 40==KE 1 G0AB8 :;0AB5@0 B> 87<5=5=8O 4>;6=K 1KBL 70D8:A8@>20==K 2 <0AA825

                        //2 >AB0;L=KE 7 G0ABOE

                        if(flower_Price_3[hehe,39]==flower_Price_3[opa,39] && flower_Price_3[hehe,32]!=flower_Price_3[opa,32])//4>=07=0G5=85 40==KE 2 =CB@8 3@C??K. ?@>872>48BAO ?@0E>4 ?> 1075 ?> ?@87=0:C 3@C??K :;0AB5@0 :>B>@0O 8<55B 8 7=0G5=89 2 =CB@8 107K

                          {

                           flower_Price_3[hehe,32]=flower_Price_3[opa,32];//

                           Print(" hehe - cantidad de cambios total 32 ",hehe);

                          }

                       }

                     // flower_Price_3[opa,39]=grupo_8_claster_o;//3@C??0 87 8 F5;L=>5 G8A;>

                     // flower_Price_3[opa,40]=fract;//3@C??0 8 D@0:F8O

                     //if(flower_Price_3[opa,40]==N_Petalo_1)//A@02=8BL =><5@ D@0:F88 A =><5@>< ;5?5AB:0

                     //{

                     //}

                     // @>25@8BL A>>B25BA2C5B ;8 @0AGQB F5=K - D@0:B0;0 A =><5@>< ;5?5AB:0 G5@57 ?5@5<5==CN

                     //Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);

                     if(flower_Price_3[opa,1]!=0 && flower_Price_3[opa,2]!=0 && flower_Price_3[opa,3]!=0 && flower_Price_3[opa,4]!=0 && flower_Price_3[opa,5]!=0 && flower_Price_3[opa,6]!=0 && flower_Price_3[opa,7]!=0 && flower_Price_3[opa,8]!=0 && flower_Price_3[opa,9]!=0 && flower_Price_3[opa,10]!=0 && flower_Price_3[opa,11]!=0 && flower_Price_3[opa,12]!=0 && flower_Price_3[opa,13]!=0 && flower_Price_3[opa,14]!=0 && flower_Price_3[opa,15]!=0 && flower_Price_3[opa,16]!=0 && flower_Price_3[opa,17]!=0 && flower_Price_3[opa,18]!=0 && flower_Price_3[opa,19]!=0 && flower_Price_3[opa,20]!=0 && flower_Price_3[opa,21]!=0 && flower_Price_3[opa,22]!=0 && flower_Price_3[opa,23]!=0 && flower_Price_3[opa,24]!=0 && flower_Price_3[opa,25]!=0 && flower_Price_3[opa,26]!=0 && flower_Price_3[opa,27]!=0 && flower_Price_3[opa,28]!=0 && flower_Price_3[opa,29]!=0 && flower_Price_3[opa,30]!=0 && flower_Price_3[opa,31]!=0 && flower_Price_3[opa,32]!=0)

                       {

                        //@8 CA;>288 70?>;=5=88 2A5E 32 OG55: AB0=>:0 70?8A8 4;O 0=0;870

                        flower_Price_3[opa,42]=1;

                        int file_handle30=FileOpen(FileName27,FILE_READ|FILE_WRITE," ");

                        if(file_handle30>0)

                          {

                           FileSeek(file_handle30,0,SEEK_END);   // 0AGQB 8A?>;=5=. 0?8AL 70:@KB0

                           FileWrite(file_handle30,Symbol()," T ",iTime(Symbol(),0,1)," check close caunt ",flower_Price_3[opa,42], " index array  flower_Price_3 ",opa);

                           FileClose(file_handle30);

                          }

                       }

                    }

                  // 0AGQB 4;O 0@E8B5:BC@ 1,2,4

                  //"5>@8O.

                  //@>872>48BAO 87<5=5=8O ?0@0<5B@>2 >A;54=OO ?5@5<5==0O 8 ?>A;54=8N ?>;NA 2 0@E8B5:BC@0E

                  //1 2 8 4 ?> 2A59 1075 A F5;LN ?5@5?>40G8 7=0G5=89 =0 ?5@5@0AGQB

                  // 8 B>;L:> 2 0@E8B5:BC@5 3 40==K5 7=0G5=8O >AB0NBAO ;>:0;L=>

                  // 40;55 8A?>;L7>20BL 40==>5 ?@028;> ?@8 F5=B@0;870F88 0@E8B5:BC@ 1 2 8 4 A A>>B25BAB2CNI8<8 A0B5;8B0<8

                  if(N_Centro_r==4)

                    {

                     for(int uau=1; uau<=200000; uau++)

                       {

                        if(Array_Errors==true)

                          {

                           Print(" Index Array ",uau," 27407 ");





                          }

                        if(flower_Price_3[uau,37]==flower_Price_3[opa,37]) //40==K5 ?> MB><C ?@87=0:C C65 87<5=5=K 28H5

                          {

                           // @8A20820=85 >A;54=53> 7=0G5=8O ?5@5<5==>9 8 ?>;NA0 ?> 1075

                           flower_Price_3[uau,35]=flower_Price_3[opa,35];//>A;54=OO ?5@5<5==0O

                           flower_Price_3[uau,36]=flower_Price_3[opa,36];

                           Print(">A;54=OO ?5@5<5==0O ",flower_Price_3[opa,35]," >A;54=89 >;NA ",flower_Price_3[opa,36]);//>A;54=89 >;NA//>A;54=89 >;NA

                          }

                       }

                    }

                 }

               else

                  Print("opa ",opa," Datos de acceso al block no coinciden Comprobar ");

              }

            // Impresion de juego de palabras

            Print(Pr_C_Ar_1," ",Pr_C_Ar_2," ",Pr_C_Ar_3," ",Pr_C_Ar_4," ",Pr_C_Ar_5," ",Pr_C_Ar_6," ",Pr_C_Ar_7," ",Pr_C_Ar_8," ",Pr_C_Ar_9," ",Pr_C_Ar_10," ",Pr_C_Ar_11," ",Pr_C_Ar_12," ",Pr_C_Ar_13," ",Pr_C_Ar_14," ",Pr_C_Ar_15," ",Pr_C_Ar_16," ",Pr_C_Ar_17," ",Pr_C_Ar_18," ",Pr_C_Ar_19," ",Pr_C_Ar_20," ",Pr_C_Ar_21," ",Pr_C_Ar_22," ",Pr_C_Ar_23," ",Pr_C_Ar_24," ",Pr_C_Ar_25," ",Pr_C_Ar_26," ",Pr_C_Ar_27," ",Pr_C_Ar_28," ",Pr_C_Ar_29," ",Pr_C_Ar_30," ",Pr_C_Ar_31," ",Pr_C_Ar_32," ");

            Petalos_32=0;

            for(int ia=1; ia<=32; ia++)

              {

               if(Array_Errors==true)

                 {

                  Print(" Index Array ",ia," 27431 ");





                 }

               if(flower[1,ia]!=0)

                 {

                  Petalos_32=Petalos_32+1;//!:;04K20=85 32 8AB8= 2 <0AA825

                  //Print("Petalos_32 ",Petalos_32);

                 }

               if(flower[1,ia]==0)

                 {

                  break;

                 }

              }

            //Print("1 ",flower[1,1]," 2 ",flower[1,2]," 3 ",flower[1,3]," 4 ",flower[1,4]," 5 ",flower[1,5]," 6 ",flower[1,6]," 7 ",flower[1,7]," 8 ",flower[1,8]," 9 ",flower[1,9]," 10 ",flower[1,10]," 11 ",flower[1,11]," 12 ",flower[1,12]," 13 ",flower[1,13]," 14 ",flower[1,14]," 15 ",flower[1,15]," 16 ",flower[1,16]," 17 ",flower[1,17]," 18 ",flower[1,18]," 19 ",flower[1,19]," 20 ",flower[1,20]," 21 ",flower[1,21]," 22 ",flower[1,22]," 23 ",flower[1,23]," 24 ",flower[1,24]," 25 ",flower[1,25]," 26 ",flower[1,26]," 27 ",flower[1,27]," 28 ",flower[1,28]," 29 ",flower[1,29]," 30 ",flower[1,30]," 31 ",flower[1,31]," 32 ",flower[1,32]);

            //>A;5 A@02=5=8O <0AA820 2KO2;O5< G8A;> 32 5A;8 4>AB83=CB> B> F25B>: A:;0;AO

            if(Petalos_32==32)

              {

               flower_Plus=1;

              }

           }

         //@>25@:0 =0 A1>@ 0@E8B5:BC@=>9 OG59:8

         //----- @>872>6C 70?8AL <0AA82820 2 8=0@=K9 $08;

         int file_handle25=FileOpen(FileName18,FILE_READ|FILE_WRITE|FILE_BIN);

         if(file_handle25>0)

           {

            FileSeek(file_handle25,0,SEEK_CUR);

            FileWriteArray(file_handle25,Form_Patern_Finder,0,WHOLE_ARRAY);

            FileClose(file_handle25);

           }

         int file_handle26=FileOpen(FileName10,FILE_READ|FILE_WRITE|FILE_BIN);

         if(file_handle26>0)

           {

            FileSeek(file_handle26,0,SEEK_CUR);

            FileWriteArray(file_handle26,DT_Form_Patern_Finder,0,WHOLE_ARRAY);

            FileClose(file_handle26);

           }

         //0?8AL A>>B25BAB28O @E8B5:BC@K

         if(N_Centro==1 && Be_1_C==1 && PipsNumber==1 && Arch3==1)

           {

            // @8A20820=85 B5:AB>2>3> 7=0G5=8O

           }

         // ------ Printing Collected Values   to File ------

         if(bodypips[MaxInd_bodypips,0]>price_Menus_one && (bodypips[MaxInd_bodypips,0]>price_plus ||bodypips[MaxInd_bodypips,0]<price_plus))

           {

            int file_handle14=FileOpen(FileName14,FILE_READ|FILE_WRITE," ");

            if(file_handle14>0)

              {

               FileSeek(file_handle14,0,SEEK_END);

               FileWrite(file_handle14,Symbol()," T ",iTime(Symbol(),0,1),/*" Var1Wr ",Var1Wr," B 3 ",*/Bo," D x ",napravlenie," arr Napr ",sev_p,vost_p,yug_p,zap_p," Var1 ",Var1_Be_0,Var1_Bo_0,Var1_Be_1,Var1_Bo_1," Var2 ",Var2_Be_0_p,Var2_Bo_0_p,Var2_Be_1_p,Var2_Bo_1_p,/*" C16V x ",Var_I,"Face",face,*//*" BlockNum ",BlockNum,*/" F X ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8]," PR ",bodypips[MaxInd_bodypips,0]," N_C ",N_Centro," N_Gr20 ",N_Gr20," N_Pet ",N_Petalo, " fP ",flower_Plus,/*" In_Ch1 ",insert_chanel_1," In_Ch2 ",insert_chanel_2," out_Dir ",output_Dir," imp ",zaryad,*/" Dir z ",z_napravlenie," F Z ",z_Sev[1,1],z_Sev[1,2],z_Sev[1,3],z_Sev[1,4],z_Sev[1,5],z_Sev[1,6],z_Sev[1,7],z_Sev[1,8]/*, " PM 1 ",Form_Patern_Finder[w,11]," 2 ",Form_Patern_Finder[w,26]," 3 ",Form_Patern_Finder[w,41]," 4 ",Form_Patern_Finder[w,56]," 5 ",Form_Patern_Finder[w,71]," 6 ",Form_Patern_Finder[w,86]," 7 ",Form_Patern_Finder[w,101]," 8 ",Form_Patern_Finder[w,116] " X ",Gx," Y ",Gy/*" I CONT ",bodypips[MaxInd_bodypips,1]," O ",Onda1/*" ERR2 ", Sterr2*/);

               FileClose(file_handle14);

              }

           }

         if(bodypips[MaxInd_bodypips,0]<price_Menus_one && (bodypips[MaxInd_bodypips,0]>price_minus || bodypips[MaxInd_bodypips,0]<price_minus))

           {

            int file_handle14=FileOpen(FileName14,FILE_READ|FILE_WRITE," ");

            if(file_handle14>0)

              {

               FileSeek(file_handle14,0,SEEK_END);

               FileWrite(file_handle14,Symbol()," T ",iTime(Symbol(),0,1),/*" Var1Wr ",Var1Wr," B 3 ",*/Be,/*"Face",face,*/" D x ",napravlenie," arr Napr ",sev_p,vost_p,yug_p,zap_p," Var1 ",Var1_Be_0,Var1_Bo_0,Var1_Be_1,Var1_Bo_1," Var2 ",Var2_Be_0_p,Var2_Bo_0_p,Var2_Be_1_p,Var2_Bo_1_p,/*" C16V x ",Var_I," BlockNum ",BlockNum,*/" F X ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8]," PR ",bodypips[MaxInd_bodypips,0]," N_C ",N_Centro," N_Gr20 ",N_Gr20," N_Pet ",N_Petalo, " fP ",flower_Plus,/*" In_Ch1 ",insert_chanel_1," In_Ch2 ",insert_chanel_2," out_Dir ",output_Dir," imp ",zaryad,*/" Dir z ",z_napravlenie," F Z ",z_Sev[1,1],z_Sev[1,2],z_Sev[1,3],z_Sev[1,4],z_Sev[1,5],z_Sev[1,6],z_Sev[1,7],z_Sev[1,8]/*," PM 1 ",Form_Patern_Finder[w,11]," 2 ",Form_Patern_Finder[w,26]," 3 ",Form_Patern_Finder[w,41]," 4 ",Form_Patern_Finder[w,56]," 5 ",Form_Patern_Finder[w,71]," 6 ",Form_Patern_Finder[w,86]," 7 ",Form_Patern_Finder[w,101]," 8 ",Form_Patern_Finder[w,116]/* " X ",Gx," Y ",Gy/*" I CONT ",bodypips[MaxInd_bodypips,1]," O ",Onda1/*" ERR2 ", Sterr2*/);

               FileClose(file_handle14);

              }

           }

        }

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

      //| Sunflower 1/0 - Cluster flower                                   |

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

      //Print(" PR ",bodypips[MaxInd_bodypips,0]);

      //Comment(" Fly X ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8], " PR ",bodypips[MaxInd_bodypips,0]," Fly Z ",z_Sev[1,1],z_Sev[1,2],z_Sev[1,3],z_Sev[1,4],z_Sev[1,5],z_Sev[1,6],z_Sev[1,7],z_Sev[1,8]);

      //---K;8 >?@545;5=K A8=0?A=K5 A2O78 :>B>@K5 <>3CB ?>:07K20BL =0 A<5=C B5=45=F88---//

      //---"8? 1 Bo_0/Bo_1

      //---"8? 2 Be_0/Be_1

      //---K;> 2KO2;5==> G> =C6=> >1@0B8BL 2=8<0=85 =0 F5=C :064>3> B8?0 8 8=45:A :>=B59=5@0.

      // 0AG8B0BL 4> :>=F0 MB>B <5E0=87< =0 ?>40G5 2 ?5@5<5==KE "0:65 @0AG8B0BL 2B>@>9 <5E0=87< 8 A@02=8BL @07=8FK AC<< 8 2KG8B0=89 F8D5@.

      //0 @07=8F5 F8D5@ 2K25AB8 8=48:0B>@

      // @825=B8BL 1C:25==CN ?>40GC 2 <5E0=87<

      //Print(" IFb1 ",IFb1);

      //if(IFb1==1441)//0?8AL 40==KE 2 0AA82 8 >1=C;5=85 ?5@28GL=>3> <0AA820 >48= @07 2 ACB:8

      // {

      //-----

      //bintoarrTIME[IFb1]=iTime(Symbol(),0,1);//8HC 2@5<O ?@54K4CI59 0=0;878@C5<>9 A25G8 2 <0AA82

      //Print( bintoarrTIME[IFb1]);

      //-----

      //int i;

      //---703@C60N 2 2 <0AA820 40==K5 > 8=0@=>< :>45, @5<5=8 8 &5=5

      //int file_handle8=FileOpen(FileName8,FILE_READ|FILE_BIN);

      //Print(" file_handle8 ",file_handle8);//Monitoring

      //if(file_handle8>0)

      //{

      //FileSeek(file_handle8,0,SEEK_CUR);

      //FileReadArray(file_handle8,BinaryToArray,0,WHOLE_ARRAY);//703@C7:0 40==KE 87 D09;0 2 <0AA82 40==KE

      //FileClose(file_handle8);

      //}

      //---03@C7:0 2 <0AA82 107K 40==KE > ?>2B>@0E 18=0@=KE :;NG59

      //int file_handle11=FileOpen(FileName11,FILE_READ|FILE_BIN);

      //Print(" file_handle8 ",file_handle8);//Monitoring

      //if(file_handle11>0)

      //{

      //FileSeek(file_handle11,0,SEEK_CUR);

      //FileReadArray(file_handle11,binrepit,0,WHOLE_ARRAY);//40==K > ?>;CG5=KE ?>2B>@0E.!

      //FileClose(file_handle11);

      //}

      //int file_handle9=FileOpen(FileName9,FILE_READ|FILE_BIN);

      //if(file_handle9>0)

      //{

      // FileSeek(file_handle9,0,SEEK_CUR);

      // FileReadArray(file_handle9,BinaryToArrayBID,0,WHOLE_ARRAY);

      // FileClose(file_handle9);

      //}

      // int file_handle10=FileOpen(FileName10,FILE_READ|FILE_BIN);

      //if(file_handle10>0)

      // {

      //FileSeek(file_handle10,0,SEEK_CUR);

      //FileReadArray(file_handle10,BinaryToArrayTIME,0,WHOLE_ARRAY);

      //FileClose(file_handle10);

      //}

      //-------------------

      //for(i=1; i<32000; i++) //>;CG5=85 8=45:A0 2 70?>;=5=>< <0AA820

      //{

      //if(BinaryToArray[i,0]==10)

      // {

      // break;

      //}

      // }

      //Print("index ",i);

      //--5@54 70?8ALN 2 D09;K =C6=> D8;LB@CN =0 4C1;8 A ?5@5=>A>< 2> 2@5<5==K9 <0AA82

      //int ia=0;//8=45:A 4;O ?5@51>@0 <0AA820

      //int ib=0;//8=45:A 4;O ?5@51>@0 <0AA820

      //int ic=0;//8=45:A 4;O ?5@51>@0 <0AA820

      //int id=0;//8=45:A 4;O ?5@51>@0 <0AA820

      //int iei=0;

      //int ie=1;

      //for(ia=1; ia<20/*1442*/; ia++) //>;CG5=85 8=45:A0 2 70?>;=5=>< <0AA820

      //{

      //Print("IQB ia ",ia);

      // for(ib=1; ib<20/*32001*/; ib++) //>;CG5=85 8=45:A0 2 70?>;=5=>< <0AA820

      // {

      //Print("IQB ib ",ib);

      // for(ic=0; ic<20/*1002*/; ic++) //>;CG5=85 8=45:A0 2 70?>;=5=>< <0AA820

      //  {

      // Print("IQB ia ",ia,"IQB ib ",ib,"IQB ic ",ic);

      //Print(" BinaryToArray[ib,ic] ",BinaryToArray[ib,ic]," bintoarr[ia,ic] ",bintoarr[ia,ic]," bintoarr[1,0] ",bintoarr[1,0]," bintoarr[1,1] ",bintoarr[1,1]," bintoarr[2,0] ",bintoarr[2,0]," bintoarr[2,1] ",bintoarr[2,1]);

      //if(BinaryToArray[ib,ic]!=bintoarr[ia,ic])//IC =5 @025=AB2> 2 AB@>:5.A;8 E>BL >48= M;5<5=B =5 @025= B> I8B0BL :0: =>20O 70?8AL

      //{

      //-----8A0BL 2> 2@5<5==K9 D08; >BD8;LB@>20==K5 A83=0;K A 40;L=59H59 4>70?8ALN

      //5@5=>A8BL 2> 2@5<<5==K9 <0AA82 2A5 ?0@0<5B@K

      //  for(id=0; id<20/*1002*/; id++)

      //  {

      // permis=1;

      // iei=ie;

      //temparrbin[ie,id]=bintoarr[ia,id];//@8A20820N 2> 2@5<5==K9 <0AA82 =5 ?>2B>@5=85 ?>;CG5==>5 2 @57C;LB0B5 >BA520

      //temparrbid[ie,id]=bintoarrBID[ia,id];//F5=0

      //temparrtime[ie]=bintoarrTIME[ia];//

      // Print(" temparrbin[ie,id] ",temparrbin[ie,id]);

      //Print(" temparrbid[ie,id] ",temparrbid[ie,id]);

      // Print(" temparrtime[ie] ",temparrtime[ie]);

      //Print(" ie ",ie," id ",id);

      // Print("IQB ie ",ie,"IQB id ",id);

      // }

      //ie++;//#25;8G820N =><5@ AB@>:8 =0 1

      //---H81:02 4>ABC?5 2 <0AA82

      //if(ie>1441)//A;8 85 1442 B> ?@5@20BL DC=:F8N

      //{

      // Print(" ie ",ie," Break ");

      // break;

      //  }

      // Print(" ie ",ie);//

      //}

      //if(permis==1)

      // {

      //  break;

      // }

      //break;

      //if(iei<ie)

      //{

      //break;

      //}

      //----?8A0BL A@02=5=85 =0 A>2<5AB8<>ABL. A;8 A>2<5I05BAO A83=0; B> ?8A0BL B>;L:> 2@5<O >B:@KB8O A25G8 2 <0AA82.

      //}

      //}

      //}

      //file_handle8=FileOpen(FileName8,FILE_READ|FILE_WRITE|FILE_BIN);

      //Print(" file_handle8 ",file_handle8);

      //if(file_handle8>0)

      // {

      // FileSeek(file_handle8,0,SEEK_CUR);

      // FileWriteArray(file_handle8,temparrbin,i,WHOLE_ARRAY);

      // FileClose(file_handle8);

      // }

      //int file_handle9=FileOpen(FileName9,FILE_READ|FILE_WRITE|FILE_BIN);

      // if(file_handle9>0)

      // {

      // FileSeek(file_handle9,0,SEEK_CUR);

      //FileWriteArray(file_handle9,temparrbid,i,WHOLE_ARRAY);

      //FileClose(file_handle9);

      // }

      // int file_handle10=FileOpen(FileName10,FILE_READ|FILE_WRITE|FILE_BIN);

      //if(file_handle10>0)

      //{

      // FileSeek(file_handle10,0,SEEK_CUR);

      //FileWriteArray(file_handle10,temparrtime,i,WHOLE_ARRAY);

      //FileClose(file_handle10);

      // }

      //---@>2>6C 70?8AL 2 107C 40==KE >B>1@0==KE ?>2B>@>2 - 2 107C =C6=> ?8A0BL :0: 2@5<O =>2KE :;NG59 B0: 8 2@5<O ?>2B>@5=89

      //------------------------------------

      //ArrayInitialize(bintoarr,10);//5@5703@C7:0 <0AA820 ?>A;5 >B3@C7:8 2 107C

      //ArrayInitialize(temparrbin,10);

      //ArrayInitialize(temparrbid,10);

      //ArrayInitialize(temparrtime,10);

      //ArrayInitialize(bintoarrBID,10);

      //ArrayInitialize(bintoarrTIME,10);

      //IFb1=0;//=45:A AB@>:8 CAB0=02;820N =0 1

      //IFb2=0;//0G8=0N ?8A0BL 2 AB@>:5 A 0 ?>78F88

      //}

      //if(IFb1<1441)

      // {

      //  bintoarrTIME[IFb1]=iTime(Symbol(),0,1);//8HC 2@5<O ?@54K4CI59 0=0;878@C5<>9 A25G8 2 <0AA82

      //  IFb1++;//#25;8G820=85 7=0G5=8O AB@>:8 2 <0AA825 ?@8 =0ABC?;5=88 =>2>3> 10@0.0?8AL 1C45B?@>872>48BAO 2 A;54CNICN AB@>:C

      // IFb2=0;//0G8=0N ?8A0BL 2 AB@>:5 A 0 ?>78F88

      // }

      //Print(" IFb1 ",IFb1," IFb2 ", IFb2);//>=8B>@8=3 8=45:A>2 <0AA820

      //---------------------

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

      //|END Sunflower -  sunflower seeds architecture                     |

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

      ArrayInitialize(komp1,0);

      ArrayInitialize(kompa,10);

      //---------------------------------------------

      int inr;

      for(inr=1; inr<=99998; inr++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",inr," 27665 ");





           }

         if(body[inr,0]==10)

           {

            break;

           }

        }

      int inr1=inr-1;

      for(int inb=1; inb<inr1; inb++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",inb," 27679 ");





           }

         if(body[inb,0]>0  &&  body[inb+1,0]>0)

           {

            if(body[inb,0]==body[inb+1,0])

              {

               if((body[inb,1]==1 && body[inb+1,1]==0) || (body[inb,1]==0 && body[inb+1,1]==1))

                 {

                  komp1[inb]=body[inb,0];

                  kompa[inb]=body[inb,0];

                 }

              }

           }

         if(body[inb,0]>0 && body[inb+1,0]==0)

           {

            if(body[inb,0]==body[inb+1,3])

              {

               if((body[inb,1]==1 && body[inb+1,1]==0) || (body[inb,1]==0 && body[inb+1,1]==1))

                 {

                  komp1[inb]=body[inb,0];

                  kompa[inb]= body[inb,0];

                 }

              }

           }

         if(body[inb,0]==0 && body[inb+1,0]>0)

           {

            if(body[inb,3]==body[inb+1,0])

              {

               if((body[inb,1]==1 && body[inb+1,1]==0) || (body[inb,1]==0 && body[inb+1,1]==1))

                 {

                  komp1[inb]=body[inb,0];

                  kompa[inb]= body[inb,0];

                 }

              }

           }

        }

      int MinPriceSintezINDEX=ArrayMinimum(kompa,WHOLE_ARRAY,0);

      double MinPriceSintez=(kompa[MinPriceSintezINDEX]);

      //---------------------------------------

      int MaxPriceSintezINDEX=ArrayMaximum(kompa,WHOLE_ARRAY,0);

      double MaxPriceSintez=(kompa[MaxPriceSintezINDEX]);

      int file_handle17=FileOpen(FileName17,FILE_READ|FILE_WRITE," ");

      if(file_handle17>0)

        {

         FileSeek(file_handle17,0,SEEK_END);

         FileWrite(file_handle17,Symbol()," MinPriceSintezINDEX ",MinPriceSintezINDEX," MaxPriceSintezINDEX ",MaxPriceSintezINDEX);

         FileClose(file_handle17);

        }

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

      //|END Counter Summa 1/0 -   Synapsys Indicator                      |

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

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

      //|    Counter Summa 1/0 - MaxBinNumber 1/0                          |

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

      //-------Arrays------

      ArrayInitialize(ArrayMaximum_0,0);

      ArrayInitialize(ArrayMaximum_1,0);

      //---------------Contador  de ARRAY Identificacion de Index. Se identifica fin de relleno de datos

      int i;

      for(i=1; i<=99998; i++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",i," 27744 ");





           }

         if(body[i,0]==10)

           {

            //Print(i);//index maximum donde acava array hay que restar 1 para saber ultimo dato

            break;

           }

        }

      //--------------

      int If=i-1;

      //-------------------------------------

      int count_1=1;

      int count_0=1;

      int in1;//Index

      int ArM1=1;

      int ArM0=1;

      int Permis=1;

      //Print(If);

      for(in1=1; in1<If; in1++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",in1," 27768 ");





           }

         if(Permis==1)

           {

            if(body[in1,1]==body[in1+1,1] && body[in1,1]==1 && body[in1+1,1]==1)

              {

               count_1++;

              }

            if(body[in1,1]!=body[in1+1,1])

              {

               ArrayMaximum_1[ArM1]=count_1;//4

               ArM1++;

               Permis=0;

               in1++;

               count_1=1;

              }

           }

         if(Permis==0)

           {

            if(body[in1,1]==body[in1+1,1] && body[in1,1]==0 && body[in1+1,1]==0)

              {

               count_0++;

              }

            if(body[in1,1]!=body[in1+1,1])

              {

               ArrayMaximum_0[ArM0]=count_0;

               ArM0++;

               Permis=1;

               count_0=1;

              }

           }

        }

      MaxBinNumber_1Index=ArrayMaximum(ArrayMaximum_1,WHOLE_ARRAY,0);

      MaxBinNumber_0Index=ArrayMaximum(ArrayMaximum_0,WHOLE_ARRAY,0);

      MaxBinNumber_1=(ArrayMaximum_1[MaxBinNumber_1Index]);

      MaxBinNumber_0=(ArrayMaximum_0[MaxBinNumber_0Index]);

      // ----- Compensation indicator-----

      int compensation_1,compensation_2;

      compensation_1=Maximum-MaxBinNumber_1;

      compensation_2=Minimum+MaxBinNumber_0;

      //Print(" compensation_1 ",compensation_1);

      //Print(" compensation_2 ",compensation_2);

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

      //| END Counter Summa 1/0 - MaxBinNumber 1/0                          |

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

      // --------- Test of received values   --------

      //Print(" TIME ",iTime(Symbol(),0,1));

      //Print(" Counter_Summa0 ",Counter_Summa0," Counter_Summa1 ",Counter_Summa1);//OK

      //Print(" IndexMaximum ",IndexMaximum," IndexMinimum ",IndexMinimum);//

      //Print(" Maximum ",Maximum," Minimum ",Minimum);

      //Print(" zeroindex ",zeroindex);

      //Print(" MinPriceSintezINDEX ",MinPriceSintezINDEX," MaxPriceSintezINDEX ",MaxPriceSintezINDEX);

      //Print(" Sw_On ",Sw_On);

      //Print(" MaxBinNumber_1 ",MaxBinNumber_1," MaxBinNumber_0 ",MaxBinNumber_0);

      //Print(" compensation_1 ",MaxMinArr[IndexMaximum]-MaxBinNumber_1," compensation_2 ",MaxMinArr[IndexMinimum]+MaxBinNumber_0);

      //Print("Bo ",Bo," Be ",Be);

      //Print("LasData ",LasData);

      //------resepcion de indice del 0

      for(i=1; i<=8; i++)

        {

         if(Array_Errors==true)

           {

            Print(" Index Array ",i," 27832 ");





           }



         if(MaxMinArr[i,1]==0)

           {

            zeroindex=i;

            break;

           }

        }

      file_handle17=FileOpen(FileName17,FILE_READ|FILE_WRITE," ");

      if(file_handle17>0)

        {

         FileSeek(file_handle17,0,SEEK_END);

         FileWrite(file_handle17,Symbol()," zeroindex ",zeroindex);

         FileClose(file_handle17);

        }

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

      //|    Counter Summa 1/0 - MaxBinNumber 1/0   Signal processing      |

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

      // ------------- Signal processing with classification and writing to the bbb_compare array ----------------- //

      if(Rez_BE==0)

        {

         int ibbb;

         for(ibbb=1; ibbb<=1680; ibbb++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",ibbb," 27861 ");





              }

            if(one_BE>15 && bbb[ibbb,0]==Maximum-MaxBinNumber_1 && bbb[ibbb,1]==Minimum+MaxBinNumber_0)

              {

               int ibb;

               for(ibb=1; ibb<=9998; ibb++)

                 {

                  if(Array_Errors==true)

                    {

                     Print(" Index Array ",ibb," 27872 ");





                    }

                  if(bbb_compare[ibb,0,ibbb]==0)

                    {

                     bbb_compare[ibb,0,ibbb]=iarw;

                     int SignalCuant=bbb_compare[1,1,ibbb];

                     SignalCuant++;

                     bbb_compare[1,1,ibbb]=SignalCuant;

                     int file_handle13=FileOpen(FileName13,FILE_READ|FILE_WRITE|FILE_BIN);

                     //Print("HANDLE ",file_handle13);

                     if(file_handle13>0)

                       {

                        FileSeek(file_handle13,0,SEEK_CUR);

                        uint test =FileWriteArray(file_handle13,bbb_compare,0,WHOLE_ARRAY);

                        //Print("WRITED ",test);

                        FileClose(file_handle13);

                       }

                     break;

                    }

                 }

              }

           }

        }

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

      //| END Counter Summa 1/0 - MaxBinNumber 1/0   Signal processing     |

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

      //-----1@>A ?5@5<5==KE 8 <0AA820

      Counter1=0;      //obnulyaem peremennye

      Counter1_1     = 0;

      Counter0       = 0;

      Counter0_1     = 0;

      Counter_Summa1 = 0;

      Counter_Summa0 = 0;

      Counter=0;

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

      //|Counter Summa 1/0 - Generation of initial data                    |

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

      ArrayInitialize(body,10);

      //Print("TEST1  WRITDATA "," resOperandMax==PriceZero ",resOperandMax==PriceZero," Maximum ",Maximum," Minimum ",Minimum," Rez_BE ",Rez_BE);

      if(resOperandMax==PriceZero && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && Rez_BE==0)

        {

         //TextVisualIndicator="SHORT";

         //Alert("SHORT");

         //string signalgroup=IntegerToString(zeroindex);

         //string Hora=TimeToString(iTime(Symbol(),0,1));

         //string levelnotificacion=DoubleToString(one_BE);

         //string message1=" TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion+" SHORT ";

         //SendNotification(message1);

         //TelegramSendText(apikey,chatid,message1);

         //SendNotification("SHORT");

         //SendNotification(Hora);

         //SendNotification(levelnotificacion);

         ONE_BE=(int)one_BE;

         file_handle4=FileOpen(FileName4,FILE_READ|FILE_WRITE," ");

         if(file_handle4>0)

           {

            FileSeek(file_handle4,0,SEEK_END);

            FileWrite(file_handle4," NEW SIGNAL ");

            // FileWrite(file_handle4,"___________________________________________________________");

            // FileWrite(file_handle4," SIMBOL |         TIME          | FONT | DIRECTION | PUSH |");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | "," SHORT "," | ",zeroindex," | ");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileClose(file_handle4);

           }

        }

      //---LONG Posicion

      //Print("TEST2  WRITDATA "," resOperandMin==PriceZero ",resOperandMin==PriceZero," Maximum ",Maximum," Minimum ",Minimum," Rez_BE ",Rez_BE);

      if(resOperandMin==PriceZero && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && Rez_BE==0)

        {

         //TextVisualIndicator="LONG";

         //Alert("LONG");

         //string signalgroup=IntegerToString(zeroindex);

         //string Hora1=TimeToString(iTime(Symbol(),0,1));

         //string levelnotificacion1=DoubleToString(one_BE);

         //string message2=" TIME "+Hora1+" SIGNAL NUMBER "+levelnotificacion1+" LONG "+signalgroup;

         //SendNotification(message2); //

         //TelegramSendText(apikey,chatid,message2);

         //SendNotification("LONG");

         //SendNotification(Hora);

         //SendNotification(levelnotificacion);

         file_handle4=FileOpen(FileName4,FILE_READ|FILE_WRITE," ");

         if(file_handle4>0)

           {

            FileSeek(file_handle4,0,SEEK_END);

            FileWrite(file_handle4," NEW SIGNAL ");

            // FileWrite(file_handle4,"___________________________________________________________");

            // FileWrite(file_handle4," SIMBOL |         TIME          | FONT | DIRECTION | PUSH |");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | "," LONG "," | ",zeroindex," | ");

            //FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileClose(file_handle4);

           }

        }// Anadir excepcion de 10

      double Copen=iOpen(Symbol(),0,1);

      double Cclose=iClose(Symbol(),0,1);

      if(Copen>Cclose)

        {

         CopenRes=Copen-MaxPriceSintez;

         CcloseRes=MinPriceSintez-Cclose;

        }

      if(Copen<Cclose)

        {

         CopenRes=Cclose-MaxPriceSintez;

         CcloseRes=MinPriceSintez-Copen;

        }

      file_handle17=FileOpen(FileName17,FILE_READ|FILE_WRITE," ");

      if(file_handle17>0)

        {

         FileSeek(file_handle17,0,SEEK_END);

         FileWrite(file_handle17,Symbol()," MaxBinNumber_1 ",MaxBinNumber_1," MaxBinNumber_0 ",MaxBinNumber_0);

         FileClose(file_handle17);

        }

      if((resOperandMin==PriceZero || resOperandMax==PriceZero) && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0))

        {

         if(printdesc1==1)

           {

            ObjectSetString(0,Obiektcampo1,OBJPROP_TEXT,TimeToString(iTime(Symbol(),0,1)));

            ObjectSetString(0,Obiektcampo7,OBJPROP_TEXT,IntegerToString(one_BE,3));//Obiektcampo7 - 11

            ObjectSetString(0,Obiektcampo8,OBJPROP_TEXT,IntegerToString((int) Maximum,3));

            ObjectSetString(0,Obiektcampo9,OBJPROP_TEXT,IntegerToString((int) Minimum,3));

            ObjectSetString(0,Obiektcampo10,OBJPROP_TEXT,IntegerToString(MaxBinNumber_1,3));

            ObjectSetString(0,Obiektcampo11,OBJPROP_TEXT,IntegerToString(MaxBinNumber_0,3));

            ObjectSetString(0,Obiektcampo12,OBJPROP_TEXT,TextVisualIndicator);

            //printdesc1=0;

            //printdesc2=1;

            string priceZero=DoubleToStr(PriceZero,8);//Pole ceni zero

            ObjectDelete(Obiektcampo13);//Pole vivod Long ili Short

            ObjectCreate(Obiektcampo13,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

            ObjectSetInteger(0,Obiektcampo13,OBJPROP_XDISTANCE,CHWPX-250);

            ObjectSetInteger(0,Obiektcampo13,OBJPROP_YDISTANCE,150);

            ObjectSetString(0,Obiektcampo13,OBJPROP_BMPFILE,priceZero);

            ObjectSetInteger(0,Obiektcampo13,OBJPROP_COLOR,clrRed);

            string pricemin=DoubleToStr(resOperandMin,8);//Pole ceni zero

            int PixMin=(int)(PriceZero-resOperandMin)*100000;

            ObjectDelete(Obiektcampo14);

            ObjectCreate(Obiektcampo14,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

            ObjectSetInteger(0,Obiektcampo14,OBJPROP_XDISTANCE,CHWPX-230);

            ObjectSetInteger(0,Obiektcampo14,OBJPROP_YDISTANCE,150-PixMin);

            ObjectSetString(0,Obiektcampo14,OBJPROP_BMPFILE,pricemin);

            ObjectSetInteger(0,Obiektcampo14,OBJPROP_COLOR,clrGreen);

            string pricemax=DoubleToStr(resOperandMax,8);//Pole ceni zero

            int PixMax=(int)(resOperandMax-PriceZero)*100000;

            ObjectDelete(Obiektcampo15);//Pole cenizero

            ObjectCreate(Obiektcampo15,OBJ_BITMAP_LABEL,0,BrTime,HIGHT+0.00015);

            ObjectSetInteger(0,Obiektcampo15,OBJPROP_XDISTANCE,CHWPX-280);

            ObjectSetInteger(0,Obiektcampo15,OBJPROP_YDISTANCE,150-PixMax);

            ObjectSetString(0,Obiektcampo15,OBJPROP_BMPFILE,pricemax);

            ObjectSetInteger(0,Obiektcampo15,OBJPROP_COLOR,clrBlue);

            //operandopen

            //operandclose

           }

        }

      int Result_Compensation=compensation_1+compensation_2;

      int CompensationForGrafik=compensation_2*(-1);

      //Print("TEST4  WRITDATA "," resOperandMin==PriceZero ",resOperandMin==PriceZero," resOperandMax==PriceZero ",resOperandMax==PriceZero," Maximum ",Maximum," Minimum ",Minimum," Rez_BE ",Rez_BE);

      if((resOperandMin==PriceZero || resOperandMax==PriceZero) && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && Rez_BE==0)

        {

         int fg=0;

         fg++;

         //Print(" fg ",fg);

         file_handle4=FileOpen(FileName4,FILE_READ|FILE_WRITE," ");

         if(file_handle4>0)

           {

            // --- Direction change indicator -----

            // The indicator remembers the last change of direction based on the compensation indicator

            // If there is 0 in one or the other indicator, then the position in short or long changes

            string Text_Switch="No Data";

            Bool_Z=Maximum-MaxBinNumber_1;

            Bear_Z=Minimum+MaxBinNumber_0;

            //--------------------------------------------

            if(((Bool_Z>0 && Bear_Z==0)||(Bool_Z==0 && Bear_Z<0)) && Rez_BE==0 && one_BE>=1 && one_BE<=60)

              {

               Switch_L_S=1;// Position 1 means opening only long orders

              }

            if(((Bool_Z<0 && Bear_Z==0)||(Bool_Z==0 && Bear_Z>0)) && Rez_BE==0 && one_BE>=1 && one_BE<=60)

              {

               Switch_L_S=2;// Position 2 means opening only order shorts

              }

            if(Switch_L_S==1)

              {

               Text_Switch="Switch_L_S -- LONG";

              }

            if(Switch_L_S==2)

              {

               Text_Switch="Switch_L_S -- SHORT";

              }

            // --- function Record price in the Market Events Log

            // --- The prices of the UP5 / 8 i DOWSN5 / 8 levels are recorded

            double Price5ForWrite=0;

            double Price8ForWrite=0;

            if(Maximum-MaxBinNumber_1==0)

              {

               Price5ForWrite=IpaintFiboLineDOWN_5;

               Price8ForWrite=IpaintFiboLineDOWN_8;

              }

            if(Minimum+MaxBinNumber_0==0)

              {

               Price5ForWrite=IpaintFiboLineUP_5;

               Price8ForWrite=IpaintFiboLineUP_8;

              }

            BoolInd=NormalizeDouble((Maximum+MaxBinNumber_1)/(Minimum+MaxBinNumber_0),2);//Bool

            BearInd=NormalizeDouble((Minimum+MaxBinNumber_0)/(Maximum+MaxBinNumber_1),2);//Bear

            double SumaBoolBear=BoolInd+BearInd;

            // ----- record the index number in the database ----- //

            // load base from file into array

            int file_handle7=FileOpen(FileName7,FILE_READ|FILE_BIN);

            if(file_handle7>0)

              {

               FileSeek(file_handle7,0,SEEK_CUR);

               FileReadArray(file_handle7,bodyAR,0,WHOLE_ARRAY);

               FileClose(file_handle7);

              }

            for(iarw=1; iarw<=89999; iarw++)

              {

               if(Array_Errors==true)

                 {

                  Print(" Index Array ",iarw," 28091 ");





                 }

               if(bodyAR[iarw,0]==61)

                 {

                  //Print(" indexIAR = ",iar);

                  break;

                 }

              }

            //---------------------------------------------//

            FileSeek(file_handle4,0,SEEK_END);

            // FileWrite(file_handle4,"___________________________________________________________");

            // FileWrite(file_handle4," SIMBOL |         TIME         | FONT |  BOOL-F  | BEAR-F |");

            //FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | ",Maximum-MaxBinNumber_1," | ",Minimum+MaxBinNumber_0," | ");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4," ",Text_Switch);

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4," SIMBOL |         TIME         | FONT |  BOOL-N  | BEAR-N|");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | ",Maximum+MaxBinNumber_1," | ",Minimum+MaxBinNumber_0," | ");

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | ",BoolInd," | ",BearInd," | ",SumaBoolBear);

            // FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4,Symbol()," | ",iTime(Symbol(),0,1)," | ",ONE_BE," | ",Price5ForWrite," | ",Price8ForWrite," | ");

            //FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            // FileWrite(file_handle4,"| INDEX in DB | ",iarw," | ");

            FileWrite(file_handle4,"¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯");

            FileClose(file_handle4);

           }

         LongShort=10;

         if(resOperandMin==PriceZero && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && one_BE>=1 && one_BE<=60 && Rez_BE==0)

           {

            TextVisualIndicator="LONG";

            Alert("LONG");

            string signalgroup=IntegerToString(zeroindex);

            string Hora1=TimeToString(iTime(Symbol(),0,1));

            string levelnotificacion1=IntegerToString(ONE_BE);

            string Comp1=IntegerToString(Maximum-MaxBinNumber_1);

            string Comp2=IntegerToString(Minimum+MaxBinNumber_0);

            string message2=SYmbol+" TIME "+Hora1+" SIGNAL NUMBER "+levelnotificacion1+" LONG "+" BOOL-F= "+Comp1+" BEAR-F= "+Comp2;

            SendNotification(message2); //

            LongShort=1;

           }

         if(resOperandMax==PriceZero && (Maximum>0 || Maximum<0 || Maximum==0) && (Minimum>0 || Minimum<0 || Minimum==0) && one_BE>=1 && one_BE<=60 && Rez_BE==0)

           {

            TextVisualIndicator="SHORT";

            Alert("SHORT");

            string signalgroup=IntegerToString(zeroindex);

            string Hora=TimeToString(iTime(Symbol(),0,1));

            string levelnotificacion=IntegerToString(ONE_BE);

            string Comp1=IntegerToString(Maximum-MaxBinNumber_1);

            string Comp2=IntegerToString(Minimum+MaxBinNumber_0);

            string message1=SYmbol+"-TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion+" SHORT "+" BOOL-F= "+Comp1+" BEAR-F= "+Comp2;

            SendNotification(message1);

            LongShort=0;

           }

         RefreshRates();

         if(one_BE>15 && Maximum-MaxBinNumber_1==0 && Minimum+MaxBinNumber_0>0 && Rez_BE==0)

           {

            LongPosition=true;

            ShortPosition=false;

           }

         if(one_BE>15 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0==0 && Rez_BE==0)

           {

            ShortPosition=true;

            LongPosition=false;

           }

         //------------------------------------------------------------------------------

         if(one_BE>15 && Maximum-MaxBinNumber_1==0 && Minimum+MaxBinNumber_0<0 && Rez_BE==0)

           {

            ShortPosition=true;

            LongPosition=false;

           }

         if(one_BE>15 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0==0 && Rez_BE==0)

           {

            LongPosition=true;

            ShortPosition=false;

           }

         if(LongPosition==true && ((one_BE>15 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0>0)||(one_BE>15 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0<0)) && Rez_BE==0)//||(one_BE>25 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0==0)||(one_BE>25 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0==0)

           {

            string  subject="From Tatiana - RootDiamond - LONG SIGNAL EURUSD";       // 703>;>2>:

            string messageLong="Open Long, "+" Simbol "+Symbol()+" Time "+TimeToString(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+" FONT "+IntegerToString(one_BE,0,0)+"/   DONATE PLEASE FOR UPDATE PROJECT http://paypal.me/mql4Root ";

            SendMail(subject,messageLong);

            string Curency=Symbol();

            string Hora=TimeToString(iTime(Symbol(),0,1));

            string levelnotificacion=IntegerToString(ONE_BE);

            string message1=Curency +" LONG - FOR ROOTDIAMOND, TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion;

            //TelegramSendText(apikey,chatid,message1);

           }

         if(ShortPosition==true && ((one_BE>15 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0>0)||(one_BE>15 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0<0)) && Rez_BE==0)//||(one_BE>25 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0==0)||(one_BE>25 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0==0)

           {

            string  subject="From Tatiana - RootDiamond - SHORT SIGNAL EURUSD";       // 703>;>2>:

            string messageShort=" Open Short, "+" Simbol "+Symbol()+" Time "+TimeToString(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+" FONT "+IntegerToString(one_BE,0,0)+"/   DONATE PLEASE FOR UPDATE PROJECT http://paypal.me/mql4Root ";

            SendMail(subject,messageShort);

            string Hora=TimeToString(iTime(Symbol(),0,1));

            string Curency=Symbol();

            string levelnotificacion=IntegerToString(ONE_BE);

            string message1=Curency + " SHORT - FOR ROOTDIAMOND, TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion;

            //TelegramSendText(apikey,chatid,message1);

           }

         if(((one_BE>15 && Maximum-MaxBinNumber_1==0 && Minimum+MaxBinNumber_0>0)||(one_BE>15 && Maximum-MaxBinNumber_1==0 && Minimum+MaxBinNumber_0<0)) && Rez_BE==0)//||(one_BE>25 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0==0)||(one_BE>25 && Maximum-MaxBinNumber_1>0 && MaxMinArr[IndexMinimum]+MaxBinNumber_0==0)

           {

            string  subject="From Tatiana - RootDiamond_8 - SHORT SIGNAL EURUSD";       // 703>;>2>:

            string messageShort=" Open Short, "+" Simbol "+Symbol()+" Time "+TimeToString(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+" FONT "+IntegerToString(one_BE,0,0)+"   DONATE PLEASE FOR UPDATE PROJECT http://paypal.me/mql4Root ";

            SendMail(subject,messageShort);

            string Curency=Symbol();

            string Hora=TimeToString(iTime(Symbol(),0,1));

            string levelnotificacion=IntegerToString(ONE_BE);

            string message1=Curency+" SHORT - FOR ROOTDIAMOND_8 , TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion;

            //int testT=TelegramSendText(apikey,chatid,message1);

           }

         if(((one_BE>15 && Maximum-MaxBinNumber_1>0 && Minimum+MaxBinNumber_0==0)||(one_BE>15 && Maximum-MaxBinNumber_1<0 && Minimum+MaxBinNumber_0==0)) && Rez_BE==0)//||(one_BE>25 && Maximum-MaxBinNumber_1<0 && MaxMinArr[IndexMinimum]+MaxBinNumber_0==0)||(one_BE>25 && Maximum-MaxBinNumber_1>0 && MaxMinArr[IndexMinimum]+MaxBinNumber_0==0)

           {

            string  subject="From Tatiana - RootDiamond_8 - LONG SIGNAL EURUSD";

            string messageLong="Open Long, "+" Simbol "+Symbol()+" Time "+TimeToString(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+" LEVEL "+IntegerToString(one_BE,0,0)+"   DONATE PLEASE FOR UPDATE PROJECT http://paypal.me/mql4Root ";

            SendMail(subject,messageLong);

            string Hora=TimeToString(iTime(Symbol(),0,1));

            string Curency=Symbol();

            string levelnotificacion=IntegerToString(ONE_BE);

            string message1=Curency+" LONG - FOR ROOTDIAMOND_8 , TIME "+Hora+" SIGNAL NUMBER "+levelnotificacion;

           }

         if(one_BE>0 && Rez_BE==0)

           {

            int file_handle6=FileOpen(FileName6,FILE_READ|FILE_BIN);

            if(file_handle6>0)

              {

               FileSeek(file_handle6,0,SEEK_CUR);

               FileReadArray(file_handle6,bodydt,0,WHOLE_ARRAY);

               FileClose(file_handle6);

              }

            int file_handle7=FileOpen(FileName7,FILE_READ|FILE_BIN);

            if(file_handle7>0)

              {

               FileSeek(file_handle7,0,SEEK_CUR);

               FileReadArray(file_handle7,bodyAR,0,WHOLE_ARRAY);

               FileClose(file_handle7);

              }

            //----------------------------------------------

            int iar=1;

            for(iar=1; iar<=89999; iar++)

              {

               if(Array_Errors==true)

                 {

                  Print(" Index Array ",iar," 28236 ");





                 }

               if(bodyAR[iar,0]==61)

                 {

                  //Print(" indexIAR = ",iar);

                  break;

                 }

              }

            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);

            //---Lines calculation------

            DoublspredPoint=spredpoints*Point();

            LEVELUP=NormalizeDouble((center+normalLevel),NormalizaDigi);//1

            LEVELDOWN=NormalizeDouble((center-normalLevel),NormalizaDigi);//1

            //--------niveles de caracol

            bodydt[iar]=bartimeresult;

            bodyAR[iar,0]=IreceiveLevelresult;

            bodyAR[iar,1]=LEVELUP;

            bodyAR[iar,2]=IpaintFiboLineUP_2;

            bodyAR[iar,3]=IpaintFiboLineUP_3;

            bodyAR[iar,4]=IpaintFiboLineUP_5;

            bodyAR[iar,5]=IpaintFiboLineUP_8;

            bodyAR[iar,6]=IpaintFiboLineUP_13;

            bodyAR[iar,7]=IpaintFiboLineUP_21;

            bodyAR[iar,8]=IpaintFiboLineUP_34;

            bodyAR[iar,9]=IpaintFiboLineUP_55;

            bodyAR[iar,10]=IpaintFiboLineUP_89;

            bodyAR[iar,11]=IpaintFiboLineUP_144;

            bodyAR[iar,12]=LEVELDOWN;

            bodyAR[iar,13]=IpaintFiboLineDOWN_2;

            bodyAR[iar,14]=IpaintFiboLineDOWN_3;

            bodyAR[iar,15]=IpaintFiboLineDOWN_5;

            bodyAR[iar,16]=IpaintFiboLineDOWN_8;

            bodyAR[iar,17]=IpaintFiboLineDOWN_13;

            bodyAR[iar,18]=IpaintFiboLineDOWN_21;

            bodyAR[iar,20]=IpaintFiboLineDOWN_34;

            bodyAR[iar,21]=IpaintFiboLineDOWN_55;

            bodyAR[iar,22]=IpaintFiboLineDOWN_89;

            bodyAR[iar,23]=IpaintFiboLineDOWN_144;

            //--------A83=0;K------------

            bodyAR[iar,24]=Maximum-MaxBinNumber_1;

            bodyAR[iar,25]=Minimum+MaxBinNumber_0;

            bodyAR[iar,26]=Maximum+MaxBinNumber_1;

            bodyAR[iar,27]=Minimum+MaxBinNumber_0;

            bodyAR[iar,28]=BoolInd;

            bodyAR[iar,29]=BearInd;

            //-------->=3 (>@B-----------

            bodyAR[iar,30]=LongShort;//0/1

            FileDelete(FileName6,0);

            FileDelete(FileName7,0);

            file_handle6=FileOpen(FileName6,FILE_READ|FILE_WRITE|FILE_BIN);

            if(file_handle6>0)

              {

               FileSeek(file_handle6,0,SEEK_CUR);

               FileWriteArray(file_handle6,bodydt,0,WHOLE_ARRAY);

               FileClose(file_handle6);

              }

            file_handle7=FileOpen(FileName7,FILE_READ|FILE_WRITE|FILE_BIN);

            if(file_handle7>0)

              {

               FileSeek(file_handle7,0,SEEK_CUR);

               FileWriteArray(file_handle7,bodyAR,0,WHOLE_ARRAY);

               FileClose(file_handle7);

              }

           }

         //------------------------------------//

        }

      if(ALLtoARRAYWRITE==true)

        {

         // ---- Writing Mass to the Binary file of all indicators.

         // ---- Every minute session I write time and data into arrays using an index.

         for(i=1; i<=7204; i++)

           {

            if(Array_Errors==true)

              {

               Print(" Index Array ",i," 28321 ");





              }

            if(AllAnalisysData[i,1]==1000)//?>;CG0N 8=45:A 70?>;=5==>3> M;5<5=B0

              {

               break;

              }

           }

         DT_AllAnalisysData[i,0]=iTime(Symbol(),0,1);

         AllAnalisysData[i,0]=Counter_Summa0;

         AllAnalisysData[i,1]=Counter_Summa1;

         AllAnalisysData[i,2]=IndexMaximum;

         AllAnalisysData[i,3]=IndexMinimum;

         AllAnalisysData[i,4]=Maximum;

         AllAnalisysData[i,5]=Minimum;

         AllAnalisysData[i,6]=MinPriceSintezINDEX;

         AllAnalisysData[i,7]=MaxBinNumber_1;

         AllAnalisysData[i,8]=MaxBinNumber_0;

         AllAnalisysData[i,9]=Minimum-MaxBinNumber_1;

         AllAnalisysData[i,10]=Minimum+MaxBinNumber_0;

         AllAnalisysData[i,11]=bodypips[MaxInd_bodypips,0];

         AllAnalisysData[i,12]=bodypips[MaxInd_bodypips,1];

         AllAnalisysData[i,13]=BinInd3BO;

         AllAnalisysData[i,14]=BinInd3BE;

         AllAnalisysData[i,15]=Onda1;

         int file_handle19=FileOpen(FileName19,FILE_READ|FILE_WRITE|FILE_BIN);

         if(file_handle19>0)

           {

            FileSeek(file_handle19,0,SEEK_CUR);

            FileWriteArray(file_handle19,AllAnalisysData,0,WHOLE_ARRAY);

            FileClose(file_handle19);

           }

         int file_handle20=FileOpen(FileName20,FILE_READ|FILE_WRITE|FILE_BIN);

         if(file_handle20>0)

           {

            FileSeek(file_handle20,0,SEEK_CUR);

            FileWriteArray(file_handle20,DT_AllAnalisysData,0,WHOLE_ARRAY);

            FileClose(file_handle20);

           }

        }

      //}

      //}

      //if((resOperandMin==PriceZero || resOperandMax==PriceZero) && Maximum>0 && Minimum>0 && one_BE>=1 && one_BE<=60 && Rez_BE==0)

      // {

      // }

      //-------------------------------------------

      // string filename_bin=TimeToStr(iTime(Symbol(),0,1),TIME_DATE|TIME_MINUTES)+"_BIN.bin";

      //int file_handle_BIN=FileOpen(filename_bin,FILE_READ|FILE_WRITE|FILE_BIN );

      // if(file_handle_BIN>0)

      //   {

      //  int i;

      // for(i=0;i<9999;i++)

      //FileReadArray(file_handle_BIN,body,0,i);

      //    Comment(body[i,0]);

      //FileClose(file_handle_BIN);

      //  }

      //FileClose(file_handle_BIN);

      //-----------------------------------------------------------

      // 0@80=B 1

      /*if(Z_N<500)

                 {MasD[Z_N,0]=(int)Time[1];

                  MasD[Z_N,1]=Counter_Summa1;

                  MasD[Z_N,2]=Counter_Summa0;

                  Z_N++;

                 }

                 else {Z_N=0;ArrayInitialize(MasD,0);}*/

      // 0@80=B 2

      /*   MasD[Z_N,0]=(int)Time[1];

                  MasD[Z_N,1]=Counter_Summa1;

                  MasD[Z_N,2]=Counter_Summa0;

                  Z_N++;

               if(Z_N>499)

                 {

                  Z_N-=1;

                  for(int qt=0; qt<499; qt++)

                    {

                     MasD[qt,0]=MasD[qt+1,0];

                     MasD[qt,1]=MasD[qt+1,1];

                     MasD[qt,2]=MasD[qt+1,2];

                    }

                  MasD[499,0]=0;

                  MasD[499,1]=0;

                  MasD[499,2]=0;

                 }*/

      // 0@80=B 3/2

      // op_MasD(Counter_Summa1,Counter_Summa0);

      //---------------------------------------------

      //-------------------------------------------------------------------

      // if(Rez_BE>=0)

      // {

      //string Color1=IntegerToString(Rez_BE,0);

      //string Color2=IntegerToString(one_BE,0);

      //string Color3=IntegerToString(zero_BE,0);

      //string Color=Color1+","+Color2+","+Color3;

      //string rgb="C'"+Color+"'";

      //color  rgbcolor=StringToColor(rgb);

      //ObjectSetInteger(0,Obiekt101,OBJPROP_COLOR,rgbcolor);

      //Comment(rgb);

      // }

      // int file_handle3=FileOpen(FileName3,FILE_READ|FILE_WRITE," ");

      //if(file_handle3>0)

      // {

      //  FileSeek(file_handle3,0,SEEK_END);

      //  FileWrite(file_handle3,Symbol()," ",iTime(Symbol(),0,1),Rez_BE," % ",one_BE,"  ",zero_BE);

      //  FileClose(file_handle3);

      // }

      //-----------------------Tiempo de senal

      // datetime date1=D'00:00:00';

      //datetime date2=D'06:00:00';

      //------------------------------------

      //if(Rez_BE==0 /*&& zero_BE>60*//*&& TimeCurrent()> date2 && TimeCurrent()<date1*/)//--8=CA02>9 A83=0;

      // {

      //  if(write_Zero==true)

      //   {

      //    int file_handle2=FileOpen(FileName2,FILE_READ|FILE_WRITE," ");

      //   if(file_handle2>0)

      //  {

      //FileClose(Handle);

      //FileCopy(

      //--

      //    FileSeek(file_handle2,0,SEEK_END);

      //    FileWrite(file_handle2,Symbol()," ",iTime(Symbol(),0,1),Rez_BE," % ",one_BE,"  ",zero_BE);

      //   FileClose(file_handle2);

      //Alert(Rez_BE);

      //string Hora=TimeToString(iTime(Symbol(),0,1));

      //string levelnotificacion=DoubleToString(one_BE);

      //SendNotification(Hora);

      //SendNotification(levelnotificacion);

      //SendFTP(FileName3);

      //---Move Files to destyny foldrer

      //FileCopy(filename,0,filename+copy,0);

      // FileMove(filename,0,"Candles H1+ binmarker\\Analiz\\"+filename,/*|FILE_COMMON|/FILE_REWRITE*/0);

      //-----------------

      //  }

      //  }

      // }

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

      //|END Counter Summa 1/0 - Generation of initial data                |

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

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

      //|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)// !>1@0; O A @>9 A :@0A>GL=KE ?>;59 75@=> 8 40;8 ?> 3>@AB8 :064K9 4>G5@8 @5AB8=5

  {

   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();//0?8AK20N 2@5<O B8:0.

         //bintoarr[IFb1,IFb2]=1;//70?8AL 2 AB@>:C ?0@0<5B@>2 18=0@=>3> 2KG8A;5=8O

         //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();//0?8AK20N 2@5<O B8:0.

         // 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();//0?8AK20N 2@5<O B8:0.

      //bintoarr[IFb1,IFb2]=1;

      //bintoarrBID[IFb1,IFb2]=Bid;

      Counter1_1++;

     }

   else

     {

      body [Counter,1]=0;

      body [Counter,2]=0;

      //body [Counter,4]=TimeCurrent();//0?8AK20N 2@5<O B8:0.

      //bintoarr[IFb1,IFb2]=0;//?8HC B8: 2 18=0@=>9 8=B5@?@5B0F88

      //bintoarrBID[IFb1,IFb2]=Bid;//?8HC F5=C 4;O B8:0

      Counter0_1++;

     }

   body [Counter,0]=iBid;

   body [Counter,3]=111;

//body [Counter,4]=TimeCurrent();//0?8AK20N 2@5<O B8:0.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                                           |

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

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

//|                                                                  |

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



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

//| Expert deinitialization function                                 |

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

void deinit()

  {

//-------------------------------------------------------------------------

   Str_Pr_Bar=0;

   time_bar=0;

   time_BR=0;

   ObjectsDeleteAll(0,OBJ_LABEL);

   FileClose(Handle);

  }

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

//|                void Text_OBJ_LABEL()                             |

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

void Text_OBJ_LABEL(string Nm_T,int CORN,int XD,int YD,string Tx_Znk,int Sz,string Tx_cr,color CLR)

  {

//----

   ObjectCreate(Nm_T,OBJ_LABEL,0,0,0);

   ObjectSet(Nm_T,OBJPROP_CORNER,CORN);

   ObjectSet(Nm_T,OBJPROP_XDISTANCE,XD);

   ObjectSet(Nm_T,OBJPROP_YDISTANCE,YD);

   ObjectSetText(Nm_T,Tx_Znk,Sz,Tx_cr,CLR);

   ObjectSet(Nm_T,OBJPROP_HIDDEN,true);

   ObjectSet(Nm_T,OBJPROP_SELECTABLE,false);

//---

  }

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

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

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