58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
FUNCTION_BLOCK LarsenTrustFewRules
|
|
|
|
VAR_INPUT
|
|
WTV : REAL;
|
|
OW : REAL;
|
|
AC : REAL;
|
|
END_VAR
|
|
|
|
VAR_OUTPUT
|
|
trustworthiness : REAL;
|
|
END_VAR
|
|
|
|
FUZZIFY WTV
|
|
TERM nothing := GAUSS 0 1;
|
|
TERM minimal := GAUSS 1 1;
|
|
TERM partially := GAUSS 2 1;
|
|
TERM satISfactory := GAUSS 3 1;
|
|
TERM largely := GAUSS 4 1;
|
|
TERM fully := GAUSS 5 1;
|
|
RANGE := (-4.0 .. 9.0); // Added range for WTV
|
|
END_FUZZIFY
|
|
|
|
FUZZIFY OW
|
|
TERM low := GAUSS 0 1;
|
|
TERM medium := GAUSS 2.5 1;
|
|
TERM high := GAUSS 5 1;
|
|
RANGE := (-4.0 .. 9.0); // Added range for OW
|
|
END_FUZZIFY
|
|
|
|
FUZZIFY AC
|
|
TERM low := GAUSS 0 1;
|
|
TERM medium := GAUSS 2.5 1;
|
|
TERM high := GAUSS 5 1;
|
|
RANGE := (-4.0 .. 9.0); // Added range for AC
|
|
END_FUZZIFY
|
|
|
|
DEFUZZIFY trustworthiness
|
|
TERM nothing := 0;
|
|
TERM minimal := 1;
|
|
TERM partially := 2;
|
|
TERM satISfactory := 3;
|
|
TERM largely := 4;
|
|
TERM fully := 5;
|
|
METHOD : COGS;
|
|
DEFAULT := 0;
|
|
RANGE := (0.0 .. 5.0); // Added range for trustworthiness
|
|
END_DEFUZZIFY
|
|
|
|
RULEBLOCK No1
|
|
ACCU : MAX;
|
|
AND : MIN;
|
|
RULE 1 : IF WTV IS fully AND OW IS high AND AC IS high THEN trustworthiness IS fully;
|
|
RULE 2 : IF WTV IS satISfactory AND OW IS high THEN trustworthiness IS satISfactory;
|
|
RULE 3 : IF WTV IS nothing AND AC IS NOT low THEN trustworthiness IS nothing;
|
|
END_RULEBLOCK
|
|
|
|
END_FUNCTION_BLOCK
|