Close all previously opened functions

[rdonnay]

I mean only functions called by the user from the main menu.

You should consider running each of these functions in a separate thread.
This way, the window can be closed by the user.

DCMENUITEM 'My Function' ACTION {|o|o := Thread():new(),o:start({||MyFunction()})}

[Eugene Lutsenko]

I mean only functions called by the user from the main menu.

You should consider running each of these functions in a separate thread.
This way, the window can be closed by the user.

DCMENUITEM 'My Function' ACTION {|o|o := Thread():new(),o:start({||MyFunction()})}

Thank You, Roger!

Try.
And how close function MyFunction1() from inside a function MyFunction2()?

Code: Select all

DCMENUITEM 'My Function1' ACTION {|o|o := Thread():new(),o:start({||MyFunction1()})}
DCMENUITEM 'My Function2' ACTION {|o|o := Thread():new(),o:start({||MyFunction2()})}
....................
DCMENUITEM 'My FunctionN' ACTION {|o|o := Thread():new(),o:start({||MyFunctionN()})}

[rdonnay]

And how close function MyFunction1() from inside a function MyFunction2()?

It depends a lot on what you mean by a Function.

Is this a process that is running and calculating something?

[Eugene Lutsenko]

And how close function MyFunction1() from inside a function MyFunction2()?

It depends a lot on what you mean by a Function.

Is this a process that is running and calculating something?

I understand function as a fragment of the program, starting with FUNCTION and ending with RETURN(). Specifically, here I mean only functions that are called from the main menu. The function can do anything. It usually starts with an on-screen form and setting parameters, and then accesses databases, calculates, records, displays, and so on.

[Tom]

Hi, Eugene.

Look at the docs for the Thread()-class. There is sample showing a derived class which is able to be terminated from the outside. It's a little work to do this but it can be done.

There is a :quit() method in the Thread() class, but this method can only be called by the thread object itself, not from the outside. If your functions don't work with loops (FOR/NEXT, DO/WHILE) as control structures, it's hard to terminate them from elsewhere. This is also true for code not running in threads.

[Eugene Lutsenko]

Here is the menu. When you call a new function, other previously started functions must be closed. Or, you should not be able to select a new menu item if you are running a function from the main menu

Code: Select all

*********************************************************************************************************
*********** Многоуровневое иерархическое меню системы Эйдос *********************************************
*********************************************************************************************************

  GradFonStart(1)                                     // Организация смены фона главного окна по таймеру

  DCMENUBAR oMenuBar OWNERDRAW BARBITMAP 'Checkers.bmp'

    DCSUBMENU oMenu1 PROMPT L('1. Администрирование') PARENT oMenuBar MESSAGE L('Подсистема администрирования')

      DCMENUITEM SEPARATOR PARENT oMenu1
      DCMENUITEM L('1.1. Авторизация                                 ') PARENT oMenu1 ACTION {||F1_1()  } MESSAGE L('Авторизация сисадмина, администратора приложения или пользователя')
      DCMENUITEM L('1.2. Регистрация администратора приложения       ') PARENT oMenu1 ACTION {||F1_2()  } MESSAGE L('Регистрация и удаление регистрации администраторов приложений и задание паролей пользователей. Этот режим доступен только системному администратору и администраторам приложений')
      DCMENUITEM L('1.3. Диспетчер приложений                        ') PARENT oMenu1 ACTION {||F1_3()  } MESSAGE L('Это подсистема администрирования приложений. Она предназначена для создания новых приложений, как пустых, так и на основе учебных примеров (лабораторных работ), имеющихся в системе, а также для выбора приложения для работы из уже имеющихся и удаления приложения. Выбор приложения для работы осуществляется путем отметки его любым символом. Удалять любые приложения разрешается только сисадмину, а Администратору приложений - только те, которые он сам создал')
      DCMENUITEM SEPARATOR PARENT oMenu1
*     DCMENUITEM L('1.4. Выбор режима использования системы          ') PARENT oMenu1 ACTION {||F1_4()old} MESSAGE L('Монопольный или многопользовательский (задается при инсталляции системы, но может быть изменен когда угодно сисадмином)')
      DCMENUITEM L('1.4. Multi-language support                      ') PARENT oMenu1 ACTION {||F1_4()  } MESSAGE L('Данный режим обеспечивает: 1) задание текущего языка интерфейса (по умолчанию - русский); 2) корректировку локальной языковой базы данных по текущему языку (улучшение перевода); 3) объединение локальных и облачных языковых баз данных')
      DCMENUITEM L('1.5. Задание путей на папки с группами приложений') PARENT oMenu1 ACTION {||F1_5()  } MESSAGE L('Папки с различными группами приложениями могут быть на локальном компьютере, в локальной сети или в Internet. Пути на них задаются сисадмином при инсталляции системы и могут быть изменены им когда угодно. Один из этих путей, а именно первый из отмеченный специальных символов, считается текущим и используется при СОЗДАНИИ приложений в диспетчере приложений 1.3, а в последующем при запуске приложений на исполнение пути берутся уже из БД диспетчера приложений')
      DCMENUITEM L('1.6. Задание цветовой схемы главного меню        ') PARENT oMenu1 ACTION {||F1_6()  } MESSAGE L('Задается по умолчанию если в папке с системой нет файла: ColorSch.arx при инсталляции системы, но может быть изменена когда угодно сисадмином')
      DCMENUITEM L('1.7. Задание размера главного окна в пикселях    ') PARENT oMenu1 ACTION {||F1_7()  } MESSAGE L('Задается по умолчанию 1024 x 769 если в папке с системой нет файла: _MainWind.arx при инсталляции системы, но может быть изменена когда угодно сисадмином')
      DCMENUITEM L('1.8. Задание градиентных фонов главного окна     ') PARENT oMenu1 ACTION {||F1_8()  } MESSAGE L('Градиентные фоны главного окна задаются по умолчанию при инсталляции системы, но могут быть изменены когда угодно сисадмином')
      DCMENUITEM L('1.9. Прописывание путей по фактическому положению') PARENT oMenu1 ACTION {||F1_9()  } MESSAGE L('Доступно только сисадмину. Определяет фактическое месторасположение системы и приложений и прописывает пути на них в БД: PathGrAp.DBF и Appls.dbf, а также восстанавливает имена приложений в Appls.dbf на данные им при их создании')
      DCMENUITEM L('1.10. Экспериментальная графика Роджера          ') PARENT oMenu1 ACTION {||DC_Graph()} MESSAGE L('Графика Роджера. Операции  с графикой на основе манипулирования массивами. Определение характеристик пикселей')
      DCMENUITEM L('1.11. Локализация и инициализация (сброс) системы') PARENT oMenu1 ACTION {||F1_11() } MESSAGE L('Доступно только сисадмину. Прописывает все пути по фактическому месторасположению системы, пересоздает общесистемные базы данных, удаляет все приложения и всех пользователей. Определяет фактическое месторасположение системы и приложений, удаляет все директории приложений с поддиректориями и всеми файлами в них, а затем прописывает все пути на них по фактическому месторасположению, т.е. пересоздает и переиндексирует БД: PathSystem.dbf, PathGrAp.dbf, Appls.dbf и Users.dbf')
*     DCMENUITEM L('1.12. Режим специального назначения              ') PARENT oMenu1 ACTION {||F1_12() } MESSAGE L('Комментарий: "Без комментариев"')


    DCSUBMENU oMenu2 PROMPT L('2. Формализация предметной области') PARENT oMenuBar MESSAGE L('Разработка классификационных и описательных шкал и градаций и формирование обучающей выборки')

      DCMENUITEM SEPARATOR PARENT oMenu2
      DCMENUITEM L('2.1. Классификационные шкалы и градации     ') PARENT oMenu2 ACTION {||F2_1("Close")  } MESSAGE L('Ручной ввод-корректировка классификационных шкал и градаций')
      DCMENUITEM L('2.2. Описательные шкалы и градации          ') PARENT oMenu2 ACTION {||F2_2("Close")  } MESSAGE L('Ручной ввод-корректировка описательных шкал и градаций')
      DCMENUITEM SEPARATOR PARENT oMenu2

      DCSUBMENU oMenu2_3 PROMPT L('2.3. Ввод обучающей выборки')  PARENT oMenu2   MESSAGE L('')
        DCMENUITEM L('2.3.1. Ручной ввод-корректировка обучающей выборки          ') PARENT oMenu2_3 ACTION {||F2_3_1()} MESSAGE L('')

      DCMENUITEM SEPARATOR PARENT oMenu2
      DCMENUITEM L('2.4. Просмотр эвентологических баз данных   ')  PARENT oMenu2 ACTION {||F2_4()  } MESSAGE L('Просмотр эвентологических баз данных (баз событий), в которых исходные данные закодированы с помощью классификационных и описательных шкал и градаций и представлены в форме кодов событий, между которыми существуют причинно-следственные связи')

        DCSUBMENU oMenu2_3_2 PROMPT L('2.3.2. Программные интерфейсы с внешними базами данных') PARENT oMenu2_3   MESSAGE L('Автоматизированная формализация предметной области: разработка классификационных и описательных шкал и градаций и кодирование с их помощью исходных данных, в результате чего они преобразуются в обучающую выборку (базу событий). По сути это нормализация исходных баз данных. При этом сами данные могут быть различных типов: текстовыми, табличными (MS Excel, dbf) и графическими (jpg, bmp)')
          DCMENUITEM L('2.3.2.1. Импорт данных из текстовых файлов                           ') PARENT oMenu2_3_2 ACTION {||F2_3_2_1()  } MESSAGE L('Универсальный программный интерфейс ввода данных из TXT, DOC и Internet (HTML) файлов неограниченного объема. Атрибуция текстов, АСК-анализ мемов')
          DCMENUITEM L('2.3.2.2. Универсальный программный интерфейс импорта данных в систему') PARENT oMenu2_3_2 ACTION {||F2_3_2_2("")} MESSAGE L('Режим представляет собой УНИВЕРСАЛЬНЫЙ ПРОГРАММНЫЙ ИНТЕРФЕЙС ФОРМАЛИЗАЦИИ ПРЕДМЕТНОЙ ОБЛАСТИ И ИМПОРТА ДАННЫХ В СИСТЕМУ "ЭЙДОС-Х". Данный программный интерфейс обеспечивает автоматическое формирование классификационных и описательных шкал и градаций и обучающей выборки на основе XLS, XLSX или DBF-файла с исходными данными стандарта, описанного в Help режима. Кроме того он обеспечивает автоматический ввод распознаваемой выборки из внешней базы данных. В этом режиме может быть до 1000000 объектов обучающей выборки до 1500 шкал')
          DCMENUITEM L('2.3.2.3. Импорт данных из транспонированных внешних баз данных       ') PARENT oMenu2_3_2 ACTION {||F2_3_2_3()  } MESSAGE L('Режим представляет собой ПРОГРАММНЫЙ ИНТЕРФЕЙС ФОРМАЛИЗАЦИИ ПРЕДМЕТНОЙ ОБЛАСТИ И ИМПОРТА ДАННЫХ В СИСТЕМУ "ЭЙДОС-Х". Данный программный интерфейс обеспечивает автоматическое формирование классификационных и описательных шкал и градаций и обучающей выборки на основе XLS, XLSX или DBF-файла с исходными данными стандарта, описанного в Help режима стандарта, представляющего собой ТРАНСПОНИРОВАННЫЙ файл стандарта режима 2.3.2.2. Кроме того он обеспечивает автоматический ввод распознаваемой выборки из внешней базы данных. В этом режиме может быть до 1000000 шкал и до 1500 объектов обучающей выборки')
          DCMENUITEM L('2.3.2.4. Оцифровка изображений по внешним контурам                   ') PARENT oMenu2_3_2 ACTION {||F2324ok()   } MESSAGE L('Данный режим обеспечивает оцифровку изображений по внешним контурам, т.е. кодирование и ввод в систему "Эйдос" изображений и формирование файла исходных данных "Inp_data" в стандарте режима 2.3.2.2 в котором каждое изображение представлено строкой')
          DCMENUITEM L('2.3.2.5. Оцифровка изображений по всем пикселям и спектру            ') PARENT oMenu2_3_2 ACTION {||F2_3_2_5()  } MESSAGE L('Данный режим обеспечивает оцифровку изображений по всем пикселям и спектру, т.е. кодирование и ввод в систему "Эйдос" изображений и формирование файла исходных данных "Inp_data" в стандарте режима 2.3.2.3 в котором каждое изображение представлено столбцом')
          DCMENUITEM L('2.3.2.6. Импорт данных из DOS-TXT-рядов чисел (цифр) и слов (букв)   ') PARENT oMenu2_3_2 ACTION {||F2_3_2_6()  } MESSAGE L('Данный режим обеспечивает импорт данных из DOS-TXT-рядов чисел (цифр) и слов (букв), а также генерацию рядов для расчета асимптотического информационного критерия качества шума - критерия степени выраженности  закономерностей в модели')
          DCMENUITEM L('2.3.2.7. Транспонирование файлов исходных данных                     ') PARENT oMenu2_3_2 ACTION {||F2_3_2_7()  } MESSAGE L('Данный режим обеспечивает транспонирование базы данных Inp_data.xls и ее запись в виде файла Out_transp.xls')
          DCMENUITEM L('2.3.2.8. Объединение нескольких файлов исходных данных в один        ') PARENT oMenu2_3_2 ACTION {||F2_3_2_8()  } MESSAGE L('Данный режим обеспечивает объединение нескольких одинаковых по структуре баз данных с именами вида: "Input####.xls", где: "####" - номер файла вида: 0001,0002,...,9999, в один файл с именем: "Add_data.xls"')
          DCMENUITEM L('2.3.2.9. Разбиение TXT-файла на файлы-абзацы                         ') PARENT oMenu2_3_2 ACTION {||F2_3_2_9()  } MESSAGE L('Данный режим обеспечивает: обнаружение в папке: ../AID_DATA/INP_DATA/ TXT-файлов, загрузку этих файлов, нахождение в них абзацев, запись этих абзацев в виде TXT-файлов с именами вида: "###### - <ИМЯ TXT-ФАЙЛА>" из сквозного номера абзаца ###### и имени исходного TXT-файла')
          DCMENUITEM SEPARATOR PARENT oMenu5                                                         
          DCMENUITEM L('2.3.2.10.Чемпионат RAIF-Challenge 2017-API-bank                      ') PARENT oMenu2_3_2 ACTION {||F2_3_2_10() } MESSAGE L('Создание БД Inp_data.dbf из файлов: t1.xlsx, t2.xlsx, t3.xlsx, t4.xlsx')
          DCMENUITEM L('2.3.2.11.Чемпионат RAIF-Challenge 2017-API-retail                    ') PARENT oMenu2_3_2 ACTION {||F2_3_2_11() } MESSAGE L('Создание БД Inp_data.dbf и файла: Inp_name.txt соответственно из файлов:jet_raif_challenge.csv и description.csv')

        DCSUBMENU oMenu2_3_3 PROMPT L('2.3.3. Управление обучающей выборкой     ') PARENT oMenu2_3   MESSAGE ' '
          DCMENUITEM L('2.3.3.1. Параметрическое задание объектов для обработки ') PARENT oMenu2_3_3 ACTION {||Razrab()  } MESSAGE ' '
          DCMENUITEM L('2.3.3.2. Статистическая характеристика, ручной ремонт   ') PARENT oMenu2_3_3 ACTION {||Razrab()  } MESSAGE ' '
          DCMENUITEM L('2.3.3.3. Автоматический ремонт обучающей выборки        ') PARENT oMenu2_3_3 ACTION {||Razrab()  } MESSAGE ' '
          DCMENUITEM L('2.3.3.4. Распределение объектов обуч. выборки по классам') PARENT oMenu2_3_3 ACTION {||F2_3_3_4()} MESSAGE L('Формирование отчета о распределении объектов обучающей выборки по классам')

        DCMENUITEM L('2.3.4. Докодирование сочетаний признаков в обучающей выборке') PARENT oMenu2_3 ACTION {||Razrab()} MESSAGE ' '

    DCSUBMENU oMenu3 PROMPT L('3. Синтез, верификация и улучшение модели')       PARENT oMenuBar MESSAGE L('Создание модели, повышение ее качества и оценка достоверности')

        DCMENUITEM SEPARATOR PARENT oMenu3
        DCMENUITEM L('3.1. Формирование базы абсолютных частот                ') PARENT oMenu3 ACTION {||F3_1(.T., 0, 0, 0, .T.,"")} MESSAGE L('Загрузка по очереди описаний всех объектов обучающей выборки и расчет количества встреч различных сочетаний: Принадлежность объекта к j-му классу - наличие у него i-го признака')
        DCMENUITEM L('3.2. Расчет процентных распределений                    ') PARENT oMenu3 ACTION {||F3_2(.T., 0, 0, 0, .T.,"")} MESSAGE L('Расчет условных и безусловных процентных распределений')
        DCMENUITEM L('3.3. Расчет заданных из 7 моделей знаний                ') PARENT oMenu3 ACTION {||F3_3(.T., 0, 0, 0, .T.,"")} MESSAGE L('Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2')
        DCMENUITEM SEPARATOR PARENT oMenu3
        DCMENUITEM L('3.4. Автоматическое выполнение режимов 1-2-3            ') PARENT oMenu3 ACTION {||F3_4(.T., 0, 0, 0, .T.,"")} MESSAGE L('По очереди исполняются режимы: 3.1., 3.2. и 3.3. для заданных стат.моделей и моделей знаний и затем заданная делается текущей')
        DCMENUITEM L('3.5. Синтез и верификация заданных из 10 моделей        ') PARENT oMenu3 ACTION {||F3_5(.T.)} MESSAGE L('Оценивается достоверность (адекватность) заданных стат.моделей и моделей знаний. Для этого осуществляется синтез заданных моделей, обучающая выборка копируется в распознаваемую и в каждой заданной модели проводится распознавание с использованием двух интегральных критериев, подсчитывается количество верно идентифицированных и не идентифицированных, ошибочно идентифицированных и не идентифицированных объектов (ошибки 1-го и 2-го рода)')
        DCMENUITEM L('3.6. Синтез и верификация заданной группы моделей       ') PARENT oMenu3 ACTION {||Razrab() } MESSAGE L('В различных приложениях текущей группы приложений создаются и верифицируются модели: Abs, Prc1, Prc2, Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2 с фиксированными и адаптивными интервалами со сценариями и без и для каждого класса определяется модель, в которой его идентификация осуществляется наиболее достоверно')
        DCMENUITEM SEPARATOR PARENT oMenu3

        DCSUBMENU oMenu3_7 PROMPT L('3.7. Повышение качества модели') PARENT oMenu3 MESSAGE ' '
          DCMENUITEM L('3.7.1. Поиск и удаление артефактов (робастная процедура)   ') PARENT oMenu3_7 ACTION {||F3_7_1()} MESSAGE L('Строится частотное распределение абсолютных частот встреч признаков в классах по матрице сопряженности Abs.dbf и пользователю предоставляется возможность удалить редко встречающиеся факты (сочетания), как случайные выбросы или артефакты. Для работы профессиональной графики нужна MS Windows 7 или выше')
          DCMENUITEM L('3.7.2. Значимость классификационных шкал                   ') PARENT oMenu3_7 ACTION {||Razrab()} MESSAGE L('В данном режиме классификационные шкалы ранжируются в порядке убывания значимости, т.е. средней значимости их градаций, т.е. классов')
          DCMENUITEM L('3.7.3. Значимость градаций классификационных шкал (классов)') PARENT oMenu3_7 ACTION {||Razrab()} MESSAGE L('В данном режиме все градации классификационных шкал (классы) ранжируются в порядке убывания значимости, т.е. вариабельности значений частных критериев статистических баз и баз знаний')
          DCMENUITEM L('3.7.4. Значимость описательных шкал                        ') PARENT oMenu3_7 ACTION {||F3_7_4()} MESSAGE L('В данном режиме описательные шкалы ранжируются в порядке убывания значимости, т.е. средней значимости их градаций, т.е. признаков')
          DCMENUITEM L('3.7.5. Значимость градаций описательных шкал (признаков)   ') PARENT oMenu3_7 ACTION {||F3_7_5()} MESSAGE L('В данном режиме все градации описательных шкал (признаки) ранжируются в порядке убывания значимости, т.е. вариабельности значений частных критериев статистических баз и баз знаний')
          DCMENUITEM L('3.7.6. Разделение классов на типичную и нетипичную части   ') PARENT oMenu3_7 ACTION {||F3_7_6()} MESSAGE L('Из файла исходных данных "Inp_data.dbf" стандарта программного интерфейса 2.3.2.2 либо удаляются объекты обучающей выборки, которые привели к ошибкам неидентификации или ложной идентификации, либо для таких объектов создаются новые классы. В данном режиме используются результаты распознавания')
          DCMENUITEM L('3.7.7. Генерация подсистем классов и докод.об.и расп.выб.  ') PARENT oMenu3_7 ACTION {||F3_7_7()} MESSAGE L('На основе сочетания классов по 2, 3, N формируются подсистемы классов, которые добавляются в качестве градаций в классификационные шкалы подсистем классов и в объекты обучающей и распознаваемой выборки')
          DCMENUITEM L('3.7.8. Генерация подсистем признаков и докод.об.и расп.выб.') PARENT oMenu3_7 ACTION {||F3_7_8()} MESSAGE L('На основе сочетания признаков по 2, 3, N формируются подсистемы признаков, которые добавляются в качестве градаций в описательные шкалы подсистем признаков и в объекты обучающей и распознаваемой выборки')

      DCMENUITEM SEPARATOR PARENT oMenu3

    DCSUBMENU oMenu4 PROMPT L('4. Решение задач с применением модели') PARENT oMenuBar MESSAGE L('Применение модели для решения задач идентификации (распознавания), прогнозирования и поддержки принятия решений (обратная задача прогнозирования), а также для исследования моделируемой предметной области путем исследования ее модели')

      DCMENUITEM SEPARATOR PARENT oMenu4
      DCSUBMENU oMenu4_1 PROMPT L('4.1. Идентификация и прогнозирование            ') PARENT oMenu4   MESSAGE ' '
        DCMENUITEM L('4.1.1. Ручной ввод-корректировка распознаваемой выборки      ') PARENT oMenu4_1 ACTION {||F4_1_1()      } MESSAGE ' '
        DCMENUITEM L('4.1.2. Пакетное распознавание в текущей модели               ') PARENT oMenu4_1 ACTION {||F4_1_2(0,.T.,"4_1_2")} MESSAGE L('Распознаются по очереди все объекты распознаваемой выборки в стат.модели или базе знаний, заданной текущей в режиме 3.3 или 5.6.')

        DCSUBMENU oMenu4_1_3 PROMPT L('4.1.3. Вывод результатов распознавания') PARENT oMenu4_1 MESSAGE ' '
          DCMENUITEM L('4.1.3.1. Подробно наглядно: "Объект - классы" ') PARENT oMenu4_1_3 ACTION {||F4_1_3_1()} MESSAGE L('Визуализация результатов распознавания в подробной наглядной форме в отношении: "Один объект - много классов" с двумя интегральными критериями сходства между конкретным образом распознаваемого объекта и обобщенными образами классов: "Семантический резонанс знаний" и "Сумма знаний"')
          DCMENUITEM L('4.1.3.2. Подробно наглядно: "Класс - объекты" ') PARENT oMenu4_1_3 ACTION {||F4_1_3_2()} MESSAGE L('Визуализация результатов распознавания в подробной наглядной форме в отношении: "Один класс - много объектов" с двумя интегральными критериями сходства между конкретным образом распознаваемого объекта и обобщенными образами классов: "Семантический резонанс знаний" и "Сумма знаний"')
          DCMENUITEM L('4.1.3.3. Итоги наглядно:    "Объект - класс"  ') PARENT oMenu4_1_3 ACTION {||F4_1_3_3()} MESSAGE L('Отображение итоговых результатов распознавания в наглядной форме: отображаются пары: "Объект-класс"  у которых наибольшее сходство по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний". Приводится информация о фактической принадлежности объекта к классу')
          DCMENUITEM L('4.1.3.4. Итоги наглядно:    "Класс - объект"  ') PARENT oMenu4_1_3 ACTION {||F4_1_3_4()} MESSAGE L('Отображение итоговых результатов распознавания в наглядной форме: отображаются пары: "Класс-объект"  у которых наибольшее сходство по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний". Приводится информация о фактической принадлежности объекта к классу')
          DCMENUITEM L('4.1.3.5. Подробно сжато:    "Объекты - классы"') PARENT oMenu4_1_3 ACTION {||F4_1_3_5()} MESSAGE L('В подробной сжатой (числовой) форме приводится информация об уровне сходства всех объектов со всеми классами по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний", а также о фактической принадлежности объекта к классу')
          DCMENUITEM SEPARATOR PARENT oMenu4_1_3
          DCMENUITEM L('4.1.3.6. Обобщ.форма по достов.моделей при разных интегральных крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_6() } MESSAGE L('Отображаются обобщенные результаты измерения достоверности идентификации по всем моделям и интегральным критериям из БД: Dost_mod.DBF')
          DCMENUITEM L('4.1.3.7. Обобщ.стат.анализ результатов идент. по моделям и инт.крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_7() } MESSAGE L('Отображаются результаты обобщенного стат.анализа достоверности идентификации по всем моделям и интегральным критериям из БД: VerModClsIT.dbf')
          DCMENUITEM L('4.1.3.8. Стат.анализ результ. идент. по классам, моделям и инт.крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_8(7)} MESSAGE L('Отображаются результаты стат.анализа достоверности идентификации по всем классам, моделям и интегральным критериям из БД: VerModCls.dbf')
          DCMENUITEM L('4.1.3.9. Достоверность идент.объектов при разных моделях и инт.крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_9() } MESSAGE L('Отображается достоверность идентификации объектов по классам (F-мера Ван Ризбергена) в разрезе по объектам при разных моделях (т.е. разных частных критериях) и при разных интегральных критериях из БД: Dost_clsF.dbf. Позволяет удалять из обучающей выборки плохо распознаваемые объекты')
          DCMENUITEM L('4.1.3.10.Достоверность идент.классов  при разных моделях и инт.крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_10()} MESSAGE L('Отображается достоверность идентификации объектов по классам (F-мера Ван Ризбергена) в разрезе по классам  при разных моделях (т.е. разных частных критериях) и при разных интегральных критериях из БД: Dost_clsF.dbf')
          DCMENUITEM L('4.1.3.11.Распределения уровн.сходства при разных моделях и инт.крит.') PARENT oMenu4_1_3 ACTION {||F4_1_3_11()} MESSAGE L('Отображаются частотные распределения уровней сходства верно и ошибочно идентифицированных и неидентифицированных объектов при разных моделях и интегральных критериях из БД: DostRasp.dbf и DostRsp#.dbf. Расчет и графическая визуализация частотных распределений уровней сходства: 1) TP,TN,FP,FN, интегральный критерий - резонанс знаний; 2) TP,TN,FP,FN, интегральный критерий - сумма знаний; 3) (TP-FP), (TN-FN), интегральный критерий - резонанс знаний; 4) (TP-FP), (TN-FN), интегральный критерий - сумма знаний; 5) (TP-FP)/(TP+FP)*100 и (TN-FN)/(TN+FN)*100, интегральный критерий - резонанс знаний; 6) (TP-FP)/(TP+FP)*100 и (TN-FN)/(TN+FN)*100, интегральный критерий - сумма знаний')
          DCMENUITEM L('4.1.3.12.Объединение в одной БД строк по самым достоверным моделям  ') PARENT oMenu4_1_3 ACTION {||F4_1_3_12(.T.)} MESSAGE L('Объединение в одной БД "AddData.dbf" строк по наиболее достоверным моделям из Dost_modCls, формируемых в режиме 4.1.3.6. Этот режим предназначен для исследования зависимости достоверности моделей в зависимости от объема обучающей выборки и других параметров моделей по F-критерию Ван Ризбергена, а также по L1- и L2-критериям проф.Е.В.Луценко')

        DCMENUITEM L('4.1.4. Пакетное распознавание в заданной группе моделей            ') PARENT oMenu4_1 ACTION {||Razrab()} MESSAGE L('Распознаются по очереди все объекты распознаваемой выборки в стат.модели или базе знаний, заданной текущей, в всех моделях заданной группы моделей')
        DCMENUITEM L('4.1.5. Докодирование сочетаний признаков в распознаваемой выборке  ') PARENT oMenu4_1 ACTION {||Razrab()} MESSAGE ' '
        DCMENUITEM L('4.1.6. Рациональное назначение объектов на классы (задача о ранце) ') PARENT oMenu4_1 ACTION {||F4_1_6()} MESSAGE L('Управление персоналом на основе АСК-анализа и функционально-стоимостного анализа (задача о назначениях)')
        DCMENUITEM L('4.1.7. Интерактивная идентификация - последовательный анализ Вальда') PARENT oMenu4_1 ACTION {||Razrab()} MESSAGE ' '
        DCMENUITEM L('4.1.8. Мультираспознавание (пакетное распознавание во всех моделях) ') PARENT oMenu4_1 ACTION {||Razrab()} MESSAGE L('При идентификации объекта распознаваемой выборки с каждым классом он сравнивается в той модели, в которой этот класс распознается наиболее достоверно, как в системе "Эйдос-астра"')

      DCSUBMENU oMenu4_2 PROMPT L('4.2. Типология классов и принятие решений') PARENT oMenu4 MESSAGE ' '

          DCMENUITEM L('4.2.1. Информационные портреты классов')                     PARENT oMenu4_2 ACTION {||F4_2_1()} MESSAGE L('Решение обратной задачи прогнозирования: выработка управляющих решений. Если при прогнозировании на основе значений факторов оценивается в какое будущее состояние перейдет объект управления, то при решении обратной задачи, наоборот, по заданному целевому будущему состоянию объекта управления определяется такая система значений факторов, которая в наибольшей степени обуславливает переход в это состояние')
          DCSUBMENU oMenu4_2_2 PROMPT L('4.2.2. Кластерный и конструктивный анализ классов') PARENT oMenu4_2 MESSAGE ' '
            DCMENUITEM L('4.2.2.1. Расчет матриц сходства, кластеров и конструктов ') PARENT oMenu4_2_2 ACTION {||F4_2_2_1()} MESSAGE ' '
            DCMENUITEM L('4.2.2.2. Результаты кластерно-конструктивного анализа    ') PARENT oMenu4_2_2 ACTION {||F4_2_2_2()} MESSAGE L('Состояния, соответствующие классам, расположенные около одного полюса конструкта, достижимы одновременно, т.к. имеют сходную систему детерминации, а находящиеся около противоположных полюсов конструкта являются альтернативными, т.е. одновременно недостижимы')
            DCMENUITEM L('4.2.2.3. Агломеративная древовидная кластеризация классов') PARENT oMenu4_2_2 ACTION {||Razrab()  } MESSAGE L('Кластеризация, путем объединения классов')
            DCMENUITEM L('4.2.2.4. Дивизивная     древовидная кластеризация классов') PARENT oMenu4_2_2 ACTION {||F3_7_6()  } MESSAGE L('Кластеризация, путем разделения классов на типичную и нетипичную части пока релизоавна в упрощенной форме (по сравнению с DOS-версией системы "Эйдос". Из файла исходных данных "Inp_data.dbf" стандарта программного интерфейса 2.3.2.2 либо удаляются объекты обучающей выборки, которые привели к ошибкам неидентификации или ложной идентификации, либо для таких объектов создаются новые классы. В данном режиме используются результаты распознавания)')

          DCMENUITEM L('4.2.3. Когнитивные диаграммы классов') PARENT oMenu4_2 ACTION {||F4_2_3()} MESSAGE L('Данный режим показывает в наглядной графической форме какими признаками сходны и какими отличаются друг от друга заданные классы')

        DCSUBMENU oMenu4_3 PROMPT L('4.3. Типологический анализ признаков') PARENT oMenu4 MESSAGE ' '
          DCMENUITEM L('4.3.1. Информационные портреты признаков')          PARENT oMenu4_3 ACTION {||F4_3_1()} MESSAGE L('Семантический (смысловой) портрет признака или значения фактора, т.е. количественная характеристика силы и направления его влияния на поведение объекта управления')

          DCSUBMENU oMenu4_3_2 PROMPT L('4.3.2. Кластерный и конструктивный анализ признаков') PARENT oMenu4_3 MESSAGE ' '
            DCMENUITEM L('4.3.2.1. Расчет матриц сходства, кластеров и конструктов   ') PARENT oMenu4_3_2 ACTION {||F4_3_2_1()} MESSAGE ' '
            DCMENUITEM L('4.3.2.2. Результаты кластерно-конструктивного анализа      ') PARENT oMenu4_3_2 ACTION {||F4_3_2_2()} MESSAGE L('Признаки или градации факторов, расположенные около одного полюса конструкта, оказывают сходное влияние на объект управления, т.е. на его принадлежность к классам или его переход в состояния, соответствующие классам и могут быть заменены одни другими, а находящиеся около противоположных полюсов конструкта оказывают сильно отличающееся влияние на объект управления и не могут быть заменены одни другими')
            DCMENUITEM L('4.3.2.3. Агломеративная древовидная кластеризация признаков') PARENT oMenu4_3_2 ACTION {||Razrab()  } MESSAGE L('Кластеризация, путем объединения признаков')

          DCMENUITEM L('4.3.3. Когнитивные диаграммы признаков') PARENT oMenu4_3 ACTION {||F4_3_3()} MESSAGE L('Данный режим показывает в наглядной графической форме какими классами сходны и какими отличаются друг от друга заданные признаки')

      DCSUBMENU oMenu4_4 PROMPT L('4.4. Исследование предметной области путем исследования ее модели') PARENT oMenu4 MESSAGE ' '

        DCMENUITEM L('4.4.1. Оценка достоверности обучающей выборки                         ') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE L('Выявление объектов с нарушенными корреляциями между классами и признаками. Выявление очень сходных друг с другом объектов обучающей выборки')
        DCMENUITEM L('4.4.2. Оценка достоверности распознаваемой выборки                    ') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE L('Выявление очень сходных друг с другом объектов распознаваемой выборки')
        DCMENUITEM L('4.4.3. Измерение адекватности 3 стат.моделей и 7 моделей знаний       ') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE L('Любой заданной или всех')
        DCMENUITEM L('4.4.4. Измерение сходимости и устойчивости 10 моделей                 ') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE ' '
        DCMENUITEM L('4.4.5. Зависимость достоверности моделей от объема обучающей выборки  ') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE ' '
        DCMENUITEM L('4.4.6. Измерение независимости классов и признаков (анализ хи-квадрат)') PARENT oMenu4_4 ACTION {||Razrab()} MESSAGE ' '
        DCMENUITEM SEPARATOR PARENT oMenu4_4
        DCMENUITEM L('4.4.7. Графические профили классов и признаков                        ') PARENT oMenu4_4 ACTION {||Razrab() } MESSAGE ' '
        DCMENUITEM L('4.4.8. Количественный SWOT-анализ классов средствами АСК-анализа      ') PARENT oMenu4_4 ACTION {||F4_4_8() } MESSAGE L('АСК-анализ обеспечивает построение SWOT-матрицы (модели) для заданного класса с указанием силы влияния способствующих и препятствующих факторов непосредственно на основе эмпирических данных и поэтому является инструментом автоматизированного количественного SWOT-анализа (прямая задача SWOT-анализа). Классы интерпретируются как целевые и нежелательные состояния фирмы, факторы делятся на внутренние, технологические, описывающие фирму, и внешние, характеризующие окружающую среду, а количество информации, содержащееся в значении фактора, рассматривается как сила и направление его влияния на переход фирмы в те или иные будущие состояния')
        DCMENUITEM L('4.4.9. Количественный SWOT-анализ факторов средствами АСК-анализа     ') PARENT oMenu4_4 ACTION {||F4_4_9() } MESSAGE L('АСК-анализ обеспечивает построение количественной SWOT-матрицы (модели) для заданного значения фактора с указанием степени, в которой он способствует или препятствует переходу объекта управления в различные будущие состояния, соответствующие классам (обратная задача SWOT-анализа). Эта модель строится непосредственно на основе эмпирических данных и поэтому АСК-анализ может рассматриваться как инструмент автоматизированного количественного SWOT-анализа. Факторы делятся на внутренние, технологические, описывающие саму фирму, и внешние, характеризующие окружающую среду')
        DCMENUITEM L('4.4.10.Нелокальные нейроны                                            ') PARENT oMenu4_4 ACTION {||F4_4_10()} MESSAGE L('Нелокальный нейрон отражает силу и знак влияния значений факторов (рецепторов-признаков) на активацию или торможение нейрона, т.е. на принадлежность или не принадлежность объекта с этими признаками к классу, соответствующему данному нейрону')
        DCMENUITEM L('4.4.11.Парето-подмножества нелокальной нейронной сети                 ') PARENT oMenu4_4 ACTION {||F4_4_11('NeuroNet')   } MESSAGE L('В этом режиме изображается вместе сразу несколько нелокальных нейронов, которые в режиме 4.4.10 изображались по одному, т.е. Парето-подмножество нелокальной нейронной сети')
        DCMENUITEM L('4.4.12.Интегральные когнитивные карты                                 ') PARENT oMenu4_4 ACTION {||F4_4_11('IntCognMaps')} MESSAGE L('Это нелокальная нейронная сеть с указанием не только связей между значениями факторов и классов (как в режиме 4.4.11), но и с корреляциями между классами (как в режиме 4.2.2), и корреляциями между значениями факторов (как в режиме 4.3.2)')

      DCMENUITEM L('4.5. Визуализация когнитивных функций: текущее приложение, разные модели') PARENT oMenu4 ACTION {||F4_5()  } MESSAGE L('В данном режиме осуществляется визуализация и запись когнитивных функций, созданных в текущем приложении на основе различных стат.моделей и моделей знаний')
      DCMENUITEM L('4.6. Подготовка баз данных для визуализация когнитивных функций в Excel ') PARENT oMenu4 ACTION {||F4_6()  } MESSAGE L('Данный режим готовит базы данных для визуализации в MS Excel прямых и обратных, позитивных и негативных точечных и средневзвешенных редуцированных когнитивных функций, созданных на основе различных стат.моделей и моделей знаний')
      DCMENUITEM L('4.7. АСК-анализ изображений по пикселям, спектрам и контурам            ') PARENT oMenu4 ACTION {||F4_8(L('4.7. АСК-анализ изображений по пикселям, спектрам и контурам')) } MESSAGE L('Данный режим обеспечивает АСК-анализ изображений, как сгенерированных в учебных целях, так и внешних для системы "Эйдос-Х++", относящихся к какой-либо предметной области. АСК-анализ изображений возможен: по пикселям, спектру, по внешним контурам, по внутренним и внешним контурам (в разработке). Кроме того в данном режиме по кнопке "Формирование облака точек" возможна визуализация когнитивных функций, аналогично режимам 4.5 и 4.6. Данный режим интегрирован с Геокогнитивной подсистемой системы "Эйдос" (режим 4.8.)')
      DCMENUITEM L('4.8. Геокогнитивная подсистема                                          ') PARENT oMenu4 ACTION {||F4_8(L('4.8. Геокогнитивная подсистема')) }                               MESSAGE L('Обеспечивает восстановление значений функций по признакам аргумента. Преобразует 2D Excel-таблицу с именем "Inp_map.xls" в файл исходных данных "Inp_data.dbf", содержащий координаты X,Y,Z точек и их признаки (модель описательной информации картографической базы данных). Визуализирует исходные данные из БД "Inp_data.dbf" или итоговые результаты распознавания из БД: "Rsp_it.dbf" в картографической форме (сетка и градиентная заливка цветом) с применением триангуляции Делоне. Обеспечивает пакетный ввод и оконтуривание изображений и формирование соответствующих файлов "Inp_data" и др. для создания и применения модели, созданной на основе этих изображений. Режим интегрирован с 4.7.')

    DCSUBMENU oMenu5 PROMPT L('5. Сервис') PARENT oMenuBar MESSAGE L('Конвертирование, печать и сохранение модели, пересоздание и переиндексация всех баз данных')

      DCMENUITEM SEPARATOR PARENT oMenu5
      DCMENUITEM L('5.1. Конвертер приложения OLD => NEW')        PARENT oMenu5 ACTION {||F5_1()    } MESSAGE L('Преобразование модели из стандарта БД системы Эйдос-12.5 в стандарт Эйдос-X++. Для конвертирования старого приложения надо скопировать в папку: <OldAppls> файлы: Object.Dbf, Priz_Ob.Dbf, Priz_Per.Dbf, Priz_Per.Dbt, Obinfzag.Dbf, Obinfkpr.Dbf')
      DCMENUITEM L('5.2. Конвертер приложения NEW => OLD')        PARENT oMenu5 ACTION {||F5_2()    } MESSAGE L('Преобразование модели из стандарта БД системы Эйдос-X++ в стандарт Эйдос-12.5 в папку OldAppls. Все файлы из этой папки надо скопировать в текущую папку системы "Эйдос-12.5", выполнить режимы 7.2 и 2.3.5')
      DCMENUITEM L('5.3. Конвертер всех PCX (BMP) в GIF ')        PARENT oMenu5 ACTION {||Razrab()  } MESSAGE ' '
      DCMENUITEM L('5.4. Конвер. результатов расп.для SigmaPlot') PARENT oMenu5 ACTION {||F5_4()    } MESSAGE L('Конвертирует результаты распознавания, т.е. БД Rasp.dbf в параметрическую форму в стиле: "X, Y, Z", удобную для картографической визуализации в системе SigmaPlot. Это возможно, если предварительно были выполнены режимы 3.7.7 и 3.4(3.5.) и 4.1.2.')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.5. Просмотр основных БД всех моделей    ')  PARENT oMenu5 ACTION {||F5_5(.T.) } MESSAGE L('Обеспечивает просмотр и экспорт в Excel основных баз данных всех статистических моделей: Abs, Prc1, Prc2 и моделей знаний: Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.6. Выбрать модель и сделать ее текущей  ')  PARENT oMenu5 ACTION {||F5_6(4,.T.,"MainMenu")} MESSAGE L('Данная функция позволяет выбрать среди ранее рассчитанных в 3-й подсистеме статистических баз Abs, Prc1, Prc2 и моделей знаний INF#, текущую модель для решения в 4-й подсистеме задач идентификации, прогнозирования, приятия решений и исследования предметной области путем исследования ее модели')
      DCMENUITEM L('5.7. Переиндексация всех баз данных       ')  PARENT oMenu5 ACTION {||F5_7()    } MESSAGE L('Заново создаются все необходимые для работы системы индексные массивы общесистемных баз данных (находящихся в папке с исполнимым модулем системы), а также баз данных текущего приложения, необходимые для работы с ним')
      DCMENUITEM L('5.8. Сохранение основных баз данных модели')  PARENT oMenu5 ACTION {||Razrab()  } MESSAGE ' '
      DCMENUITEM L('5.9. Восстановление модели из основных БД ')  PARENT oMenu5 ACTION {||Razrab()  } MESSAGE ' '
      DCMENUITEM L('5.10.Выгрузка исходных данных в "Inp_data"')  PARENT oMenu5 ACTION {||F5_10()   } MESSAGE L('Данный режим выполняет функцию, обратную универсальному программному интерфейсу с внешними базами данных 2.3.2.2(), т.е. не вводит исходные данные в систему, а наоборот, формирует на основе исходных данных файлы: Inp_data.dbf и Inp_data.txt, на основе которых в режиме 2.3.2.2() можно сформировать эту же модель')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.11. Внешнее управление системой "Эйдос"')   PARENT oMenu5 ACTION {||F5_11()   } MESSAGE L('Данный режим обеспечивает управление системой "Эйдос" в реальном времени со стороны внешней программы путем задания ею последовательности функций системы "Эйдос" для исполнения (по сути программы, написанной на языке "Эйдос") в специальной базе данных: "ExternalControl.dbf" и программного контроля их исполнения')
      DCMENUITEM SEPARATOR PARENT oMenu5
      DCMENUITEM L('5.12. Печать структур всех баз данных  ')     PARENT oMenu5 ACTION {||F5_12()   } MESSAGE L('Распечатка структур (даталогических моделей) всех баз данных текущего приложения')
      DCMENUITEM L('5.13. Редактирование БД лемматизации   ')     PARENT oMenu5 ACTION {||F5_13()   } MESSAGE L('Ввод-корректировка базы данных лемматизации: "Lemma.dbf"')
      DCMENUITEM L('5.14. Пояснения по лабораторным работам')     PARENT oMenu5 ACTION {||F5_14()   } MESSAGE L('Пояснения по смыслу частных и интегральных критериев и описания лабораторных работ')

    DCSUBMENU oMenu6 PROMPT L('6. О системе') PARENT oMenuBar MESSAGE ' '

      DCMENUITEM SEPARATOR PARENT oMenu6
      DCMENUITEM L('6.1. Информация о системе, разработчике и средствах разработки') PARENT oMenu6 ACTION {||F6_1()  } MESSAGE ' '
      DCMENUITEM L('6.2. Ссылки на патенты, документацию и текущую версию системы ') PARENT oMenu6 ACTION {||F6_2()  } MESSAGE L('Internet-ссылки на патенты, монографии, учебные пособия, научные статьи и самую новую (на текущий момент) версию системы "Эйдос-Х++, а также полный комплект документации на нее одним файлом"')
      DCMENUITEM L('6.3. Карта системы (дерево диалога)                           ') PARENT oMenu6 ACTION {||Razrab()} MESSAGE ' '
      DCMENUITEM L('6.4. Порядок преобразования данных в информацию, а ее в знания') PARENT oMenu6 ACTION {||F6_4()  } MESSAGE L('В режиме раскрывается соотношение содержания понятий: "Данные", "Информация" и "Знания", а также последовательность преобразования данных в информацию, а ее в знания в системе "Эйдос-Х++" с указанием имен баз данных и ссылками на основные публикации по этим вопросам')
      DCMENUITEM L('6.5. Графическая заставка системы "Эйдос-12.5"                ') PARENT oMenu6 ACTION {||F6_5()  } MESSAGE ' '
      DCMENUITEM L('6.6. Roger Donnay, Professional Developer, Developer eXPress++') PARENT oMenu6 ACTION {||F6_6()  } MESSAGE L('Roger Donnay, профессиональный разработчик программного обеспечения, разработчик высокоэффективной инструментальной системы программирования eXPress++, широко использованной при создании системы "Эйдос-Х++". Roger Donnay, Professional Developer, Developer eXPress++')
      DCMENUITEM L('6.7. Логотипы мультимоделей                                   ') PARENT oMenu6 ACTION {||F6_7()  } MESSAGE ' '
      DCMENUITEM L('6.8. Свидетельства РосПатента РФ на систему "Эйдос"           ') PARENT oMenu6 ACTION {||F6_8()  } MESSAGE L('Основные (знаковые) свидетельства РосПатента на систему "Эйдос" 1994, 2003, 2012, 2017 годов')
      DCMENUITEM L('6.9. География пользователей системы "Эйдос-Х++"              ') PARENT oMenu6 ACTION {||F6_9()  } MESSAGE L('Когда кто-либо в мире запускает систему "Эйдос-Х++" на исполнение на компьютере, подключенном к Internet, то на она программно обращается к специально созданному сайту, на котором размещен PHP-код, определяющий дату и время обращения, IP-адрес компьютера, с которого произошло это обращение, и по нему домен, страна, округ, регион, город, почтовый индекс, временной пояс и географические координаты места запуска')

    DCMENUITEM L('7. Выход') PARENT oMenuBar ACTION {||F7()} MESSAGE L('Закрыть все базы данных и корректно выйти из системы')

  @ 100,100 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX ;
        OBJECT oMessageBox ;
        INVISIBLE ;
        COLOR DC_XbpMenuConfig()[2], DC_XbpMenuConfig()[3]

  @ 4,4 DCSAY 'System Aidos' ;
        PARENT oMessageBox ;
        FONT '8.MS Sans Serif' ;
        SAYOPTION XBPSTATIC_TEXT_VCENTER + XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_WORDBREAK ;
        COLOR DC_XbpMenuConfig()[9], DC_XbpMenuConfig()[1]

  DCGETOPTIONS ;
       WINDOWHEIGHT H_MainWind ;
       WINDOWWIDTH  W_MainWind

DCREAD GUI ;
  TITLE L('(c) Универсальная когнитивная аналитическая система "ЭЙДОС-X++", beta-version, rel: 19.02.2018') ;
  HANDLER MenuHandler REFERENCE @oMessageBox ;
  OPTIONS GetOptions ;
  EVAL {|o|oDlg := o};
  PARENT @oDlgBmp

[/size]

[rdonnay]

We can't solve this for you.
It's too complicated.
We would need to rewrite every one of your functions.

[Auge_Ohr]

do you want to run 1 x Windows or multi Windows

1 x Windows :

if you start from menu you can disable all other menue item like this

Code: Select all

   DCMENUITEM "1.1. Hello1" PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(),F1_1(),NIL) } MESSAGE "world1"
   DCMENUITEM "1.2. Hello2" PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(),F1_2(),NIL) } MESSAGE "world2"

just have

Code: Select all

FUNCTION Running(lValue)
STATIC lRunning := .F.
   IF PCOUNT() > 0
      lRunning := lValue
   ENDIF
RETURN lRunning

now you must include in all your Code

Code: Select all

FUNCTION XYZ()
   Running(.T.)             // set .T.
   // here your Code
   Running(.F.)             // set .F.
RETURN NIL

start with Running(.T.)
this Way all menu item are disable
until set Running(.F.)

RUNNING.ZIP

(579 Bytes) Downloaded 679 times

---

multi Windows

that is what Thread mean

Code: Select all

   DCMENUITEM 'My Function1' ACTION {|o|o := Thread():new(),o:start({||MyFunction1()})}

And how close function MyFunction1() from inside a function MyFunction2()?

when disable menu : you can't open menu for MyFunction2() when MyFunction1() is running

to handle multi Thread Windows is much more complicate
FUNCTION Running() is not Threadsafe so you must react inside Thread e.g. when press ESC

when using many Thread it is recommend to collect them in a Array as receiver.

i use Userdef Events this Way (pure Xbase++)

Code: Select all

#define My_CloseFuncNow   xbeP_User + 1

   PostAppEvent( My_CloseFuncNow,,, oXbp )

next is that your Thread Object Function must have a AppEvent() to get a Event
pure Xbase++ use this Syntax

Code: Select all

  nEvent := AppEvent( @mp1, @mp2, @oXbp [, nSleep] )
  DO CASE
     CASE nEvent == My_CloseFuncNow

now with Express++ Syntax

Code: Select all

   DCMENUITEM 'My Function1' ACTION {|o|o := Thread():new(),o:start({||MyFunction1(o)})}

i'm not sure where to find "O" in GETLIST which is the Thread Object as receiver oXbp and how to add UserDef Events here

[Eugene Lutsenko]

Auge_Ohr!

It seems to be working! This is a good option. It is impossible to run the function from the menu is not yet completed execution of the previous running. I'll try the 1st option. I tried to write a file with information about the running function, when it starts, and to erase him out the door. But for some reason failed to trace for all functions

[Eugene Lutsenko]

Auge_Ohr!

Everything turned out fine! Many thanks! Now the user if they wanted just not physically may not be activated until the end of the previous one. I have the option quite satisfied.

Code: Select all

*********************************************************************************************************
*********** Многоуровневое иерархическое меню системы Эйдос *********************************************
*********************************************************************************************************

  GradFonStart(1)                                     // Организация смены фона главного окна по таймеру

  DCMENUBAR oMenuBar OWNERDRAW BARBITMAP 'Checkers.bmp'

    DCSUBMENU oMenu1 PROMPT L('1. Администрирование') PARENT oMenuBar MESSAGE L('Подсистема администрирования')

      DCMENUITEM SEPARATOR PARENT oMenu1
      DCMENUITEM L('1.1. Авторизация                                 ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_1(),NIL)    } MESSAGE L('Авторизация сисадмина, администратора приложения или пользователя')
      DCMENUITEM L('1.2. Регистрация администратора приложения       ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_2(),NIL)    } MESSAGE L('Регистрация и удаление регистрации администраторов приложений и задание паролей пользователей. Этот режим доступен только системному администратору и администраторам приложений')
      DCMENUITEM L('1.3. Диспетчер приложений                        ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_3(),NIL)    } MESSAGE L('Это подсистема администрирования приложений. Она предназначена для создания новых приложений, как пустых, так и на основе учебных примеров (лабораторных работ), имеющихся в системе, а также для выбора приложения для работы из уже имеющихся и удаления приложения. Выбор приложения для работы осуществляется путем отметки его любым символом. Удалять любые приложения разрешается только сисадмину, а Администратору приложений - только те, которые он сам создал')
      DCMENUITEM SEPARATOR PARENT oMenu1
*     DCMENUITEM L('1.4. Выбор режима использования системы          ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_4()old,NIL) } MESSAGE L('Монопольный или многопользовательский (задается при инсталляции системы, но может быть изменен когда угодно сисадмином)')
      DCMENUITEM L('1.4. Multi-language support                      ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_4(),NIL)    } MESSAGE L('Данный режим обеспечивает: 1) задание текущего языка интерфейса (по умолчанию - русский); 2) корректировку локальной языковой базы данных по текущему языку (улучшение перевода); 3) объединение локальных и облачных языковых баз данных')
      DCMENUITEM L('1.5. Задание путей на папки с группами приложений') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_5(),NIL)    } MESSAGE L('Папки с различными группами приложениями могут быть на локальном компьютере, в локальной сети или в Internet. Пути на них задаются сисадмином при инсталляции системы и могут быть изменены им когда угодно. Один из этих путей, а именно первый из отмеченный специальных символов, считается текущим и используется при СОЗДАНИИ приложений в диспетчере приложений 1.3, а в последующем при запуске приложений на исполнение пути берутся уже из БД диспетчера приложений')
      DCMENUITEM L('1.6. Задание цветовой схемы главного меню        ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_6(),NIL)    } MESSAGE L('Задается по умолчанию если в папке с системой нет файла: ColorSch.arx при инсталляции системы, но может быть изменена когда угодно сисадмином')
      DCMENUITEM L('1.7. Задание размера главного окна в пикселях    ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_7(),NIL)    } MESSAGE L('Задается по умолчанию 1024 x 769 если в папке с системой нет файла: _MainWind.arx при инсталляции системы, но может быть изменена когда угодно сисадмином')
      DCMENUITEM L('1.8. Задание градиентных фонов главного окна     ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_8(),NIL)    } MESSAGE L('Градиентные фоны главного окна задаются по умолчанию при инсталляции системы, но могут быть изменены когда угодно сисадмином')
      DCMENUITEM L('1.9. Прописывание путей по фактическому положению') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_9(),NIL)    } MESSAGE L('Доступно только сисадмину. Определяет фактическое месторасположение системы и приложений и прописывает пути на них в БД: PathGrAp.DBF и Appls.dbf, а также восстанавливает имена приложений в Appls.dbf на данные им при их создании')
      DCMENUITEM L('1.10. Экспериментальная графика Роджера          ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), DC_Graph(),NIL)} MESSAGE L('Графика Роджера. Операции  с графикой на основе манипулирования массивами. Определение характеристик пикселей')
      DCMENUITEM L('1.11. Локализация и инициализация (сброс) системы') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_11(),NIL)   } MESSAGE L('Доступно только сисадмину. Прописывает все пути по фактическому месторасположению системы, пересоздает общесистемные базы данных, удаляет все приложения и всех пользователей. Определяет фактическое месторасположение системы и приложений, удаляет все директории приложений с поддиректориями и всеми файлами в них, а затем прописывает все пути на них по фактическому месторасположению, т.е. пересоздает и переиндексирует БД: PathSystem.dbf, PathGrAp.dbf, Appls.dbf и Users.dbf')
*     DCMENUITEM L('1.12. Режим специального назначения              ') PARENT oMenu1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F1_12(),NIL)   } MESSAGE L('Комментарий: "Без комментариев"')


    DCSUBMENU oMenu2 PROMPT L('2. Формализация предметной области') PARENT oMenuBar MESSAGE L('Разработка классификационных и описательных шкал и градаций и формирование обучающей выборки')

      DCMENUITEM SEPARATOR PARENT oMenu2
      DCMENUITEM L('2.1. Классификационные шкалы и градации     ') PARENT oMenu2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_1("Close"),NIL)  } MESSAGE L('Ручной ввод-корректировка классификационных шкал и градаций')
      DCMENUITEM L('2.2. Описательные шкалы и градации          ') PARENT oMenu2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_2("Close"),NIL)  } MESSAGE L('Ручной ввод-корректировка описательных шкал и градаций')
      DCMENUITEM SEPARATOR PARENT oMenu2

      DCSUBMENU oMenu2_3 PROMPT L('2.3. Ввод обучающей выборки') PARENT oMenu2 WHEN {|| !Running()} MESSAGE L('')
        DCMENUITEM L('2.3.1. Ручной ввод-корректировка обучающей выборки          ') PARENT oMenu2_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_1(),NIL)} MESSAGE L('')

      DCMENUITEM SEPARATOR PARENT oMenu2
      DCMENUITEM L('2.4. Просмотр эвентологических баз данных   ')  PARENT oMenu2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_4(),NIL)  } MESSAGE L('Просмотр эвентологических баз данных (баз событий), в которых исходные данные закодированы с помощью классификационных и описательных шкал и градаций и представлены в форме кодов событий, между которыми существуют причинно-следственные связи')

        DCSUBMENU oMenu2_3_2 PROMPT L('2.3.2. Программные интерфейсы с внешними базами данных') PARENT oMenu2_3 WHEN {|| !Running()} MESSAGE L('Автоматизированная формализация предметной области: разработка классификационных и описательных шкал и градаций и кодирование с их помощью исходных данных, в результате чего они преобразуются в обучающую выборку (базу событий). По сути это нормализация исходных баз данных. При этом сами данные могут быть различных типов: текстовыми, табличными (MS Excel, dbf) и графическими (jpg, bmp)')
          DCMENUITEM L('2.3.2.1. Импорт данных из текстовых файлов                           ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_1(),NIL)  } MESSAGE L('Универсальный программный интерфейс ввода данных из TXT, DOC и Internet (HTML) файлов неограниченного объема. Атрибуция текстов, АСК-анализ мемов')
          DCMENUITEM L('2.3.2.2. Универсальный программный интерфейс импорта данных в систему') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_2(""),NIL)} MESSAGE L('Режим представляет собой УНИВЕРСАЛЬНЫЙ ПРОГРАММНЫЙ ИНТЕРФЕЙС ФОРМАЛИЗАЦИИ ПРЕДМЕТНОЙ ОБЛАСТИ И ИМПОРТА ДАННЫХ В СИСТЕМУ "ЭЙДОС-Х". Данный программный интерфейс обеспечивает автоматическое формирование классификационных и описательных шкал и градаций и обучающей выборки на основе XLS, XLSX или DBF-файла с исходными данными стандарта, описанного в Help режима. Кроме того он обеспечивает автоматический ввод распознаваемой выборки из внешней базы данных. В этом режиме может быть до 1000000 объектов обучающей выборки до 1500 шкал')
          DCMENUITEM L('2.3.2.3. Импорт данных из транспонированных внешних баз данных       ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_3(),NIL)  } MESSAGE L('Режим представляет собой ПРОГРАММНЫЙ ИНТЕРФЕЙС ФОРМАЛИЗАЦИИ ПРЕДМЕТНОЙ ОБЛАСТИ И ИМПОРТА ДАННЫХ В СИСТЕМУ "ЭЙДОС-Х". Данный программный интерфейс обеспечивает автоматическое формирование классификационных и описательных шкал и градаций и обучающей выборки на основе XLS, XLSX или DBF-файла с исходными данными стандарта, описанного в Help режима стандарта, представляющего собой ТРАНСПОНИРОВАННЫЙ файл стандарта режима 2.3.2.2. Кроме того он обеспечивает автоматический ввод распознаваемой выборки из внешней базы данных. В этом режиме может быть до 1000000 шкал и до 1500 объектов обучающей выборки')
          DCMENUITEM L('2.3.2.4. Оцифровка изображений по внешним контурам                   ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2324ok(),NIL)   } MESSAGE L('Данный режим обеспечивает оцифровку изображений по внешним контурам, т.е. кодирование и ввод в систему "Эйдос" изображений и формирование файла исходных данных "Inp_data" в стандарте режима 2.3.2.2 в котором каждое изображение представлено строкой')
          DCMENUITEM L('2.3.2.5. Оцифровка изображений по всем пикселям и спектру            ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_5(),NIL)  } MESSAGE L('Данный режим обеспечивает оцифровку изображений по всем пикселям и спектру, т.е. кодирование и ввод в систему "Эйдос" изображений и формирование файла исходных данных "Inp_data" в стандарте режима 2.3.2.3 в котором каждое изображение представлено столбцом')
          DCMENUITEM L('2.3.2.6. Импорт данных из DOS-TXT-рядов чисел (цифр) и слов (букв)   ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_6(),NIL)  } MESSAGE L('Данный режим обеспечивает импорт данных из DOS-TXT-рядов чисел (цифр) и слов (букв), а также генерацию рядов для расчета асимптотического информационного критерия качества шума - критерия степени выраженности  закономерностей в модели')
          DCMENUITEM L('2.3.2.7. Транспонирование файлов исходных данных                     ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_7(),NIL)  } MESSAGE L('Данный режим обеспечивает транспонирование базы данных Inp_data.xls и ее запись в виде файла Out_transp.xls')
          DCMENUITEM L('2.3.2.8. Объединение нескольких файлов исходных данных в один        ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_8(),NIL)  } MESSAGE L('Данный режим обеспечивает объединение нескольких одинаковых по структуре баз данных с именами вида: "Input####.xls", где: "####" - номер файла вида: 0001,0002,...,9999, в один файл с именем: "Add_data.xls"')
          DCMENUITEM L('2.3.2.9. Разбиение TXT-файла на файлы-абзацы                         ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_9(),NIL)  } MESSAGE L('Данный режим обеспечивает: обнаружение в папке: ../AID_DATA/INP_DATA/ TXT-файлов, загрузку этих файлов, нахождение в них абзацев, запись этих абзацев в виде TXT-файлов с именами вида: "###### - <ИМЯ TXT-ФАЙЛА>" из сквозного номера абзаца ###### и имени исходного TXT-файла')
          DCMENUITEM SEPARATOR PARENT oMenu5                                                         
          DCMENUITEM L('2.3.2.10.Чемпионат RAIF-Challenge 2017-API-bank                      ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_10(),NIL) } MESSAGE L('Создание БД Inp_data.dbf из файлов: t1.xlsx, t2.xlsx, t3.xlsx, t4.xlsx')
          DCMENUITEM L('2.3.2.11.Чемпионат RAIF-Challenge 2017-API-retail                    ') PARENT oMenu2_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_2_11(),NIL) } MESSAGE L('Создание БД Inp_data.dbf и файла: Inp_name.txt соответственно из файлов:jet_raif_challenge.csv и description.csv')

        DCSUBMENU oMenu2_3_3 PROMPT L('2.3.3. Управление обучающей выборкой     ') PARENT oMenu2_3   WHEN {|| !Running()} MESSAGE ' '
          DCMENUITEM L('2.3.3.1. Параметрическое задание объектов для обработки ') PARENT oMenu2_3_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE ' '
          DCMENUITEM L('2.3.3.2. Статистическая характеристика, ручной ремонт   ') PARENT oMenu2_3_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE ' '
          DCMENUITEM L('2.3.3.3. Автоматический ремонт обучающей выборки        ') PARENT oMenu2_3_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab() ,NIL) } MESSAGE ' '
          DCMENUITEM L('2.3.3.4. Распределение объектов обуч. выборки по классам') PARENT oMenu2_3_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F2_3_3_4(),NIL)} MESSAGE L('Формирование отчета о распределении объектов обучающей выборки по классам')

        DCMENUITEM L('2.3.4. Докодирование сочетаний признаков в обучающей выборке') PARENT oMenu2_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '

    DCSUBMENU oMenu3 PROMPT L('3. Синтез, верификация и улучшение модели')       PARENT oMenuBar MESSAGE L('Создание модели, повышение ее качества и оценка достоверности')

        DCMENUITEM SEPARATOR PARENT oMenu3
        DCMENUITEM L('3.1. Формирование базы абсолютных частот                ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_1(.T., 0, 0, 0, .T.,""),NIL)} MESSAGE L('Загрузка по очереди описаний всех объектов обучающей выборки и расчет количества встреч различных сочетаний: Принадлежность объекта к j-му классу - наличие у него i-го признака')
        DCMENUITEM L('3.2. Расчет процентных распределений                    ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_2(.T., 0, 0, 0, .T.,""),NIL)} MESSAGE L('Расчет условных и безусловных процентных распределений')
        DCMENUITEM L('3.3. Расчет заданных из 7 моделей знаний                ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_3(.T., 0, 0, 0, .T.,""),NIL)} MESSAGE L('Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2')
        DCMENUITEM SEPARATOR PARENT oMenu3
        DCMENUITEM L('3.4. Автоматическое выполнение режимов 1-2-3            ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_4(.T., 0, 0, 0, .T.,""),NIL)} MESSAGE L('По очереди исполняются режимы: 3.1., 3.2. и 3.3. для заданных стат.моделей и моделей знаний и затем заданная делается текущей')
        DCMENUITEM L('3.5. Синтез и верификация заданных из 10 моделей        ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_5(.T.),NIL)                 } MESSAGE L('Оценивается достоверность (адекватность) заданных стат.моделей и моделей знаний. Для этого осуществляется синтез заданных моделей, обучающая выборка копируется в распознаваемую и в каждой заданной модели проводится распознавание с использованием двух интегральных критериев, подсчитывается количество верно идентифицированных и не идентифицированных, ошибочно идентифицированных и не идентифицированных объектов (ошибки 1-го и 2-го рода)')
        DCMENUITEM L('3.6. Синтез и верификация заданной группы моделей       ') PARENT oMenu3 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)                  } MESSAGE L('В различных приложениях текущей группы приложений создаются и верифицируются модели: Abs, Prc1, Prc2, Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2 с фиксированными и адаптивными интервалами со сценариями и без и для каждого класса определяется модель, в которой его идентификация осуществляется наиболее достоверно')
        DCMENUITEM SEPARATOR PARENT oMenu3

        DCSUBMENU oMenu3_7 PROMPT L('3.7. Повышение качества модели') PARENT oMenu3 WHEN {|| !Running()} MESSAGE ' '
          DCMENUITEM L('3.7.1. Поиск и удаление артефактов (робастная процедура)   ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_1(),NIL)} MESSAGE L('Строится частотное распределение абсолютных частот встреч признаков в классах по матрице сопряженности Abs.dbf и пользователю предоставляется возможность удалить редко встречающиеся факты (сочетания), как случайные выбросы или артефакты. Для работы профессиональной графики нужна MS Windows 7 или выше')
          DCMENUITEM L('3.7.2. Значимость классификационных шкал                   ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('В данном режиме классификационные шкалы ранжируются в порядке убывания значимости, т.е. средней значимости их градаций, т.е. классов')
          DCMENUITEM L('3.7.3. Значимость градаций классификационных шкал (классов)') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('В данном режиме все градации классификационных шкал (классы) ранжируются в порядке убывания значимости, т.е. вариабельности значений частных критериев статистических баз и баз знаний')
          DCMENUITEM L('3.7.4. Значимость описательных шкал                        ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_4(),NIL)} MESSAGE L('В данном режиме описательные шкалы ранжируются в порядке убывания значимости, т.е. средней значимости их градаций, т.е. признаков')
          DCMENUITEM L('3.7.5. Значимость градаций описательных шкал (признаков)   ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_5(),NIL)} MESSAGE L('В данном режиме все градации описательных шкал (признаки) ранжируются в порядке убывания значимости, т.е. вариабельности значений частных критериев статистических баз и баз знаний')
          DCMENUITEM L('3.7.6. Разделение классов на типичную и нетипичную части   ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_6(),NIL)} MESSAGE L('Из файла исходных данных "Inp_data.dbf" стандарта программного интерфейса 2.3.2.2 либо удаляются объекты обучающей выборки, которые привели к ошибкам неидентификации или ложной идентификации, либо для таких объектов создаются новые классы. В данном режиме используются результаты распознавания')
          DCMENUITEM L('3.7.7. Генерация подсистем классов и докод.об.и расп.выб.  ') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_7(),NIL)} MESSAGE L('На основе сочетания классов по 2, 3, N формируются подсистемы классов, которые добавляются в качестве градаций в классификационные шкалы подсистем классов и в объекты обучающей и распознаваемой выборки')
          DCMENUITEM L('3.7.8. Генерация подсистем признаков и докод.об.и расп.выб.') PARENT oMenu3_7 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_8(),NIL)} MESSAGE L('На основе сочетания признаков по 2, 3, N формируются подсистемы признаков, которые добавляются в качестве градаций в описательные шкалы подсистем признаков и в объекты обучающей и распознаваемой выборки')

      DCMENUITEM SEPARATOR PARENT oMenu3

    DCSUBMENU oMenu4 PROMPT L('4. Решение задач с применением модели') PARENT oMenuBar MESSAGE L('Применение модели для решения задач идентификации (распознавания), прогнозирования и поддержки принятия решений (обратная задача прогнозирования), а также для исследования моделируемой предметной области путем исследования ее модели')

      DCMENUITEM SEPARATOR PARENT oMenu4
      DCSUBMENU oMenu4_1 PROMPT L('4.1. Идентификация и прогнозирование            ') PARENT oMenu4 WHEN {|| !Running()} MESSAGE ' '
        DCMENUITEM L('4.1.1. Ручной ввод-корректировка распознаваемой выборки      ') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_1(),NIL)             } MESSAGE ' '
        DCMENUITEM L('4.1.2. Пакетное распознавание в текущей модели               ') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_2(0,.T.,"4_1_2"),NIL)} MESSAGE L('Распознаются по очереди все объекты распознаваемой выборки в стат.модели или базе знаний, заданной текущей в режиме 3.3 или 5.6.')

        DCSUBMENU oMenu4_1_3 PROMPT L('4.1.3. Вывод результатов распознавания') PARENT oMenu4_1 WHEN {|| !Running()} MESSAGE ' '
          DCMENUITEM L('4.1.3.1. Подробно наглядно: "Объект - классы" ') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_1(),NIL)} MESSAGE L('Визуализация результатов распознавания в подробной наглядной форме в отношении: "Один объект - много классов" с двумя интегральными критериями сходства между конкретным образом распознаваемого объекта и обобщенными образами классов: "Семантический резонанс знаний" и "Сумма знаний"')
          DCMENUITEM L('4.1.3.2. Подробно наглядно: "Класс - объекты" ') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_2(),NIL)} MESSAGE L('Визуализация результатов распознавания в подробной наглядной форме в отношении: "Один класс - много объектов" с двумя интегральными критериями сходства между конкретным образом распознаваемого объекта и обобщенными образами классов: "Семантический резонанс знаний" и "Сумма знаний"')
          DCMENUITEM L('4.1.3.3. Итоги наглядно:    "Объект - класс"  ') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_3(),NIL)} MESSAGE L('Отображение итоговых результатов распознавания в наглядной форме: отображаются пары: "Объект-класс"  у которых наибольшее сходство по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний". Приводится информация о фактической принадлежности объекта к классу')
          DCMENUITEM L('4.1.3.4. Итоги наглядно:    "Класс - объект"  ') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_4(),NIL)} MESSAGE L('Отображение итоговых результатов распознавания в наглядной форме: отображаются пары: "Класс-объект"  у которых наибольшее сходство по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний". Приводится информация о фактической принадлежности объекта к классу')
          DCMENUITEM L('4.1.3.5. Подробно сжато:    "Объекты - классы"') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_5(),NIL)} MESSAGE L('В подробной сжатой (числовой) форме приводится информация об уровне сходства всех объектов со всеми классами по двум интегральным критериям сходства: "Семантический резонанс знаний" и "Сумма знаний", а также о фактической принадлежности объекта к классу')
          DCMENUITEM SEPARATOR PARENT oMenu4_1_3
          DCMENUITEM L('4.1.3.6. Обобщ.форма по достов.моделей при разных интегральных крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_6(),NIL)    } MESSAGE L('Отображаются обобщенные результаты измерения достоверности идентификации по всем моделям и интегральным критериям из БД: Dost_mod.DBF')
          DCMENUITEM L('4.1.3.7. Обобщ.стат.анализ результатов идент. по моделям и инт.крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_7(),NIL)    } MESSAGE L('Отображаются результаты обобщенного стат.анализа достоверности идентификации по всем моделям и интегральным критериям из БД: VerModClsIT.dbf')
          DCMENUITEM L('4.1.3.8. Стат.анализ результ. идент. по классам, моделям и инт.крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_8(7),NIL)   } MESSAGE L('Отображаются результаты стат.анализа достоверности идентификации по всем классам, моделям и интегральным критериям из БД: VerModCls.dbf')
          DCMENUITEM L('4.1.3.9. Достоверность идент.объектов при разных моделях и инт.крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_9(),NIL)    } MESSAGE L('Отображается достоверность идентификации объектов по классам (F-мера Ван Ризбергена) в разрезе по объектам при разных моделях (т.е. разных частных критериях) и при разных интегральных критериях из БД: Dost_clsF.dbf. Позволяет удалять из обучающей выборки плохо распознаваемые объекты')
          DCMENUITEM L('4.1.3.10.Достоверность идент.классов  при разных моделях и инт.крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_10(),NIL)   } MESSAGE L('Отображается достоверность идентификации объектов по классам (F-мера Ван Ризбергена) в разрезе по классам  при разных моделях (т.е. разных частных критериях) и при разных интегральных критериях из БД: Dost_clsF.dbf')
          DCMENUITEM L('4.1.3.11.Распределения уровн.сходства при разных моделях и инт.крит.') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_11(),NIL)   } MESSAGE L('Отображаются частотные распределения уровней сходства верно и ошибочно идентифицированных и неидентифицированных объектов при разных моделях и интегральных критериях из БД: DostRasp.dbf и DostRsp#.dbf. Расчет и графическая визуализация частотных распределений уровней сходства: 1) TP,TN,FP,FN, интегральный критерий - резонанс знаний; 2) TP,TN,FP,FN, интегральный критерий - сумма знаний; 3) (TP-FP), (TN-FN), интегральный критерий - резонанс знаний; 4) (TP-FP), (TN-FN), интегральный критерий - сумма знаний; 5) (TP-FP)/(TP+FP)*100 и (TN-FN)/(TN+FN)*100, интегральный критерий - резонанс знаний; 6) (TP-FP)/(TP+FP)*100 и (TN-FN)/(TN+FN)*100, интегральный критерий - сумма знаний')
          DCMENUITEM L('4.1.3.12.Объединение в одной БД строк по самым достоверным моделям  ') PARENT oMenu4_1_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_3_12(.T.),NIL)} MESSAGE L('Объединение в одной БД "AddData.dbf" строк по наиболее достоверным моделям из Dost_modCls, формируемых в режиме 4.1.3.6. Этот режим предназначен для исследования зависимости достоверности моделей в зависимости от объема обучающей выборки и других параметров моделей по F-критерию Ван Ризбергена, а также по L1- и L2-критериям проф.Е.В.Луценко')

        DCMENUITEM L('4.1.4. Пакетное распознавание в заданной группе моделей            ') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('Распознаются по очереди все объекты распознаваемой выборки в стат.модели или базе знаний, заданной текущей, в всех моделях заданной группы моделей')
        DCMENUITEM L('4.1.5. Докодирование сочетаний признаков в распознаваемой выборке  ') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
        DCMENUITEM L('4.1.6. Рациональное назначение объектов на классы (задача о ранце) ') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_1_6(),NIL)} MESSAGE L('Управление персоналом на основе АСК-анализа и функционально-стоимостного анализа (задача о назначениях)')
        DCMENUITEM L('4.1.7. Интерактивная идентификация - последовательный анализ Вальда') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
        DCMENUITEM L('4.1.8. Мультираспознавание (пакетное распознавание во всех моделях)') PARENT oMenu4_1 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('При идентификации объекта распознаваемой выборки с каждым классом он сравнивается в той модели, в которой этот класс распознается наиболее достоверно, как в системе "Эйдос-астра"')

      DCSUBMENU oMenu4_2 PROMPT L('4.2. Типология классов и принятие решений') PARENT oMenu4 WHEN {|| !Running()} MESSAGE ' '

          DCMENUITEM L('4.2.1. Информационные портреты классов')                     PARENT oMenu4_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_2_1(),NIL)} MESSAGE L('Решение обратной задачи прогнозирования: выработка управляющих решений. Если при прогнозировании на основе значений факторов оценивается в какое будущее состояние перейдет объект управления, то при решении обратной задачи, наоборот, по заданному целевому будущему состоянию объекта управления определяется такая система значений факторов, которая в наибольшей степени обуславливает переход в это состояние')
          DCSUBMENU oMenu4_2_2 PROMPT L('4.2.2. Кластерный и конструктивный анализ классов') PARENT oMenu4_2 WHEN {|| !Running()} MESSAGE ' '
            DCMENUITEM L('4.2.2.1. Расчет матриц сходства, кластеров и конструктов ') PARENT oMenu4_2_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_2_2_1(),NIL)} MESSAGE ' '
            DCMENUITEM L('4.2.2.2. Результаты кластерно-конструктивного анализа    ') PARENT oMenu4_2_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_2_2_2(),NIL)} MESSAGE L('Состояния, соответствующие классам, расположенные около одного полюса конструкта, достижимы одновременно, т.к. имеют сходную систему детерминации, а находящиеся около противоположных полюсов конструкта являются альтернативными, т.е. одновременно недостижимы')
            DCMENUITEM L('4.2.2.3. Агломеративная древовидная кластеризация классов') PARENT oMenu4_2_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE L('Кластеризация, путем объединения классов')
            DCMENUITEM L('4.2.2.4. Дивизивная     древовидная кластеризация классов') PARENT oMenu4_2_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F3_7_6(),NIL)  } MESSAGE L('Кластеризация, путем разделения классов на типичную и нетипичную части пока релизоавна в упрощенной форме (по сравнению с DOS-версией системы "Эйдос". Из файла исходных данных "Inp_data.dbf" стандарта программного интерфейса 2.3.2.2 либо удаляются объекты обучающей выборки, которые привели к ошибкам неидентификации или ложной идентификации, либо для таких объектов создаются новые классы. В данном режиме используются результаты распознавания)')

          DCMENUITEM L('4.2.3. Когнитивные диаграммы классов') PARENT oMenu4_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_2_3(),NIL)} MESSAGE L('Данный режим показывает в наглядной графической форме какими признаками сходны и какими отличаются друг от друга заданные классы')

        DCSUBMENU oMenu4_3 PROMPT L('4.3. Типологический анализ признаков') PARENT oMenu4 WHEN {|| !Running()} MESSAGE ' '
          DCMENUITEM L('4.3.1. Информационные портреты признаков')          PARENT oMenu4_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_3_1(),NIL)} MESSAGE L('Семантический (смысловой) портрет признака или значения фактора, т.е. количественная характеристика силы и направления его влияния на поведение объекта управления')

          DCSUBMENU oMenu4_3_2 PROMPT L('4.3.2. Кластерный и конструктивный анализ признаков') PARENT oMenu4_3 WHEN {|| !Running()} MESSAGE ' '
            DCMENUITEM L('4.3.2.1. Расчет матриц сходства, кластеров и конструктов   ') PARENT oMenu4_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_3_2_1(),NIL)} MESSAGE ' '
            DCMENUITEM L('4.3.2.2. Результаты кластерно-конструктивного анализа      ') PARENT oMenu4_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_3_2_2(),NIL)} MESSAGE L('Признаки или градации факторов, расположенные около одного полюса конструкта, оказывают сходное влияние на объект управления, т.е. на его принадлежность к классам или его переход в состояния, соответствующие классам и могут быть заменены одни другими, а находящиеся около противоположных полюсов конструкта оказывают сильно отличающееся влияние на объект управления и не могут быть заменены одни другими')
            DCMENUITEM L('4.3.2.3. Агломеративная древовидная кластеризация признаков') PARENT oMenu4_3_2 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE L('Кластеризация, путем объединения признаков')

          DCMENUITEM L('4.3.3. Когнитивные диаграммы признаков') PARENT oMenu4_3 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_3_3(),NIL)} MESSAGE L('Данный режим показывает в наглядной графической форме какими классами сходны и какими отличаются друг от друга заданные признаки')

      DCSUBMENU oMenu4_4 PROMPT L('4.4. Исследование предметной области путем исследования ее модели') PARENT oMenu4 WHEN {|| !Running()} MESSAGE ' '

        DCMENUITEM L('4.4.1. Оценка достоверности обучающей выборки                         ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('Выявление объектов с нарушенными корреляциями между классами и признаками. Выявление очень сходных друг с другом объектов обучающей выборки')
        DCMENUITEM L('4.4.2. Оценка достоверности распознаваемой выборки                    ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('Выявление очень сходных друг с другом объектов распознаваемой выборки')
        DCMENUITEM L('4.4.3. Измерение адекватности 3 стат.моделей и 7 моделей знаний       ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE L('Любой заданной или всех')
        DCMENUITEM L('4.4.4. Измерение сходимости и устойчивости 10 моделей                 ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
        DCMENUITEM L('4.4.5. Зависимость достоверности моделей от объема обучающей выборки  ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
        DCMENUITEM L('4.4.6. Измерение независимости классов и признаков (анализ хи-квадрат)') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
        DCMENUITEM SEPARATOR PARENT oMenu4_4
        DCMENUITEM L('4.4.7. Графические профили классов и признаков                        ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL) } MESSAGE ' '
        DCMENUITEM L('4.4.8. Количественный SWOT-анализ классов средствами АСК-анализа      ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_4_8(),NIL) } MESSAGE L('АСК-анализ обеспечивает построение SWOT-матрицы (модели) для заданного класса с указанием силы влияния способствующих и препятствующих факторов непосредственно на основе эмпирических данных и поэтому является инструментом автоматизированного количественного SWOT-анализа (прямая задача SWOT-анализа). Классы интерпретируются как целевые и нежелательные состояния фирмы, факторы делятся на внутренние, технологические, описывающие фирму, и внешние, характеризующие окружающую среду, а количество информации, содержащееся в значении фактора, рассматривается как сила и направление его влияния на переход фирмы в те или иные будущие состояния')
        DCMENUITEM L('4.4.9. Количественный SWOT-анализ факторов средствами АСК-анализа     ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_4_9(),NIL) } MESSAGE L('АСК-анализ обеспечивает построение количественной SWOT-матрицы (модели) для заданного значения фактора с указанием степени, в которой он способствует или препятствует переходу объекта управления в различные будущие состояния, соответствующие классам (обратная задача SWOT-анализа). Эта модель строится непосредственно на основе эмпирических данных и поэтому АСК-анализ может рассматриваться как инструмент автоматизированного количественного SWOT-анализа. Факторы делятся на внутренние, технологические, описывающие саму фирму, и внешние, характеризующие окружающую среду')
        DCMENUITEM L('4.4.10.Нелокальные нейроны                                            ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_4_10(),NIL)} MESSAGE L('Нелокальный нейрон отражает силу и знак влияния значений факторов (рецепторов-признаков) на активацию или торможение нейрона, т.е. на принадлежность или не принадлежность объекта с этими признаками к классу, соответствующему данному нейрону')
        DCMENUITEM L('4.4.11.Парето-подмножества нелокальной нейронной сети                 ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_4_11('NeuroNet'),NIL)   } MESSAGE L('В этом режиме изображается вместе сразу несколько нелокальных нейронов, которые в режиме 4.4.10 изображались по одному, т.е. Парето-подмножество нелокальной нейронной сети')
        DCMENUITEM L('4.4.12.Интегральные когнитивные карты                                 ') PARENT oMenu4_4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_4_11('IntCognMaps'),NIL)} MESSAGE L('Это нелокальная нейронная сеть с указанием не только связей между значениями факторов и классов (как в режиме 4.4.11), но и с корреляциями между классами (как в режиме 4.2.2), и корреляциями между значениями факторов (как в режиме 4.3.2)')

      DCMENUITEM L('4.5. Визуализация когнитивных функций: текущее приложение, разные модели') PARENT oMenu4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_5(),NIL)  } MESSAGE L('В данном режиме осуществляется визуализация и запись когнитивных функций, созданных в текущем приложении на основе различных стат.моделей и моделей знаний')
      DCMENUITEM L('4.6. Подготовка баз данных для визуализация когнитивных функций в Excel ') PARENT oMenu4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_6(),NIL)  } MESSAGE L('Данный режим готовит базы данных для визуализации в MS Excel прямых и обратных, позитивных и негативных точечных и средневзвешенных редуцированных когнитивных функций, созданных на основе различных стат.моделей и моделей знаний')
      DCMENUITEM L('4.7. АСК-анализ изображений по пикселям, спектрам и контурам            ') PARENT oMenu4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_8(L('4.7. АСК-анализ изображений по пикселям, спектрам и контурам')),NIL) } MESSAGE L('Данный режим обеспечивает АСК-анализ изображений, как сгенерированных в учебных целях, так и внешних для системы "Эйдос-Х++", относящихся к какой-либо предметной области. АСК-анализ изображений возможен: по пикселям, спектру, по внешним контурам, по внутренним и внешним контурам (в разработке). Кроме того в данном режиме по кнопке "Формирование облака точек" возможна визуализация когнитивных функций, аналогично режимам 4.5 и 4.6. Данный режим интегрирован с Геокогнитивной подсистемой системы "Эйдос" (режим 4.8.)')
      DCMENUITEM L('4.8. Геокогнитивная подсистема                                          ') PARENT oMenu4 WHEN {|| !Running() } ACTION {|| IF( !Running(), F4_8(L('4.8. Геокогнитивная подсистема')),NIL) }                               MESSAGE L('Обеспечивает восстановление значений функций по признакам аргумента. Преобразует 2D Excel-таблицу с именем "Inp_map.xls" в файл исходных данных "Inp_data.dbf", содержащий координаты X,Y,Z точек и их признаки (модель описательной информации картографической базы данных). Визуализирует исходные данные из БД "Inp_data.dbf" или итоговые результаты распознавания из БД: "Rsp_it.dbf" в картографической форме (сетка и градиентная заливка цветом) с применением триангуляции Делоне. Обеспечивает пакетный ввод и оконтуривание изображений и формирование соответствующих файлов "Inp_data" и др. для создания и применения модели, созданной на основе этих изображений. Режим интегрирован с 4.7.')

    DCSUBMENU oMenu5 PROMPT L('5. Сервис') PARENT oMenuBar MESSAGE L('Конвертирование, печать и сохранение модели, пересоздание и переиндексация всех баз данных')

      DCMENUITEM SEPARATOR PARENT oMenu5
      DCMENUITEM L('5.1. Конвертер приложения OLD => NEW')        PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_1(),NIL)    } MESSAGE L('Преобразование модели из стандарта БД системы Эйдос-12.5 в стандарт Эйдос-X++. Для конвертирования старого приложения надо скопировать в папку: <OldAppls> файлы: Object.Dbf, Priz_Ob.Dbf, Priz_Per.Dbf, Priz_Per.Dbt, Obinfzag.Dbf, Obinfkpr.Dbf')
      DCMENUITEM L('5.2. Конвертер приложения NEW => OLD')        PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_2(),NIL)    } MESSAGE L('Преобразование модели из стандарта БД системы Эйдос-X++ в стандарт Эйдос-12.5 в папку OldAppls. Все файлы из этой папки надо скопировать в текущую папку системы "Эйдос-12.5", выполнить режимы 7.2 и 2.3.5')
      DCMENUITEM L('5.3. Конвертер всех PCX (BMP) в GIF ')        PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE ' '
      DCMENUITEM L('5.4. Конвер. результатов расп.для SigmaPlot') PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_4(),NIL)    } MESSAGE L('Конвертирует результаты распознавания, т.е. БД Rasp.dbf в параметрическую форму в стиле: "X, Y, Z", удобную для картографической визуализации в системе SigmaPlot. Это возможно, если предварительно были выполнены режимы 3.7.7 и 3.4(3.5.) и 4.1.2.')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.5. Просмотр основных БД всех моделей    ')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_5(.T.),NIL) } MESSAGE L('Обеспечивает просмотр и экспорт в Excel основных баз данных всех статистических моделей: Abs, Prc1, Prc2 и моделей знаний: Inf1~Prc1, Inf2~Prc2, Inf3-хи-квадрат, Inf4-roi~Prc1, Inf5-roi~Prc2, Inf6-Dp~Prc1, Inf7-Dp~Prc2')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.6. Выбрать модель и сделать ее текущей  ')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_6(4,.T.,"MainMenu"),NIL)} MESSAGE L('Данная функция позволяет выбрать среди ранее рассчитанных в 3-й подсистеме статистических баз Abs, Prc1, Prc2 и моделей знаний INF#, текущую модель для решения в 4-й подсистеме задач идентификации, прогнозирования, приятия решений и исследования предметной области путем исследования ее модели')
      DCMENUITEM L('5.7. Переиндексация всех баз данных       ')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_7(),NIL)    } MESSAGE L('Заново создаются все необходимые для работы системы индексные массивы общесистемных баз данных (находящихся в папке с исполнимым модулем системы), а также баз данных текущего приложения, необходимые для работы с ним')
      DCMENUITEM L('5.8. Сохранение основных баз данных модели')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE ' '
      DCMENUITEM L('5.9. Восстановление модели из основных БД ')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)  } MESSAGE ' '
      DCMENUITEM L('5.10.Выгрузка исходных данных в "Inp_data"')  PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_10(),NIL)   } MESSAGE L('Данный режим выполняет функцию, обратную универсальному программному интерфейсу с внешними базами данных 2.3.2.2(), т.е. не вводит исходные данные в систему, а наоборот, формирует на основе исходных данных файлы: Inp_data.dbf и Inp_data.txt, на основе которых в режиме 2.3.2.2() можно сформировать эту же модель')
      DCMENUITEM SEPARATOR PARENT oMenu5                                                         
      DCMENUITEM L('5.11. Внешнее управление системой "Эйдос"')   PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_11(),NIL)   } MESSAGE L('Данный режим обеспечивает управление системой "Эйдос" в реальном времени со стороны внешней программы путем задания ею последовательности функций системы "Эйдос" для исполнения (по сути программы, написанной на языке "Эйдос") в специальной базе данных: "ExternalControl.dbf" и программного контроля их исполнения')
      DCMENUITEM SEPARATOR PARENT oMenu5
      DCMENUITEM L('5.12. Печать структур всех баз данных  ')     PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_12(),NIL)   } MESSAGE L('Распечатка структур (даталогических моделей) всех баз данных текущего приложения')
      DCMENUITEM L('5.13. Редактирование БД лемматизации   ')     PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_13(),NIL)   } MESSAGE L('Ввод-корректировка базы данных лемматизации: "Lemma.dbf"')
      DCMENUITEM L('5.14. Пояснения по лабораторным работам')     PARENT oMenu5 WHEN {|| !Running() } ACTION {|| IF( !Running(), F5_14(),NIL)   } MESSAGE L('Пояснения по смыслу частных и интегральных критериев и описания лабораторных работ')

    DCSUBMENU oMenu6 PROMPT L('6. О системе') PARENT oMenuBar MESSAGE ' '

      DCMENUITEM SEPARATOR PARENT oMenu6
      DCMENUITEM L('6.1. Информация о системе, разработчике и средствах разработки') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_1(),NIL)  } MESSAGE ' '
      DCMENUITEM L('6.2. Ссылки на патенты, документацию и текущую версию системы ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_2(),NIL)  } MESSAGE L('Internet-ссылки на патенты, монографии, учебные пособия, научные статьи и самую новую (на текущий момент) версию системы "Эйдос-Х++, а также полный комплект документации на нее одним файлом"')
      DCMENUITEM L('6.3. Карта системы (дерево диалога)                           ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), Razrab(),NIL)} MESSAGE ' '
      DCMENUITEM L('6.4. Порядок преобразования данных в информацию, а ее в знания') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_4(),NIL)  } MESSAGE L('В режиме раскрывается соотношение содержания понятий: "Данные", "Информация" и "Знания", а также последовательность преобразования данных в информацию, а ее в знания в системе "Эйдос-Х++" с указанием имен баз данных и ссылками на основные публикации по этим вопросам')
      DCMENUITEM L('6.5. Графическая заставка системы "Эйдос-12.5"                ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_5(),NIL)  } MESSAGE ' '
      DCMENUITEM L('6.6. Roger Donnay, Professional Developer, Developer eXPress++') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_6(),NIL)  } MESSAGE L('Roger Donnay, профессиональный разработчик программного обеспечения, разработчик высокоэффективной инструментальной системы программирования eXPress++, широко использованной при создании системы "Эйдос-Х++". Roger Donnay, Professional Developer, Developer eXPress++')
      DCMENUITEM L('6.7. Логотипы мультимоделей                                   ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_7(),NIL)  } MESSAGE ' '
      DCMENUITEM L('6.8. Свидетельства РосПатента РФ на систему "Эйдос"           ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_8(),NIL)  } MESSAGE L('Основные (знаковые) свидетельства РосПатента на систему "Эйдос" 1994, 2003, 2012, 2017 годов')
      DCMENUITEM L('6.9. География пользователей системы "Эйдос-Х++"              ') PARENT oMenu6 WHEN {|| !Running() } ACTION {|| IF( !Running(), F6_9(),NIL)  } MESSAGE L('Когда кто-либо в мире запускает систему "Эйдос-Х++" на исполнение на компьютере, подключенном к Internet, то на она программно обращается к специально созданному сайту, на котором размещен PHP-код, определяющий дату и время обращения, IP-адрес компьютера, с которого произошло это обращение, и по нему домен, страна, округ, регион, город, почтовый индекс, временной пояс и географические координаты места запуска')

    DCMENUITEM L('7. Выход') PARENT oMenuBar ACTION {||F7()} MESSAGE L('Закрыть все базы данных и корректно выйти из системы')

  @ 100,100 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX ;
        OBJECT oMessageBox ;
        INVISIBLE ;
        COLOR DC_XbpMenuConfig()[2], DC_XbpMenuConfig()[3]

  @ 4,4 DCSAY 'System Aidos' ;
        PARENT oMessageBox ;
        FONT '8.MS Sans Serif' ;
        SAYOPTION XBPSTATIC_TEXT_VCENTER + XBPSTATIC_TEXT_CENTER + XBPSTATIC_TEXT_WORDBREAK ;
        COLOR DC_XbpMenuConfig()[9], DC_XbpMenuConfig()[1]

  DCGETOPTIONS ;
       WINDOWHEIGHT H_MainWind ;
       WINDOWWIDTH  W_MainWind

DCREAD GUI ;
  TITLE L('(c) Универсальная когнитивная аналитическая система "ЭЙДОС-X++", beta-version, rel: 27.02.2018') ;
  HANDLER MenuHandler REFERENCE @oMessageBox ;
  OPTIONS GetOptions ;
  EVAL {|o|oDlg := o};
  PARENT @oDlgBmp

* DCREAD GUI TITLE L(Смена фона каждую секунду, минуту, час') PARENT @oDlgBmp OPTIONS GetOptions

  oTimer:destroy()              // Закрытие фона главного меню

*ENDIF                          // Внешнее управление ?

   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   **************************************************************

RETURN NIL

[/size]