Генетический алгоритм обучения нейронечеткой сети "Управление ИБФ вуза"
Структура модуля "Система поддержки принятия решений по оценке соответствия аккредитационным показателям деятельности информационно-библиотечных структур вуза". Оптимизация параметров гибридной сети при мониторинге информационного библиотечного фонда.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | научная работа |
| Язык | русский |
| Дата добавления | 11.01.2020 |
| Размер файла | 1,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
SG2. Cells [1,2]:= '0,60'; SG2. Cells [2,2]:= '0,47'; SG2. Cells [3,2]:= '0,52'; SG2. Cells [4,2]:= '0,30'; SG2. Cells [5,2]:= '0,7386';
SG2. Cells [1,3]:= '0,46'; SG2. Cells [2,3]:= '0,44'; SG2. Cells [3,3]:= '0,77'; SG2. Cells [4,3]:= '0,50'; SG2. Cells [5,3]:= '0,4206';
SG2. Cells [1,4]:= '0,56'; SG2. Cells [2,4]:= '0,49'; SG2. Cells [3,4]:= '0,92'; SG2. Cells [4,4]:= '0,45'; SG2. Cells [5,4]:= '0,5766';
SG2. Cells [1,5]:= '0,49'; SG2. Cells [2,5]:= '0,49'; SG2. Cells [3,5]:= '0,92'; SG2. Cells [4,5]:= '0,50'; SG2. Cells [5,5]:= '0,2760';
SG2. Cells [1,6]:= '0,65'; SG2. Cells [2,6]:= '0,78'; SG2. Cells [3,6]:= '0,32'; SG2. Cells [4,6]:= '0,50'; SG2. Cells [5,6]:= '0,5497';
SG2. Cells [1,7]:= '0,25'; SG2. Cells [2,7]:= '0,10'; SG2. Cells [3,7]:= '0,20'; SG2. Cells [4,7]:= '0,33'; SG2. Cells [5,7]:= '0,2518';
SG2. Cells [1,8]:= '0,60'; SG2. Cells [2,8]:= '0,07'; SG2. Cells [3,8]:= '0,52'; SG2. Cells [4,8]:= '0,60'; SG2. Cells [5,8]:= '0,2598';
SG2. Cells [1,9]:= '0,46'; SG2. Cells [2,9]:= '0,87'; SG2. Cells [3,9]:= '0,27'; SG2. Cells [4,9]:= '0,50'; SG2. Cells [5,9]:= '0,2518';
SG2. Cells [1,10]:= '0,05'; SG2. Cells [2,10]:= '0,78'; SG2. Cells [3,10]:= '0,32'; SG2. Cells [4,10]:= '0,12'; SG2. Cells [5,10]:= '0,2518';
SG2. Cells [1,11]:= '0,89'; SG2. Cells [2,11]:= '0,67'; SG2. Cells [3,11]:= '0,29'; SG2. Cells [4,11]:= '0,67'; SG2. Cells [5,11]:= '0,5497';
SG2. Cells [1,12]:= '0,89'; SG2. Cells [2,12]:= '0,67'; SG2. Cells [3,12]:= '0,49'; SG2. Cells [4,12]:= '0,67'; SG2. Cells [5,12]:= '0,5497';
SG2. Cells [1,13]:= '0,29'; SG2. Cells [2,13]:= '0,57'; SG2. Cells [3,13]:= '0,49'; SG2. Cells [4,13]:= '0,67'; SG2. Cells [5,13]:= '0,2518';
SG2. Cells [1,14]:= '0,49'; SG2. Cells [2,14]:= '0,37'; SG2. Cells [3,14]:= '0,89'; SG2. Cells [4,14]:= '0,97'; SG2. Cells [5,14]:= '0,2518';
SG2. Cells [1,15]:= '0,66'; SG2. Cells [2,15]:= '0,51'; SG2. Cells [3,15]:= '0,89'; SG2. Cells [4,15]:= '0,97'; SG2. Cells [5,15]:= '0,6600';
SG2. Cells [1,16]:= '0,90'; SG2. Cells [2,16]:= '0,67'; SG2. Cells [3,16]:= '0,69'; SG2. Cells [4,16]:= '0,97'; SG2. Cells [5,16]:= '0,6600';
SG2. Cells [1,17]:= '0,44'; SG2. Cells [2,17]:= '0,67'; SG2. Cells [3,17]:= '0,69'; SG2. Cells [4,17]:= '0,97'; SG2. Cells [5,17]:= '0,2518';
SG2. Cells [1,18]:= '0,56'; SG2. Cells [2,18]:= '0,56'; SG2. Cells [3,18]:= '0,69'; SG2. Cells [4,18]:= '0,70'; SG2. Cells [5,18]:= '0,5690';
SG2. Cells [1,19]:= '0,59'; SG2. Cells [2,19]:= '0,57'; SG2. Cells [3,19]:= '0,49'; SG2. Cells [4,19]:= '0,67'; SG2. Cells [5,19]:= '0,5488';
SG2. Cells [1,20]:= '0,11'; SG2. Cells [2,20]:= '0,23'; SG2. Cells [3,20]:= '0,49'; SG2. Cells [4,20]:= '0,67'; SG2. Cells [5,20]:= '0,2518';
SG2. Cells [1,21]:= '0,60'; SG2. Cells [2,21]:= '0,77'; SG2. Cells [3,21]:= '0,52'; SG2. Cells [4,21]:= '0,30'; SG2. Cells [5,21]:= '0,5482';
SG2. Cells [1,22]:= '0,62'; SG2. Cells [2,22]:= '0,45'; SG2. Cells [3,22]:= '0,66'; SG2. Cells [4,22]:= '0,70'; SG2. Cells [5,22]:= '0,5497';
SG2. Cells [1,23]:= '0,51'; SG2. Cells [2,23]:= '0,50'; SG2. Cells [3,23]:= '0,45'; SG2. Cells [4,23]:= '0,73'; SG2. Cells [5,23]:= '0,2561';
SG2. Cells [1,24]:= '0,66'; SG2. Cells [2,24]:= '0,49'; SG2. Cells [3,24]:= '0,12'; SG2. Cells [4,24]:= '0,73'; SG2. Cells [5,24]:= '0,6435';
SG2. Cells [1,25]:= '0,58'; SG2. Cells [2,25]:= '0,49'; SG2. Cells [3,25]:= '0,42'; SG2. Cells [4,25]:= '0,73'; SG2. Cells [5,25]:= '0,6455';
SG2. Cells [1,26]:= '0,53'; SG2. Cells [2,26]:= '0,49'; SG2. Cells [3,26]:= '0,55'; SG2. Cells [4,26]:= '0,73'; SG2. Cells [5,26]:= '0,3863';
SG2. Cells [1,27]:= '0,69'; SG2. Cells [2,27]:= '0,62'; SG2. Cells [3,27]:= '0,71'; SG2. Cells [4,27]:= '0,73'; SG2. Cells [5,27]:= '0,6600';
SG2. Cells [1,28]:= '0,63'; SG2. Cells [2,28]:= '0,46'; SG2. Cells [3,28]:= '0,52'; SG2. Cells [4,28]:= '0,20'; SG2. Cells [5,28]:= '0,5482';
SG2. Cells [1,29]:= '0,67'; SG2. Cells [2,29]:= '0,46'; SG2. Cells [3,29]:= '0,49'; SG2. Cells [4,29]:= '0,90'; SG2. Cells [5,29]:= '0,7275';
SG2. Cells [1,30]:= '0,49'; SG2. Cells [2,30]:= '0,45'; SG2. Cells [3,30]:= '0,68'; SG2. Cells [4,30]:= '0,92'; SG2. Cells [5,30]:= '0,5497';
end;
// - //
// - //
//
procedure TForm3. Edit1Click (Sender: TObject);
begin
RadioGroup1. ItemIndex:= 5;
end;
// - //
// - //
//
procedure TForm3.N1Click (Sender: TObject);
var i: integer;
begin
DM1.P_Session;
DM1.P_Connection;
if DM1. Database1. Connected = true then
begin
DM1. Query1. Close;
DM1. Query1.SQL. Text:= 'insert into statistica (NameAlg, NameOut, Epoch, TimeS, PrecisionS, NameMetod) values (:NameAlg,:NameOut,:Epoch,:TimeS,:PrecisionS,:NameMetod)';
DM1. Query1. ParamByName('NameAlg').AsBoolean:= false;
DM1. Query1. ParamByName('NameOut').AsString:= 'X7';
DM1. Query1. ParamByName('Epoch').AsInteger:= Kol;
DM1. Query1. ParamByName('TimeS').AsInteger:= EndTime;
DM1. Query1. ParamByName('PrecisionS').AsString:= FloatToStrF (E, ffFixed, 6, 8);
if (Form3. RadioGroup2. ItemIndex = 0) then DM1. Query1. ParamByName('NameMetod').AsString:= 'Рулетка'
else DM1. Query1. ParamByName('NameMetod').AsString:= 'Турнирный';
DM1. Query1. ExecSQL;
{}
DM1. Query1. Close;
DM1. Query1.SQL. Text:= 'Select * from Statistica';
DM1. Query1. Open;
DM1. Query1. Last;
{}
for i:=1 to n_30 do
begin
DM1. Query2.SQL. Text:= 'insert into OutSystem (idS, Facts, Standart, ParamsO) values (:idS,:Facts,:Standart,:ParamsO)';
DM1. Query2. ParamByName('idS').AsInteger:= DM1. Query1. Fields[0].AsInteger;
DM1. Query2. ParamByName('Facts').AsString:= SG1. Cells [4, i];
DM1. Query2. ParamByName('Standart').AsString:= SG2. Cells [5, i];
DM1. Query2. ParamByName('ParamsO').AsString:= SG1. Cells [3, i];
DM1. Query2. ExecSQL;
end;
{}
DM1. Query2. Close;
DM1. Query2.SQL. Text:= 'Select * from OutSystem where idS =:idS';
DM1. Query2. Open;
DM1.P_DisConnection;
end;
end;
// - //
// - //
//
procedure TForm3. Edit1KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8,#16:;
', ': Form1.P_Key_Separator (Key, 3);
else Key:= Char(0);
end;
end;
// - //
// - //
//
procedure TForm3. Button3Click (Sender: TObject);
begin
SG1. Cols[3].Clear; SG1. Cells [3,0]:= 'Обуч.знач.';
SG1. Cols[4].Clear; SG1. Cells [4,0]:= 'Выход сети';
SG3. Cols[1].Clear;
SG3. Cols[2].Clear;
P_Draw_SG3;
Form3. Memo1. Lines. Clear;
end;
procedure TForm3. CheckBox2Click (Sender: TObject);
begin
SG3. Enabled:= not (Form3. CheckBox2. Checked);
Memo1. Enabled:= not (Form3. CheckBox2. Checked);
Form1. Button1. Enabled:= not (Form3. CheckBox2. Checked);
Form1. SpeedButton1. Enabled:= not (Form3. CheckBox2. Checked);
Form1. SpeedButton2. Enabled:= not (Form3. CheckBox2. Checked);
Form1. SpeedButton3. Enabled:= not (Form3. CheckBox2. Checked);
Form1. SpeedButton4. Enabled:= not (Form3. CheckBox2. Checked);
Form1. SpeedButton5. Enabled:= not (Form3. CheckBox2. Checked);
if Form3. CheckBox2. Checked = true then
begin
SG3. Color:= clMenu; SG3. Font. Color:= clGrayText;
Memo1. Color:= clMenu;
end;
if Form3. CheckBox2. Checked=false then
begin
SG3. Color:= clWindow; SG3. Font. Color:= clWindowText;
Memo1. Color:= clWindow;
end;
end;
procedure TForm3.N2Click (Sender: TObject);
begin
Form7. Position:= poMainFormCenter;
Form7. ShowModal;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Назначение и возможные варианты организации работы компьютерной сети, предпосылки внедрения компьютерных информационных сетей в работу вуза. Понятие информационного пространства вуза, объектно-ориентированная интегральная компьютерная система управления.
курсовая работа [33,5 K], добавлен 26.08.2010Анализ существующих решений системы поддержки принятия решений для корпоративной сети. Многоагентная система. Разработка концептуальной модели. Структура базы знаний. Разработка модели многоагентной системы на базе сетей Петри. Методика тестирования.
дипломная работа [5,1 M], добавлен 19.01.2017Типовая структура информационно-вычислительной сети. Функции, процедуры, механизмы и средства защиты ИВС. Технология виртуальных частных сетей. Разработка алгоритмов управления интенсивностью информационного обмена удаленных сегментов распределенной ИВС.
дипломная работа [2,1 M], добавлен 21.12.2012Разработка и внедрение программного модуля поддержки принятия управленческих решений для информационной системы медицинского предприятия ООО "Центр эндохирургических технологий". Эффективность применения модуля, полученные с его помощью результаты.
дипломная работа [1,9 M], добавлен 11.04.2013Возможности программ моделирования нейронных сетей. Виды нейросетей: персептроны, сети Кохонена, сети радиальных базисных функций. Генетический алгоритм, его применение для оптимизации нейросетей. Система моделирования нейронных сетей Trajan 2.0.
дипломная работа [2,3 M], добавлен 13.10.2015Разработка системы управления базой данных "Структура ВУЗа". Требования к программе: функциональным характеристикам, надежности, эксплуатации, составу и параметрам технических средств. Требования к программной документации. Порядок контроля и приемки.
курсовая работа [982,7 K], добавлен 08.06.2015Задачи школьной библиотеки. Проблемы перехода школ на ОС Linux. Обзор рынка библиотечных информационных систем. Сравнительный анализ Microsoft Office и OpenOffice. Законодательные акты учёта библиотечного фонда. Средства, входящие в OpenOffice Base.
дипломная работа [1,8 M], добавлен 22.06.2013Классификация систем поддержки принятия решений. Сравнительный анализ методик для оценки рисков розничного кредитования. Структура системы поддержки принятия решений, формирование начальной базы знаний. Проектирование базы данных информационной системы.
дипломная работа [1,9 M], добавлен 10.07.2017Методы решения проблем, возникающих на стадиях и этапах процесса принятия решений, их реализация в информационных системах поддержки принятия решений (СППР). Назначение СППР, история их эволюции и характеристика. Основные типы СППР, области их применения.
реферат [389,3 K], добавлен 22.11.2016Организационная структура предприятия "ЛЕПСЕ", состав сетевых приложений. Выбор конфигурации сети Fast Ethernet, применение сетевой топологии "звезда". Структура кабельной системы сети организации. Проверка работоспособности проектируемой сети.
контрольная работа [64,3 K], добавлен 10.05.2011Оптимизация и дальнейшее развитие локальной сети Костанайского социально-технического университета им. академика З. Алдамжар. Перестройка существующей структуры локальной сети в соответствии с результатами анализа. Антивирусная защита компьютерной сети.
дипломная работа [2,0 M], добавлен 02.07.2015Проблема сохранности библиотечных фондов в процессе их использования. Основные причины повреждения документов. Основы применения современных технологий в процессе обеспечения сохранности библиотечного фонда. Важность электронного документирования.
курсовая работа [39,5 K], добавлен 15.07.2013- Анализ БД "Абитуриент" с разработкой автоматизированной системы подачи заявлений "Абитуриент Online"
Организация работы приемной комиссии и делопроизводства ВУЗа. Назначение, основные задачи системы управления базами данных "Абитуриент". Схема организации компьютерной сети. Автоматизированная система подачи заявлений и зачисления абитуриентов.
отчет по практике [2,3 M], добавлен 01.07.2015 Исследование автоматизированных информационных технологий, применяемых в управлении организацией. Формирование системы поддержки принятия решений в рекламном агентстве, анализ и оценка ее практической эффективности, направления и цели оптимизации.
курсовая работа [90,4 K], добавлен 03.10.2013Математическая модель искусственной нейронной сети. Структура многослойного персептрона. Обучение без учителя, методом соревнования. Правило коррекции по ошибке. Метод Хэбба. Генетический алгоритм. Применение нейронных сетей для синтеза регуляторов.
дипломная работа [1,5 M], добавлен 17.09.2013Создание информационной системы обеспечивающей комплексную автоматизацию библиотечных процессов: комплектование литературы, создание и ведение электронного каталога, обработку поступающих изданий, обслуживание читателей, учет библиотечного фонда.
курсовая работа [1,7 M], добавлен 14.06.2015Исследование существующих методов организации динамических структур данных. Методы реализации мультисписковых структур используя особенности языка C++. Физическая структура данных для сохранения в файл. Разработка алгоритмов и реализация основных функций.
курсовая работа [504,1 K], добавлен 25.01.2015Рассмотрение понятия и истории возникновения систем поддержки принятия решения. Приспособленность информационных систем к задачам повседневной управленческой деятельности. Понятие термина "интеллектуальный анализ данных". Методика извлечения знаний.
реферат [79,8 K], добавлен 14.04.2015Разработка информационной системы ВУЗа с использованием методики объектно-ориентированного моделирования UML. Анализ требований к системе. Концептуальная (содержательная) модель. Диаграмма компонентов и классов. Программная реализация приложения.
курсовая работа [797,7 K], добавлен 16.04.2014Разработка информационного и алгоритмического обеспечения системой управления базами данных Microsoft Access. Реализация и принцип работы основных компонентов подсистемы поддержки принятия решений. Особенности разработки программного модуля в Delphi.
реферат [333,9 K], добавлен 15.11.2009
