“Експертні обчислення”
Мета : Реалізація експертної системи засобами середовища розробки ESTA.
Завдання: Сформувати файл “К”, що містить інформацію про кубики: розмір кожного кубика (довжина ребра в см), колір (червоний, жовтий, зелений або синій), матеріал (дерево, метал, картон).
Title
Kubik Rubik Knowlege bases
Design By
Romantchukevutch@Olexander.net
Ukraine San-Fransisco 2006
Sections
section mat1 : ' '
if met = 'chervonuy'
( advice 'Vash Kubik Metalevuy chervonogo koloru ')
if met = 'govtuy'
( advice 'Vash Kubik Metalevuy govtogo koloru ' )
if met = 'suniy'
( advice 'Vash Kubik Metalevuy sunbogo koloru ')
if met = 'zelenuy'
( advice 'Vash Kubik Metalevuy zelenogo koloru ' )
section mat2 : ' '
if met = 'chervonuy'
( advice 'Vash Kubik Kartonnuy chervonogo koloru ')
if met = 'govtuy'
( advice 'Vash Kubik Kartonnuy govtogo koloru ' )
if met = 'suniy'
( advice 'Vash Kubik Kartonnuy sunbogo koloru ')
if met = 'zelenuy'
( advice 'Vash Kubik Kartonnuy zelenogo koloru ' )
section mat3 : ' '
if met = 'chervonuy'
( advice 'Vash Kubik Derevjanuy chervonogo koloru ')
if met = 'govtuy'
( advice 'Vash Kubik Derevjanuy govtogo koloru ' )
if met = 'suniy'
( advice 'Vash Kubik Derevjanuy sunbogo koloru ')
if met = 'zelenuy'
( advice 'Vash Kubik Derevjanuy zelenogo koloru ' )
section start : ' '
if Material = 'Metal' do mat1
if Material = 'Derevo' do mat2
if Material = 'Karton' do mat3
Parameters
parameter Material : ' '
type category
explanation ' '
options
Metal ,
Derevo,
Karton.
/* rules field */
question ' Vuberitb material '
picture ' '
parameter met : ' '
type category
explanation ' '
options
chervonuy,
govtuy,
suniy,
zelenuy.
/* rules field */
question 'Jakogo koloru kubik '
picture ' '