Задачи по генетике
<<  Решение задач по генетике Урок-практикум по решению задач по генетике  >>
Экспертные системы на примере решения задач из курса генетики и
Экспертные системы на примере решения задач из курса генетики и
Цель работы: Приобретение навыков программирования при решении задач
Цель работы: Приобретение навыков программирования при решении задач
Введение
Введение
От чего зависит цвет глаз
От чего зависит цвет глаз
Как рассчитать цвет глаз по двум копиям гена HERC2
Как рассчитать цвет глаз по двум копиям гена HERC2
Разработка экспертной системы “Определение цвета глаз по двум копиям
Разработка экспертной системы “Определение цвета глаз по двум копиям
A = MsgBox("Ген матери HERC2 карий
A = MsgBox("Ген матери HERC2 карий
‘Общая процедура Отец_голубые Sub Отец_голубые() A = MsgBox("Ген отца
‘Общая процедура Отец_голубые Sub Отец_голубые() A = MsgBox("Ген отца
Компьютерный эксперимент
Компьютерный эксперимент
Последний шаг выполнения проекта
Последний шаг выполнения проекта
Как поставить диагноз по методу иридодиагностики
Как поставить диагноз по методу иридодиагностики
Пигментные пятна – это участки радужки различного цвета и формы с
Пигментные пятна – это участки радужки различного цвета и формы с
Лимфатический розарий – белые или желтые пятнышки, напоминающие
Лимфатический розарий – белые или желтые пятнышки, напоминающие
Разволокнение – в нижней части радужки под зрачком – разволокнение и
Разволокнение – в нижней части радужки под зрачком – разволокнение и
Разработка экспертной системы “Определение диагноза по методу
Разработка экспертной системы “Определение диагноза по методу
‘Обработчик события Dim A As Byte Private Sub Command1_Click() ‘число
‘Обработчик события Dim A As Byte Private Sub Command1_Click() ‘число
‘Общая процедура Пигментные Sub Пигментные() A = MsgBox("Пятна
‘Общая процедура Пигментные Sub Пигментные() A = MsgBox("Пятна
‘Общая процедура Лучистость Sub Лучистость() A = MsgBox("Вытянутые от
‘Общая процедура Лучистость Sub Лучистость() A = MsgBox("Вытянутые от
‘Общая процедура Борозды Sub Борозды() A = MsgBox("В верхней части над
‘Общая процедура Борозды Sub Борозды() A = MsgBox("В верхней части над
Компьютерный эксперимент
Компьютерный эксперимент
Последний шаг выполнения проекта
Последний шаг выполнения проекта
ЗАКЛЮЧЕНИЕ Каждый человек хотя бы когда-то задумывался над тем, почему
ЗАКЛЮЧЕНИЕ Каждый человек хотя бы когда-то задумывался над тем, почему

Презентация на тему: «По изо мир пятен 2 класс». Автор: . Файл: «По изо мир пятен 2 класс.pptx». Размер zip-архива: 1148 КБ.

По изо мир пятен 2 класс

содержание презентации «По изо мир пятен 2 класс.pptx»
СлайдТекст
1 Экспертные системы на примере решения задач из курса генетики и

Экспертные системы на примере решения задач из курса генетики и

иридодиагностики

Презентация к реферативно-исследовательской работе на тему: “Экспертные системы на примере решения задач из курса генетики и иридодиагностики” Разработали ученицы 11 класса Лозовская Полина и Романова Мария Руководитель: учитель информатики Наумова Алиса Ивановна

2 Цель работы: Приобретение навыков программирования при решении задач

Цель работы: Приобретение навыков программирования при решении задач

из курса генетики и иридодиагностики Задачи: 1. Выполнить словесное описание поставленных задач; 2. Разработать экспертные системы с использованием визуального языка программирования Visual Basic

3 Введение

Введение

В данной работе представлено решение задач с использованием языка программирования Visual Basic из курса генетики “От чего зависит цвет глаз?” и иридодиагностики “По каким признакам радужки можно поставить диагноз пациенту?” Разработанная экспертная система, включающая в себя разработку формальной модели, компьютерной модели и компьютерного эксперимента, позволяет осознать и зафиксировать последовательности рассуждений (действий), которые приводят к распознаванию конкретного объекта среди заданной совокупности.

4 От чего зависит цвет глаз

От чего зависит цвет глаз

По латыни радужка – iris. Ирис – посланник богов, который спускается на землю по радуге. В организме человека, этом своеобразном малом мире, радужку нередко признавали связью внутреннего и внешнего. Этакой главной аркой – радугой. Цвет окружающей зрачок радужки, зависящей от пигмента меланина и характера отражения света, бывает различным: голубой (пигмента мало), серый и карий (пигмента много). Когда красящего вещества совсем нет, радужка выглядит красной (глаза альбиносов).

5 Как рассчитать цвет глаз по двум копиям гена HERC2

Как рассчитать цвет глаз по двум копиям гена HERC2

В настоящее время есть общая теория, которая с учетом новейших исследований, даёт генетическое обоснование цвета глаз. Рассмотрим HERC2: у человека есть две копии этого гена, одну он получает от матери, одну - от отца. HERC2 бывает карий и голубой, то есть, один человек имеет или 2 карих HERC2 или 2 голубых HERC2 или один карий HERC2 и один голубой HERC2:

Ген HERC2: 2 копии*

Цвет глаз человека

Карий и Карий

Карий

Карий и голубой

Карий

Голубой и голубой

Голубой или зеленый

6 Разработка экспертной системы “Определение цвета глаз по двум копиям

Разработка экспертной системы “Определение цвета глаз по двум копиям

гена HERC2” Компьютерная модель

Поместить на форму командную кнопку CommandButton и управляющий элемент ListBox1 (список); результаты распознавания будем помещать в ListBox1, который удобен для вывода элементов списка с помощью метода List1.AddItem (). Создать обработчик события (программный код), который реализует диалог с пользователем путем вывода общих процедур и осуществляет вывод соответствующих сообщений.

‘Обработчик события Dim A As Byte Private Sub Command1_Click() ‘число 36 обеспечивает вывод окна типа "вопрос", ‘которое имеет две кнопки Да и Нет

7 A = MsgBox("Ген матери HERC2 карий

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("Ген отца

‘Общая процедура Отец_голубые 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 Разработка экспертной системы “Определение диагноза по методу

Разработка экспертной системы “Определение диагноза по методу

иридодиагностики” Компьютерная модель

Поместить на форму командную кнопку CommandButton и управляющий элемент ListBox1 (список); результаты распознавания будем помещать в ListBox1, который удобен для вывода элементов списка с помощью метода List1. AddItem (). Создать обработчик события (программный код), который реализует диалог с пользователем путем вывода общих процедур и осуществляет вывод соответствующих сообщений.

16 ‘Обработчик события Dim A As Byte Private Sub Command1_Click() ‘число

‘Обработчик события 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("Пятна

‘Общая процедура Пигментные 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("Вытянутые от

‘Общая процедура Лучистость 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("В верхней части над

‘Общая процедура Борозды 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 можно наглядно представить рассматриваемые процессы.

«По изо мир пятен 2 класс»
http://900igr.net/prezentacija/biologija/po-izo-mir-pjaten-2-klass-205654.html
cсылка на страницу
Урок

Биология

136 тем
Слайды