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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

uot;Неисправность

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 "отрегулируйте холостой ход~"

;

 

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

 

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

1-засорены жиклеры или каналы карбюратора

2-вода в карбюраторе

3-нарушена герметичность диафрагмы"

;

 

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

 

RULE 35

IF prich=2 and

prich2=2 and

prich2_2=1

THEN

bug_method=23

display "продуть жиклеры и каналы~"

;

 

RULE 36

IF prich=2 and

prich2=2 and

prich2_2=2

THEN

bug_method=24

display "удалить воду~"

;

 

RULE 37

IF prich=2 and

prich2=2 and

prich2_2=3

THEN

bug_method=25

display "заменить диафрагму~"

;

 

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

 

RULE 38

IF prich=2 and

prich2=3

THEN

bug_method=26

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

;

 

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

 

RULE 39

IF prich=2 and

prich2=4

THEN

bug_method=27

display "замените поврежденный шланг~"

;

 

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

 

RULE 40

IF prich=2 and

prich2=5

THEN

bug_method=28

display