Главная/

Программирование, базы данных. /

Экспертные системы на базе VP-Expert

неисправностей!

выбирайте симптомы- получайте способ устранения

(нажмите любую клавишу для продолжения.)   "

   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

IF prich=1 and

   prich1=1 and

   prich1_1=2

THEN

bug_method=2

display "прочистить или заменить фмльтры~"

;

RULE 8

IF prich=1 and

   prich1=1 and

   prich1_1=3

THEN

bug_method=3

display "починить насос~"

;

!----------------------------------------------------------------

ask prich1_2: "Неисправность

           1-обрыв проводов коммутатора

           2-несправен бесконтактный датчик"

;

RULE 10

IF prich=1 and

   prich1=2 and

   prich1_2=1

THEN

bug_method=4

display "проверить провода коммутатора~"

;

RULE 11

IF prich=1 and

   prich1=2 and

   prich1_2=2

THEN

bug_method=5

display "починить датчик~"

;

!----------------------------------------------------------------

ask prich1_3: "Неисправность

           1-обрыв проводов катушки зажигания

           2-неисправен коммутатор

           3-не замыкаются контакты выключателя зажигания"

;

RULE 13

IF prich=1 and

   prich1=3 and

   prich1_3=1

THEN

bug_method=6

display "проверить провода~"

;

RULE 14

IF prich=1 and

   prich1=3 and

   prich1_3=2

THEN

bug_method=7

display "починить коммутатор~"

;

RULE 15

IF prich=1 and

   prich1=3 and

   prich1_3=3

THEN

bug_method=8

display "починить контакты~"

;

!----------------------------------------------------------------

ask prich1_4: "Неисправность

           1-повреждение изоляции проводов выс.напр.

           2-износ контактного уголька

           3-повреждение крышки распределителя

           4-повреждение ротора

           5-отказ резистора

           6-повреждена катушка зажигания "

;

RULE 17

IF prich=1 and

   prich1=4 and

   prich1_4=1

THEN

bug_method=8

display "проверить провода~"

;

RULE 18

IF prich=1 and

   prich1=4 and

   prich1_4=2

THEN

bug_method=9

display "осмотреть крышку распределителя, прочистить уголек~"

;

RULE 19

IF prich=1 and

   prich1=4 and

   prich1_3=3

THEN

bug_method=10

display "заменить крышку распределителя~"

;

RULE 20

IF prich=1 and

   prich1=4 and

   prich1_3=4

THEN

bug_method=11

display "заменить ротор распределителя~"

;

RULE 21

IF prich=1 and

   prich1=4 and

   prich1_3=5

THEN

bug_method=12

display "заменить резистор~"

;

RULE 22

IF prich=1 and

   prich1=4 and

   prich1_3=6

THEN

bug_method=13

display "заменить катушку зажигания~"

;

!----------------------------------------------------------------

RULE 23

IF prich=1 and

   prich1=5

THEN

bug_method=14

display "проверьте правильность присоеденения проводов~"

;

!----------------------------------------------------------------

RULE 24

IF prich=1 and

   prich1=6

THEN

bug_method=15

display "очистите свечи и отрегулируйте зазор между электродами~"

;

!----------------------------------------------------------------

RULE 25

IF prich=1 and

   prich1=7

THEN

bug_method=16

display "заменить свечи~"

;

!----------------------------------------------------------------

RULE 26

IF prich=1 and

   prich1=8

THEN

bug_method=17

display "отрегулируйте момент зажигания~"

;

!----------------------------------------------------------------

ask prich1_9: "Неисправность

           1-обрыв проводов блока управления клапаном

           2-неисправен блок управления клапаном

           3-неисправен клапан"

;

RULE 28

IF prich=1 and

   prich1=9 and

   prich1_9=1

THEN

bug_method=18

display "восстановите соединение~"

;

RULE 29

IF prich=1 and

   prich1=9 and

   prich1_9=2

THEN

bug_method=19

display "починить блок управления клапаном~"

;

RULE 30

IF prich=1 and

   prich1=9 and

   prich1_9=3

THEN

bug_method=20

display "заменить клапан~"

;

!----------------------------------------------------------------

RULE 31

IF prich=1 and

   prich1=10

THEN

bug_method=21

display "отрегулируйте заслонку~"

;

ask prich2: "Неисправность

           1-не отрегулирован холостой ход

           2-несправен карбюратор

           3-ранее зажигание

           4-поврежден шланг вакумного усилителя тормозов

           5-повреждена прокладка во впускном коллекторе

           6-повреждены трубки отбора разряжения"

;

RULE 33

IF prich=2 and

   prich2=1

THEN

bug_method=22

display "отрегулируйте холостой ход~"

;

!----------------------------------------------------------------