Автор: Пользователь скрыл имя, 12 Декабря 2010 в 19:59, курсовая работа
К экспертным системам относят системы, основанные на знаниях, т.е. системы, вычислительная возможность которых определяется в первую очередь наращиваемой базой знаний (БЗ) и только во вторую очередь используемыми методами.
В ходе работ по созданию ЭС сложилась определенная технология их разработки, включающая следующие этапы:
1) Идентификация
2) Концептуализация
3) Формализация
4) Выполнение
5) Отладка
6) Опытная эксплуатация
FFF(A12,A13,A14):-
A12=0,
A13=0,
A14=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("используйте
кассету с качественной записью,
воспользуйтесь трекингом и почистите
головки при помощи чистящей кассеты ").
FFF(A12,A13,A14):-
A12=0,
A13=1,
A14=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("используйте
кассету с качественной записью
").
FFF(A12,A13,A14):-
A12=0,
A13=1,
A14=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("используйте
кассету с качественной
FFF(A12,A13,A14):-
A12=1,
A13=0,
A14=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("воспользуйтесь
трекингом ").
FFF(A12,A13,A14):-
A12=1,
A13=0,
A14=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("воспользуйтесь
трекингом и почистите
FFF(A12,A13,A14):-
A12=1,
A13=1,
A14=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Обратитесь
в сервис").
FFF(A12,A13,A14):-
A12=1,
A13=1,
A14=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("почистите
головки при помощи чистящей
кассеты ").
/*----------------------------
GGG(A15,A16,A17):-
A15=0,
A16=0,
A17=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Замените
батарейки, замените пульт (
GGG(A15,A16,A17):-
A15=0,
A16=0,
A17=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Замените
батарейки, замените пульт (
GGG(A15,A16,A17):-
A15=0,
A16=1,
A17=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Замените
батарейки ").
GGG(A15,A16,A17):-
A15=0,
A16=1,
A17=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Замените
батарейки, уменьшите
GGG(A15,A16,A17):-
A15=1,
A16=0,
A17=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("замените
пульт (обратитесь в сервис
для устранения его
GGG(A15,A16,A17):-
A15=1,
A16=0,
A17=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("замените
пульт (обратитесь в сервис
для устранения его
GGG(A15,A16,A17):-
A15=1,
A16=1,
A17=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Обратитесь
в сервис").
GGG(A15,A16,A17):-
A15=1,
A16=1,
A17=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("уменьшите
расстояние и удалите
/*----------------------------
HHH(A18,A19):-
A18=0,
A19=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Обратитесь
в сервис ").
HHH(A18,A19):-
A18=0,
A19=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Протереть
синхроголовку чистящей
HHH(A18,A19):-
A18=1,
A19=0,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Изменить
высоту расположения синхроголовки ").
HHH(A18,A19):-
A18=1,
A19=1,
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
cursor(8,5),
write("Изменить
высоту расположения синхроголовки и
протрите синхроголовку чистящей жидкостью").
/*------------------Процедура
создания основного меню-------
start:-
makewindow(1,2,7," Диагностика видеомагнитофонов ",0,0,25,80),
write("Выберите неисправность"
clearwindow,
cursor(2,0),
write("
******************************
write("
*
write(" * КУРСОВАЯ РАБОТА *"),nl,
write(" * Тема: Диагностика видеомагнитофонов *"),nl,
write("
*
write("
*
write(" * Выполнил: Миссюра С. *"),nl,
write("
*
write("
******************************
patch.
/*Процедура управления основным меню*/
patch:-
cursor(12,0),
write(" 1.Видеомагнитофон не включается"),nl,
write(" 2.Не загружается кассета"),nl,
write(" 3.Отсутствуют изображение и звук"),nl,
write(" 4.Лента не движется"),nl,
write(" 5.Плохое
качество изображения, помехи")
write(" 6.Не работает пульт дистанционного управления"),nl,
write(" 7.Отсутствует один из компонентов сигнала (звук или изображение)"),nl,
write("
8.Периодический срыв
write(" 9.Выход из программы"),nl,nl,
write(" =>"),
readint(Choice),
Choice >= 1,
Choice < 10,
clearwindow,
process(Choice),
clearwindow,
Choice = 9,
retractall(_),
removewindow.
/* ------------------------------
------------------------------
process(1):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA1(A1),
vvodA2(A2),
vvodA3(A3),
makewindow(1,2,5," Вывод ",1,1,20,78),
AAA(A1,A2,A3),
readln(_),
exit.
process(2):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA4(A4),
vvodA5(A5),
vvodA6(A6),
makewindow(1,2,5," Вывод ",1,1,20,78),
BBB(A4,A5,A6),
readln(_),
exit.
process(3):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA7(A7),
vvodA8(A8),
vvodA9(A9),
makewindow(1,2,5," Вывод ",1,1,20,78),
CCC(A7,A8,A9),
readln(_),
exit.
process(4):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA10(A10),
vvodA11(A11),
makewindow(1,2,5," Вывод ",1,1,20,78),
DDD(A10,A11),
readln(_),
exit.
process(5):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA12(A12),
vvodA13(A13),
vvodA14(A14),
makewindow(1,2,5," Вывод ",1,1,20,78),
FFF(A12,A13,A14),
readln(_),
exit.
process(6):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
vvodA15(A15),
vvodA16(A16),
vvodA17(A17),
makewindow(1,2,5," Вывод ",1,1,20,78),
GGG(A15,A16,A17),
readln(_),
exit.
process(7):-
makewindow(1,2,3," Возможная причина неисправности ",0,0,25,80),
nl,
Информация о работе Проектирование экспертной системы диагностики видеомагнитофонов