62 lines
1.4 KiB
Plaintext
62 lines
1.4 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
|
||
|
|
METHOD : COG;
|
||
|
|
DEFAULT := 0;
|
||
|
|
|
||
|
|
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 trustworthiness
|
||
|
|
END_DEFUZZIFY
|
||
|
|
|
||
|
|
|
||
|
|
RULEBLOCK No1
|
||
|
|
ACCU : MAX;
|
||
|
|
AND : PROD;
|
||
|
|
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
|