Создание экспертной системы «Выбор породы собак»

3. МЕТОД РЕШЕНИЯ

При решении контрольной работы использована продукционная модель, которая наиболее  часто  используется в экспертных системах способов представления знаний. Основная идея заключается в ассоциировании с  соответствующими  действиями  набора условий в виде правил типа "если-то".

Например,

Выбираем группу «Служебные собаки».

Вопрос1. Вам нужна собака – проводник для слепых ?

Ответ: Да

Результат (в таблице +) :  Немецкая овчарка, Колли, Эрдельтерьер, Ротвейлер, Боксер.

Ответ: Нет

Вопрос2. Вам нужна собака – спасатель на воде ?

Ответ: Да

Результат (в таблице +) : Ньюфаундленд.

Ответ: Нет

Вопрос3. Вам нужна собака – спасатель  в снежных горах?

Ответ: Да

Результат (в таблице +) : Сембернар.

Ответ: Нет

Вопрос4. Вам нужна собака – пастух ?

Ответ: Да

Результат (в таблице +) :  Кавказская овчарка, Колли, Среднеазиатская овчарка, Южнорусская овчарка.

Ответ: Нет

Вопрос5. Вам нужна собака для поисково-спасательной службы ?

Ответ: Да

Результат (в таблице +) :  Немецкая овчарка, Ротвейлер, Доберман.

Ответ: Нет

Вопрос6.   и  т.д.

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Собака- кто она? Происхождение и эволюция собак различных пород.

Библиотечка собаковода. М: Эра, 1992.

2. П. Джексон, Введение в экспертные системы, Издательский дом «Вильямс», 2001.

ПРИЛОЖЕНИЕ (Листинг программы)

* Выбор группы пород

close table

sele a

use "&dr.dogs.dbf"

Thisform.Height=240

store 0 to n,n1,n2

sele b

do case

case Thisform.Combo1.Value='Служебные'

  g=1

  use "&dr.vopros_1"

case Thisform.Combo1.Value='Охотничьи'

  g=2

  use "&dr.vopros_2"

case Thisform.Combo1.Value='Декоративные'

  g=3

  use "&dr.vopros_3"

endcase

Thisform.Text1.Value=b->soderj

Thisform.Text1.Refresh

* Ответ «ДА»

n=allt(str(b->npp))

n1=b->n_yes

sele a         &&  dogs.dbf

copy to "&dr.m1"

use "&dr.m1"

select * from m1 where grup=g and priz&n=1 into tabl "&dr.m2"

*brow

IF _TALLY=0

   i=0

   Thisform.List1.columncount=1

   Thisform.List1.RowSourceType=1

   Thisform.List1.Rowsource='Определитесь в выборе'

   Thisform.List1.ItemForeColor=rgb(255,0,0)

   Thisform.List1.FontBold=.T.

   Thisform.List1.FontSize=12

   Thisform.Text1.Value=' '

   Thisform.Combo1.Value=' '    

   Thisform.Height=385

   Thisform.Refresh()

ELSE  

   use

   sele a

   use "&dr.m2"

   sele b

   locate for npp=n1

   if found()

      Thisform.Text1.Value=b->soderj

   else

      sele a

      Thisform.List1.columncount=1

      Thisform.List1.rowsourcetype=6

      Thisform.List1.rowsource='m2.poroda'

      Thisform.List1.ItemForeColor=rgb(0,0,0)

      Thisform.List1.FontBold=.F.

      Thisform.List1.FontSize=11

      Thisform.Text1.Value=' '

      Thisform.Combo1.Value=' '    

      Thisform.Height=385

      Thisform.Refresh()

   endif

ENDIF

* Ответ «НЕТ»

sele b

n=b->npp

n2=b->n_no

locate for npp=n2

if found()

   Thisform.Text1.Value=b->soderj

else  

   susp

   i=0

   Thisform.List1.columncount=1

   Thisform.List1.RowSourceType=1

   Thisform.List1.Rowsource='Определитесь в выборе'            Thisform.List1.ItemForeColor=rgb(255,0,0)

   Thisform.List1.FontBold=.T.

   Thisform.List1.FontSize=12

   Thisform.Text1.Value=' '

   Thisform.Combo1.Value=' '    

   Thisform.Height=385

   Thisform.Refresh()

endif

8