eugeniokp/ROOT
1
0
フォーク 0
コード イシュー プルリクエスト プロジェクト リリース パッケージ Wiki アクティビティ Actions
ROOT/root3.0

12244 行
EOLなし
614 KiB
Text
Raw パーマリンク Blame 履歴

このファイルには不可視のUnicode文字が含まれています

このファイルには人間が識別できない不可視のUnicode文字が含まれており、コンピューターによって特殊な処理が行われる可能性があります。 それが意図的なものと考えられる場合は、この警告を無視して構いません。 不可視文字を表示するにはエスケープボタンを使用します。

//+------------------------------------------------------------------+
//| Yevheniy |
//| Nucleo v 3.mq4 |
//| |
//+------------------------------------------------------------------+
#property copyright "Yevheniy Kopanitskyy"
#property link "https://www.mql5.com/en/users/eugeniokp"
#property version "3"
#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
// Класс 1990-2000
// Структура к молебну через купол
// Одноклассники // Семья // Одногрупники // Начальники Фирм // Сотрудники фирм // Домашние питомцы // Певцы Актёры // Подфонарные //Учителя //
extern string NAA_1="Andryushchenko I";// Kopanitskyy Eugenio // Денис // Rikardo // Eugenio // Рыжий Кот //Божья коровка // Сергей Бойко // Малая Алла Сергеевна//
extern string NAA_2="Antipenko P"; // Kopanitskaya Olga // Данько Анна // Juanjo Rufilanchas // Давид,Gema // Габриела // Prodigy // Сергей Соловьёв //Дунаева Виктория Александровна//
extern string NAA_3="Buyakov D"; // Dyukareva Alla // Тищенко Роман // Alberto & Nagore // // Рея //Metalica // Артём Варжко //Капейка //
extern string NAA_4="Ryabashtan N"; // Kopanitskaya Ольга // Игорь Кисм // Rosa // Manolo, Sofia, Берланга // Чип // // Олег Касо //Марья Трафимовна //
extern string NAA_5="Krivenko L"; // Kopanitskaya Elena // Ольга Присяжнюк // Veronika //Yulya // Меченосцы // Паша Безай //Нина Симёнавна //
extern string NAA_6="Kopanitskyy Lavrov Y";//Dyukoreva Ludmila // Ольга Потапенко // Manolo "Iber Casas" // Дрош, Бодя //Хамяк // Олег //Галина Дмитриевна ///
extern string NAA_7="Elizarova G"; // Kopanitskyy Mikael // Andrey Prisyazhnyuk // Dzhivoryan // Dima // Крыса Анфиса // Алёна // Нарбеков Мерзакамир
extern string NAA_8="Cima I"; // Kopanitskyy Nikolay // Vadim Prokopchuk // Oskar & Monica // Lali, Zara, //Чарлик // Света // Алан Кар
extern string NAA_9="Konyajina A"; // Dyukorev Oleg // Ivo Ivanov // Lina // Maksim, Nadezhda, Dariush Kania,Danuta //Саманта //Сергей Должиков //Нил Доналд Уолш
extern string NAA_10="Parmuzina N"; // Dyukoreva Alena // Mario // Toni Regajo // Елизавета Агата Кида //Ника // Роман Шведкий //Роберт Киосаки
extern string NAA_11="Matvienko L"; // Dyukorev Denis // Roman Mishchenko // Roman Diezel // // Коза // // Рома Каспер //Лариса Петровна сад
extern string NAA_12="Zhulitskaya L"; // Pryymak Alina // Сергей Соловей //Роман Колобок // // Кролик // // Дима //
extern string NAA_13="Pravda Y"; // Bereza Roza // Beredas //Константин // // Седаев Рома //
extern string NAA_14="Furina N"; // Denis // Silvia //Вася // // Эдик Шведкой //
extern string NAA_15="Zotov V"; // Marcelo // Sergio //Чибітько Олександр // Максим // Инна //
extern string NAA_16="Harkina T"; // Копаницкая Даша // //Фернандо // Вова, Бодя, // Эдик //
extern string NAA_17="Moroz I"; // Пальчикова Таня // //Angel del Rosario // Koncha Torres // Ада Кулик //
extern string NAA_18="Turasov Y"; // Копаницкая Абигаиль // // Паша //
extern string NAA_19="Macola A"; // Копаницкая Кристина // // Квинт //
extern string NAA_20="Sarapin Y"; // Копаницкая Ирина // // Грес
extern string NAA_21="Nasipaiko O"; // Копаницкий Сергей //
extern string NAA_22="Prityupa V"; // Копаницкая Юля //
extern string NAA_23="Golovchuk D"; // Энчё Колев //
extern string NAA_24="Galusho R"; // Ровзе Вера //
extern string NAA_25="Shpilevoy R"; // Копаницкий Андрей //
extern string NAA_26="Vaskevich L"; // Копаницкий Валера //
extern string NAA_27="Yurchenko D"; // Лебеденко Марина //
extern string NAA_28="Vinokurov R"; // Дюкорев Виктор //
extern string NAA_29="Taran R"; // Дюкорев Николай //
extern string NAA_30="Plasovenko A"; // Дюкорева Наталья //
extern string NAA_31="Bilichenko V"; // Дюкорев Иван //
extern string NAA_32="Romanyuk I"; // Кохан Люба //
extern string NAA_33="Segina E"; // Брагина Елена //
extern string NAA_34="Lucyuk A"; // Брагин Владик //
extern string NAA_35="Liliya"; // Дюкарева Света //
extern string NAA_36="Drach E"; // Копаницкий Денис //
extern string NAA_37="Lomakina N"; // Копаницкая Женя //
extern string NAA_38="Kozlova S"; // Копаницкий Валодя //
extern string NAA_39="Soloviev S"; // Приймак Валера //
extern string NAA_40="Mulikin S"; // Приймак Лёша //
extern string NAA_41="Strelnikov V"; // Приймак Тамара //
extern string NAA_42="Chernij E"; // Приймак Катя //
extern string NAA_43="Tkach N"; // Приймак Наташа //
extern string NAA_44="Nesterenko A"; // Копаницкая Люся //
extern string NAA_45="Kamashko V"; // Брагин Николай //
extern string NAA_46="Zimuha V" ; // Лебеденко Валера //
extern string NAA_47="Rolik A"; // Дюкорев Толик //
extern string NAA_48="Pasichnij A"; // Дюкорев Саша //
//--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------------------------------
//Все массивы double заполняютя по 5 знакам после запятой. Пример 99999 = 0,001€ в итоге весь массив = 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];//Массив для перезаписи
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];//Мaссив для получения архитектуры
datetime flower_Price_3_TIME[200001,1000];
float flower_Price_3[200001,100];
int KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
int flower_Time[24,12];//
int LD_Mod48Bit[1,3];//
int flower_Time_DT_24[12,1000]; //запись времени для дальнейшей аналитики
int flower_Time_DT_25[12,1000];
int flower_Time_DT_23[12,1000];
int flower_Time_CL[1,12];// CL- clock
//int bintoarr[1441,1001];//запись параметров бинарного кода в массив.Запись массива раз в сутки в бинарный фаил
//int IFb1;//Индекс 1 для массива bintoarr
//int IFb2;//Индекс 2 для массива bintoarr
//int BinaryToArray[32000,1001];//месяц записи в массив бинарного кода. Записись нужно производить другим скриптом
//datetime bintoarrTIME [1441];//Массив для записи времени свечи
//datetime BinaryToArrayTIME[32000];//Массив для обьеденения времени свечи
//double bintoarrBID[1441,1001];//Массив для записи бид цены по тику
//double BinaryToArrayBID[32000,1001];//Массив для записи бид
//int temparrbin[1441,1001];//Массив для записи отсеенных данных бинарного кода
//double temparrbid[1441,1001];
//datetime temparrtime[1441];
//datetime binrepit[32000,1001];//Запись повторов бинарных свечей
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-----
//---Переменные индикатора Маховик Времени
int comp_Sev[9,9];//Массив для сравнения после пересчёта
double Form_Patern_Finder[1002,121];//Массив для отслеживания формации Патернов на купольной архитектуре
datetime DT_Form_Patern_Finder[1002,121];//Массив для отслеживания времени формации Патернов на купольной архитектуре
int PipsNumber; //1,2,3,4,5
int N_Centro_r;
//Часы 1
// Массивы для пересчётов
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;
// Переменные для разрешений
int sev;
int yug;
int zap;
int vost;
// Переменные для лица и изнанки
int lic;
int izn;
//Подача данных из подсолнуха
int LastV_f_Bo_0;//Предыдущий центр
int LastV_f_Bo_1;//Предыдущий центр
int LastV_f_Be_0;//Предыдущий центр
int LastV_f_Be_1;//Предыдущий центр
int LastC_N_Centro_r;// Предыдущая переменная
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;
//Часы 2
int Be_0_C=0;
int Bo_0_C=0;
int Be_1_C=0;
int Bo_1_C=0;
// Массивы для пересчётов для Z Оси
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;
// Переменные для разрешений
int z_sev;
int z_yug;
int z_zap;
int z_vost;
// Переменные для лица и изнанки
int z_lic;
int z_izn;
//Подача данных из подсолнуха
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;
//Купол - Против Часовой Стрелки
// ------ Свод Цена-Купол + Свод Цена - Крест Абьём
int Per_Sev1=0;//Be_0 лиц
int Per_Sev2=0;//Bo_0 лиц
int Per_Sev3=0;//Be_1 лиц
int Per_Sev4=0;//Bo_1 лиц
int Per_Sev5=0;//Be_0 изн
int Per_Sev6=0;//Bo_0 изн
int Per_Sev7=0;//Be_1 изн
int Per_Sev8=0;//Bo_1 изн
int w;
int w1;
int w2;
int w3;
bool flower_perm=false;
int InternalPat_1;//индикатор формирования внутреннего патерна вокруг цены
int ExternalPat_1;//индикатор формирования Внешнего патерна вокруг цены
// Пример. Массива Север
// 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;// Складывание в Лепесток
int f_Bo_1;// Складывание в Лепесток
int f_Be_1;// Складывание в Лепесток
int Contra_Reloj;
int Rest_Vost;
int Rest_Sever;
int Rest_Yug;
int Rest_Zap;
int Sev_B=0;//Заполненность модуля
int Zap_B=0;
int Yug_B=0;
int Vost_B=0;
int SZBV=0;
//По часовой стрелке
int Reloj;
int Sum_Vost;
int Sum_Sever;
int Sum_Yug;
int Sum_Zap;
int Sum_B=0;//Заполненность модуля
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
//По часовой 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;//Заполненность модуля
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;//Цветок склался 0
//Против Часовой 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;//Заполненность модуля
int Zap_B_1=0;
int Yug_B_1=0;
int Vost_B_1=0;
int SZBV_1=0;
//Массивы для регистра суммы обьёмав в 8 частях куба
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;
//Версия индексации 2 - 48 бит - каждый введённый получает 1 переменную из 48 и 4 вида вращения Север Юг Запад Восток что даёт положение из 4 переменных как 4 функций
//Кубическая идентификация
//В кубе идентифицируется цена, с привязкой к одной из 4 переменных Пример Архитиктура 1 переменная Be_1
//Всего в одном кубе возможно провести максимум 192 идентификации с учётом 4 сторон света. Одна сторона света содержит 48 единиц идентифицирования. Из них 32 мужские и 32 женские единицы.
//Идентификация производится по 3 из 6 плоскостей.
//Пример.
//N1Be_1=A3Be_0A2Bo_0A4Bo_1F13
//Также добавляется два индекса фракций.Также вписывается индекс идентификат с 3-х плоскостей.
//указать в ссылке обратную индексацию
// Расшифровка символов. 1 число Архитектура 2 число x коордената 3 число y коордената
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;
// N - Norte P - Price L-Look F-Fraccion Порядок расчёта для определения переменной "Архитектура 1,2,3,4""1,2,3,4". 1.Указание перемнных Архитектура 2,3,4.
// 1 a3 Bo_0
string N13P634V3214_L3_11211121_11111111_11221211_F24_3Bo_0;
string Ar_1=N13P634V3214_L3_11211121_11111111_11221211_F24_3Bo_0+NAA_1;//Norte Петало1 Ar 3,Север,Архитектура 1, Переменная БЕ1,Определение по 3 плоскостям,
string N62P634V3214_L3_11211121_11111111_11221211_F34_5Be_0;
string Ar_2=N62P634V3214_L3_11211121_11111111_11221211_F34_5Be_0+NAA_2;
string N31P634V3214_L3_11211121_11111111_11221211_F13_1Bo_1;
string Ar_3=N31P634V3214_L3_11211121_11111111_11221211_F13_1Bo_1+NAA_3;
string N44P634V3214_L3_11211121_11111111_11221211_F12_4Be_1;
string Ar_4=N44P634V3214_L3_11211121_11111111_11221211_F12_4Be_1+NAA_4;
// N 2 a3 Be_0
string N14P234V4123_L3_11111111_11211121_11221221_F12_4Be_1;
string Ar_5=N14P234V4123_L3_11111111_11211121_11221221_F12_4Be_1+NAA_5;
string N21P234V4123_L3_11111111_11211121_11221221_F13_1Be_1;
string Ar_6=N21P234V4123_L3_11111111_11211121_11221221_F13_1Be_1+NAA_6;
string N32P234V4123_L3_11111111_11211121_11221221_F34_2Bo_0;
string Ar_7=N32P234V4123_L3_11111111_11211121_11221221_F34_2Bo_0+NAA_7;
string N43P234V4123_L3_11111111_11211121_11221221_F24_3Be_0;
string Ar_8=N43P234V4123_L3_11111111_11211121_11221221_F24_3Be_0+NAA_8;
// N 3 a 3 Be_1
string N11P235V1432_L3_11221211_11121211_11211121_1Be_0;
string Ar_9=N11P235V1432_L3_11221211_11121211_11211121_1Be_0+NAA_9;
string N24P235V1432_L3_11221211_11121211_11211121_6Bo_0;
string Ar_10=N24P235V1432_L3_11221211_11121211_11211121_6Bo_0+NAA_10;
string N33P235V1432_L3_11221211_11121211_11211121_3Be_1;
string Ar_11=N33P235V1432_L3_11221211_11121211_11211121_3Be_1+NAA_11;
string N52P235V1432_L3_11221211_11121211_11211121_5Bo_1;
string Ar_12=N52P235V1432_L3_11221211_11121211_11211121_5Bo_1+NAA_12;
// N 4 a3 Bo_1
string N12P635V2341_L3_11121211_11221221_11111111_2Be_1;
string Ar_13=N12P635V2341_L3_11121211_11221221_11111111_2Be_1+NAA_13;
string N63P635V2341_L3_11121211_11221221_11111111_3Bo_1;
string Ar_14=N63P635V2341_L3_11121211_11221221_11111111_3Bo_1+NAA_14;
string N34P635V2341_L3_11121211_11221221_11111111_6Be_0;
string Ar_15=N34P635V2341_L3_11121211_11221221_11111111_6Be_0+NAA_15;
string N51P635V2341_L3_11121211_11221221_11111111_1Bo_0;
string Ar_16=N51P635V2341_L3_11121211_11221221_11111111_1Bo_0+NAA_16;
// N 5 a3 izn Be_0
// Сторона Цены 8 как исходная
string N73P7284V3214_L8_11111111_11211121_11121211_7Be_0;//7- 3
string Ar_17=N73P7284V3214_L8_11111111_11211121_11121211_7Be_0+NAA_17;
string N22P7284V3214_L8_11111111_11211121_11121211_5Bo_0;
string Ar_18=N22P7284V3214_L8_11111111_11211121_11121211_5Bo_0+NAA_18;
string N81P7284V3214_L8_11111111_11211121_11121211_8Be_1;//8-1
string Ar_19=N81P7284V3214_L8_11111111_11211121_11121211_8Be_1+NAA_19;
string N44P7284V3214_L8_11111111_11211121_11121211_4Be_1;
string Ar_20=N44P7284V3214_L8_11111111_11211121_11121211_4Be_1+NAA_20;
// N 6 a3 izn Bo_0
string N74P7684V4123_L8_11211121_11111111_11221221_4Bo_1;
string Ar_21=N74P7684V4123_L8_11211121_11111111_11221221_4Bo_1+NAA_21;
string N61P7684V4123_L8_11211121_11111111_11221221_8Bo_1;
string Ar_22=N61P7684V4123_L8_11211121_11111111_11221221_8Bo_1+NAA_22;
string N82P7684V4123_L8_11211121_11111111_11221221_2Be_0;
string Ar_23=N82P7684V4123_L8_11211121_11111111_11221221_2Be_0+NAA_23;
string N43P7684V4123_L8_11211121_11111111_11221221_3Bo_0;
string Ar_24=N43P7684V4123_L8_11211121_11111111_11221221_3Bo_0+NAA_24;
// N 7 a3 izn Be_1
string N71P7685V1432_L8_11221221_11121211_11211121_8Be_0;
string Ar_25=N71P7685V1432_L8_11221221_11121211_11211121_8Be_0+NAA_25;//
string N64P7685V1432_L8_11221221_11121211_11211121_6Bo_1;
string Ar_26=N64P7685V1432_L8_11221221_11121211_11211121_6Bo_1+NAA_26;//
string N83P7685V1432_L8_11221221_11121211_11211121_7Be_1;
string Ar_27=N83P7685V1432_L8_11221221_11121211_11211121_7Be_1+NAA_27;//
string N52P7685V1432_L8_11221221_11121211_11211121_2Bo_1;
string Ar_28=N52P7685V1432_L8_11221221_11121211_11211121_2Bo_1+NAA_28;//
// N 8 A3 izn Bo_1
string N72P7285V2341_L8_11121211_11221221_11111111_5Be_1;
string Ar_29=N72P7285V2341_L8_11121211_11221221_11111111_5Be_1+NAA_29;//
string N23P7285V2341_L8_11121211_11221221_11111111_3Bo_1;
string Ar_30=N23P7285V2341_L8_11121211_11221221_11111111_3Bo_1+NAA_30;//
string N84P7285V2341_L8_11121211_11221221_11111111_6Be_1;
string Ar_31=N84P7285V2341_L8_11121211_11221221_11111111_6Be_1+NAA_31;//
string N51P7285V2341_L8_11121211_11221221_11111111_8Bo_0;
string Ar_32=N51P7285V2341_L8_11121211_11221221_11111111_8Bo_0+NAA_32;//
// N 9 a2
// 4 добавленные архитектуры 9.10.11.12
string N93P9824V3214_L2_11111111_11211121_11121211_9Be_0;
string Ar_33=N93P9824V3214_L2_11111111_11211121_11121211_9Be_0+NAA_33;
string N94P9324V4123_L2_11211121_11111111_11221221_9Bo_0;
string Ar_34=N94P9324V4123_L2_11211121_11111111_11221221_9Bo_0+NAA_34;
string N91P9325V1432_L2_11221221_11121211_11211121_9Be_1;
string Ar_35=N91P9325V1432_L2_11221221_11121211_11211121_9Be_1+NAA_35;
string N92P9825V2341_L2_11121211_11221221_11111111_9Bo_1;
string Ar_36=N92P9825V2341_L2_11121211_11221221_11111111_9Bo_1+NAA_36;
// N 10 a5
string N103P10364V3214_L6_11111111_11211121_11121211_10Be_0;
string Ar_37=N103P10364V3214_L6_11111111_11211121_11121211_10Be_0+NAA_37;
string N104P10864V4123_L6_11211121_11111111_11221221_10Bo_0;
string Ar_38=N104P10864V4123_L6_11211121_11111111_11221221_10Bo_0+NAA_38;
string N101P10865V1432_L6_11221221_11121211_11211121_10Be_1;
string Ar_39=N101P10865V1432_L6_11221221_11121211_11211121_10Be_1+NAA_39;
string N102P10365V2341_L6_11121211_11221221_11111111_10Bo_1;
string Ar_40=N102P10365V2341_L6_11121211_11221221_11111111_10Bo_1+NAA_40;
// N 11 a4
string N113P11648V3214_L4_11111111_11211121_11121211_11Be_0;
string Ar_41=N113P11648V3214_L4_11111111_11211121_11121211_11Be_0+NAA_41;
string N114P11248V4123_L4_11211121_11111111_11221221_11Bo_0;
string Ar_42=N114P11248V4123_L4_11211121_11111111_11221221_11Bo_0+NAA_42;
string N111P11243V1432_L4_11221221_11121211_11211121_11Be_1;
string Ar_43=N111P11243V1432_L4_11221221_11121211_11211121_11Be_1+NAA_43;
string N112P11643V2341_L4_11121211_11221221_11111111_11Bo_1;
string Ar_44=N112P11643V2341_L4_11121211_11221221_11111111_11Bo_1+NAA_44;
// N 12 a6
string N123P12635V3214_L5_11111111_11211121_11121211_12Be_0;
string Ar_45=N123P12635V3214_L5_11111111_11211121_11121211_12Be_0+NAA_45;
string N124P12253V4123_L5_11211121_11111111_11221221_12Bo_0;
string Ar_46=N124P12253V4123_L5_11211121_11111111_11221221_12Bo_0+NAA_46;
string N121P12258V1432_L5_11221221_11121211_11211121_12Be_1;
string Ar_47=N121P12258V1432_L5_11221221_11121211_11211121_12Be_1+NAA_47;
string N122P12658V2341_L5_11121211_11221221_11111111_12Bo_1;
string Ar_48=N122P12658V2341_L5_11121211_11221221_11111111_12Bo_1+NAA_48;
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";
//Класификация части куба
// 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;
// Подача разрешений для сторон света
int Sev_1;
int Yug_1;
int Vost_1;
int Zap_1;
//--Угловая направленность ядра
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];//Показатель направления ядра после прокручивания электронами. Исходная позиция север архитектура 3 после сигнала. 8 позиций для углов 45градусов + и 4 позиции для регистрации точьки зрения с использованием архитектур 1234
// Разметка 4 переменных по 4 сторонам света с лицом и изнанкой и привязкой к Северной стороне как исходной позиции
//Север
// Sev[1,1]=0; Be_0
// Sev[1,2]=0; Bo_0
// Sev[1,3]=0; Be_1
// Sev[1,4]=0; Bo_1
// Изнанка
// Sev[1,5]=1; Bo_0
// Sev[1,6]=1; Be_0
// Sev[1,7]=1; Bo_1
// Sev[1,8]=1; Be_1
//Юг
// Sev[1,1]=0; Be_1
// Sev[1,2]=0; Bo_1
// Sev[1,3]=0; Be_0
// Sev[1,4]=0; Bo_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
//Запад
// Sev[1,1]=0; Bo_0
// Sev[1,2]=0; Be_1
// Sev[1,3]=0; Bo_1
// Sev[1,4]=0; Be_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
//Восток
// Sev[1,1]=0; Bo_1
// Sev[1,2]=0; Be_0
// Sev[1,3]=0; Bo_0
// Sev[1,4]=0; Be_1
// Изнанка
// 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";//массив в котором хранятся повторы ключей по времени, если повтор был то фиксируется время открытия свечи
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";//Фаил отгрузки и загрузки
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="KlasterTime.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);//Массив инициализирую числом
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);
ArrayInitialize(KlasterTime,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
//--Индикатор бинарный код - цель получение повторений индикатора
Price1=0;
Price0=0;
// присваивание значения индексам для массива
// IFb1=0;//номер строки
// IFb2=0;// ячейка в строке
// ArrayInitialize(bintoarr,10);//Инициализирую массив при запуске советника
// ArrayInitialize(BinaryToArray,10);//Инициализирую массив при запуске советника
// 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);//Загрузка
// 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);//Загрузка
// 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,KlasterTime,0,WHOLE_ARRAY);
FileClose(file_handle30);
}
//-----------------------------------------------------------------------------------
//-----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)//индекс заполняемой строки в массиве
{
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]);//Ошибок НЕТ
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]);//ассмотреть масив по столбцам раздельно
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
//-----Индексы
//Print("Индекс записи inx ",inx);
//Print("Глубина Боди inx_1 ",inx_1);
//Print("Колличество заполненных элементов inx_2 ",inx_2);
//-----Проверка записи
//for(int ghj=1; ghj<2000; ghj++)
// {
// if(BodyHorizont_Price[inx,ghj]==10)
//{
// Print(" Конец заполненой строки ",ghj);
// break;
// }
// }
// Print("Цена начало боди ",body[1,0]);
// Print("Цена конец боди ",body[inx_1-1,0]);
// Print("Бинкод начало боди ",body[inx_1,1]);
// Print("Бинкод Конец боди ",body[inx_1-1,1]);
//Print("Бинкод начало массива ",BodyHorizont_Bin[inx,1]);
//Print("Бинкод Конец массива ",BodyHorizont_Bin[inx,inx_1-1]);
//Print("Цена начало массива ",BodyHorizont_Price[inx,1]);
//Print("Цена конец массива ",BodyHorizont_Price[inx,inx_1-1]);
//Print("Цена начало массива -контроль ",BodyHorizont_Price[inx,0]);
//Print("Цена конец массива - контроль ",BodyHorizont_Price[inx,inx_1]);
//Print("Бинкод начало массива -контроль ",BodyHorizont_Bin[inx,0]);
//Print("Бинкод конец массива - контроль ",BodyHorizont_Bin[inx,inx_1]);
//Print("Время - контроль ",BodyHorizont_Time[inx]);
//----------------------------------------------------------
//for(int mn=1; mn<inx_1; mn++)
// {
// Print("Цена весь Массив ",BodyHorizont_Price[inx,mn]);
// }
// for(int mn=1; mn<inx_1; mn++)
// {
// Print("Бинкод Весь Массив ",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;//Получаю цену указателя
bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
}
if(body[1,1]==0)//Если в бинарной ячейке 1 то указуваем на цену выше - 0,00001
{
// Indicate the price
double price=body[1,3]-0.00001;//Получаю цену указателя
bodypips[1,0]=price;// Assign the price to the first box of the array. The array is filled with 0;
bodypips[1,1]=bodypips[1,1]+1;// Increase the value of the array + 1;
}
}
// ----- Processing the loop from the second line of the array -----
Switch1=0;// Switch between iterations
for(iaq=2; iaq<=99998; iaq++)// Iterate through the body array
{
if(Array_Errors==true)
{
Print(" Index Array ",iaq," Array Name Body 1248");
}
Switch1=0;// Assign 0 when re-entering the overflow
if(body[iaq,0]>0 && body[iaq,0]<3)
{
// ---------- Processing 1 --------------
if(body[iaq,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
{
// Indicate the price
double price=body[iaq,0]+0.00001;// Get the price of the pointer
int findeprice=0;//
int Break1=0;//exit from enumeration 1
int Break2=0;//exit from enumeration 1
for(ibq=1; ibq<=99998; ibq++)//Perebor stolbca 1
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," Array Name Bodypips 1265");
}
//Print("Price -7 ",price);
if(bodypips[ibq,0]==price)
{
//bodypips[ib,0]=price;//Присваиваю цену в первую ящейку массива.Массив заполнен 0;
bodypips[ibq,1]=bodypips[ibq,1]+1;
findeprice=1;// Assign 1 since we entered the body
Break1=1;// Assign 1 since we entered the body
Switch1=1;// Function executed; switch to column 3 is not necessary
break;
}
if(Break1==1)
{
break;
}
}
// ------ If there is no price, then add the price below ------
if(findeprice==0)// If the price is not found, then you need to add an entry to the arrayь
{
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",inx," 1289");
}
if(bodypips[ibq,0]==0)
{
//Print("Price -6 ",price);
bodypips[ibq,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
Break2=1;
Switch1=1;
break;
}
if(Break2==1)
{
break;
}
}
}
}
// ------ Processing 0 ------
if(body[iaq,1]==0)// If in binary cell 1, then indicate the price higher - 0.00001
{
double price=body[iaq,0]-0.00001;// Get the price of the pointer
int findeprice=0;
int Break1=0;
int Break2=0;
Switch1=1;
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1319");
}
//Print("Price -5 ",price);
if(bodypips[ibq,0]==price)
{
//bodypips[ib,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
findeprice=1;
Break1=1;
break;
}
if(Break1==1)
{
break;
}
}
// ------ If there is no price, then add the price below -------
if(findeprice==0)// If the price is not found, then you need to add an entry to the array
{
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1342");
}
if(bodypips[ibq,0]==0)
{
//Print("Price -4 ",price);
bodypips[ibq,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
Break2=1;
Switch1=1;
break;
}
if(Break2==1)
{
break;
}
}
}
}
//---
}
if(Switch1==0)// If the switch is 1, then iterate over column 3
{
// ------- If the price record in the array is in column 3 ------
if(body[iaq,3]>0 && body[iaq,3]<3)
{
if(body[iaq,1]==1)// If there is 1 in a binary cell, then indicate the price above + 0.00001
{
double price=body[iaq,3]+0.00001;
int findeprice=0;
int Break1=0;
int Break2=0;
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1377");
}
//Print("Price -3 ",price);
if(bodypips[ibq,0]==price)
{
//bodypips[ib,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
findeprice=1;
Break1=1;
break;
}
if(Break1==1)
{
break;
}
}
// ------- If there is no price, then add the price below ------
if(findeprice==0)//Если не найдена цена значит нужно добавить в массив запись
{
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1400");
}
if(bodypips[ibq,0]==0)
{
//Print("Price -2 ",price);
bodypips[ibq,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
Break2=1;
break;
}
if(Break2==1)
{
break;
}
}
}
}
// ---------- Processing 0 ----------------
if(body[iaq,1]==0)// If in binary cell 1, then indicate the price higher - 0.00001
{
double price=body[iaq,3]-0.00001;
int findeprice=0;
int Break1=0;
int Break2=0;
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1428");
}
//Print("Price -1 ",price);
if(bodypips[ibq,0]==price)
{
//bodypips[ib,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
findeprice=1;
Break1=1;
break;
}
if(Break1==1)
{
break;
}
}
// ------ If there is no price, then add the price below ------
if(findeprice==0)
{
for(ibq=1; ibq<=99998; ibq++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ibq," 1451");
}
if(bodypips[ibq,0]==0)
{
//Print("Price ",price);
bodypips[ibq,0]=price;
bodypips[ibq,1]=bodypips[ibq,1]+1;
Break2=1;
break;
}
if(Break2==1)
{
break;
}
}
}
}
}
}
}
for(int ic=1; ic<=99998; ic++)//Perebor stolbca 1
{
if(Array_Errors==true)
{
Print(" Index Array ",ic," 1475");
}
comp_bodypips[ic]=bodypips[ic,1];
//Print("line 1031 ",bodypips[ic,1]);
//Print("line 1032 ",bodypips[ic,0]);
if(bodypips[ic,0]==0)
{
break;
}
}
MaxInd_bodypips=ArrayMaximum(comp_bodypips,WHOLE_ARRAY,0);// Get the index in the array in which the binary code for the price showed the most
//+------------------------------------------------------------------+
//|END Maximum Price Reference |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| Counter Summa 1/0 - Maximum , Minimum INDICARTOR |
//+------------------------------------------------------------------+
k=0;
ArrayInitialize(MaxMinArr,0);
int inf;
int ic;
for(ic=1; ic<=99998; ic++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ic," 1500");
}
if(body[ic,0]==10)
{
break;
}
}
inf=ic-1;
int b1=(int)body[1,1];
if(b1==1)
{
k=1;
};
if(b1==0)
{
k=0;
};
MaxMinArr[1,1]=k;
MaxMinArr[1,2]=k;
//-----------------------------
int ina;
for(ina=2; ina<=inf; ina++)
{
if(Array_Errors==true)
{
Print(" Index Array ",ina," 1525");
}
if(body[ina,1]==1)
{
k++;
MaxMinArr[1,1]=k;
//Print(" k++ ",k);
}
if(body[ina,1]==0)
{
k--;
MaxMinArr[1,2]=k;
// Print(" k-- ",k);
}
}
//Print(" k++ Ar",MaxMinArr[1,1]," k-- Ar",MaxMinArr[1,2]);
//--------Max Min Numbers
Maximum=MaxMinArr[1,1];//bool
Minimum=MaxMinArr[1,2];//bear
//Print(" Maximum ",Maximum," Minimum ",Minimum);
///-----------------------------
double operandopen=iOpen(Symbol(),PERIOD_M1,1);
double operandclose=iClose(Symbol(),PERIOD_M1,1);
if(body[zeroindex,0]>0 && body[zeroindex,0]<2)
{
PriceZero=body[zeroindex,0];//Цена первого 0
}
else
PriceZero=body[zeroindex,3];
//Print(" PriceZero ",PriceZero);
//----------Индикатор сложения бинарного кода с ценой зеро-----------------
if(Maximum>0)
{
restantemaximum=NormalizeDouble(Maximum*Point,5);
resOperandMax=operandopen-restantemaximum;
}
if(Maximum<0)
{
Maximum=MathAbs(Maximum);
restantemaximum=NormalizeDouble(Maximum*Point,5);
resOperandMax=operandopen-restantemaximum;
}
//Print(" restantemaximum ",restantemaximum," Maximum ",Maximum," operandopen ",operandopen," resOperandMax ",resOperandMax);
if(Minimum>0)
{
restanteminimum=NormalizeDouble(Minimum*Point,5);
resOperandMin=operandclose+restanteminimum;
}
if(Minimum<0)
{
Minimum=MathAbs(Minimum);
restanteminimum=NormalizeDouble(Minimum*Point,5);
resOperandMin=operandclose+restanteminimum;
}
//Print(" restanteminimum ",restanteminimum," Minimum ",Minimum," operandclose ",operandclose," resOperandMin ",resOperandMin);
bool tr=false;
if(resOperandMax==PriceZero || resOperandMin==PriceZero)
{
tr=true;
}
//Print( " tr ",tr);
// --- The last digit indicates the type of resistance that formed inside the candle --- //
//int LasData=MaxMinArr[inf];// Used for the divergence indicator
//+------------------------------------------------------------------+
//| END Counter Summa 1/0 - Maximum , Minimum INDICARTOR Vivos Bo Muertos Be |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//|Sunflower Seed sides |
//+------------------------------------------------------------------+
// ----- Formula 2 - If the new price is higher than the previous one, then the resulting maximum is translated into pips and summed up to the previous price (price + 1) price
// If the new price is less than the previous one, then the resulting maximum is translated into pips and minus the previous price (price-1) price.
// The obtained result is compared with the current price. If the price has risen and the current price is less than price-1 plus pips, then the price is inside
// If the price has dropped and the price is higher than the price-1 minus pips, then the price is inside I will Condition 0
// If the price has risen and the current price is higher than the price-1 plus pips, then the price is outside
// If the price has dropped and the price is less than price-1 minus pips, then the price is outside and I will Condition 1
double PipsPrice=NormalizeDouble(pips_Menus_one*Point,5);
BinInd3BO=10;
BinInd3BE=10;
//Указатель Мама Папа и Крёсный и Крёсная
if(bodypips[MaxInd_bodypips,0]>price_Menus_one)
{
price_plus=price_Menus_one+PipsPrice;// Summed to the price -1 pips of the maximum -1
if(bodypips[MaxInd_bodypips,0]<price_plus)// If the current price is less than the Received price with pips, then the price inside is assigned 1
{
BinInd3=0;
BinInd3BO=0;
//Андрей Владимировичь Копаницкий
Bo="Bo_"+IntegerToString(BinInd3);
//Подача значений на маховик
Bo_0=1;//Подача значений для X
z_Bo_0=1;//Подача значений для Z
Bo_0_C=1;//Подача значений для Kupol
f_Bo_0=1;// Складывание в Лепесток
//Обнуление преременных подачи после расчёта по блоку
Be_0_C=0;
Be_1_C=0;
Bo_1_C=0;
}
if(bodypips[MaxInd_bodypips,0]>price_plus)
{
//Салко Гриша
BinInd3=1;
BinInd3BO=1;
Bo="Bo_"+IntegerToString(BinInd3);
//Подача значений на маховик
Bo_1=1;//Подача значений для X
z_Bo_1=1;//Подача значений для Z
Bo_1_C=1;//Подача значений для Kupol
f_Bo_1=1;// Складывание в Лепесток
//Обнуление преременных подачи после расчёта по блоку
Be_0_C=0;
Bo_0_C=0;
Be_1_C=0;
}
}
//------------------------------------------------
if(bodypips[MaxInd_bodypips,0]<price_Menus_one)
{
price_minus=price_Menus_one-PipsPrice;
if(bodypips[MaxInd_bodypips,0]>price_minus)
{
//ЛАврова Ольга Сергеевна
BinInd3=0;
BinInd3BE=0;
Be="Be_"+IntegerToString(BinInd3);
//Подача значений на маховик
Be_0=1;//Подача значений для X
z_Be_0=1;//Подача значений для Z
Be_0_C=1;//Подача значений для Kupol
f_Be_0=1;// Складывание в Лепесток
//Обнуление преременных подачи после расчёта по блоку
Bo_0_C=0;
Be_1_C=0;
Bo_1_C=0;
}
if(bodypips[MaxInd_bodypips,0]<price_minus)
{
//Дюкарева Людмила Николаевна
BinInd3=1;
BinInd3BE=1;
Be="Be_"+IntegerToString(BinInd3);
//Подача значений на маховик
Be_1=1;//Подача значений для X
z_Be_1=1;//Подача значений для Z
Be_1_C=1;//Подача значений для Kupol
f_Be_1=1;// Складывание в Лепесток
//Обнуление преременных подачи после расчёта по блоку
Be_0_C=0;
Bo_0_C=0;
Bo_1_C=0;
}
}
//+------------------------------------------------------------------+
//|END Sunflower Seed sides |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//|Sunflower Cupol |
//+------------------------------------------------------------------+
//-----Rotation-----
//-----Ротация оси базируется на делении семечки подоснуха на 4 части.Присваиваются следующие индексы
//-----Be_0,Bo_0 (Снисходящий тренд, восходящий тренд).Bе_1,Bo_1 (Снисходящий тренд, восходящий тренд)
// -------- 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.
// ----Модуль проверки конверсии перменных в модулях
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-
//-----Расчёт Маховик Времени
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;
}
}
//--- Для вычисления полного цикла нужно иметь 2 переменные, Север и Юг
//--- Переменная, реальность 1для внешнего кольца не изменяется а остаётся постоянной константой. Счётчик при смене с севера на юг считает в обратном порядке.при смене с юга на север считает в правильном порядке.
//--- 4 стороны плюс 2 переворота.1_2_3_4_0/1
//--- Второй набор 1_2_3_4_0/1 часовые 1,2
//--- Третий набор 1_2_3_4_0/1 часовые 3 и 4 1_0/1 отношение север юг
//--- UP_BeBo0-1_0/1_1_2_3_4_0/1_1_2_3_4_0/1_1_2_3_4_0/1
// Присваивание значений из подсолнуха. Нужно определить в какую из 4 переменных произведено присваивание.
//+------------------------------------------------------------------+
//|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
//можно провести эквивалент расчёта архитектуры семечьки подсолнуха приравнивая к 4 семечкам кофе
//добавить счётчик сбора зёрен с файла
//1 euro - расчёт варьирования по семенам кофе. 1 буква равна максимальному варьированию.Кластер из 48 множу на 4 стороны света и получаю варьирование из 192 варриантов буз учёта фракций.
//итог чтобы получить букву из всего варьирования нижно привести к эквивалентности 1 варьирование равно 1 евро цент.
// и того мы получим 1,92 евро как еденицу буквы.
// теперь постараемся пощитать вложенный нами текст в банер рекламы
odna_chaska_kofe=15;// грн
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 зерен кофе
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 зёрен кофе
kolvo_zeren_sessiya=(one_BE+zero_BE)/2;//Для приведения зерна кофе к 4 граням зерна подсолнуха нужно использовать 2 зерна
kolvo_zeren=kolvo_zeren+kolvo_zeren_sessiya;//Колличество зёрен при складывании сессий.
//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 |
//+------------------------------------------------------------------+
// Исходное положение Свеча компинсации. Переустановка значений
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;
// Установка позиции маховика на Север
sev=1;// обработка события Север
zap=0;
yug=0;
vost=0;
// Установка Лица
lic=1;
izn=0;
// Снятие разрешение на установление севера
Compens=false;
// Установить значения массива на 0 и 1
// Лицо
Sev[1,1]=0;//Be_0
Sev[1,2]=0;//Bo_0
Sev[1,3]=0;//Be_1
Sev[1,4]=0;//Bo_1
// Изнанка
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;
//Установление значений оси ЗЕТ "Z"
z_sev=1;// обработка события Север
z_zap=0;
z_yug=0;
z_vost=0;
// Установка Лица
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;
// Изнанка
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;
// Массив цветок
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);
}
//Установка в 0 исходных переменных при лице
//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_ ");
//Подача значений
int Var2_Be_0_p,Var2_Bo_0_p,Var2_Be_1_p,Var2_Bo_1_p;
if(Be_0==1)
{
Var2_Be_0=1;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
Be_0=0;
Bo_0=0;
Be_1=0;
Bo_1=0;
//impresion
Var2_Be_0_p=1;
}
if(Bo_0==1)
{
Var2_Be_0=2;
Var2_Bo_0=1;
Var2_Be_1=2;
Var2_Bo_1=2;
Be_0=0;
Bo_0=0;
Be_1=0;
Bo_1=0;
//impresion
Var2_Bo_0_p=1;
}
if(Be_1==1)
{
Var2_Be_1=1;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Bo_1=2;
Be_0=0;
Bo_0=0;
Be_1=0;
Bo_1=0;
//impresion
Var2_Be_1_p=1;
}
if(Bo_1==1)
{
Var2_Bo_1=1;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Be_0=0;
Bo_0=0;
Be_1=0;
Bo_1=0;
//impresion
Var2_Bo_1_p=1;
}
// Варианты вращение в правильной позиции. Смена строны производится мо методу переварота страницы в книге с лева на право или с права на лево
// Вращение производится базируясь на вторую переменную. После присваивания и расчёта значения из второй переменной перетекают в первую.
//Перед обработкой событий нужно выявить все правила для каждого направления.
//Переприсваивание значения в тойже плоскости и том же лице если выпало тоже самое значение.Пример Be_0 и Be_0
//Asignacion de datos a base de calculos de Claster
// Print("1 - bodypips[MaxInd_bodypips,0] ",bodypips[MaxInd_bodypips,0]);
float opa_float=bodypips[MaxInd_bodypips,0]*100000;
int opa=opa_float;
double opa_double=bodypips[MaxInd_bodypips,0]*100000;
// Print("1- OPA ",opa);
// Print("1- opa_float ",opa_float);
// Print("1- opa_double ",opa_double);
//запуск кластерной архитектуры
//доступ в массив по индексу
int sev_p,zap_p,yug_p,vost_p;
if(flower_Price_3[opa,36]==1)
{
sev=1;
zap=0;
yug=0;
vost=0;
sev_p=1;
}
if(flower_Price_3[opa,36]==2)
{
sev=0;
zap=0;
yug=0;
vost=1;
vost_p=1;
}
if(flower_Price_3[opa,36]==3)
{
sev=0;
zap=0;
yug=1;
vost=0;
yug_p=1;
}
if(flower_Price_3[opa,36]==4)
{
sev=0;
zap=1;
yug=0;
vost=0;
zap_p=1;
}
if(flower_Price_3[opa,35]==1)
{
Var1_Be_0=0;
Var1_Bo_0=1;
Var1_Be_1=1;
Var1_Bo_1=1;
}
if(flower_Price_3[opa,35]==2)
{
Var1_Be_0=1;
Var1_Bo_0=0;
Var1_Be_1=1;
Var1_Bo_1=1;
}
if(flower_Price_3[opa,35]==3)
{
Var1_Be_0=1;
Var1_Bo_0=1;
Var1_Be_1=0;
Var1_Bo_1=1;
}
if(flower_Price_3[opa,35]==4)
{
Var1_Be_0=1;
Var1_Bo_0=1;
Var1_Be_1=1;
Var1_Bo_1=0;
}
// Назначение переменной
if(Var1_Be_0==0 && Var2_Be_0==1)
{
Var1_Bo_0=0;
Var2_Be_0=1;
}
if(Var1_Be_0==2 && Var2_Be_0==1)
{
Var2_Be_0=1;
}
if(Var1_Bo_0==0 && Var2_Bo_0==1)
{
Var1_Be_0=0;
Var2_Bo_0=1;
}
if(Var1_Bo_0==2 && Var2_Bo_0==1)
{
Var2_Bo_0=1;
}
if(Var1_Be_1==0 && Var2_Be_1==1)
{
Var1_Bo_1=0;
Var2_Be_1=1;
}
if(Var1_Be_1==2 && Var2_Be_1==1)
{
Var2_Be_1=1;
}
if(Var1_Bo_1==0 && Var2_Bo_1==1)
{
Var1_Be_1=0;
Var2_Bo_1=1;
}
if(Var1_Bo_1==2 && Var2_Bo_1==1)
{
Var2_Bo_1=1;
}//CHeck ok
//Print("Step3 ",Var1_Be_0," Var1_Be_0 ",Var1_Bo_0," Var1_Bo_0 ",Var1_Be_1," Var1_Be_1 ",Var1_Bo_1," Var1_Bo_1 ");
//Print("Step4 ",Var2_Be_0," Var2_Be_0 ",Var2_Bo_0," Var2_Bo_0 ",Var2_Be_1," Var2_Be_1 ",Var2_Bo_1," Var2_Bo_1 ");
ArrayInitialize(errorprint,0);
bool ChekDIr=true;//еременная разрешающая 1 раз в цикл анализиравать блок направлений по компасу
string BlockNum="0";
// Правильная конфигурация Север
// 1
// Правильная конфигурация Север
// 1
//+------------------------------------------------------------------+
//| Sunflower 1/0 - Cluster meter |
//+------------------------------------------------------------------+
if(sev==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-om место то следует подавать с северной стороны блюдо номер 2
{
Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 1";
errorprint[1]=1;
//официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
// 2
if(sev==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с северной стороны блюдо номер 1
{
Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 2";
errorprint[2]=1;
//официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
// 3
if(sev==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с северной стороны блюдо номер 4
{
Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 3";
errorprint[3]=1;
//официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
// 4
if(sev==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)//Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с северной стороны блюдо номер 3
{
Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 4";
errorprint[4]=1;
//официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
// 5
// Не правильная конфигурация
//Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ом место то следует подавать с Восточьной стороны блюдо номер 4 "Используя подачи с левой руки"
if(sev==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true) //Смещение по регистру с Севера *| на Запад «-
{
// разрешение на обработку события.
Vost_1=1;
Sev_1=0;
Zap_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="S 5";
errorprint[5]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Be_1=0;
}
//Второй варриант подачи абьёма после разворота по компасу
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;//Исходная переменная обнуляется для корректной работы механизма
Var1_Bo_1=0;// Правельная переменная
Var2_Be_1=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию
// После разворота с севера на Восток, подача с Бо 1 Превращается в Бе1 а значит задействуется вторая правельна переменная для регистра обьёма Бо1
}
//Ссылка на инструкцию
}
// 6
//Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки"
if(sev==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Запад «-
{
// разрешение на обработку события. ok
Zap_1=1;
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 6";
errorprint[6]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 7
//Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны блюдо номер 3 "Используя подачи с правой руки"
if(sev==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Восток -» //Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны блюдо номер 3 "Используя подачи с правой руки"
{
// разрешение на обработку события. ok
Vost_1=0;
//Запрет для 3 направлений
Zap_1=1;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="S 7";
errorprint[7]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 8
//Если официант подаёт с северной стороны и предыдущее блюдо на 3-м месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточьной стороны блюдо номер 2 "Используя подачи с правой руки"
if(sev==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Восток -»
{
// разрешение на обработку события. ok
Vost_1=1;
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="S 8";
errorprint[8]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 9
//Если официант подаёт с северной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Южной стороны блюдо номер 4 "Используя подачи с правой руки"
if(sev==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
Yug_1=1;
// разрешение на обработку события.ok
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="S 9";
errorprint[9]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var2_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 10
//Если официант подаёт с северной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны блюдо номер 2 "Используя подачи с правой руки"
if(sev==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
Yug_1=1;
// разрешение на обработку события.
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Var1_Be_1=0;
//Var2_Bo_1=1;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="S 10";
errorprint[10]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var2_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 11
//Если официант подаёт с северной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны блюдо номер 3 "Используя подачи с правой руки"
if(sev==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
Yug_1=1;
// разрешение на обработку события. ok
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="S 11";
errorprint[11]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var2_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 12
//Если официант подаёт с северной стороны и предыдущее блюдо на 3-eм месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки"
if(sev==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
Yug_1=1;
// разрешение на обработку события. ok
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="S 12";
errorprint[12]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var2_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
//__________________________________
// Правильная конфигурация Запад
//Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
{
Zap_1=1;// разрешение на обработку события.
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 1";
errorprint[13]=1;
//став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
// 2
//Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
{
Zap_1=1;// разрешение на обработку события.
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 2";
errorprint[14]=1;
//став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
// 3
//Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
{
Zap_1=1;// разрешение на обработку события.
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 3";
errorprint[5]=1;
//став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
// 4
//Если официант подаёт с западной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
{
Zap_1=1;// разрешение на обработку события.
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 4";
errorprint[16]=1;
//став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
// 5
// Не правильная конфигурация
//Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true) //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
{
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=1;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 5";
errorprint[17]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на север официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
// 6
//Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true) //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
{
// разрешение на обработку события.ok
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=1;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Z 6";
errorprint[18]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 7
//Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true) //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
{
// разрешение на обработку события.ok
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=1;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Z 7";
errorprint[19]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 8
//Если официант подаёт с западной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true) //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
{
// разрешение на обработку события. ok
Yug_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=1;
//Var2_Be_0=1;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Z 8";
errorprint[20]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на север официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 9
//Если официант подаёт с западной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
Vost_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Sev_1=0;
Zap_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Z 9";
errorprint[21]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var2_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 10
//Если официант подаёт с западной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки"
if(zap==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
Vost_1=1;
// разрешение на обработку события. ok
Zap_1=0;
//Запрет для 3 направлений
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Z 10";
errorprint[22]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var2_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 11
//Если официант подаёт с западной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(zap==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
Vost_1=1;
// разрешение на обработку события.ok
Zap_1=0;
//Запрет для 3 направлений
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Z 11";
errorprint[23]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var2_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 12
//Если официант подаёт с западной стороны и предыдущее блюдо на 3-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(zap==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
Vost_1=1;
// разрешение на обработку события.ok
Zap_1=0;
//Запрет для 3 направлений
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Z 12";
errorprint[24]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var2_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
//__________________________________
// Правильная конфигурация Восток
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
{
Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="V 1";
errorprint[25]=1;
//став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
// 2
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 1-е место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
{
Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="V 2";
errorprint[26]=1;
//став лицом на восток официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
// 3
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-е место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
{
Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="V 3";
errorprint[27]=1;
//став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
// 4
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
{
Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="V 4";
errorprint[28]=1;
//став лицом на восток официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
// 5
// Не правильная конфигурация
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true) //Смещение по регистру с Востока -» на Север *| . 9 часов
{
// разрешение на обработку события.
Sev_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=1;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="V 5";
errorprint[29]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
// 6
//Если официант подаёт с Восрочной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true) //Смещение по регистру с Востока -» на Север *| 9 часов
{
// разрешение на обработку события.ok
Sev_1=1;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 6";
errorprint[30]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на север официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 7
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Юг .| 3 часа
{
// разрешение на обработку события.ok
Sev_1=1;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 7";
errorprint[31]=1;
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на север официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 8
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-е место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Юг .| 3 часа
{
// разрешение на обработку события.ok
Yug_1=1;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="V 8";
errorprint[32]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 9
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
Zap_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Sev_1=0;
Vost_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 9";
errorprint[33]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var2_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 10
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
Zap_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Sev_1=0;
Vost_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 10";
errorprint[34]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var2_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 11
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
Zap_1=1;
// разрешение на обработку события.ok
Vost_1=0;
//Запрет для 3 направлений
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 11";
errorprint[35]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var2_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 12
//Если официант подаёт с Восточной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(vost==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
Zap_1=1;
// разрешение на обработку события.ok
Vost_1=0;
//Запрет для 3 направлений
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="V 12";
errorprint[36]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var2_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
//__________________________________
// Правильная конфигурация Юг
// 1
//Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_0==0 && Var2_Bo_0==1 && ChekDIr==true)
{
Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Y 1";
errorprint[37]=1;
//став лицом на юг официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
// 2
//Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_0==0 && Var2_Be_0==1 && ChekDIr==true)
{
Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Y 2";
errorprint[38]=1;
//став лицом на юг официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
// 3
//Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_1==0 && Var2_Bo_1==1 && ChekDIr==true)
{
Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Y 3";
errorprint[39]=1;
//став лицом на юг официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
// 4
//Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Южной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_1==0 && Var2_Be_1==1 && ChekDIr==true)
{
Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Sev_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=1;
vost=0;
ChekDIr=false;
BlockNum="Y 4";
errorprint[40]=1;
//став лицом на юг официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
// 5
// Не правильная конфигурация
//Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_0==0 && Var2_Bo_1==1 && ChekDIr==true) //Смещение по регистру с Юга на .| на Восток -» 9 часов
{
// разрешение на обработку события.ok
Zap_1=1;
//Запрет для 3 направлений
Vost_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 5";
errorprint[41]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на запад официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
// 6
//Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_1==0 && Var2_Be_0==1 && ChekDIr==true) //Смещение по регистру с Юга на .| на Восток -» 9 часов
{
// разрешение на обработку события.ok
Vost_1=1;
//Запрет для 3 направлений
Zap_1=0;
Sev_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Y 6";
errorprint[42]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на восток официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 7
//Если официант подаёт с Южной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Восточной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Запад «- 3 часа
{
// разрешение на обработку события.ok
Vost_1=1;
//Запрет для 3 нап равлений
Sev_1=0;
Zap_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=0;
yug=0;
vost=1;
ChekDIr=false;
BlockNum="Y 7";
errorprint[43]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на восток официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 8
//Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Западной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Запад «- 3 часа
{
// разрешение на обработку события.ok
Zap_1=1;
//Запрет для 3 направлений
Sev_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=0;
zap=1;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 8";
errorprint[44]=1;
//Перекласификация после разворота с класса 90 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на запад официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 9
//Если официант подаёт с Южной стороны и предыдущее блюдо на 2-ом месте а подаваемое блюдо Катируется в списке товара на 4-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_0==0 && Var2_Bo_1==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
Sev_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 9";
errorprint[45]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_0=2;
Var1_Be_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_0=2;
Var2_Bo_1=2;
Var1_Be_0=0;
Var2_Bo_0=1;//став лицом на север официант подаёт блюдо-заказ с правой руки дальнюю позицию
}
}
// 10
//Если официант подаёт с Южной стороны и предыдущее блюдо на 4-ом месте а подаваемое блюдо Катируется в списке товара на 2-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Bo_1==0 && Var2_Bo_0==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
Sev_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 10";
errorprint[46]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Bo_1=2;
Var1_Be_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Bo_1=2;
Var2_Bo_0=2;
Var1_Be_1=0;
Var2_Bo_1=1;//став лицом на север официант подаёт блюдо-заказ с левой руки ближнюю позицию
}
}
// 11
//Если официант подаёт с Южной стороны и предыдущее блюдо на 1-ом месте а подаваемое блюдо Катируется в списке товара на 3-е место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_0==0 && Var2_Be_1==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
Sev_1=1;
// разрешение на обработку события.ok
Yug_1=0;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 11";
errorprint[47]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_0=2;
Var1_Bo_1=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_0=2;
Var2_Be_1=2;
Var1_Bo_0=0;
Var2_Be_0=1;//став лицом на север официант подаёт блюдо-заказ с левой руки дальнюю позицию
}
}
// 12
//Если официант подаёт с Южной стороны и предыдущее блюдо на 3-ем месте а подаваемое блюдо Катируется в списке товара на 1-ое место то следует подавать с Северной стороны блюдо номер 1 "Используя подачи с правой руки" .
if(yug==1 && Var1_Be_1==0 && Var2_Be_0==1 && ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
// разрешение на обработку события.ok
Sev_1=1;
//Запрет для 3 направлений
Zap_1=0;
Vost_1=0;
Yug_1=0;
//Проверка значения направления
sev=1;
zap=0;
yug=0;
vost=0;
ChekDIr=false;
BlockNum="Y 12";
errorprint[48]=1;
//Перекласификация после разворота с класса 180 градусов в класс 0 градусов
if(Vol_B_Chang_1==true)
{
Var1_Be_1=2;
Var1_Bo_0=0;
}
if(Vol_B_Chang_1==false)
{
Var1_Be_1=2;
Var2_Be_0=2;
Var1_Bo_1=0;
Var2_Be_1=1;//став лицом на север официант подаёт блюдо-заказ с правой руки ближнюю позицию
}
}
//+------------------------------------------------------------------+
//| END - Sunflower 1/0 - Cluster meter |
//+------------------------------------------------------------------+
//Слой Системы Коорденат. Расчёт системы коорденат базируется на выведенную архитектуру подсолнечника. Архитектура имеет 2 под архитектуры координат
//из которой выводится вся архитектура с использованием центра в каждом из углов и сопряжений 4 переменных. В сути можно представить квадрат с 9 центрами.
// 8 переметральных и 1 центральный.
// Выведение Групп по коорденатам с использованием полового признака. Be Женский род Bo Мужской род
//Grupo1 - исходный квадрат под индексом 1 в котором по средствам координат сведены 4 основные переменные.Человек взят для определения
//движение по средствам механики как лицо лицевые и изнаночные движения
// Соединение контура иконы Божей Матери "Кропивницкая церковь"
//Звёздочек вокруг иконы "Божей матери" Верикаль 2*12 Горизонталь 2*4 Всего 32
// Индекс BM - "Молитва божей матери"
//Comment(" Reloj ",Reloj," Contra Reloj ", Contra_Reloj," Reloj_1 ",Reloj_1," Contra Reloj_1 ", Contra_Reloj_1," Vost_1 ",Vost_1," Yug_1 ",Yug_1," Zap_1 ",Zap_1," Sev_1 ",Sev_1);
//Функция купольного вращения 2
//Проверка шаг 3
string napravlenie;
if(Sev_1==1)
{
napravlenie="Sev_1";
}
if(Yug_1==1)
{
napravlenie="Yug_1";
}
if(Zap_1==1)
{
napravlenie="Zap_1";
}
if(Vost_1==1)
{
napravlenie="Vost_1";
}
//Print(napravlenie);
// 4 направления в которых вложены 2 стороны и 8 регистров. В сумме 768 регистров
// ечать ошибок блока разрешений для индикатора Семечка
//for(int gh=1;gh<49;gh++)
//{
//Print("index ",gh);
//Print("errorprint ",errorprint[gh]);
ArrayInitialize(errorprint2,0);
//}
//Поведение северной стороны
//Поведение северной стороны
if(Sev_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица ok
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,2]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[1]=1;//Proverka zapuska bloka
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(Sev[1,2]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку ok
{
Sev[1,6]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[2]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению ok
if(Sev[1,6]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[3]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(Sev[1,6]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку ok
{
Sev[1,2]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[4]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,1]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[5]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(Sev[1,1]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,5]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[6]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки OK
{
//1/1 Bo_0 && Be_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,5]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[6]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(Sev[1,5]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,1]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[7]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,4]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[8]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(Sev[1,4]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,8]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[9]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// lic==1 фин
if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки OK
{
//1/1 Be_1 && Bo_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,8]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[10]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(Sev[1,8]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,4]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[11]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,3]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[12]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(Sev[1,3]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,7]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[13]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,7]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[14]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(Sev[1,7]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,3]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[15]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
}// Sever фин
//_____________________________________
// Поведение Юг
if(Yug_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,4]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[32]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(Sev[1,4]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,8]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[33]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// lic==1 фин
if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,8]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[34]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(Sev[1,8]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,4]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[35]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица ok
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,3]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[36]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(Sev[1,3]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,7]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[37]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,7]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[38]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(Sev[1,7]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,3]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[39]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,2]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[40]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(Sev[1,2]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,6]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[41]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,6]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[42]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(Sev[1,6]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,2]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gx++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[43]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,1]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[44]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(Sev[1,1]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,5]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[45]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,5]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[46]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(Sev[1,5]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,1]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gx--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[47]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// izn==1 фин
}// Yug фин
//___________________________________
// Поведение Запад
if(Zap_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,1]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[64]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(Sev[1,1]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,5]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[65]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,5]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[66]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(Sev[1,5]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,1]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[67]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,4]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[68]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(Sev[1,4]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,8]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[69]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,8]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[70]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(Sev[1,8]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,4]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[71]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,3]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[72]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(Sev[1,3]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,7]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[73]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// lic==1 фин
if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,7]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[74]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(Sev[1,7]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,3]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[75]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,2]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,2]=1;//ПРОВЕРИТъ Должно быть 1,4 Смена в регистре на противоположное значение на лице
Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[76]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(Sev[1,2]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,6]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[77]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,6]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,6]=1;//Проверить 1,7 Смена в регистре на противоположное значение на лице
Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[78]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(Sev[1,6]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,2]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[79]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
}// Zapad фин
//___________________________________
// Поведение Восток
if(Vost_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(lic==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,3]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[96]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(Sev[1,3]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,7]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[97]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// lic==1 фин
if(izn==1 && Var1_Be_0==0 && Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,7]==0 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[98]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(Sev[1,7]==1 && Var2_Bo_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,3]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=0;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[99]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(lic==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,2]==0 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[100]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(Sev[1,2]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,6]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[101]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_0==0 && Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,6]==0 && Var2_Be_0==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[102]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(Sev[1,6]==1 && Var2_Be_0==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,2]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=0;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=2;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[103]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(lic==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,1]==0 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[104]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(Sev[1,1]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,5]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[105]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(izn==1 && Var1_Be_1==0 && Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,5]==0 && Var2_Bo_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[106]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(Sev[1,5]==1 && Var2_Bo_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,1]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=2;
Var1_Bo_1=0;
//----------
Gy++;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[107]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(lic==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[108]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(Sev[1,4]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,8]=0;
lic=0;//Смена Стороны
izn=1;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[109]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(izn==1 && Var1_Bo_1==0 && Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(Sev[1,4]==0 && Var2_Be_1==1 && BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[110]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(Sev[1,4]==1 && Var2_Be_1==1 && BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
Sev[1,8]=0;
lic=1;//Смена Стороны
izn=0;//Смена Стороны
//Перераспределение разрешений переменных
Var1_Be_0=2;
Var1_Bo_0=2;
Var1_Be_1=0;
Var1_Bo_1=2;
//----------
Gy--;
Var2_Be_0=2;
Var2_Bo_0=2;
Var2_Be_1=2;
Var2_Bo_1=2;
BlockPermis=false;
errorprint2[111]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// izn==1 фин
}// Vostok фин
//Праверка шаг 4
string face;
if(lic==1)
{
face="lic";
}
if(izn==1)
{
face="izn";
}
//-----
//--Проверка на колличество входов в блоки
int err2=0;
for(int yk=0; yk<=149; yk++)
{
if(Array_Errors==true)
{
Print(" Index Array ",yk," 5211");
}
if(errorprint2[yk]==1)
{
err2++;
}
}
string Sterr2;
Sterr2=IntegerToString(err2);
//+------------------------------------------------------------------+
//|END Sunflower 8 bit volume feed side X calculation |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//|Sunflower 8 bit volume feed side Z calculation |
//+------------------------------------------------------------------+
//--Вращение Оси Z
if(z_Be_0==1)
{
z_Var2_Be_0=1;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_Be_0=0;
z_Bo_0=0;
z_Be_1=0;
z_Bo_1=0;
}
if(z_Bo_0==1)
{
z_Var2_Be_0=2;
z_Var2_Bo_0=1;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_Be_0=0;
z_Bo_0=0;
z_Be_1=0;
z_Bo_1=0;
}
if(z_Be_1==1)
{
z_Var2_Be_1=1;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Bo_1=2;
z_Be_0=0;
z_Bo_0=0;
z_Be_1=0;
z_Bo_1=0;
}
if(z_Bo_1==1)
{
z_Var2_Bo_1=1;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Be_0=0;
z_Bo_0=0;
z_Be_1=0;
z_Bo_1=0;
}
// Варианты вращение в правильной позиции. Смена строны производится мо методу переварота страницы в книге с лева на право или с права на лево
// Вращение производится базируясь на вторую переменную. После присваивания и расчёта значения из второй переменной перетекают в первую.
//Перед обработкой событий нужно выявить все правила для каждого направления.
//Переприсваивание значения в тойже плоскости и том же лице если выпало тоже самое значение.Пример Be_0 и Be_0
// Назначение переменной
if(z_Var1_Be_0==0 && z_Var2_Be_0==1)
{
z_Var1_Bo_0=0;
z_Var2_Be_0=1;
}
if(z_Var1_Be_0==2 && z_Var2_Be_0==1)
{
z_Var2_Be_0=1;
}
if(z_Var1_Bo_0==0 && z_Var2_Bo_0==1)
{
z_Var1_Be_0=0;
z_Var2_Bo_0=1;
}
if(z_Var1_Bo_0==2 && z_Var2_Bo_0==1)
{
z_Var2_Bo_0=1;
}
if(z_Var1_Be_1==0 && z_Var2_Be_1==1)
{
z_Var1_Bo_1=0;
z_Var2_Be_1=1;
}
if(z_Var1_Be_1==2 && z_Var2_Be_1==1)
{
z_Var2_Be_1=1;
}
if(z_Var1_Bo_1==0 && z_Var2_Bo_1==1)
{
z_Var1_Be_1=0;
z_Var2_Bo_1=1;
}
if(z_Var1_Bo_1==2 && z_Var2_Bo_1==1)
{
z_Var2_Bo_1=1;
}//CHeck ok
//Print("Step3 ",Var1_Be_0," Var1_Be_0 ",Var1_Bo_0," Var1_Bo_0 ",Var1_Be_1," Var1_Be_1 ",Var1_Bo_1," Var1_Bo_1 ");
//Print("Step4 ",Varz_Be_0," Varz_Be_0 ",Varz_Bo_0," Varz_Bo_0 ",Varz_Be_1," Varz_Be_1 ",Varz_Bo_1," Varz_Bo_1 ");
ArrayInitialize(z_errorprint,0);
bool z_ChekDIr=true;//еременная разрешающая 1 раз в цикл анализиравать блок направлений по компасу
z_BlockNum="0";
// Правильная конфигурация Север
// 1
// Правильная конфигурация Север
// 1
if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
{
z_Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 1";
z_errorprint[1]=1;
}
// 2
if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
{
z_Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 2";
z_errorprint[2]=1;
}
// 3
if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
{
z_Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 3";
z_errorprint[3]=1;
}
// 4
if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
{
z_Sev_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 4";
z_errorprint[4]=1;
}
// 5
// Не правильная конфигурация
if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) //Смещение по регистру с Севера *| на Запад «-
{
// разрешение на обработку события.
z_Vost_1=0;
z_Sev_1=0;
z_Zap_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 5";
z_errorprint[5]=1;
z_Var1_Be_0=2;
z_Var1_Be_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 6
if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Запад «-
{
// разрешение на обработку события.
z_Zap_1=0;
z_Sev_1=0;
z_Vost_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 6";
z_errorprint[6]=1;
z_Var1_Bo_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 7
if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Восток -»
{
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 7";
z_errorprint[7]=1;
z_Var1_Bo_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 8
if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Восток -»
{
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 8";
z_errorprint[8]=1;
z_Var1_Be_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 9
if(z_sev==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
z_Yug_1=0;
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 9";
z_errorprint[9]=1;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 10
if(z_sev==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
z_Yug_1=0;
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
//Var1_Be_1=0;
//Varz_Bo_1=1;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="S 10";
z_errorprint[10]=1;
z_Var1_Bo_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 11
if(z_sev==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
z_Yug_1=0;
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="S 11";
z_errorprint[11]=1;
z_Var1_Be_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 12
if(z_sev==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) // Смещение по регистру с Севера *| на Юг .|
{
z_Yug_1=0;
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="S 12";
z_errorprint[12]=1;
z_Var1_Be_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
//__________________________________
// Правильная конфигурация Запад
if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
{
z_Zap_1=1;// разрешение на обработку события.
z_Sev_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 1";
z_errorprint[13]=1;
}
// 2
if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
{
z_Zap_1=1;// разрешение на обработку события.
z_Sev_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 2";
z_errorprint[14]=1;
}
// 3
if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
{
z_Zap_1=1;// разрешение на обработку события.
z_Sev_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 3";
z_errorprint[5]=1;
}
// 4
if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
{
z_Zap_1=1;// разрешение на обработку события.
z_Sev_1=0;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 4";
z_errorprint[16]=1;
}
// 5
// Не правильная конфигурация
if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
{
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Z 5";
z_errorprint[17]=1;
z_Var1_Be_0=2;
z_Var1_Be_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 6
if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на Эг |. Смещение против часовой стрелки.
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Z 6";
z_errorprint[18]=1;
z_Var1_Bo_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 7
if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Z 7";
z_errorprint[19]=1;
z_Var1_Bo_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 8
if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на Севера *| Смещение по часовой стрелке
{
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
z_Sev_1=0;
//Varz_Be_0=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Z 8";
z_errorprint[20]=1;
z_Var1_Be_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 9
if(z_zap==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
z_Vost_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Sev_1=1;
z_Zap_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 9";
z_errorprint[21]=1;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 10
if(z_zap==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
z_Vost_1=0;
// разрешение на обработку события.
z_Zap_1=0;
//Запрет для 3 направлений
z_Sev_1=1;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 10";
z_errorprint[22]=1;
z_Var1_Bo_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 11
if(z_zap==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
z_Vost_1=0;
// разрешение на обработку события.
z_Zap_1=0;
//Запрет для 3 направлений
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 11";
z_errorprint[23]=1;
z_Var1_Be_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 12
if(z_zap==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) //Смещение по регистру с Запада «- на ВОсток -» Смещение 180 градусов
{
z_Vost_1=0;
// разрешение на обработку события.
z_Zap_1=0;
//Запрет для 3 направлений
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Z 12";
z_errorprint[24]=1;
z_Var1_Be_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
//__________________________________
// Правильная конфигурация Восток
if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
{
z_Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="V 1";
z_errorprint[25]=1;
}
// 2
if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
{
z_Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="V 2";
z_errorprint[26]=1;
}
// 3
if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
{
z_Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="V 3";
z_errorprint[27]=1;
}
// 4
if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
{
z_Vost_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="V 4";
z_errorprint[28]=1;
}
// 5
// Не правильная конфигурация
if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) //Смещение по регистру с Востока -» на Север *| . 9 часов
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 5";
z_errorprint[29]=1;
z_Var1_Be_0=2;
z_Var1_Be_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 6
if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) //Смещение по регистру с Востока -» на Север *| 9 часов
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 6";
z_errorprint[30]=1;
z_Var1_Bo_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 7
if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Юг .| 3 часа
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 7";
z_errorprint[31]=1;
z_Var1_Bo_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 8
if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Юг .| 3 часа
{
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 8";
z_errorprint[32]=1;
z_Var1_Be_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 9
if(z_vost==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
z_Zap_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Sev_1=1;
z_Vost_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 9";
z_errorprint[33]=1;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 10
if(z_vost==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
z_Zap_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Sev_1=1;
z_Vost_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 10";
z_errorprint[34]=1;
z_Var1_Bo_1=2;
z_Var1_Be_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 11
if(z_vost==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
z_Zap_1=0;
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 направлений
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 11";
z_errorprint[35]=1;
z_Var1_Be_0=2;
z_Var1_Bo_1=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 12
if(z_vost==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) // Смещение по регистру с Востока -» на Запад «- 6 часов
{
z_Zap_1=0;
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 направлений
z_Sev_1=0;
z_Yug_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="V 12";
z_errorprint[36]=1;
z_Var1_Be_1=2;
z_Var1_Bo_0=0;
//Смена Оси для правил Z
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
//__________________________________
// Правильная конфигурация Юг
// 1
if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1 && z_ChekDIr==true)
{
z_Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 1";
z_errorprint[37]=1;
}
// 2
if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1 && z_ChekDIr==true)
{
z_Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 2";
z_errorprint[38]=1;
}
// 3
if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1 && z_ChekDIr==true)
{
z_Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 3";
z_errorprint[39]=1;
}
// 4
if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1 && z_ChekDIr==true)
{
z_Yug_1=1;// разрешение на обработку события.
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=0;
z_Sev_1=0;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=1;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 4";
z_errorprint[40]=1;
}
// 5
// Не правильная конфигурация
if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) //Смещение по регистру с Юга на .| на Восток -» 9 часов
{
// разрешение на обработку события.
z_Zap_1=0;
//Запрет для 3 направлений
z_Vost_1=0;
z_Sev_1=1;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 5";
z_errorprint[41]=1;
z_Var1_Be_0=2;
z_Var1_Be_1=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 6
if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) //Смещение по регистру с Юга на .| на Восток -» 9 часов
{
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Sev_1=1;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 6";
z_errorprint[42]=1;
z_Var1_Bo_1=2;
z_Var1_Bo_0=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 7
if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Запад «- 3 часа
{
// разрешение на обработку события.
z_Vost_1=0;
//Запрет для 3 нап равлений
z_Sev_1=1;
z_Zap_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 7";
z_errorprint[43]=1;
z_Var1_Bo_0=2;
z_Var1_Bo_1=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 8
if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Запад «- 3 часа
{
// разрешение на обработку события.
z_Zap_1=0;
//Запрет для 3 направлений
z_Sev_1=1;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=1;
z_zap=0;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 8";
z_errorprint[44]=1;
z_Var1_Be_1=2;
z_Var1_Be_0=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 9
if(z_yug==1 && z_Var1_Bo_0==0 && z_Var2_Bo_1==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
z_Sev_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Y 9";
z_errorprint[45]=1;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 10
if(z_yug==1 && z_Var1_Bo_1==0 && z_Var2_Bo_0==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
z_Sev_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=0;
z_Vost_1=1;
//Проверка значения направления
z_sev=0;
z_zap=0;
z_yug=0;
z_vost=1;
z_ChekDIr=false;
z_BlockNum="Y 10";
z_errorprint[46]=1;
z_Var1_Bo_1=2;
z_Var1_Be_0=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 11
if(z_yug==1 && z_Var1_Be_0==0 && z_Var2_Be_1==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
z_Sev_1=0;
// разрешение на обработку события.
z_Yug_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 11";
z_errorprint[47]=1;
z_Var1_Be_0=2;
z_Var1_Bo_1=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
// 12
if(z_yug==1 && z_Var1_Be_1==0 && z_Var2_Be_0==1 && z_ChekDIr==true) // Смещение по регистру с Юга на .| на Север *| 6 часов
{
// разрешение на обработку события.
z_Sev_1=0;
//Запрет для 3 направлений
z_Zap_1=1;
z_Vost_1=0;
z_Yug_1=0;
//Проверка значения направления
z_sev=0;
z_zap=1;
z_yug=0;
z_vost=0;
z_ChekDIr=false;
z_BlockNum="Y 12";
z_errorprint[48]=1;
z_Var1_Be_1=2;
z_Var1_Bo_0=0;
z_CheFe=1;
if(z_CheFe==1 && z_lic==1)
{
z_izn=1;
z_lic=0;
z_CheFe=0;
}
if(z_CheFe==1 && z_izn==1)
{
z_izn=0;
z_lic=1;
z_CheFe=0;
}
}
//Проверка шаг 3
string z_napravlenie;
if(z_Sev_1==1)
{
z_napravlenie="z_Sev_1";
}
if(z_Yug_1==1)
{
z_napravlenie="z_Yug_1";
}
if(z_Zap_1==1)
{
z_napravlenie="z_Zap_1";
}
if(z_Vost_1==1)
{
z_napravlenie="z_Vost_1";
}
//Print(napravlenie);
// 4 направления в которых вложены 2 стороны и 8 регистров. В сумме 768 регистров
// ечать ошибок блока разрешений для индикатора Семечка
//for(int gh=1;gh<49;gh++)
//{
//Print("index ",gh);
//Print("errorprint ",errorprint[gh]);
ArrayInitialize(z_errorprint2,0);
//}
//Поведение северной стороны
if(z_Sev_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,2]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[1]=1;//Proverka zapuska bloka
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(z_Sev[1,2]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,6]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[2]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,5]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[3]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(z_Sev[1,5]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,1]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[4]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,1]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[5]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(z_Sev[1,1]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,5]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[6]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[6]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(z_Sev[1,6]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,2]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[7]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,4]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[8]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(z_Sev[1,4]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,8]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[9]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,7]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[10]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(z_Sev[1,7]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,3]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[11]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,3]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[12]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(z_Sev[1,3]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,7]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[13]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,8]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[14]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(z_Sev[1,8]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,4]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[15]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// izn==1 фин
}// Sever фин
//_____________________________________
// Поведение Юг
if(z_Yug_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,4]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[32]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(z_Sev[1,4]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,8]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[33]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[34]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(z_Sev[1,7]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,3]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[35]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,3]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[36]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(z_Sev[1,3]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,7]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[37]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,8]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[38]=1;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(z_Sev[1,8]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,4]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[39]=1;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,2]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[40]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(z_Sev[1,2]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,6]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[41]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,5]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[42]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(z_Sev[1,5]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,1]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gx++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[43]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,1]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[44]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(z_Sev[1,1]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,5]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[45]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,6]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[46]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(z_Sev[1,6]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,2]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gx--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[47]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
}// Yug фин
//___________________________________
// Поведение Запад
if(z_Zap_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,1]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[64]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(z_Sev[1,1]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,5]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[65]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,7]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[66]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(z_Sev[1,7]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,3]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[67]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,4]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[68]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(z_Sev[1,4]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,8]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[69]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,6]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[70]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(z_Sev[1,6]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,2]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[71]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,3]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[72]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(z_Sev[1,3]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,7]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[73]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,8]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[74]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(z_Sev[1,8]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,4]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[75]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,2]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,2]=1;//ПРОВЕРИТъ Должно быть 1,4 Смена в регистре на противоположное значение на лице
z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[76]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(z_Sev[1,2]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,6]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[77]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,5]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,5]=1;//Проверить 1,7 Смена в регистре на противоположное значение на лице
z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[78]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(z_Sev[1,5]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,1]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[79]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
}// Zapad фин
//___________________________________
// Поведение Восток
if(z_Vost_1==1)
{
//Подача значения на Лицо номер 1
//1 Be_0 && Bo_0
if(z_lic==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,3]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,3]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,7]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[96]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
if(z_Sev[1,3]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,7]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[97]=1;
kubo_8++;
Text_Kubo_8=IntegerToString(kubo_8);
ObjectSetString(0,obiekt509,OBJPROP_TEXT,Text_Kubo_8);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_0==0 && z_Var2_Bo_0==1) //Праверка регистра Bo_0 Изнанки
{
//1/1 Be_0 && Bo_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,8]==0 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,8]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,4]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[98]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
if(z_Sev[1,8]==1 && z_Var2_Bo_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,4]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=0;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[99]=1;
kubo_6++;
Text_Kubo_6=IntegerToString(kubo_6);
ObjectSetString(0,obiekt507,OBJPROP_TEXT,Text_Kubo_6);
}
}// izn==1 фин
//Подача значения на Лицо номер 2
//1 Bo_0 && Be_0
if(z_lic==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,2]==0 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,2]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,6]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[100]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
if(z_Sev[1,2]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,6]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[101]=1;
kubo_5++;
Text_Kubo_5=IntegerToString(kubo_5);
ObjectSetString(0,obiekt506,OBJPROP_TEXT,Text_Kubo_5);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_0==0 && z_Var2_Be_0==1) //Праверка регистра Be_0 Изнанки
{
//1/1 Bo_0 && Be_0
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,5]==0 && z_Var2_Be_0==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,5]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,1]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[102]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
if(z_Sev[1,5]==1 && z_Var2_Be_0==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,1]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=0;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=2;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[103]=1;
kubo_7++;
Text_Kubo_7=IntegerToString(kubo_7);
ObjectSetString(0,obiekt508,OBJPROP_TEXT,Text_Kubo_7);
}
}// izn==1 фин
//Подача значения на Лицо номер 3
//1 Be_1 && Bo_1
if(z_lic==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,1]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,1]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,5]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[104]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
if(z_Sev[1,1]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,5]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[105]=1;
kubo_2++;
Text_Kubo_2=IntegerToString(kubo_2);
ObjectSetString(0,obiekt503,OBJPROP_TEXT,Text_Kubo_2);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Be_1==0 && z_Var2_Bo_1==1) //Праверка регистра Bo_1 Изнанки
{
//1/1 Be_1 && Bo_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,6]==0 && z_Var2_Bo_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,6]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,2]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[106]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
if(z_Sev[1,6]==1 && z_Var2_Bo_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,2]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=2;
z_Var1_Bo_1=0;
//----------
z_Gy++;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[107]=1;
kubo_4++;
Text_Kubo_4=IntegerToString(kubo_4);
ObjectSetString(0,obiekt505,OBJPROP_TEXT,Text_Kubo_4);
}
}// izn==1 фин
//Подача значения на Лицо номер 4
//1 Bo_1 && Be_1
if(z_lic==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Лица
{
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,4]==0 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,4]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,8]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[108]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
if(z_Sev[1,4]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,8]=0;
z_lic=0;//Смена Стороны
z_izn=1;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[109]=1;
kubo_3++;
Text_Kubo_3=IntegerToString(kubo_3);
ObjectSetString(0,obiekt504,OBJPROP_TEXT,Text_Kubo_3);
}
}// lic==1 фин
if(z_izn==1 && z_Var1_Bo_1==0 && z_Var2_Be_1==1) //Праверка регистра Be_1 Изнанки
{
//1/1 Bo_1 && Be_1
bool z_BlockPermis=true;
// Сравнение состояния 2 регистров лица и изнанки по поданному значению
if(z_Sev[1,7]==0 && z_Var2_Be_1==1 && z_BlockPermis==true)// Смена в регистре на противоположное значение и Смена Лица на Изнанку
{
z_Sev[1,7]=1;//Смена в регистре на противоположное значение на лице
z_Sev[1,3]=0;//Смена в регистре на противоположное значение на изнанке
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[110]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
if(z_Sev[1,7]==1 && z_Var2_Be_1==1 && z_BlockPermis==true) // Смена в регистре не производитсяи Смена Лица на Изнанку
{
z_Sev[1,3]=0;
z_lic=1;//Смена Стороны
z_izn=0;//Смена Стороны
//Перераспределение разрешений переменных
z_Var1_Be_0=2;
z_Var1_Bo_0=2;
z_Var1_Be_1=0;
z_Var1_Bo_1=2;
//----------
z_Gy--;
z_Var2_Be_0=2;
z_Var2_Bo_0=2;
z_Var2_Be_1=2;
z_Var2_Bo_1=2;
z_BlockPermis=false;
z_errorprint2[111]=1;
kubo_1++;
Text_Kubo_1=IntegerToString(kubo_1);
ObjectSetString(0,obiekt502,OBJPROP_TEXT,Text_Kubo_1);
}
}// izn==1 фин
}// Vostok фин
//+------------------------------------------------------------------+
//|END Sunflower 8 bit volume feed side Z calculation |
//+------------------------------------------------------------------+
//-----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 |
//+------------------------------------------------------------------+
//-Купол - Расчёт базируется на 5 семечках и 4 архитектурах. Используется ценавая привязка к 20 центрам в 5 семечках
//-Формула расчёта привязки семечки
//Модуль позиционирования цены в купол
//Print(" 2 - bodypips[MaxInd_bodypips,0] ",bodypips[MaxInd_bodypips,0]);
Price=bodypips[MaxInd_bodypips,0];
//Print(" Price - ", Price);
//Print (" Price ",Price);
PriceConv1=(Price*cienm)/12;
// Print("PriceConv1 - ", PriceConv1);
PriceConv2=PriceConv1;
PriceConv4=PriceConv2;
PriceConv3=NormalizeDouble((PriceConv1-PriceConv4),2);
//N_Centro=PriceConv3/5;//Приведение цены к купольному центру
// Print(" PriceConv3 - ", PriceConv3);
N_Gr20=PriceConv2;
//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;
//+------------------------------------------------------------------+
//|END Sunflower - 5 cells of the church dome |
//+------------------------------------------------------------------+
//Print(" N_Centro ",N_Centro," N_Gr20 ",N_Gr20);
//Be_0
//Семечка 1
//Архитектура 1
//Заход в архитектуру по формуле
//Be_0
//+------------------------------------------------------------------+
//|Sunflower - sunflower seeds architecture |
//+------------------------------------------------------------------+
// ------ Свод Цена-Купол + Свод Цена - Крест Абьём
// Пример. Массива Север
// Sev[1,1]=0; Be_0
// Sev[1,2]=0; Bo_0
// Sev[1,3]=0; Be_1
// Sev[1,4]=0; Bo_1
//Блок Получения Разрешений для оброботки события расчёта патернов
//1.Расчитывается - сравнивается предыдущие значения с текущими
//Print(" comp_Sev[1,1]!=Sev[1,1] ",comp_Sev[1,1]!=Sev[1,1]); //
//Print(" comp_Sev ",comp_Sev[1,1],comp_Sev[1,2],comp_Sev[1,3],comp_Sev[1,4],comp_Sev[1,5],comp_Sev[1,6],comp_Sev[1,7],comp_Sev[1,8]);
//Print(" Sev ",Sev[1,1],Sev[1,2],Sev[1,3],Sev[1,4],Sev[1,5],Sev[1,6],Sev[1,7],Sev[1,8]);
if(comp_Sev[1,1]!=Sev[1,1] && Sev[1,1]==1)//Be_0 Место 1,5,9,13,17 Если в массиве появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
{
Per_Sev1=1;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev1 ",Per_Sev1);
Arch3=1;
} //присвоил разрешение на оброботку события
if(comp_Sev[1,2]!=Sev[1,2] && Sev[1,2]==1)//Bo_0 Место 2,6,10,14,18
{
Per_Sev1=0;
Per_Sev2=1;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev2 ",Per_Sev2);
Arch3=2;
}
if(comp_Sev[1,3]!=Sev[1,3] && Sev[1,3]==1)//Be_1 Место 3,7,11,15,19
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=1;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev3 ",Per_Sev3);
Arch3=3;
}
if(comp_Sev[1,4]!=Sev[1,4] && Sev[1,4]==1)//Bo_1 Место 4,8,12,16,20
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=1;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev4 ",Per_Sev4);
Arch3=4;
}
if(comp_Sev[1,5]!=Sev[1,5] && Sev[1,5]==1)//Be_0 Место 1,5,9,13,17 Если в массиве появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=1;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev1 ",Per_Sev1);
Arch3=5;
} //присвоил разрешение на оброботку события
if(comp_Sev[1,6]!=Sev[1,6] && Sev[1,6]==1)//Be_0 Место 1,5,9,13,17 Если в массиве появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=1;
Per_Sev7=0;
Per_Sev8=0;
//Print("Per_Sev1 ",Per_Sev1);
Arch3=6;
} //присвоил разрешение на оброботку события
if(comp_Sev[1,7]!=Sev[1,7] && Sev[1,7]==1)//Be_0 Место 1,5,9,13,17 Если в массиве появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=1;
Per_Sev8=0;
//Print("Per_Sev1 ",Per_Sev1);
Arch3=7;
} //присвоил разрешение на оброботку события
if(comp_Sev[1,8]!=Sev[1,8] && Sev[1,8]==1)//Be_0 Место 1,5,9,13,17 Если в массиве появились изменения после пересчёта с массивом сравнения то выявляется место в котором появились изменения и присваиваются разрешения на оброботку
{
Per_Sev1=0;
Per_Sev2=0;
Per_Sev3=0;
Per_Sev4=0;
Per_Sev5=0;
Per_Sev6=0;
Per_Sev7=0;
Per_Sev8=1;
//Print("Per_Sev1 ",Per_Sev1);
Arch3=8;
} //присвоил разрешение на оброботку события
//Print("Arch3 ",Arch3);
//int PermisBLock=0;
//if(comp_Sev[1,1]!=Sev[1,1] && comp_Sev[1,2]!=Sev[1,2] && comp_Sev[1,3]!=Sev[1,3] && comp_Sev[1,4]!=Sev[1,4] && comp_Sev[1,5]!=Sev[1,5] && comp_Sev[1,6]==Sev[1,6] && comp_Sev[1,7]==Sev[1,7] && comp_Sev[1,8]==Sev[1,8])//Если патерн после пересчёта на изменился относительно подачи абьёма
//{ PermisBLock=1;}
//if(PermisBLock==1 && Price_Compare!=bodypips[MaxInd_bodypips,0])//Если цена разная то доступ в блок открыт
//{
//2. Определяется номер центра и порядковый номер семечки
//Print("N_Centro 1 ",N_Centro);//test OK
N_Centro_r=0;
N_Centro=0;
PipsNumber=0;
if(PriceConv3==0.08)
{
N_Centro=1;
N_Centro_r=1;
PipsNumber=1;
}
if(PriceConv3==0.17)
{
N_Centro=2;
N_Centro_r=2;
PipsNumber=2;
}
if(PriceConv3==0.25)
{
N_Centro=3;
N_Centro_r=3;
PipsNumber=3;
}
if(PriceConv3==0.33)
{
N_Centro=4;
N_Centro_r=4;
PipsNumber=4;
}
if(PriceConv3==0.42)
{
N_Centro=5;
N_Centro_r=5;
PipsNumber=5;
}
if(PriceConv3==0.5)
{
N_Centro=6;
N_Centro_r=6;
PipsNumber=6;
}
if(PriceConv3==0.58)
{
N_Centro=7;
N_Centro_r=7;
PipsNumber=7;
}
if(PriceConv3==0.67)
{
N_Centro=8;
N_Centro_r=8;
PipsNumber=8;
}
if(PriceConv3==0.75)
{
N_Centro=9;
N_Centro_r=9;
PipsNumber=9;
}
if(PriceConv3==0.83)
{
N_Centro=10;
N_Centro_r=10;
PipsNumber=10;
}
if(PriceConv3==0.92)
{
N_Centro=11;
N_Centro_r=11;
PipsNumber=11;
}
if(PriceConv3==1 || PriceConv3==0.0)
{
N_Centro=12;
N_Centro_r=12;
PipsNumber=12;
}
//Print(" N_Centro ",N_Centro);
//Print(" N_Gr20 - ", N_Gr20);
//Print(" N_Centro_r ",N_Centro_r);ok
//Print(" PipsNumber ",PipsNumber);
//string PrintArch;
//3.Производится расчт по переменным Be_0,Bo_0,Be_1,Bo_1
//Расчёт по переменной Be_0 Место 1,5,9,13,17
//Print(" Be_0_C,Bo_0_C,Be_1_C,Bo_1_C" ,Be_0_C,Bo_0_C,Be_1_C,Bo_1_C);//ok
//InternalPat_1=0;
if(Per_Sev1==1 && N_Centro_r==1 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=1;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev1==1 && N_Centro_r==2 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=1;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev1==1 && N_Centro_r==3 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
// N_Centro_r==3 - зелёный
// Per_Sev1==1 - Подача обьёма на Be_0
// Be_0_C==1 - Подаваемая переменная в архитектуре центра 3
InternalPat_1=1;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev1==1 && N_Centro_r==4 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=1;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 2,6,10,14,18
if(Per_Sev2==1 && N_Centro_r==1 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=2;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev2==1 && N_Centro_r==2 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=2;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev2==1 && N_Centro_r==3 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=2;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev2==1 && N_Centro_r==4 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=2;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 3,7,11,15,19
if(Per_Sev3==1 && N_Centro_r==1 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=3;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev3==1 && N_Centro_r==2 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=3;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev3==1 && N_Centro_r==3 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=3;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev3==1 && N_Centro_r==4 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=3;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 4,8,12,16,20
if(Per_Sev4==1 && N_Centro_r==1 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=4;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev4==1 && N_Centro_r==2 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=4;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev4==1 && N_Centro_r==3 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=4;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev4==1 && N_Centro_r==4 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=4;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev5==1 && N_Centro_r==1 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=5;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev5==1 && N_Centro_r==2 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=5;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev5==1 && N_Centro_r==3 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
// N_Centro_r==3 - зелёный
// Per_Sev1==1 - Подача обьёма на Be_0
// Be_0_C==1 - Подаваемая переменная в архитектуре центра 3
InternalPat_1=5;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev5==1 && N_Centro_r==4 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=5;//Присваивание понимания обьёма и цены
//Per_Sev1=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 2,6,10,14,18
if(Per_Sev6==1 && N_Centro_r==1 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=6;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev6==1 && N_Centro_r==2 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=6;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev6==1 && N_Centro_r==3 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=6;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev6==1 && N_Centro_r==4 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=6;//Присваивание понимания обьёма и цены
//Per_Sev2=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 3,7,11,15,19
if(Per_Sev7==1 && N_Centro_r==1 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=7;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev7==1 && N_Centro_r==2 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=7;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev7==1 && N_Centro_r==3 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=7;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev7==1 && N_Centro_r==4 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=7;//Присваивание понимания обьёма и цены
//Per_Sev3=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Расчёт по переменной Be_0 Место 4,8,12,16,20
if(Per_Sev8==1 && N_Centro_r==1 && Bo_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=8;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev8==1 && N_Centro_r==2 && Be_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=8;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev8==1 && N_Centro_r==3 && Bo_1_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=8;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
if(Per_Sev8==1 && N_Centro_r==4 && Be_0_C==1)//Соеденение Цены в виде архитектуры и обьёма в виде бинарного механизма Патерн 1 Внутреннее соединение //
{
InternalPat_1=8;//Присваивание понимания обьёма и цены
//Per_Sev4=0;//Снятие разрешение на оброботку блока
//Print(" InternalPat_1 ",InternalPat_1," Price ",bodypips[MaxInd_bodypips,0]);
}
//Print(" R1 "," Per_Sev1 ",Per_Sev1," Per_Sev2 ",Per_Sev2," Per_Sev3 ",Per_Sev3," Per_Sev4 ",Per_Sev4," N_Centro_r ",N_Centro_r," Bo_0_C ",Bo_0_C," Be_0_C ",Be_0_C," Be_1_C ",Be_1_C," Bo_1_C ",Bo_1_C," InternalPat_1 ",InternalPat_1," Form_Patern_Finder[w3,8] ",Form_Patern_Finder[w3,8]);
// ------ Функция записи новой цены и отслеживание существующей на предмет складывания патерна "Внутреннего" ------
int newPrise=0;
int PriceExist=0;
for(w=1; w<=1000; w++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w," 9113");
}
if((Form_Patern_Finder[w,13]!=0 && Form_Patern_Finder[w,13]==N_Gr20 && Form_Patern_Finder[w,12]==PipsNumber && ((Form_Patern_Finder[w,1]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w,2]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w,3]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w,4]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==1) //Поиск цены . Возвращает индекс в массиве
{
PriceExist=1;
if(PriceExist==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==1/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w,11]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
// Print("Acces ok");
// Print("Form_Patern_Finder[w,2] ",Form_Patern_Finder[w,2]);
// Print("Form_Patern_Finder[w,3] ",Form_Patern_Finder[w,3]);
// Print("Form_Patern_Finder[w,4] ",Form_Patern_Finder[w,4]);
// Print("Form_Patern_Finder[w,5] ",Form_Patern_Finder[w,5]);
// Print("Form_Patern_Finder[w,8] ",Form_Patern_Finder[w,8]);
// Print("N_Centro_r ",N_Centro_r);
//Form_Patern_Finder[w,10]=Form_Patern_Finder[w,10]+1;//Подсчёт заходов на проверку при совпадении
//Прослеживаю существующий параметр патерна по 4 направлениям
//Центр 1 Желтый
int Change1=0,Change2=0,Change3=0,Change4=0;
//Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,2] ",Form_Patern_Finder[w,2]," N_Centro_r==1 ",N_Centro_r==1);
if(Form_Patern_Finder[w,5]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w,5]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w,1]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w,1]=iTime(Symbol(),PERIOD_M1,1);
Change1=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
{
Form_Patern_Finder[w,11]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
// Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,3] ",Form_Patern_Finder[w,3]," N_Centro_r==2 ",N_Centro_r==2);
if(Form_Patern_Finder[w,6]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w,6]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w,2]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w,2]=iTime(Symbol(),PERIOD_M1,1);
Change2=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
{
Form_Patern_Finder[w,11]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
//Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,4] ",Form_Patern_Finder[w,4]," N_Centro_r==3 ",N_Centro_r==3);
if(Form_Patern_Finder[w,7]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w,7]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w,3]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w,3]=iTime(Symbol(),PERIOD_M1,1);
Change3=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
{
Form_Patern_Finder[w,11]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
//Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w,5] ",Form_Patern_Finder[w,5]," N_Centro_r==4 ",N_Centro_r==4);
if(Form_Patern_Finder[w,8]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w,8]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w,4]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w,4]=iTime(Symbol(),PERIOD_M1,1);
Change4=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w,5]==1 && Form_Patern_Finder[w,6]==1 && Form_Patern_Finder[w,7]==1 && Form_Patern_Finder[w,8]==1)
{
Form_Patern_Finder[w,11]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
int WriteData=1;
for(int z=1; z<=1000; z++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z," 9203");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist==0 && (Form_Patern_Finder[z,1]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z,2]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z,3]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z,4]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData=0;
break;
}
}
if(PriceExist==0 && InternalPat_1==1 && WriteData==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine=0;
int t;
for(t=1; t<=1000; t++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t," 9219");
}
if(Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0 /*&& (Form_Patern_Finder[t,12]==PipsNumber && Form_Patern_Finder[t,13]==N_Gr20 ||Form_Patern_Finder[t,27]==PipsNumber && Form_Patern_Finder[t,28]==N_Gr20 || Form_Patern_Finder[t,42]==PipsNumber && Form_Patern_Finder[t,43]==N_Gr20 || Form_Patern_Finder[t,57]==PipsNumber && Form_Patern_Finder[t,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine=1;
break;
}
}
// for(t=1; t<1000; t++)
// {
// if(WRinLine=0 && Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
//Зацикливание процеса на остановке записывания в Массив данных
//int BlockPermis1=0;
// if(w==1000 && Form_Patern_Finder[t,1]>0)
// {
// BlockPermis1=1;
// }
// Print(" t ", t);
// if(BlockPermis1==0)
// { }
//Праизводится запись нового элемента
//новый элемент записан
//ok Print(" Form_Patern_Finder[t,1] ", Form_Patern_Finder[t,1]);
//ok Print(" N_Centro ",N_Centro_r);
//Print("t ",t);
if(N_Centro_r==1)
{
// Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t,5]=1;
Form_Patern_Finder[t,1]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t,1]=iTime(Symbol(),PERIOD_M1,1);
//Print(" Form_Patern_Finder[t,1] " ,Form_Patern_Finder[t,1]);
//ok Print(" Form_Patern_Finder[t,2] ", Form_Patern_Finder[t,2]);
}
if(N_Centro_r==2)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t,6]=1;
Form_Patern_Finder[t,2]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t,2]=iTime(Symbol(),PERIOD_M1,1);
//Print("Form_Patern_Finder[t,2] ",Form_Patern_Finder[t,2]);
//ok Print(" Form_Patern_Finder[t,3] ", Form_Patern_Finder[t,2]);
}
if(N_Centro_r==3)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t,7]=1;
Form_Patern_Finder[t,3]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t,3]=iTime(Symbol(),PERIOD_M1,1);
//Print("Form_Patern_Finder[t,3] ",Form_Patern_Finder[t,3]);
//ok Print(" Form_Patern_Finder[t,4] ", Form_Patern_Finder[t,4]);
}
if(N_Centro_r==4)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t,8]=1;
Form_Patern_Finder[t,4]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t,4]=iTime(Symbol(),PERIOD_M1,1);
// Print("Form_Patern_Finder[t,4] ",Form_Patern_Finder[t,4]);
//ok Print(" Form_Patern_Finder[t,5] ", Form_Patern_Finder[t,5]);
}
Form_Patern_Finder[t,12]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t,13]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t,14]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//BO_0
int newPrise1=0;
int PriceExist1=0;
for(w1=1; w1<=1000; w1++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w1," 9296");
}
if((Form_Patern_Finder[w1,28]!=0 && Form_Patern_Finder[w1,28]==N_Gr20 && Form_Patern_Finder[w1,27]==PipsNumber && ((Form_Patern_Finder[w1,16]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w1,17]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w1,18]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w1,19]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==2) //Поиск цены . Возвращает индекс в массиве
{
PriceExist1=1;
if(PriceExist==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==2/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w,26]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_1=0,Change2_1=0,Change3_1=0,Change4_1=0;
if(Form_Patern_Finder[w1,20]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w1,20]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w1,16]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w1,16]=iTime(Symbol(),PERIOD_M1,1);
Change1_1=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
{
Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w1,21]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w1,21]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w1,17]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w1,17]=iTime(Symbol(),PERIOD_M1,1);
Change2_1=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
{
Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w1,22]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w1,22]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w1,18]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w1,18]=iTime(Symbol(),PERIOD_M1,1);
Change3_1=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
{
Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w1,23]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w1,23]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w1,19]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w1,19]=iTime(Symbol(),PERIOD_M1,1);
Change4_1=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w1,20]==1 && Form_Patern_Finder[w1,21]==1 && Form_Patern_Finder[w1,22]==1 && Form_Patern_Finder[w1,23]==1)
{
Form_Patern_Finder[w1,26]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData1=1;
for(int z1=1; z1<=1000; z1++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z1," 9374");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist1==0 && (Form_Patern_Finder[z1,16]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z1,17]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z1,18]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z1,19]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData1=0;
break;
}
}
if(PriceExist1==0 && InternalPat_1==2 && WriteData1==1) //Еси нет цены в массиве для просмотра
{
//int WRinLine1=0;
int t1;
for(t1=1; t1<=1000; t1++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t1," 9390");
}
if(Form_Patern_Finder[t1,16]==0 && Form_Patern_Finder[t1,17]==0 && Form_Patern_Finder[t1,18]==0 && Form_Patern_Finder[t1,19]==0 /*&& (Form_Patern_Finder[t1,12]==PipsNumber && Form_Patern_Finder[t1,13]==N_Gr20 ||Form_Patern_Finder[t1,27]==PipsNumber && Form_Patern_Finder[t1,28]==N_Gr20 || Form_Patern_Finder[t1,42]==PipsNumber && Form_Patern_Finder[t1,43]==N_Gr20 || Form_Patern_Finder[t1,57]==PipsNumber && Form_Patern_Finder[t1,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine1=1;
break;
}
}
//for(t1=1; t1<1000; t1++)
// {
// if(WRinLine1=0 && Form_Patern_Finder[t1,17]==0 && Form_Patern_Finder[t1,18]==0 && Form_Patern_Finder[t1,19]==0 && Form_Patern_Finder[t1,20]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t1,20]=1;
Form_Patern_Finder[t1,16]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t1,16]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t1,21]=1;
Form_Patern_Finder[t1,17]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t1,17]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t1,22]=1;
Form_Patern_Finder[t1,18]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t1,18]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t1,23]=1;
Form_Patern_Finder[t1,19]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t1,19]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t1,27]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t1,28]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t1,29]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//Be_1
int newPrise2=0;
int PriceExist2=0;
for(w2=1; w2<=1000; w2++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w2," 9441");
}
if((Form_Patern_Finder[w2,43]!=0 && Form_Patern_Finder[w2,43]==N_Gr20 && Form_Patern_Finder[w2,42]==PipsNumber && ((Form_Patern_Finder[w2,31]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w2,32]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w2,33]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w2,34]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w,9]=N_Gr20 && Form_Patern_Finder[w,6]==1 &&*/ && InternalPat_1==3) //Поиск цены . Возвращает индекс в массиве
{
PriceExist2=1;
if(PriceExist2==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==3/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w2,41]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_2=0,Change2_2=0,Change3_2=0,Change4_2=0;
if(Form_Patern_Finder[w2,35]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w2,35]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w2,31]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w2,31]=iTime(Symbol(),PERIOD_M1,1);
Change1_2=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
{
Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w2,36]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w2,36]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w2,32]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w2,32]=iTime(Symbol(),PERIOD_M1,1);
Change2_2=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
{
Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w2,37]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w2,37]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w2,33]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w2,33]=iTime(Symbol(),PERIOD_M1,1);
Change3_2=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
{
Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w2,38]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w2,38]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w2,34]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w2,34]=iTime(Symbol(),PERIOD_M1,1);
Change4_2=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w2,35]==1 && Form_Patern_Finder[w2,36]==1 && Form_Patern_Finder[w2,37]==1 && Form_Patern_Finder[w2,38]==1)
{
Form_Patern_Finder[w2,41]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData2=1;
for(int z2=1; z2<=1000; z2++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z2," 9518");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist2==0 && (Form_Patern_Finder[z2,31]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z2,32]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z2,33]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z2,34]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData2=0;
break;
}
}
if(PriceExist2==0 && InternalPat_1==3 && WriteData2==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine2=0;
int t2;
for(t2=1; t2<=1000; t2++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t2," 9534");
}
if(Form_Patern_Finder[t2,31]==0 && Form_Patern_Finder[t2,32]==0 && Form_Patern_Finder[t2,33]==0 && Form_Patern_Finder[t2,34]==0 /*&& (Form_Patern_Finder[t2,12]==PipsNumber && Form_Patern_Finder[t2,13]==N_Gr20 ||Form_Patern_Finder[t2,27]==PipsNumber && Form_Patern_Finder[t2,28]==N_Gr20 || Form_Patern_Finder[t2,42]==PipsNumber && Form_Patern_Finder[t2,43]==N_Gr20 || Form_Patern_Finder[t2,57]==PipsNumber && Form_Patern_Finder[t2,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine2=1;
break;
}
}
// for(t2=1; t2<1000; t2++)
// {
// if(WRinLine2=0 && Form_Patern_Finder[t2,31]==0 && Form_Patern_Finder[t2,32]==0 && Form_Patern_Finder[t2,33]==0 && Form_Patern_Finder[t2,34]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t2,35]=1;
Form_Patern_Finder[t2,31]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t2,31]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t2,36]=1;
Form_Patern_Finder[t2,32]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t2,32]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t2,37]=1;
Form_Patern_Finder[t2,33]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t2,33]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t2,38]=1;
Form_Patern_Finder[t2,34]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t2,34]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t2,42]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t2,43]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t2,44]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//Bo_1
int newPrise3=0;
int PriceExist3=0;
for(w3=1; w3<=1000; w3++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w3," 9585");
}
if((Form_Patern_Finder[w3,58]!=0 && Form_Patern_Finder[w3,58]==N_Gr20 && Form_Patern_Finder[w3,57]==PipsNumber && ((Form_Patern_Finder[w3,46]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w3,47]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w3,48]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w3,49]!=bodypips[MaxInd_bodypips,0])))&& InternalPat_1==4) //Поиск цены . Возвращает индекс в массиве
{
PriceExist3=1;
if(PriceExist3==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==4/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w3,56]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_3=0,Change2_3=0,Change3_3=0,Change4_3=0;
if(Form_Patern_Finder[w3,50]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w3,50]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w3,46]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w3,46]=iTime(Symbol(),PERIOD_M1,1);
Change1_3=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
{
Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w3,51]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w3,51]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w3,47]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w3,47]=iTime(Symbol(),PERIOD_M1,1);
Change2_3=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
{
Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w3,52]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w3,52]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w3,48]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w3,48]=iTime(Symbol(),PERIOD_M1,1);
Change3_3=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
{
Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w3,53]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w3,53]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w3,49]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w3,49]=iTime(Symbol(),PERIOD_M1,1);
Change4_3=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w3,50]==1 && Form_Patern_Finder[w3,51]==1 && Form_Patern_Finder[w3,52]==1 && Form_Patern_Finder[w3,53]==1)
{
Form_Patern_Finder[w3,56]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData3=1;
for(int z3=1; z3<=1000; z3++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z3," 9662");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist3==0 && (Form_Patern_Finder[z3,46]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z3,47]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z3,48]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z3,49]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData3=0;
break;
}
}
if(PriceExist3==0 && InternalPat_1==4 && WriteData3==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine3=0;
int t3;
for(t3=1; t3<=1000; t3++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t3," 9678");
}
if(Form_Patern_Finder[t3,46]==0 && Form_Patern_Finder[t3,47]==0 && Form_Patern_Finder[t3,48]==0 && Form_Patern_Finder[t3,49]==0 /*&& (Form_Patern_Finder[t3,12]==PipsNumber && Form_Patern_Finder[t3,13]==N_Gr20 ||Form_Patern_Finder[t3,27]==PipsNumber && Form_Patern_Finder[t3,28]==N_Gr20 || Form_Patern_Finder[t3,42]==PipsNumber && Form_Patern_Finder[t3,43]==N_Gr20 || Form_Patern_Finder[t3,57]==PipsNumber && Form_Patern_Finder[t3,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine3=1;
break;
}
}
// for(t3=1; t3<1000; t3++)
// {
// if(WRinLine3=0 && Form_Patern_Finder[t3,46]==0 && Form_Patern_Finder[t3,47]==0 && Form_Patern_Finder[t3,48]==0 && Form_Patern_Finder[t3,49]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t3,50]=1;
Form_Patern_Finder[t3,46]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t3,46]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t3,51]=1;
Form_Patern_Finder[t3,47]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t3,47]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t3,52]=1;
Form_Patern_Finder[t3,48]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t3,48]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t3,53]=1;
Form_Patern_Finder[t3,49]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t3,49]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t3,57]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t3,58]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t3,59]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//BE_0_IZN
int PriceExist4=0;
int w4;
for(w4=1; w4<=1000; w4++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w4," 9729");
}
if((Form_Patern_Finder[w4,73]!=0 && Form_Patern_Finder[w4,73]==N_Gr20 && Form_Patern_Finder[w4,72]==PipsNumber && ((Form_Patern_Finder[w4,61]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w4,62]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w4,63]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w4,64]!=bodypips[MaxInd_bodypips,0]))) && InternalPat_1==5) //Поиск цены . Возвращает индекс в массиве
{
PriceExist4=1;
if(PriceExist4==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==5/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w4,71]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_4=0,Change2_4=0,Change3_4=0,Change4_4=0;
if(Form_Patern_Finder[w4,65]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w4,65]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w4,61]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w4,61]=iTime(Symbol(),PERIOD_M1,1);
Change1_4=1;
if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
{
Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
}
}
//Центр 2 Красный
// Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,3] ",Form_Patern_Finder[w4,3]," N_Centro_r==2 ",N_Centro_r==2);
if(Form_Patern_Finder[w4,66]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w4,66]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w4,62]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w4,62]=iTime(Symbol(),PERIOD_M1,1);
Change2_4=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
{
Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
//Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,4] ",Form_Patern_Finder[w4,4]," N_Centro_r==3 ",N_Centro_r==3);
if(Form_Patern_Finder[w4,67]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w4,67]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w4,63]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w4,63]=iTime(Symbol(),PERIOD_M1,1);
Change3_4=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
{
Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
//Print(" Price ",bodypips[MaxInd_bodypips,0]," Form_Patern_Finder[w4,5] ",Form_Patern_Finder[w4,5]," N_Centro_r==4 ",N_Centro_r==4);
if(Form_Patern_Finder[w4,68]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w4,68]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w4,64]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w4,64]=iTime(Symbol(),PERIOD_M1,1);
Change4_4=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w4,65]==1 && Form_Patern_Finder[w4,66]==1 && Form_Patern_Finder[w4,67]==1 && Form_Patern_Finder[w4,68]==1)
{
Form_Patern_Finder[w4,71]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
int WriteData4=1;
for(int z4=1; z4<=1000; z4++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z4," 9806");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist4==0 && (Form_Patern_Finder[z4,61]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z4,62]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z4,63]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z4,64]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData4=0;
break;
}
}
if(PriceExist4==0 && InternalPat_1==5 && WriteData4==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine=0;
int t4;
for(t4=1; t4<=1000; t4++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t4," 9822");
}
if(Form_Patern_Finder[t4,61]==0 && Form_Patern_Finder[t4,62]==0 && Form_Patern_Finder[t4,63]==0 && Form_Patern_Finder[t4,64]==0 /*&& (Form_Patern_Finder[t,12]==PipsNumber && Form_Patern_Finder[t,13]==N_Gr20 ||Form_Patern_Finder[t,27]==PipsNumber && Form_Patern_Finder[t,28]==N_Gr20 || Form_Patern_Finder[t,42]==PipsNumber && Form_Patern_Finder[t,43]==N_Gr20 || Form_Patern_Finder[t,57]==PipsNumber && Form_Patern_Finder[t,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine=1;
break;
}
}
// for(t4=1; t4<1000; t4++)
// {
// if(WRinLine=0 && Form_Patern_Finder[t,1]==0 && Form_Patern_Finder[t,2]==0 && Form_Patern_Finder[t,3]==0 && Form_Patern_Finder[t,4]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
//Зацикливание процеса на остановке записывания в Массив данных
//int BlockPermis1=0;
// if(w==1000 && Form_Patern_Finder[t,1]>0)
// {
// BlockPermis1=1;
// }
// Print(" t ", t);
// if(BlockPermis1==0)
// { }
//Праизводится запись нового элемента
//новый элемент записан
//ok Print(" Form_Patern_Finder[t,1] ", Form_Patern_Finder[t,1]);
//ok Print(" N_Centro ",N_Centro_r);
//Print("t ",t);
if(N_Centro_r==1)
{
// Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t4,65]=1;
Form_Patern_Finder[t4,61]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t4,61]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t4,66]=1;
Form_Patern_Finder[t4,62]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t4,62]=iTime(Symbol(),PERIOD_M1,1);
//Print("Form_Patern_Finder[t,2] ",Form_Patern_Finder[t,2]);
//ok Print(" Form_Patern_Finder[t,3] ", Form_Patern_Finder[t,2]);
}
if(N_Centro_r==3)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t4,67]=1;
Form_Patern_Finder[t4,63]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t4,63]=iTime(Symbol(),PERIOD_M1,1);
//Print("Form_Patern_Finder[t,3] ",Form_Patern_Finder[t,3]);
//ok Print(" Form_Patern_Finder[t,4] ", Form_Patern_Finder[t,4]);
}
if(N_Centro_r==4)
{
//Print("N_Centro_r ",N_Centro_r);
Form_Patern_Finder[t4,68]=1;
Form_Patern_Finder[t4,64]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t4,64]=iTime(Symbol(),PERIOD_M1,1);
// Print("Form_Patern_Finder[t,4] ",Form_Patern_Finder[t,4]);
//ok Print(" Form_Patern_Finder[t,5] ", Form_Patern_Finder[t,5]);
}
Form_Patern_Finder[t4,72]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t4,73]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t4,74]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//BO_0_IZN
int newPrise5=0;
int PriceExist5=0;
int w5;
for(w5=1; w5<=1000; w5++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w5," 9898");
}
if((Form_Patern_Finder[w5,88]!=0 && Form_Patern_Finder[w5,88]==N_Gr20 && Form_Patern_Finder[w5,87]==PipsNumber && ((Form_Patern_Finder[w5,76]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w5,77]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w5,78]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w5,79]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w4,9]=N_Gr20 && Form_Patern_Finder[w4,6]==1 &&*/ && InternalPat_1==6) //Поиск цены . Возвращает индекс в массиве
{
PriceExist5=1;
if(PriceExist5==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==6/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w5,86]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_5=0,Change2_5=0,Change3_5=0,Change4_5=0;
if(Form_Patern_Finder[w5,80]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w5,80]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w5,76]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w5,76]=iTime(Symbol(),PERIOD_M1,1);
Change1_5=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
{
Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w5,81]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w5,81]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w5,77]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w5,77]=iTime(Symbol(),PERIOD_M1,1);
Change2_5=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
{
Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w5,82]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w5,82]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w5,78]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w5,78]=iTime(Symbol(),PERIOD_M1,1);
Change3_5=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
{
Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w5,83]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w5,83]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w5,79]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w5,79]=iTime(Symbol(),PERIOD_M1,1);
Change4_5=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w5,80]==1 && Form_Patern_Finder[w5,81]==1 && Form_Patern_Finder[w5,82]==1 && Form_Patern_Finder[w5,83]==1)
{
Form_Patern_Finder[w5,86]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData5=1;
for(int z5=1; z5<=1000; z5++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z5," 9975");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist5==0 && (Form_Patern_Finder[z5,76]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z5,77]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z5,78]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z5,79]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData5=0;
break;
}
}
if(PriceExist5==0 && InternalPat_1==6 && WriteData5==1) //Еси нет цены в массиве для просмотра
{
//int WRinLine1=0;
int t5;
for(t5=1; t5<1000; t5++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t5," 9991");
}
if(Form_Patern_Finder[t5,76]==0 && Form_Patern_Finder[t5,77]==0 && Form_Patern_Finder[t5,78]==0 && Form_Patern_Finder[t5,79]==0 /*&& (Form_Patern_Finder[t5,12]==PipsNumber && Form_Patern_Finder[t5,13]==N_Gr20 ||Form_Patern_Finder[t5,27]==PipsNumber && Form_Patern_Finder[t5,28]==N_Gr20 || Form_Patern_Finder[t5,42]==PipsNumber && Form_Patern_Finder[t5,43]==N_Gr20 || Form_Patern_Finder[t5,57]==PipsNumber && Form_Patern_Finder[t5,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine1=1;
break;
}
}
//for(t5=1; t5<1000; t5++)
// {
// if(WRinLine1=0 && Form_Patern_Finder[t5,17]==0 && Form_Patern_Finder[t5,18]==0 && Form_Patern_Finder[t5,19]==0 && Form_Patern_Finder[t5,20]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t5,80]=1;
Form_Patern_Finder[t5,76]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t5,76]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t5,81]=1;
Form_Patern_Finder[t5,77]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t5,77]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t5,82]=1;
Form_Patern_Finder[t5,78]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t5,78]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t5,83]=1;
Form_Patern_Finder[t5,79]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t5,79]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t5,87]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t5,88]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t5,89]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//Be_1_IZN
int newPrise6=0;
int PriceExist6=0;
int w6;
for(w6=1; w6<=1000; w6++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w6," 10043");
}
if((Form_Patern_Finder[w6,103]!=0 && Form_Patern_Finder[w6,103]==N_Gr20 && Form_Patern_Finder[w6,102]==PipsNumber && ((Form_Patern_Finder[w6,91]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w6,92]!=bodypips[MaxInd_bodypips,0]) || (Form_Patern_Finder[w6,93]!=bodypips[MaxInd_bodypips,0])|| (Form_Patern_Finder[w6,94]!=bodypips[MaxInd_bodypips,0])))/*Form_Patern_Finder[w4,9]=N_Gr20 && Form_Patern_Finder[w4,6]==1 &&*/ && InternalPat_1==7) //Поиск цены . Возвращает индекс в массиве
{
PriceExist6=1;
if(PriceExist6==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==7/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w6,101]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_6=0,Change2_6=0,Change3_6=0,Change4_6=0;
if(Form_Patern_Finder[w6,95]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w6,95]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w6,91]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w6,91]=iTime(Symbol(),PERIOD_M1,1);
Change1_6=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
{
Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w6,96]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w6,96]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w6,92]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w6,92]=iTime(Symbol(),PERIOD_M1,1);
Change2_6=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
{
Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w6,97]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w6,97]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w6,93]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w6,93]=iTime(Symbol(),PERIOD_M1,1);
Change3_6=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
{
Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w6,98]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w6,98]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w6,94]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w6,94]=iTime(Symbol(),PERIOD_M1,1);
Change4_6=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w6,95]==1 && Form_Patern_Finder[w6,96]==1 && Form_Patern_Finder[w6,97]==1 && Form_Patern_Finder[w6,98]==1)
{
Form_Patern_Finder[w6,101]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData6=1;
for(int z6=1; z6<=1000; z6++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z6," 10120");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist6==0 && (Form_Patern_Finder[z6,91]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z6,92]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z6,93]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z6,94]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData6=0;
break;
}
}
if(PriceExist6==0 && InternalPat_1==7 && WriteData6==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine2=0;
int t6;
for(t6=1; t6<=1000; t6++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t6," 10136");
}
if(Form_Patern_Finder[t6,91]==0 && Form_Patern_Finder[t6,92]==0 && Form_Patern_Finder[t6,93]==0 && Form_Patern_Finder[t6,94]==0 /*&& (Form_Patern_Finder[t6,12]==PipsNumber && Form_Patern_Finder[t6,13]==N_Gr20 ||Form_Patern_Finder[t6,27]==PipsNumber && Form_Patern_Finder[t6,28]==N_Gr20 || Form_Patern_Finder[t6,42]==PipsNumber && Form_Patern_Finder[t6,43]==N_Gr20 || Form_Patern_Finder[t6,57]==PipsNumber && Form_Patern_Finder[t6,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine2=1;
break;
}
}
// for(t6=1; t6<1000; t6++)
// {
// if(WRinLine6=0 && Form_Patern_Finder[t6,31]==0 && Form_Patern_Finder[t6,32]==0 && Form_Patern_Finder[t6,33]==0 && Form_Patern_Finder[t6,34]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t6,95]=1;
Form_Patern_Finder[t6,91]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t6,91]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t6,96]=1;
Form_Patern_Finder[t6,92]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t6,92]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t6,97]=1;
Form_Patern_Finder[t6,93]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t6,93]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t6,98]=1;
Form_Patern_Finder[t6,94]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t6,94]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t6,102]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t6,103]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t6,104]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
//Bo_1_IZN
int newPrise7=0;
int PriceExist7=0;
int w7;
for(w7=1; w7<=1000; w7++)//Перебор для поиска по условию Если цена НЕ равна записаннаму значению в Массиве 1,00001!=1,00002
{
if(Array_Errors==true)
{
Print(" Index Array ",w7," 10188");
}
if((Form_Patern_Finder[w7,118]!=0 && Form_Patern_Finder[w7,118]==N_Gr20 && Form_Patern_Finder[w7,117]==PipsNumber && ((Form_Patern_Finder[w7,106]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w7,107]!=bodypips[MaxInd_bodypips,0]) ||(Form_Patern_Finder[w7,108]!=bodypips[MaxInd_bodypips,0])||(Form_Patern_Finder[w7,109]!=bodypips[MaxInd_bodypips,0])))&& InternalPat_1==8) //Поиск цены . Возвращает индекс в массиве
{
PriceExist7=1;
if(PriceExist7==1/*"Указывает на найденную цену Функцией выше"*/ && InternalPat_1==8/*"Указывает на соеденение в ячейке цены и абьёма"*/ && Form_Patern_Finder[w7,116]!=1)//Если цена существует и w не равен 0 и Патерн не был собран. Если w равен налю произвести новую запись то доступ в функцию открыт
{
int Change1_7=0,Change2_7=0,Change3_7=0,Change4_7=0;
if(Form_Patern_Finder[w7,110]==0 && N_Centro_r==1) // Параметр архитектуры 1 ;//Номер Семечки . имеет значение от 1 до 5
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w7,110]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w7,106]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w7,106]=iTime(Symbol(),PERIOD_M1,1);
Change1_7=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
{
Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 2 Красный
if(Form_Patern_Finder[w7,111]==0 && N_Centro_r==2) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w7,111]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w7,107]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w7,107]=iTime(Symbol(),PERIOD_M1,1);
Change2_7=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
{
Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 3 Зелёный
if(Form_Patern_Finder[w7,112]==0 && N_Centro_r==3) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w7,112]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w7,108]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w7,108]=iTime(Symbol(),PERIOD_M1,1);
Change3_7=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
{
Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
//Центр 4 Синий
if(Form_Patern_Finder[w7,113]==0 && N_Centro_r==4) // Параметр архитектуры 1
{
//Присваиваю значение по архитектуре
Form_Patern_Finder[w7,113]=1;//Присваиваю значение соеденения в архитектуре "Желтый Карсный Синий Зелёный " + Место по цене"Архитектура" + Место по полученному абьёму"00000000"
Form_Patern_Finder[w7,109]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[w7,109]=iTime(Symbol(),PERIOD_M1,1);
Change4_7=1;
//Проверяю наличие остальных архитектур в ячейке
if(Form_Patern_Finder[w7,110]==1 && Form_Patern_Finder[w7,111]==1 && Form_Patern_Finder[w7,112]==1 && Form_Patern_Finder[w7,113]==1)
{
Form_Patern_Finder[w7,116]=1;//Патерн Заполнен
//Вывести на график цены флаг собранного патерна
}
}
}
// break;
}
}
// ----- Ески нет цены в массиве для просмотра
int WriteData7=1;
for(int z7=1; z7<=1000; z7++)
{
if(Array_Errors==true)
{
Print(" Index Array ",z7," 10265");
}
if(bodypips[MaxInd_bodypips,0]!=0 && PriceExist7==0 && (Form_Patern_Finder[z7,106]==bodypips[MaxInd_bodypips,0] || Form_Patern_Finder[z7,107]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z7,108]==bodypips[MaxInd_bodypips,0]||Form_Patern_Finder[z7,109]==bodypips[MaxInd_bodypips,0]))//Если в любой из ячеек существует цена то запись данных не нужна
{
WriteData7=0;
break;
}
}
if(PriceExist7==0 && InternalPat_1==8 && WriteData7==1) //Еси нет цены в массиве для просмотра
{
// int WRinLine3=0;
int t7;
for(t7=1; t7<=1000; t7++)
{
if(Array_Errors==true)
{
Print(" Index Array ",t7," 10281");
}
if(Form_Patern_Finder[t7,110]==0 && Form_Patern_Finder[t7,111]==0 && Form_Patern_Finder[t7,112]==0 && Form_Patern_Finder[t7,113]==0 /*&& (Form_Patern_Finder[t7,12]==PipsNumber && Form_Patern_Finder[t7,13]==N_Gr20 ||Form_Patern_Finder[t7,27]==PipsNumber && Form_Patern_Finder[t7,28]==N_Gr20 || Form_Patern_Finder[t7,42]==PipsNumber && Form_Patern_Finder[t7,43]==N_Gr20 || Form_Patern_Finder[t7,57]==PipsNumber && Form_Patern_Finder[t7,58]==N_Gr20)*/) //Последнее пустое место в массиве
{
// WRinLine3=1;
break;
}
}
// for(t7=1; t7<1000; t7++)
// {
// if(WRinLine3=0 && Form_Patern_Finder[t7,46]==0 && Form_Patern_Finder[t7,47]==0 && Form_Patern_Finder[t7,48]==0 && Form_Patern_Finder[t7,49]==0) //Последнее пустое место в массиве
// {
// break;
// }
// }
if(N_Centro_r==1)
{
Form_Patern_Finder[t7,106]=1;
Form_Patern_Finder[t7,110]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t7,110]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==2)
{
Form_Patern_Finder[t7,107]=1;
Form_Patern_Finder[t7,111]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t7,111]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==3)
{
Form_Patern_Finder[t7,108]=1;
Form_Patern_Finder[t7,112]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t7,112]=iTime(Symbol(),PERIOD_M1,1);
}
if(N_Centro_r==4)
{
Form_Patern_Finder[t7,109]=1;
Form_Patern_Finder[t7,113]=bodypips[MaxInd_bodypips,0];
DT_Form_Patern_Finder[t7,113]=iTime(Symbol(),PERIOD_M1,1);
}
Form_Patern_Finder[t7,117]=PipsNumber;//Номер Семечки . имеет значение от 1 до 5
Form_Patern_Finder[t7,118]=N_Gr20;//Номер блока ценавой 20-ки
Form_Patern_Finder[t7,119]=N_Centro;//Номер центра архитектуры
//Произвести запись массива в Бинарнйы фаил.Фаил загружается в массив при запуске программы
}
Pr_Arch="0";
//Функция соответствия ключа в к номеру центра и полюсному состоянию
//Print("TEST1 Print "," N_Centro_Ind ",N_Centro_Ind," Arch3 ",Arch3);
// клас для складывания и раскладывания архитектуры. Управляющие элементы
//Существует Подклас для Деления с указанием на переменную
//Подкласы:Kлас деления, Указание на перемнную и Подклас Деление с Указанием на переменную поочерёдно накладываются на Круг и Звезду и выводят следующие подкласы.
// 1. Звесда с Переменной. 2. Звезда с вертикальным разделением 3. Звезда с горизонтальным разделением.4. Звезда с вертикальным разделением и указателем Переменной 5.Звезда с горизонтальным разделением и указателем Переменной
// 1. Круг с Переменной. 2. Круг с вертикальным разделением 3. Круг с горизонтальным разделением.4. Круг с вертикальным разделением и указателем Переменной 5.Круг с горизонтальным разделением и указателем Переменной
if(comp_Sev[1,1]==0 && comp_Sev[1,2]==0 && comp_Sev[1,3]==0 && comp_Sev[1,4]==0 && comp_Sev[1,5]==0 && comp_Sev[1,6]==0 && comp_Sev[1,7]==0 && comp_Sev[1,8]==0)
{
N_Petalo_1=0;
}
int Ch_d1=0;//Permiso para cambiar datos
for(int iu=1; iu<=8; iu++)//Сравнение пересчёта бинарного кода. Выявление изменений в 01110110 байте 01101110
{
if(Array_Errors==true)
{
Print(" Index Array ",iu," 10342");
}
if(comp_Sev[1,iu]!=Sev[1,iu] && Sev[1,iu]==1)// условие если произошло изменение в структуре 8 бит
{
N_Petalo_1=iu;//Присвоение индекса как номер лепестка
Ch_d1=1;
break;
}
}
if(N_Petalo_1!=0 && Ch_d1==1)
{
N_Petalo=N_Petalo_1;
}
//Print("Fractal ",flower_Price_3[opa,40]," N_Petalo_1 ",N_Petalo_1);
//Произвести присваивание новых значений в Массив сравнения после проведения всего расчёта
//Print(" Cotejamiento de Arrays antes de reasignacion",comp_Sev[1,1],comp_Sev[1,2],comp_Sev[1,3],comp_Sev[1,4]);
comp_Sev[1,1]=Sev[1,1];
//Print(" comp_Sev[1,1]",comp_Sev[1,1]);
comp_Sev[1,2]=Sev[1,2];
//Print(" comp_Sev[1,2]",comp_Sev[1,2]);
comp_Sev[1,3]=Sev[1,3];
//Print(" comp_Sev[1,3]",comp_Sev[1,3]);
comp_Sev[1,4]=Sev[1,4];
//Print(" comp_Sev[1,4",comp_Sev[1,4]);
comp_Sev[1,5]=Sev[1,5];
//Print(" comp_Sev[1,1]",comp_Sev[1,1]);
comp_Sev[1,6]=Sev[1,6];
//Print(" comp_Sev[1,2]",comp_Sev[1,2]);
comp_Sev[1,7]=Sev[1,7];
//Print(" comp_Sev[1,3]",comp_Sev[1,3]);
comp_Sev[1,8]=Sev[1,8];
//Print(" comp_Sev[1,4",comp_Sev[1,4]);
Price_Compare=bodypips[MaxInd_bodypips,0];//Переменная для сравнения цены с предыдущим значением
// Конец функции
//метод складывания в лепесток. Исходные значения. Номера центров подачи и приёма + или - импулса Определение подачи от центра 2 в центр 4 с использованием текущей архитектуры
// произвести сравнения бинарности для выявления номера лепестка.
//+------------------------------------------------------------------+
//| Sunflower 1/0 - Cluster flower |
//+------------------------------------------------------------------+
// Зброс параметров переменных перед расчётом
// flower[99,39] Обьявить массив 0. Произвести проверку на >=1 0000 Лепесток1(по архитектурно арх 1 2 3 4) 0000 Лепесток2 0000 Лепесток3 0000 лепесток4 также 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(LD_Mod48Bit[1,2]==1)
{
LastV_f_Be_0=1;
LastV_f_Bo_0=0;
LastV_f_Be_1=0;
LastV_f_Bo_1=0;
LastC_N_Centro_r=LD_Mod48Bit[1,1];
}
if(LD_Mod48Bit[1,2]==2)
{
LastV_f_Be_0=0;
LastV_f_Bo_0=1;
LastV_f_Be_1=0;
LastV_f_Bo_1=0;
LastC_N_Centro_r=LD_Mod48Bit[1,1];
}
if(LD_Mod48Bit[1,2]==3)
{
LastV_f_Be_0=0;
LastV_f_Bo_0=0;
LastV_f_Be_1=1;
LastV_f_Bo_1=0;
LastC_N_Centro_r=LD_Mod48Bit[1,1];
}
if(LD_Mod48Bit[1,2]==4)
{
LastV_f_Be_0=0;
LastV_f_Bo_0=0;
LastV_f_Be_1=0;
LastV_f_Bo_1=4;
LastC_N_Centro_r=LD_Mod48Bit[1,1];
}
// Funcion " Cogsworth "
if(sev==1 && N_Petalo==1 && N_Centro_r==1 && f_Be_1==1 && LastC_N_Centro_r==4 && LastV_f_Bo_1==1) // установка расчёта с 3 архитектуры лица
{
LD_Mod48Bit[1,1]=1;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=3;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 2 пересечения
//+
if(flower_Time[1,2]!=25 || flower_Time[1,2]!=24 && flower_Time[1,2]<25 && chbox==true) //То сумируем полученное значение из переменной
{
flower_Time[1,2]=flower_Time[1,2]+KlasterTime[1,48];
chbox=false;
}
//-
if(flower_Time[1,2]!=25 || flower_Time[1,2]!=24 && flower_Time[1,2]>25 && chbox==true) //То вычитаем полученное значение из переменной
{
flower_Time[1,2]=flower_Time[1,2]-KlasterTime[1,48];
chbox=false;
}
//
if(flower_Time[1,2]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,2]==0 ||flower_Time_CL[1,2]<0)
{
flower_Time_CL[1,2]=1;
}
flower_Time_CL[1,2]=flower_Time_CL[1,2]-1;//Передача времени 1
flower_Time_CL[1,4]=flower_Time_CL[1,4]+1;// + ar 4
flower_Time[1,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[4,i]==0)
{
flower_Time_DT_24[4,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[1,2]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,4]==0 ||flower_Time_CL[1,4]<0)
{
flower_Time_CL[1,4]=1;
}
flower_Time_CL[1,4]=flower_Time_CL[1,4]-1;//Передача времени 4
flower_Time_CL[1,1]=flower_Time_CL[1,1]+1;// + ar 1
flower_Time[1,2]=0;//После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[1,i]==0)
{
flower_Time_DT_25[1,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
// 2
if(sev==1 && N_Petalo==2 && N_Centro_r==1 && f_Bo_1==1 && LastC_N_Centro_r==4 && LastV_f_Be_0==1)
{
LD_Mod48Bit[1,1]=1;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=4;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 2 пересечения
//+
if(flower_Time[2,2]!=25 || flower_Time[2,2]!=24 && flower_Time[2,2]<25 && chbox==true) //То сумируем полученное значение из переменной
{
flower_Time[2,2]=flower_Time[2,2]+KlasterTime[2,48];
chbox=false;
}
//-
if(flower_Time[2,2]!=25 || flower_Time[2,2]!=24 && flower_Time[2,2]>25 && chbox==true) //То вычитаем полученное значение из переменной
{
flower_Time[2,2]=flower_Time[2,2]-KlasterTime[2,48];
chbox=false;
}
//=
if(flower_Time[2,2]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,4]==0 ||flower_Time_CL[1,4]<0)
{
flower_Time_CL[1,4]=1;
}
flower_Time_CL[1,4]=flower_Time_CL[1,4]-1;//Передача времени в 5
flower_Time_CL[1,5]=flower_Time_CL[1,5]+1;// + ar 4
flower_Time[2,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[5,i]==0)
{
flower_Time_DT_24[5,i]=iTime(Symbol(),0,1);// занос времени в 5 центр
break;
}
}
}
if(flower_Time[2,2]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,4]==0 ||flower_Time_CL[1,4]<0)
{
flower_Time_CL[1,4]=1;
}
flower_Time_CL[1,4]=flower_Time_CL[1,4]-1;//Передача времени в 1
flower_Time_CL[1,1]=flower_Time_CL[1,1]+1;// + ar 1
flower_Time[2,2]=0;//После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[1,i]==0)
{
flower_Time_DT_25[1,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
// 3
if(sev==1 && N_Petalo==3 && N_Centro_r==1 && f_Be_0==1 && LastC_N_Centro_r==6 && LastV_f_Bo_0==1)
{
LD_Mod48Bit[1,1]=1;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=1;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 3 пересечения
//+
if(flower_Time[3,3]!=25 || flower_Time[3,3]!=24 && flower_Time[3,3]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[3,3]=flower_Time[3,3]+KlasterTime[3,60];
chbox=false;
}
//-
if(flower_Time[3,3]!=25 || flower_Time[3,3]!=24 && flower_Time[3,3]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[3,3]=flower_Time[3,3]-KlasterTime[3,60];
chbox=false;
}
//=
if(flower_Time[3,3]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,5]==0 ||flower_Time_CL[1,5]<0)
{
flower_Time_CL[1,5]=1;
}
flower_Time_CL[1,5]=flower_Time_CL[1,5]-1;//Передача времени 5
flower_Time[1,6]=flower_Time[1,6]+1;// + ar 6
flower_Time[3,3]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[6,i]==0)
{
flower_Time_DT_24[6,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[3,3]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,5]==0 ||flower_Time_CL[1,5]<0)
{
flower_Time_CL[1,5]=1;
}
flower_Time_CL[1,5]=flower_Time_CL[1,5]-1;//Передача времени 5
flower_Time[1,1]=flower_Time[1,1]+1;// + ar 1
flower_Time[3,3]=0;//После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[1,i]==0)
{
flower_Time_DT_25[1,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
// 4
if(sev==1 && N_Petalo==4 && N_Centro_r==1 && f_Bo_0==1 && LastC_N_Centro_r==6 && LastV_f_Be_0==1)
{
LD_Mod48Bit[1,1]=1;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=2;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 3 пересечения
//+
if(flower_Time[4,3]!=25 || flower_Time[4,3]!=24 && flower_Time[4,3]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[4,3]=flower_Time[4,3]+KlasterTime[4,60];
chbox=false;
}
//-
if(flower_Time[4,3]!=25 || flower_Time[4,3]!=24 && flower_Time[4,3]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[4,3]=flower_Time[4,3]- KlasterTime[4,60];
chbox=false;
}
//=
if(flower_Time[4,3]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,2]==0 ||flower_Time_CL[1,2]<0)
{
flower_Time_CL[1,2]=1;
}
flower_Time_CL[1,2]=flower_Time_CL[1,2]-1;//Передача времени 2
flower_Time_CL[1,6]=flower_Time_CL[1,6]+1;// + ar 6
flower_Time[4,3]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[6,i]==0)
{
flower_Time_DT_24[6,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[4,3]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,2]==0 ||flower_Time_CL[1,2]<0)
{
flower_Time_CL[1,2]=1;
}
flower_Time_CL[1,2]=flower_Time_CL[1,2]-1;//Передача времени 2
flower_Time_CL[1,1]=flower_Time_CL[1,1]+1;// + ar 1
flower_Time[4,3]=0;//После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[1,i]==0)
{
flower_Time_DT_25[1,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
//5
if(sev==1 && N_Petalo==1 && N_Centro_r==2 && f_Bo_0==1 && LastC_N_Centro_r==3 && LastV_f_Be_0==1)
{
LD_Mod48Bit[1,1]=2;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=1;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 3 пересечения
//+
if(flower_Time[1,3]!=25 || flower_Time[1,3]!=24 && flower_Time[1,3]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[1,3]=flower_Time[1,3]+KlasterTime[1,60];
chbox=false;
}
//-
if(flower_Time[1,3]!=25 || flower_Time[1,3]!=24 && flower_Time[1,3]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[1,3]=flower_Time[1,3]- KlasterTime[1,60];
chbox=false;
}
//=
if(flower_Time[1,3]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,3]=flower_Time_CL[1,3]+1;// + ar 3
flower_Time[1,3]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[3,i]==0)
{
flower_Time_DT_24[3,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[1,3]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time[1,2]=flower_Time[1,2]+1;// + ar 2
flower_Time[1,3]=0;//После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[2,i]==0)
{
flower_Time_DT_25[2,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
//6
if(sev==1 && N_Petalo==2 && N_Centro_r==5 && f_Be_0==1 && LastC_N_Centro_r==3 && LastV_f_Bo_0==1)
{
LD_Mod48Bit[1,1]=5;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=1;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 3 пересечения
//+
if(flower_Time[2,3]!=25 || flower_Time[2,3]!=24 && flower_Time[2,3]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[2,3]=flower_Time[2,3]+KlasterTime[2,60];
chbox=false;
}
//-
if(flower_Time[2,3]!=25 || flower_Time[2,3]!=24 && flower_Time[2,3]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[2,3]=flower_Time[2,3]- KlasterTime[2,60];
chbox=false;
}
//=
if(flower_Time[2,3]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,3]=flower_Time_CL[1,3]+1;// + ar 3
flower_Time[2,3]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[3,i]==0)
{
flower_Time_DT_24[3,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[2,3]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,5]=flower_Time_CL[1,5]+1;// + ar 5
flower_Time[2,3]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[5,i]==0)
{
flower_Time_DT_25[5,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
//7
if(sev==1 && N_Petalo==3 && N_Centro_r==5 && f_Bo_1==1 && LastC_N_Centro_r==3 && LastV_f_Be_1==1)
{
LD_Mod48Bit[1,1]=5;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=4;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 2 пересечения
//+
if(flower_Time[3,2]!=25 || flower_Time[3,2]!=24 && flower_Time[3,2]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[3,2]=flower_Time[3,2]+KlasterTime[3,48];
chbox=false;
}
//-
if(flower_Time[3,2]!=25 || flower_Time[3,2]!=24 && flower_Time[3,2]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[3,2]=flower_Time[3,2]- KlasterTime[3,48];
chbox=false;
}
//=
if(flower_Time[3,2]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,3]=flower_Time_CL[1,3]+1;// + ar 3
flower_Time[3,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[3,i]==0)
{
flower_Time_DT_24[3,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[3,2]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,5]=flower_Time_CL[1,5]+1;// + ar 5
flower_Time[3,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[5,i]==0)
{
flower_Time_DT_25[5,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
//8
if(sev==1 && N_Petalo==4 && N_Centro_r==2 && f_Be_1==1 && LastC_N_Centro_r==3 && LastV_f_Bo_1==1)
{
LD_Mod48Bit[1,1]=2;//номер центра 1,2,3,4
LD_Mod48Bit[1,2]=3;//номер переменной
LastC_N_Centro_r=0;//обнуление после оброботки блока
LastV_f_Bo_1=0;//обнуление после оброботки блока
bool chbox=true;//Разрешение на пересчёт в модуле.
//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//flower[1,1]=flower[1,1]+1;//Регистрация подачи значения. Расчёт производится по методу 4 архитектур в 1 лепесток. Заполнение массива по 4 цифры в лепесток по порядку.
//KlasterTime[9,385];// 8 linias 8 petalos,celdas, numero de fraccion" 1- 4",num agija de reloj "1234","03,36,69,91"" Numero de variable,Numero asignado segun calculo.
// Regla de suma en fractal. Fase 1 preparativo. fase 2 transporte de tiempo "+1" FIn de transporte ver hacia donde se guardan los tiempos.
//Ejemplo en caso de Petalo 1, Variable Be_0 se rellena la fraccion 3 hasta alcanzar permiso 24 o 25. Una vez alcanzado permiso la proxima variabe transporta el numero de tiempo +1. En caso de permiso 24 tiempo se transporta hasta
// Centro de arquitectura 2 +1, En caso de permiso 25 tiempo se transporta hasta el centro 4 +1. Cada petalo contiene 4 clusters. Cada claster corresponde al reloj. Ejemplo . Petalo 1. Cluster 1 corresponde al centro 1, cluster 2 al centro 4,Cluster 3 corresponde al centro 3 cluster 4 corresponde al centro 2.
//-----------------------------------------------
// Подача переменных на массив времени flower_Time
// цель мониторинг складываемости цифер временного фрактала при вращении
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
//Производим сборку 2 пересечения
//+
if(flower_Time[4,2]!=25 || flower_Time[4,2]!=24 && flower_Time[4,2]<25 && chbox==true)//То сумируем полученное значение из переменной
{
flower_Time[4,2]=flower_Time[4,2]+KlasterTime[4,48];
chbox=false;
}
//-
if(flower_Time[4,2]!=25 || flower_Time[4,2]!=24 && flower_Time[4,2]>25 && chbox==true)//То вычитаем полученное значение из переменной
{
flower_Time[4,2]=flower_Time[4,2]- KlasterTime[4,48];
chbox=false;
}
//=
if(flower_Time[4,2]==24) //Заводим одну из 12 едениц времени напрямую
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,3]=flower_Time_CL[1,3]+1;// + ar 3
flower_Time[4,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_24[3,i]==0)
{
flower_Time_DT_24[3,i]=iTime(Symbol(),0,1);
break;
}
}
}
if(flower_Time[4,2]==25) //заводим 1 из 12 едениц времени косвенно
{
// перенос значений. Заменить на единый массив без пересчёта
if(flower_Time_CL[1,1]==0 ||flower_Time_CL[1,1]<0)
{
flower_Time_CL[1,1]=1;
}
flower_Time_CL[1,1]=flower_Time_CL[1,1]-1;//Передача времени 1
flower_Time_CL[1,2]=flower_Time_CL[1,2]+1;// + ar 3
flower_Time[4,2]=0;// После передачи времени старт с 0
for(int i=1; i<250; i++)
{
if(flower_Time_DT_25[2,i]==0)
{
flower_Time_DT_25[2,i]=iTime(Symbol(),0,1);
break;
}
}
}
//------------------------------------------------
// Подача переменных на массив flower_diferenc
// Цель мониторинг расчёта сумм лепестка с выводом на печать полученного значения диферента
// Массив заполнен заранее приготовленными расчётами. значения выводятся формулами
}
//9
} //flower_perm
}
//+------------------------------------------------------------------+
//| 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]);
//---Были определены синапсные связи которые могут показывать на смену тенденции---//
//---Тип 1 Bo_0/Bo_1
//---Тип 2 Be_0/Be_1
//---Было выявленно чо нужно обратить внимание на цену каждого типа и индекс контейнера.
//Расчитать до конца этот механизм на подаче 2 переменных Также расчитать второй механизм и сравнить разницы сумм и вычитаний цифер.
//На разнице цифер вывести индикатор
// Привентить буквенную подачу в механизм
//Print(" IFb1 ",IFb1);
//if(IFb1==1441)//Запись данных в Массив и обнуление первичьного массива один раз в сутки
// {
//-----
//bintoarrTIME[IFb1]=iTime(Symbol(),0,1);//Пишу время предыдущей анализируемой свечи в массив
//Print( bintoarrTIME[IFb1]);
//-----
//int i;
//---загружаю в 2 массива данные о Бинарном коде, Времени и Цене
//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);//загрузка данных из файла в массив данных
//FileClose(file_handle8);
//}
//---Загрузка в массив базы данных о повторах бинарных ключей
//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);//данны о полученых повторах.С
//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++) //Получение индекса в заполненом массива
//{
//if(BinaryToArray[i,0]==10)
// {
// break;
//}
// }
//Print("index ",i);
//--Перед записью в файлы нужно фильтрую на дубли с переносом во временный массив
//int ia=0;//индекс для перебора массива
//int ib=0;//индекс для перебора массива
//int ic=0;//индекс для перебора массива
//int id=0;//индекс для перебора массива
//int iei=0;
//int ie=1;
//for(ia=1; ia<20/*1442*/; ia++) //Получение индекса в заполненом массива
//{
//Print("щёт ia ",ia);
// for(ib=1; ib<20/*32001*/; ib++) //Получение индекса в заполненом массива
// {
//Print("щёт ib ",ib);
// for(ic=0; ic<20/*1002*/; ic++) //Получение индекса в заполненом массива
// {
// Print("щёт ia ",ia,"щёт ib ",ib,"щёт 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])//Ищу не равенство в строке.Если хоть один элемент не равен то щитать как новая запись
//{
//-----Писать во временный фаил отфильтрованные сигналы с дальнейшей дозаписью
//Переносить во времменный массив все параметры
// for(id=0; id<20/*1002*/; id++)
// {
// permis=1;
// iei=ie;
//temparrbin[ie,id]=bintoarr[ia,id];//Присваиваю во временный массив не повторение полученное в результате отсева
//temparrbid[ie,id]=bintoarrBID[ia,id];//цена
//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("щёт ie ",ie,"щёт id ",id);
// }
//ie++;//Увеличиваю номер строки на 1
//---Ошибкав доступе в массив
//if(ie>1441)//Если ие 1442 то прервать функцию
//{
// Print(" ie ",ie," Break ");
// break;
// }
// Print(" ie ",ie);//
//}
//if(permis==1)
// {
// break;
// }
//break;
//if(iei<ie)
//{
//break;
//}
//----Вписать сравнение на совместимость. Если совмещается сигнал то писать только время открытия свечи в массив.
//}
//}
//}
//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);
// }
//---Провожу запись в базу данных отобранных повторов - в базу нужно писать как время новых ключей так и время повторений
//------------------------------------
//ArrayInitialize(bintoarr,10);//Перезагрузка массива после отгрузки в базу
//ArrayInitialize(temparrbin,10);
//ArrayInitialize(temparrbid,10);
//ArrayInitialize(temparrtime,10);
//ArrayInitialize(bintoarrBID,10);
//ArrayInitialize(bintoarrTIME,10);
//IFb1=0;//Индекс строки устанавливаю на 1
//IFb2=0;//Начинаю писать в строке с 0 позиции
//}
//if(IFb1<1441)
// {
// bintoarrTIME[IFb1]=iTime(Symbol(),0,1);//Пишу время предыдущей анализируемой свечи в массив
// IFb1++;//Увеличивание значения строки в массиве при наступлении нового бара.Запись будетпроизводится в следующую строку
// IFb2=0;//Начинаю писать в строке с 0 позиции
// }
//Print(" IFb1 ",IFb1," IFb2 ", IFb2);//Мониторинг индексов массива
//---------------------
//+------------------------------------------------------------------+
//|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 |
//+------------------------------------------------------------------+
//-----брос переменных и массива
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"; // заголовок
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"; // заголовок
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"; // заголовок
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;
//--------сигналы------------
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;
//--------Лонг Шорт-----------
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)//получаю индекс заполненного элемента
{
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);
//-----------------------------------------------------------
// Вариант 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);}*/
// Вариант 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;
}*/
// Вариант 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*/)//--Минусавой сигнал
// {
// 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)// Собрал я с Ирой с красочьных полей зерно и дали по горсти каждый дочери Крестине
{
int Cqt=0;
Counter++;
Cqt=(int)NormalizeDouble((iBid-Str_Pr_Bar)/Point,0);
int qt_C=0;
if(Cqt>1)//paso 1 arriba
{
for(int qt=0; qt<Cqt-1; qt++)
{
if(Array_Errors==true)
{
Print(" Index Array ",qt," 28507 ");
}
qt_C=Counter+qt;
body[qt_C,0]=3;
body[qt_C,1]=1;
body [qt_C,2]=2;
body [qt_C,3]=Str_Pr_Bar+(qt+1)*Point;
//body [qt_C,4]=TimeCurrent();//Записываю время тика.
//bintoarr[IFb1,IFb2]=1;//запись в строку параметров бинарного вычисления
//bintoarrBID[IFb1,IFb2]=Bid;
//body [qt_C,7]=iTime(Symbol(),PERIOD_CURRENT,0);
//---
// body [qt_C,4]=Open[0];
// body [qt_C,5]=High[0];
// body [qt_C,6]=Low[0];
// body [qt_C,7]=111;//TEST
// FileWrite(Handle,body[qt_C,0],body[qt_C,1],body[qt_C,2],body[qt_C,3],body[qt_C,4],body[qt_C,5],body[qt_C,6],body[qt_C,7]);
Counter1++;
}
Counter=qt_C+1;
}
if(Cqt<-1)
{
for(int qt=0; qt<MathAbs(Cqt)-1; qt++)
{
if(Array_Errors==true)
{
Print(" Index Array ",qt," 28535 ");
}
qt_C=Counter+qt;
body [qt_C,0]=3;
body [qt_C,1]=0;
body [qt_C,2]=3;
body [qt_C,3]=Str_Pr_Bar-(qt+1)*Point;
//body [qt_C,4]=TimeCurrent();//Записываю время тика.
// bintoarr[IFb1,IFb2]=0;
// bintoarrBID[IFb1,IFb2]=Bid;
//body [qt_C,7]=iTime(Symbol(),PERIOD_CURRENT,0);
//---
// body [qt_C,4]=Open[0];
// body [qt_C,5]=High[0];
// body [qt_C,6]=Low[0];
//FileWrite(Handle,body[qt_C,0],body[qt_C,1],body[qt_C,2],body[qt_C,3],body[qt_C,4],body[qt_C,5],body[qt_C,6],body[qt_C,7]);
Counter0++;
}
Counter=qt_C+1;
}
if(Str_Pr_Bar<=iBid)
{
body [Counter,1]=1;
body [Counter,2]=1;
//body [Counter,4]=TimeCurrent();//Записываю время тика.
//bintoarr[IFb1,IFb2]=1;
//bintoarrBID[IFb1,IFb2]=Bid;
Counter1_1++;
}
else
{
body [Counter,1]=0;
body [Counter,2]=0;
//body [Counter,4]=TimeCurrent();//Записываю время тика.
//bintoarr[IFb1,IFb2]=0;//пишу тик в бинарной интерпретации
//bintoarrBID[IFb1,IFb2]=Bid;//пишу цену для тика
Counter0_1++;
}
body [Counter,0]=iBid;
body [Counter,3]=111;
//body [Counter,4]=TimeCurrent();//Записываю время тика.p
// body [Counter,4]=Open[0];
// body [Counter,5]=High[0];
// body [Counter,6]=Low[0];
//body[Counter,7]=iTime(Symbol(),PERIOD_CURRENT,0);
//FileWrite(Handle,body[Counter,0],body[Counter,1],body[Counter,2],body[Counter,3],body[Counter,4],body[Counter,5],body[Counter,6],body[Counter,7]);
Str_Pr_Bar=iBid;
Counter_Summa1 = Counter1+Counter1_1;
Counter_Summa0 = Counter0+Counter0_1;
}
//+------------------------------------------------------------------+
//| END Binary Miner |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| 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);
//---
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
新しいイシューから参照 Git Blameを表示 パーマリンクをコピー