Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 9 лет назад пользователемПетр Моржеретов
1 ЭКСПЕРТНЫЕ СИСТЕМЫ НА ПРИМЕРЕ РЕШЕНИЯ ЗАДАЧ ИЗ КУРСА ГЕНЕТИКИ И ИРИДОДИАГНОСТИКИ ПРЕЗЕНТАЦИЯ к реферативно-исследовательской работе на тему: Экспертные системы на примере решения задач из курса генетики и иридодиагностики Разработали ученицы 11 класса Лозовская Полина и Романова Мария Руководитель: учитель информатики Наумова Алиса Ивановна
2 Цель работы: Приобретение навыков программирования при решении задач из курса генетики и иридодиагностики Задачи: 1. Выполнить словесное описание поставленных задач; 2. Разработать экспертные системы с использованием визуального языка программирования Visual Basic
3 Введение В данной работе представлено решение задач с использованием языка программирования Visual Basic из курса генетики От чего зависит цвет глаз? и иридодиагностики По каким признакам радужки можно поставить диагноз пациенту? Разработанная экспертная система, включающая в себя разработку формальной модели, компьютерной модели и компьютерного эксперимента, позволяет осознать и зафиксировать последовательности рассуждений (действий), которые приводят к распознаванию конкретного объекта среди заданной совокупности.
4 От чего зависит цвет глаз? По латыни радужка – iris. Ирис – посланник богов, который спускается на землю по радуге. В организме человека, этом своеобразном малом мире, радужку нередко признавали связью внутреннего и внешнего. Этакой главной аркой – радугой. Цвет окружающей зрачок радужки, зависящей от пигмента меланина и характера отражения света, бывает различным: голубой (пигмента мало), серый и карий (пигмента много). Когда красящего вещества совсем нет, радужка выглядит красной (глаза альбиносов).
5 В настоящее время есть общая теория, которая с учетом новейших исследований, даёт генетическое обоснование цвета глаз. Рассмотрим HERC2: у человека есть две копии этого гена, одну он получает от матери, одну - от отца. HERC2 бывает карий и голубой, то есть, один человек имеет или 2 карих HERC2 или 2 голубых HERC2 или один карий HERC2 и один голубой HERC2: Как рассчитать цвет глаз по двум копиям гена HERC2 ? ген HERC2: 2 копии*Цвет глаз человека Карий и Карийкарий Карий и голубой карий Голубой и голубой или зеленый
6 Обработчик события Dim A As Byte Private Sub Command1_Click() число 36 обеспечивает вывод окна типа "вопрос", которое имеет две кнопки Да и Нет Разработка экспертной системы Определение цвета глаз по двум копиям гена HERC2 Компьютерная модель 1. Поместить на форму командную кнопку CommandButton и управляющий элемент ListBox1 (список); результаты распознавания будем помещать в ListBox1, который удобен для вывода элементов списка с помощью метода List1. AddItem (). 2. Создать обработчик события (программный код), который реализует диалог с пользователем путем вывода общих процедур и осуществляет вывод соответствующих сообщений.
7 A = MsgBox("Ген матери HERC2 карий?", 36, "Первый вопрос") Число 6 означает, что нажата кнопка Да If A = 6 Then Отец_Карие Else Мать_голубые End Sub Общая процедура Отец_карие Sub Отец_Карие() A = MsgBox("Ген отца HERC2 карий?", 36, "Второй вопрос") If A = 6 Then List1. AddItem ("1. У ребенка глаза - карие") Else Отец_голубые End Sub Общая процедура Мать_голубые Sub Мать_голубые() A = MsgBox("Ген матери HERC2 голубой?", 36, "Второй вопрос") If A = 6 Then Отец_голубые 1 End Sub
8 Общая процедура Отец_голубые Sub Отец_голубые() A = MsgBox("Ген отца HERC2 голубой?", 36, "Третий вопрос") If A = 6 Then List1. AddItem ("2. У ребенка глаза - карие") End Sub Общая процедура Отец_голубые 1 Sub Отец_голубые 1() A = MsgBox("Ген отца HERC2 голубой?", 36, "Третий вопрос") If A = 6 Then List1. AddItem ("3. У ребенка глаза - голубые или зеленые") Else List1. AddItem ("4. Все предложенные варианты рассмотрены") End Sub
9 Компьютерный эксперимент Запустить экспертную систему с подготовленными тестами и получить необходимые варианты ответов. Первый шаг выполнения проекта
10 Последний шаг выполнения проекта
11 Токсические пятна – это ярко выраженные участки радужки желтого, оранжевого или коричневого цвета, имеющие большие размеры, однородную структуру, нередко резанные или угловатые края – наблюдаются при интоксикации (отравлении организма ). Как поставить диагноз по методу иридодиагностики? Иридодиагностика – это наука о распознавании патологических изменений в организме по радужке глаза. Принцип иридодиагностики заключается в том, что каждый участок радужной оболочки связан с различными внутренними органами человека. При патологии какого-то органа на радужке наступают определенные изменения. Иридодиагностика популярна благодаря тому, что процедура диагностики полностью безвредна и безболезненна, она не имеет противопоказаний.
12 Токсическая лучистость – это вытянутые в радиальном направлении от центра к периферии участки радужки темного цвета клиновидной формы – наблюдаются при хроническом колите, церебральном атеросклерозе, остеохондрозе с вертебральным блоком и т. д. Пигментные пятна – это участки радужки различного цвета и формы с четкими границами, чаще округлой формы, более мелкие, чем токсические пятна – проявляются при заболеваниях протекающих с выраженным болевым синдромом.
13 Лимфатический розарий – белые или желтые пятнышки, напоминающие комочки ваты. Расположены близко к периферии радужки в проекционной зоне лимфатической и сосудистой системы – наблюдаются при нарушении обмена веществ, понижении сопротивляемости организма, перегрузке токсическими веществами и т. д. Ацидоз – беловатый налет на радужке – наблюдается при токсико-дистрофических изменениях, сопровождающихся ацидозом (закислением организма).
14 Разволокнение – в нижней части радужки под зрачком – разволокнение и затемнение в проекционной зоне почек – признаки пиелонефрита. Борозды - на радужке в верхней части над зрачком – борозды и изменение пигментации в области автономного кольца (токсические борозды и зашлакованность в секторе шейного отдела позвоночника) – наблюдается при шейном остеохондрозе.
15 1. Поместить на форму командную кнопку CommandButton и управляющий элемент ListBox1 (список); результаты распознавания будем помещать в ListBox1, который удобен для вывода элементов списка с помощью метода List1. AddItem (). 2. Создать обработчик события (программный код), который реализует диалог с пользователем путем вывода общих процедур и осуществляет вывод соответствующих сообщений. Разработка экспертной системы Определение диагноза по методу иридодиагностики Компьютерная модель
16 Обработчик события Dim A As Byte Private Sub Command1_Click() число 36 обеспечивает вывод окна типа "вопрос," которое имеет две кнопки Да и Нет A = MsgBox("Изменения в виде пятен?", 36, "Первый вопрос") Число 6 означает, что нажата кнопка Да If A = 6 Then Токсические Else Линии End Sub Общая процедура Токсические Sub Токсические() A = MsgBox("Пятна желтые, оранжевые, коричневые?", 36, "Второй вопрос") If A = 6 Then List1. AddItem ("1. Признаки интоксикации") Else Пигментные End Sub
17 Общая процедура Пигментные Sub Пигментные() A = MsgBox("Пятна различного цвета и формы?", 36, "Третий вопрос") If A = 6 Then List1. AddItem ("2. Заболевания с выраженным болевым синдромом") Else Вата End Sub Общая процедура Вата Sub Вата() A = MsgBox("Белые или желтые пятнышки, напоминающие комочки ваты?", 36, "Четвертый вопрос") If A = 6 Then List1. AddItem ("3. Лимфатический розарий") End Sub Общая процедура Линии Sub Линии() A = MsgBox("Изменения в виде линий?", 36, "Второй вопрос") If A = 6 Then Лучистость Else Налет End Sub
18 Общая процедура Лучистость Sub Лучистость() A = MsgBox("Вытянутые от центра к периферии участки радужки темного цвета?", 36, "Третий вопрос") If A = 6 Then List1. AddItem ("4. Хронический колит, церебральный атеросклероз, остеохондроз с вертебральным блоком и т.д.") _ Else Разволокнение End Sub Общая процедура Разволокнние Sub Разволокнение() A = MsgBox("Разволокнение и потемнение в зоне почек, под зрачком?", 36, "Четвертый вопрос") If A = 6 Then List1. AddItem ("5. Пиелонефрит") Else Борозды End Sub
19 Общая процедура Борозды Sub Борозды() A = MsgBox("В верхней части над зрачком - борозды и изменение цвета?", 36, "Пятый вопрос") If A = 6 Then List1. AddItem ("6. Шейный остеохондроз") Else Налет End Sub Общая процедура Налет Sub Налет() A = MsgBox("Беловатый налет на радужке?", 36, "Шестой вопрос") If A = 6 Then List1. AddItem ("7. Ревматизм, патология суставов, частые простудные заболевания, кожная патология") _ Else List1. AddItem ("8. Все предложенные варианты рассмотрены") End Sub
20 Компьютерный эксперимент Запустить экспертную систему с подготовленными тестами и получить необходимые варианты ответов. Первый шаг выполнения проекта
21 Последний шаг выполнения проекта
22 ЗАКЛЮЧЕНИЕ Каждый человек хотя бы когда-то задумывался над тем, почему у него глаза – карие, а не голубые, как у его отца или наоборот? Как пройти обследование с помощью методов совершенно безболезненной диагностики? В данной работе достаточно подробно даны ответы на эти вопросы описательного характера и показано, как с помощью визуального языка программирования Visual Basic можно наглядно представить рассматриваемые процессы.
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.