Автор работы: Пользователь скрыл имя, 09 Марта 2013 в 06:34, лабораторная работа
Цель данной лабораторной работы: реализация прямого вывода для продукционной модели.
ВВЕДЕНИЕ 3
ОТЧЕТ 4
ЗАКЛЮЧЕНИЕ 13
КОНТРОЛЬНЫЕ ВОПРОСЫ 14
СПИСОК ЛИТЕРАТУРЫ 15
end;
if (RadioButton1.Checked=true) and (radiobutton1.Caption='EXO-K') then begin
RadioButton1.Caption:='1994 года';
RadioButton2.Caption:='1993 года';
RadioButton3.Caption:='1992 года';
RadioButton3.Visible:=True;
end;
if (RadioButton2.Checked=true) and (radiobutton2.Caption='EXO-M') then begin
RadioButton1.Caption:='1990 года';
RadioButton2.Caption:='1991 года';
RadioButton3.Visible:=False;
end;
end;
if k=4 then begin
if (RadioButton1.Checked=True) and (RadioButton1.Caption='Лидер ') then
begin
GroupBox1.Caption:='JR';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton2.Checked=True) and (RadioButton2.Caption='Макнэ ') then
begin
GroupBox1.Caption:='Ren';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton1.Checked=True) and (RadioButton1.Caption='Лидер ') then
begin
GroupBox1.Caption:='Yong Guk';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton2.Checked=True) and (RadioButton2.Caption='Суб-
begin
GroupBox1.Caption:='Himchan';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton1.Checked=True) and (RadioButton1.Caption='1994 года') then
begin
GroupBox1.Caption:='Kai';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton2.Checked=True) and (RadioButton2.Caption='1993 года') then
begin
GroupBox1.Caption:='D.O.';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton3.Checked=True) and (RadioButton3.Caption='1992 года') then
begin
GroupBox1.Caption:='Chanyeol';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton2.Checked=True) and (RadioButton2.Caption='1991 года') then
begin
GroupBox1.Caption:='Lay';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton1.Checked=True) and (RadioButton1.Caption='1990 года') then
begin
RadioButton1.Caption:='Пекин';
RadioButton2.Caption:='
RadioButton3.Caption:='Сеул';
RadioButton3.Visible:=True;
end;
end;
if k=5 then begin
if (RadioButton1.Checked=True) and (RadioButton1.Caption='Пекин') then
begin
GroupBox1.Caption:='Luhan';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton2.Checked=True) and (RadioButton2.Caption='
begin
GroupBox1.Caption:='Kris';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
if (RadioButton3.Checked=True) and (RadioButton3.Caption='Сеул') then
begin
GroupBox1.Caption:='XiuMin';
RadioButton1.Visible:=False;
RadioButton2.Visible:=False;
RadioButton3.Visible:=False;
Button1.Visible:=False;
Image1.Picture.LoadFromFile('
end;
end;
end;
Вид с экрана:
Рисунок 1 – Главное окно.
Рисунок 2 – Результат одного из правил.
ЗАКЛЮЧЕНИЕ
Продукционная модель - модель, основанная на правилах, позволяет представить знания в виде предложений типа:
ЕСЛИ (условие), ТО (действие)
КОНТРОЛЬНЫЕ ВОПРОСЫ
В продукционной модели для представления знаний используются правила вида «ЕСЛИ – ТО». Каждое правило включает условную часть и заключительную часть.
Условная часть правила может включать связки «И» и требуемые вычисления.
При прямом выводе в рабочую
память помещают данные, и механизм
вывода сопоставляет данные с образцами
из условной части правил. Если все
образцы имеются в рабочей
памяти, условная часть считается
истинной, иначе – ложной. Если условная
часть какого-то правила стала
истинной, то в рабочую память заносится
образец из заключительной части
этого правила. Процесс сопоставления
продолжается до тех пор, пока не будут
рассмотрены все правила. Заключительная
часть последнего правила и является
результатом логического
При прямом выводе в рабочую память помещают данные, и механизм вывода сопоставляет данные с образцами из условной части правил.
Процесс сопоставления продолжается до тех пор, пока не будут рассмотрены все правила. Заключительная часть последнего правила и является результатом логического вывода.
СПИСОК ЛИТЕРАТУРЫ