Построение представления знаний в виде продукционной модели в конкретной предметной области

НЕКОММЕРЧЕСКОЕ АКЦИОНЕРНОЕ  ОБЩЕСТВО

АЛМАТИНСКИЙ УНИЕРСИТЕТ ЭНЕРГЕТИКИ И СВЯЗИ

 

Кафедра «Компьютерных технологий»

 

 

 

 

 

 

 

 

 

 

 

 

ОТЧЕТ

по лабораторной работе № 2

по дисциплине: «Экспертные  системы»

на тему: «Построение представления знаний в виде продукционной модели в конкретной предметной области»

 

 

 

 

 

 

 

 

 

 

Выполнил: ст. группы

БВТ-10-05

Жантлеуова Асель

Проверил: ст. преподаватель

Байжанова Д.О.

 

 

 

 

 

 

 

Алматы 2013

СОДЕРЖАНИЕ

 

	Стр.
ВВЕДЕНИЕ	3
ОТЧЕТ	4
ЗАКЛЮЧЕНИЕ	13
КОНТРОЛЬНЫЕ ВОПРОСЫ	14
СПИСОК ЛИТЕРАТУРЫ	15

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ВВЕДЕНИЕ

 

Искусственный интеллект - один из разделов информатики, в рамках которого ставятся и решаются задачи аппаратного  и программного моделирования тех  видов человеческой деятельности, которые  традиционно считаются интеллектуальными (творческими).

Термин «Искусственный интеллект» предложен в 1956 году в США на семинаре, посвященном решению логических задач.

Данные – это отдельные факты, характеризующие объекты, процессы и явления в предметной области, а также их свойства.

Знания основываются на данных, но представляют результат мыслительной деятельности человека, обобщают его  опыт, полученный в ходе выполнения какой-либо практической деятельности.

Знания – это выявленные закономерности предметной области (принципы, связи, законы), позволяющие решать задачи в этой области.

Модели представления  знаний:

• Продукционная модель
• Семантические сети
• Фреймы
• Формальные логические модели

Цель данной лабораторной работы: реализация прямого вывода для продукционной модели.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ОТЧЕТ

 

Задание: для выполнения лабораторной работы необходимо изучить  способы представления знаний в  виде продукционной модели в конкретной предметной области и реализовать  прямой вывод.

 

Продукционная модель - модель, основанная на правилах, позволяет представить знания в виде предложений типа:

ЕСЛИ (условие), ТО (действие)

• Условие  - это предложение-образец, по которому осуществляется поиск в базе знаний.
• Действие – это действия, выполняемые при успешном исходе поиска.

 

Предметная область: k-pop.

В продукционной модели для  представления знаний используются правила вида «ЕСЛИ – ТО». Каждое правило включает условную часть  и заключительную часть. Условная часть  правила может включать связки «И»  и требуемые вычисления. В продукционной  модели представления знаний используются следующие методы логического вывода: прямой вывод, обратный вывод, двунаправленный  вывод.

При прямом выводе в рабочую  память помещают данные, и механизм вывода сопоставляет данные с образцами  из условной части правил. Если все  образцы имеются в рабочей  памяти, условная часть считается  истинной, иначе – ложной. Если условная часть какого-то правила стала  истинной, то в рабочую память заносится  образец из заключительной части  этого правила. Процесс сопоставления  продолжается до тех пор, пока не будут  рассмотрены все правила. Заключительная часть последнего правила и является результатом логического вывода.

Правила:

1. ЕСЛИ SM Entertainment

И SNSD

И Лидер , ТО Taeyeon.

2. ЕСЛИ SM Entertainment

И SNSD

И Макнэ, ТО Seohyun.

3. ЕСЛИ SM Entertainment

И EXO

И EXO-M

И 1990 года

И Пекин, ТО  Luhan.

4. ЕСЛИ SM Entertainment

И EXO

И EXO-M

И 1990 года

И Гуанчжоу, ТО Kris.

5. ЕСЛИ SM Entertainment

И EXO

И EXO-M

И 1990 года

И Сеул, ТО Xiumin.

6. ЕСЛИ SM Entertainment

И EXO

И EXO-M

И 1991 года, ТО Lay.

7. ЕСЛИ SM Entertainment

И EXO

И EXO-K

И 1994 года, ТО Kai.

8. ЕСЛИ SM Entertainment

И EXO

И EXO-K

И 1993 года, ТО D.O.

9. ЕСЛИ SM Entertainment

И EXO

И EXO-K

И 1992 года , ТО Chanyeol.

10. ЕСЛИ TS Entertainment

И Secret

И Лидер , ТО Jun.

11. ЕСЛИ TS Entertainment

И Secret

И Макнэ, ТО Sunhwa.

12. ЕСЛИ TS Entertainment

И B.A.P.

И 1990 года

И лидер, ТО Yong Guk.

13. ЕСЛИ TS Entertainment

И B.A.P.

И 1990 года

И суб-вокал, ТО Himchan.

14. ЕСЛИ TS Entertainment

И B.A.P.

И 1994 года , ТО Young Jae.

15. ЕСЛИ TS Entertainment

И B.A.P.

И 1993 года, ТО Daehyun.

16. ЕСЛИ Pledis Entertainment

И After School

И 2 августа 1983 года, ТО Kim Jungah.

17. ЕСЛИ Pledis Entertainment

И After School

И 9 апреля 1988 года, ТО Uee.

18. ЕСЛИ Pledis Entertainment

И NUEST

И 1993 года, ТО Aron.

19. ЕСЛИ Pledis Entertainment

И NUEST

И 1993 года

И лидер, ТО JR.

20. ЕСЛИ Pledis Entertainment

И NUEST

И 1993 года

И макне, ТО Ren.

 

Код программы:

k:=k+1;

if k=1 then begin

If RadioButton1.Checked=true then begin

            RadioButton1.Caption:='EXO';

            RadioButton2.Caption:='SNSD';

            RadioButton3.Visible:=False;

            end;

If RadioButton2.Checked=true then begin

            RadioButton1.Caption:='B.A.P';

            RadioButton2.Caption:='Secret';

            RadioButton3.Visible:=False;

            end;

If RadioButton3.Checked=true then begin

            RadioButton1.Caption:='NUEST';

            RadioButton2.Caption:='After School';

            RadioButton3.Visible:=False;

            end;

end;

if k=2 then begin

if (RadioButton1.Checked=True) and (RadioButton1.Caption='EXO') then

begin

            RadioButton1.Caption:='EXO-K';

            RadioButton2.Caption:='EXO-M';

            RadioButton3.Visible:=False;

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='B.A.P') then

begin

            RadioButton1.Caption:='1990 года';

            RadioButton2.Caption:='1994 года';

            RadioButton3.Caption:='1993 года';

            RadioButton3.Visible:=True;

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='NUEST') then

begin

            RadioButton1.Caption:='1993 года';

            RadioButton2.Caption:='1995 года';

            RadioButton3.Visible:=False;

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='SNSD') then

begin

            RadioButton1.Caption:='Лидер';

            RadioButton2.Caption:='Макнэ';

            RadioButton3.Visible:=False;

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='Secret') then

begin

            RadioButton1.Caption:='Лидер ';

            RadioButton2.Caption:='Макнэ ';

            RadioButton3.Visible:=False;

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='After School') then

begin

            RadioButton1.Caption:='2 августа 1983 года';

            RadioButton2.Caption:='9 апреля 1988 года';

            RadioButton3.Visible:=False;

end;

end;

if k=3 then begin

if (RadioButton1.Checked=True) and (RadioButton1.Caption='Лидер') then

begin

GroupBox1.Caption:='Taeyeon';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('1.bmp');

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='Макнэ') then

begin

GroupBox1.Caption:='Seohyun';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('2.bmp');

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='Лидер ') then

begin

GroupBox1.Caption:='Jun';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('3.bmp');

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='Макнэ ') then

begin

GroupBox1.Caption:='Sunhwa';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('4.bmp');

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='2 августа 1983 года') then

begin

GroupBox1.Caption:='Kim Jungah';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('5.bmp');

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='9 апреля 1988 года') then

begin

GroupBox1.Caption:='Uee';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('6.bmp');

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='1993 года') then

begin

GroupBox1.Caption:='Aron';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('7.bmp');

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='1995 года') then

begin

RadioButton1.Caption:='Лидер  ';

RadioButton2.Caption:='Макнэ  ';

RadioButton3.Visible:=False;

end;

if (RadioButton1.Checked=True) and (RadioButton1.Caption='1990 года') then

begin

RadioButton1.Caption:='Лидер   ';

RadioButton2.Caption:='Суб-вокал   ';

RadioButton3.Visible:=False;

end;

if (RadioButton2.Checked=True) and (RadioButton2.Caption='1994 года') then

begin

GroupBox1.Caption:='Young Jae';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('10.bmp');

end;

if (RadioButton3.Checked=True) and (RadioButton3.Caption='1993 года') then

begin

GroupBox1.Caption:='Dae Hyun';

RadioButton1.Visible:=False;

RadioButton2.Visible:=False;

RadioButton3.Visible:=False;

Button1.Visible:=False;

Image1.Picture.LoadFromFile('11.bmp');