Для успешного функционирования системы необходим набор из следующих файлов VPX.EXE, VPX.TXT, VPXE.EXE, VPXH.EXE, VPXHELP.DBF, VPXHELP.HLP, VPXHELP.TXT, VPXI.EXE, VPXM.EXE, VPXT.EXE.
Перечисленные файлы желательно переписать с дискеты в специально созданную директорию. Старт экспертной системы производится запуском файла VPX.EXE на исполнение (возможно с указанием файла базы знаний с расширением .KBS).
Для выполнения курсовой работы была выбрана область- поломки в двигателях и способы их устранения. В ходе работы был написан модуль, выполняя который можно получить консультацию.
Исходный текст модуля :
RUNTIME;
EXECUTE;
BKCOLOR = 0;
ACTIONS
cls color = 9
display
"Вас приветствует система поиска неисправностей!
выбирайте симптомы- получайте способ устранения
(нажмите любую клавишу для продолжения.) "
cls
FIND bug_method
display "метод устранения неисправности {#bug_method}.";
ask prich1: "Неисправность
1-нет топлива в карбюраторе
2-нет импульсов высокого напряжения
3-нет импульсов тока на катушке зажигания
4-нет высокого напряжения на свечах
5-неправиьно подсоединены высоковольтные провода
6-неправильный зазор в свечах
7-трещина на изоляторе свечей
8-неправильный момент зажигания
9-неисправен эл.маг. клапан
10-не открывается воздушная заслонка "
;
!----------------------------------------------------------------
ask prich1_1: "Неисправность
1-засорены топливопроводы
2-засорены фильтры
3-несправен топливный насос"
RULE 6
IF prich=1 and
prich1=1 and
prich1_1=1
THEN
bug_method=1
display "прочистить топливопровод~"
RULE 7
prich1_1=2
bug_method=2
display "прочистить или заменить фмльтры~"
RULE 8
prich1_1=3
bug_method=3
display "починить насос~"
ask prich1_2: "Неисправность
1-обрыв проводов коммутатора
2-несправен бесконтактный датчик"
RULE 10
prich1=2 and
prich1_2=1
bug_method=4
display "проверить провода коммутатора~"
RULE 11
prich1_2=2
bug_method=5
display "починить датчик~"
ask prich1_3: "Неисправность
1-обрыв проводов катушки зажигания
2-неисправен коммутатор
3-не замыкаются контакты выключателя зажигания"
RULE 13
prich1=3 and
prich1_3=1
bug_method=6
display "проверить провода~"
RULE 14
prich1_3=2
bug_method=7
display "починить коммутатор~"
RULE 15
prich1_3=3
bug_method=8
display "починить контакты~"
ask prich1_4: "Неисправность
1-повреждение изоляции проводов выс.напр.
2-износ контактного уголька
3-повреждение крышки распределителя
4-повреждение ротора
5-отказ резистора
6-повреждена катушка зажигания "
RULE 17
prich1=4 and
prich1_4=1
RULE 18
prich1_4=2
bug_method=9
display "осмотреть крышку распределителя, прочистить уголек~"
RULE 19
bug_method=10
display "заменить крышку распределителя~"
RULE 20
prich1_3=4
bug_method=11
display "заменить ротор распределителя~"
RULE 21
prich1_3=5
bug_method=12
display "заменить резистор~"
RULE 22
prich1_3=6
bug_method=13
display "заменить катушку зажигания~"
RULE 23
prich1=5
bug_method=14
display "проверьте правильность присоеденения проводов~"
RULE 24
prich1=6
bug_method=15
display "очистите свечи и отрегулируйте зазор между электродами~"
RULE 25
prich1=7
bug_method=16
display "заменить свечи~"
RULE 26
prich1=8
bug_method=17
display "отрегулируйте момент зажигания~"
ask prich1_9: "Неисправность
1-обрыв проводов блока управления клапаном
2-неисправен блок управления клапаном
3-неисправен клапан"
RULE 28
prich1=9 and
prich1_9=1
bug_method=18
display "восстановите соединение~"
RULE 29
prich1_9=2
bug_method=19
display "починить блок управления клапаном~"
RULE 30
prich1_9=3
bug_method=20
display "заменить клапан~"
RULE 31
prich1=10
bug_method=21
display "отрегулируйте заслонку~"
ask prich2: "Неисправность
1-не отрегулирован холостой ход
2-несправен карбюратор
3-ранее зажигание
4-поврежден шланг вакумного усилителя тормозов
5-повреждена прокладка во впускном коллекторе
6-повреждены трубки отбора разряжения"
RULE 33
IF prich=2 and
prich2=1
bug_method=22
display "отрегулируйте холостой ход~"
ask prich2_2: "Неисправность
1-засорены жиклеры или каналы карбюратора
2-вода в карбюраторе
3-нарушена герметичность диафрагмы"
RULE 35
prich2=2 and
prich2_2=1
bug_method=23
display "продуть жиклеры и каналы~"
RULE 36
prich2_2=2
bug_method=24
display "удалить воду~"
RULE 37
prich2_2=3
bug_method=25
display "заменить диафрагму~"
RULE 38
prich2=3
bug_method=26
RULE 39
prich2=4
bug_method=27
display "замените поврежденный шланг~"
RULE 40
prich2=5
bug_method=28
display "восстановите прокладку~"
RULE 41
prich2=6
bug_method=29
display "восстановите трубки~"
RULE 42
IF prich=3
bug_method=30
display "заменить пружины в распределителе~"
ask prich4: "Неисправность
1-повреждены провода в системе зажигания
2-поврежен контактный уголек
3-подгорел центральный контакт
4-прогар ротора или крышки
5-износ электродов или замасливание свечей
6-неисправен коммутатор
7-повреждение помехоподавительного наконечника "
IF prich=4 and
prich4=1
bug_method=31
display "замените поврежденные провода~"
prich4=2
bug_method=32
display "замените контактный уголек~"
RULE 43
prich4=3
bug_method=33
display "зачистите центральный контакт~"
RULE 44
prich4=4
bug_method=34
display "замените ротор или крышку~"
RULE 45
prich4=5
bug_method=35
display "замените неисправные свечи~"
RULE 46
prich4=6
display "почините коммутатор~"
RULE 47
prich4=7
display "замените наконечник~"
ASK prich:"Двигатель
1-не запускается
2-неустойчиво работает на холостом ходу
3-неустойчиво работает при больших оборотах
4-перебои во всех режимах";
CHOICES prich:1,2,3,4;
CHOICES prich1:1,2,3,4,5,6,7,8,9,10;
CHOICES prich2:1,2,3,4,5,6;
CHOICES prich3:1,2,3;
CHOICES prich4:1,2,3,4,5,6,7;
CHOICES prich1_1:1,2,3;
CHOICES prich1_2:1,2;
CHOICES prich1_3:1,2,3;
CHOICES prich1_4:1,2,3,4,5,6;
CHOICES prich1_9:1,2,3;
CHOICES prich2_2:1,2,3;
После запуска системы пользователь видит на экране приветствие:
Внимание! Приведены копии экранов при запуске системы из-под Windows95. При запуске под DOS программа работает в полноэкранном режиме.
После нажатия на любую клавишу экран очищается и пользователю предлагается выбрать внешний признак неисправности двигателя:
Во время работы пользователь отвечает на ряд вопросов с помощью выбора вариантов из предложенных (Enter- выбор варианта, End- продолжение работы), после чего ему предлагается способ устранения неисправности. Следующие копии экранов без комментариев показывают последовательность работы с системой.
Страницы: 1, 2, 3