Проектирование экспертной системы диагностики видеомагнитофонов

Автор: Пользователь скрыл имя, 12 Декабря 2010 в 19:59, курсовая работа

Описание работы

К экспертным системам относят системы, основанные на знаниях, т.е. системы, вычислительная возможность которых определяется в первую очередь наращиваемой базой знаний (БЗ) и только во вторую очередь используемыми методами.
В ходе работ по созданию ЭС сложилась определенная технология их разработки, включающая следующие этапы:
1) Идентификация
2) Концептуализация
3) Формализация
4) Выполнение
5) Отладка
6) Опытная эксплуатация

Скачать полностью (299.58 Кб) Сколько стоит заказать работу?

Работа содержит 1 файл

Курсовая работа.doc

— 485.50 Кб (Скачать)

После запуска в окне программы видим список возможных неисправностей:

выбираем неисправность «Видеомагнитофон не включается» нажатием клавиши «1»

Отвечаем «1» - «да».

Получаем вывод:

Как рассмотрено выше ответим на все вопросы положительно, т.е. должны получить предложение обратиться в сервисный центр.

Заключение.

Выполнив данную курсовую работу, я приобрел навык построения экспертных систем, изучил среду программирования Turbo Prolog, а также язык программирования Prolog.

Листинг программы

domains

i=integer

predicates

AAA(integer,integer,integer)

BBB(integer,integer,integer)

CCC(integer,integer,integer)

DDD(integer,integer)

FFF(integer,integer,integer)

GGG(integer,integer,integer)

HHH(integer,integer)

vvodA1(integer)

vvodA2(integer)

vvodA3(integer)

vvodA4(integer)

vvodA5(integer)

vvodA6(integer)

vvodA7(integer)

vvodA8(integer)

vvodA9(integer)

vvodA10(integer)

vvodA11(integer)

vvodA12(integer)

vvodA13(integer)

vvodA14(integer)

vvodA15(integer)

vvodA16(integer)

vvodA17(integer)

vvodA18(integer)

vvodA19(integer)

start

patch

process(i)

clauses

/*-------------------------------1-------------------------------------*/

AAA(A1,A2,A3):-

A1=0,

A2=0,

A3=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Замените или отремонтируйте шнур питания, замените предохранитель, отремонтируйте розетку питающей сети"),

cursor(12,5),

write("Если вышеуказанные действия не приведут к положительному результату, обратитесь в сервисный центр").

AAA(A1,A2,A3):-

A1=0,

A2=0,

A3=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Замените или отремонтируйте шнур питания, замените предохранитель, отремонтируйте розетку питающей сети ").

AAA(A1,A2,A3):-

A1=0,

A2=1,

A3=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Замените или отремонтируйте шнур питания, замените предохранитель").

AAA(A1,A2,A3):-

A1=0,

A2=1,

A3=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Замените или отремонтируйте шнур питания").

AAA(A1,A2,A3):-

A1=1,

A2=0,

A3=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Замените или отремонтируйте шнур питания, отремонтируйте розетку питающей сети ").

AAA(A1,A2,A3):-

A1=1,

A2=0,

A3=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("отремонтируйте розетку питающей сети ").

AAA(A1,A2,A3):-

A1=1,

A2=1,

A3=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("замените предохранитель ").

AAA(A1,A2,A3):-

A1=1,

A2=1,

A3=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Вероятно, неисправен блок питания, обратитесь в сервисный центр").

/*-------------------------------2-------------------------------------*/

BBB(A4,A5,A6):-

A4=0,

A5=0,

A6=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Включите видеомагнитофон и правильно вставьте кассету (окошком вверх, предохранительным ушком к себе)").

BBB(A4,A5,A6):-

A4=0,

A5=0,

A6=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Включите видеомагнитофон, выньте кассету, находящуюся в видеомагнитофоне и правильно вставьте другую кассету (окошком вверх, предохранительным ушком к себе)").

BBB(A4,A5,A6):-

A4=0,

A5=1,

A6=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Включите видеомагнитофон и вставьте кассету ").

BBB(A4,A5,A6):-

A4=0,

A5=1,

A6=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Включите видеомагнитофон, выньте кассету, находящуюся в видеомагнитофоне и вставьте другую кассету ").

BBB(A4,A5,A6):-

A4=1,

A5=0,

A6=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("правильно вставьте кассету (окошком вверх, предохранительным ушком к себе)").

BBB(A4,A5,A6):-

A4=1,

A5=0,

A6=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("выньте кассету, находящуюся в видеомагнитофоне и правильно вставьте другую кассету (окошком вверх, предохранительным ушком к себе)").

BBB(A4,A5,A6):-

A4=1,

A5=1,

A6=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Вероятно, неисправен узел загрузки, обратитесь в сервисный центр").

BBB(A4,A5,A6):-

A4=1,

A5=1,

A6=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("выньте кассету, находящуюся в видеомагнитофоне").

/*-------------------------------3-------------------------------------*/

CCC(A7,A8,A9):-

A7=0,

A8=0,

A9=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Подключите видеомагнитофон к ТВ по инструкции, настройте ТВ и используйте кассету с качественной записью").

CCC(A7,A8,A9):-

A7=0,

A8=0,

A9=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Подключите видеомагнитофон к ТВ по инструкции, настройте ТВ ").

CCC(A7,A8,A9):-

A7=0,

A8=1,

A9=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Подключите видеомагнитофон к ТВ по инструкции, используйте кассету с качественной записью ").

CCC(A7,A8,A9):-

A7=0,

A8=1,

A9=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Подключите видеомагнитофон к ТВ по инструкции ").

CCC(A7,A8,A9):-

A7=1,

A8=0,

A9=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("настройте ТВ и используйте кассету с качественной записью ").

CCC(A7,A8,A9):-

A7=1,

A8=0,

A9=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("настройте ТВ ").

CCC(A7,A8,A9):-

A7=1,

A8=1,

A9=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Используйте кассету с качественной записью ").

CCC(A7,A8,A9):-

A7=1,

A8=1,

A9=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Обратитесь в сервис").

/*-------------------------------4-------------------------------------*/

DDD(A10,A11):-

A10=0,

A11=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Вставьте кассету ").

DDD(A10,A11):-

A10=0,

A11=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Неисправный излучатель ").

DDD(A10,A11):-

A10=1,

A11=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Обратитесь в сервис").

DDD(A10,A11):-

A10=1,

A11=1,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("Обратитесь в сервис ").

/*-------------------------------5-------------------------------------*/

FFF(A12,A13,A14):-

A12=0,

A13=0,

A14=0,

makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),

cursor(8,5),

write("используйте кассету с качественной записью, воспользуйтесь трекингом").

Информация о работе Проектирование экспертной системы диагностики видеомагнитофонов