input opadr str with "opit admin.raboti (+/-):"

input kar str with "karern.rost (+/-):"

input kom str with "komunikab (ud/nud):"

input stres str with "stressoust (ud/nud):"

DO:

? "Recommendation:",vak

? valn(vak,1),"cf:",cfn(vak,1)

? valn(vak,2),"cf:",cfn(vak,2)

? valn(vak,3),"cf:",cfn(vak,3)

RULE: R1

IF: profk=true and delk=true and psihk=true

THEN: vak+={"GD","GB","Mg"}

RULE: R2

IF: profk=true and delk=true and psihk=false

THEN: vak+={"GB" cf 80,"Mg" cf 80}

RULE: R3

IF: profk=true and delk=false and psihk=true

THEN: vak+={"GB" cf 40,"Mg" cf 60}

RULE: R4

IF: profk=true and delk=false and psihk=false

THEN: vak+="Mg" cf 80

RULE: R5

IF: profk=false and delk=true and psihk=true

THEN: vak+="Mg" cf 80

RULE: R6

IF: profk=false and delk=false and psihk=true

THEN: vak+="Mg" cf 60

RULE: R7

IF: profk=false and delk=true and psihk=false

THEN: vak+="Mg" cf 40

RULE: R8

IF: profk=false and delk=false and psihk=false

THEN: vak+="Mg" cf 40

RULE: R9

IF: obr="v" and oprs>=2 and stag>=2

THEN: profk=true

RULE: R11

IF: obr="v" and oprs<2 and stag>=2

THEN: profk=true

RULE: R12

IF: obr="v" and stag <2

THEN: profk=true

RULE: R13

IF: obr="ss" and oprs>=2 and stag>=2

THEN: profk=true

RULE: R14

IF: obr="ss" and oprs<2 and stag>=2

THEN: profk=true

RULE: R15

IF: obr="ss" and stag<2

THEN: profk=true

RULE: R16

IF: obr="ss" and oprs<2 and stag<2

THEN: profk=false

RULE: R17

IF: dopobr="+" and opadr="+" and kar="+"

THEN: delk=true

RULE: R18

IF: dopobr="+" and opadr="+" and kar="-"

THEN: delk=true

RULE: R19

IF: dopobr="+" and opadr="-" and kar="+"

THEN: delk=true

RULE: R20

IF: dopobr="+" and opadr="-" and kar="-"

THEN: delk=true

RULE: R21

IF: dopobr="-" and opadr="+" and kar="+"

THEN: delk=true

RULE: R22

IF: dopobr="-" and opadr="-" and kar="+"

THEN: delk=true

RULE: R23

IF: dopobr="-" and opadr="+" and kar="-"

THEN: delk=true

RULE: R24

IF: dopobr="-" and opadr="-" and kar="-"

THEN: delk=false

RULE: R25

IF: kom="ud" and stres="ud"

THEN: psihk=true

RULE: R26

IF: kom="ud" and stres="nud"

THEN: psihk=true

RULE: R27

IF: kom="nud" and stres="ud"

THEN: psihk=true

RULE: R28

IF: kom="nud" and stres="nud"

THEN: psihk=false

VAR: VAK

END:

5. Тестирование экспертной системы

1.

2.

3.

4.

5.