1
0
mirror of https://github.com/marcin-szczepanski/jFuzzyLogic.git synced 2024-12-23 01:35:29 +01:00
jFuzzyLogic/fcl/trust/TSFewRules.fcl
2014-12-19 08:30:46 -05:00

56 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;
END_FUZZIFY
FUZZIFY OW
TERM low := GAUSS 0 1;
TERM medium := GAUSS 2.5 1;
TERM high := GAUSS 5 1;
END_FUZZIFY
FUZZIFY AC
TERM low := GAUSS 0 1;
TERM medium := GAUSS 2.5 1;
TERM high := GAUSS 5 1;
END_FUZZIFY
DEFUZZIFY trustworthiness
TERM nothing := FUNCTION (AC * 0.1);//FUNCTION (WTV * 0.6) + 1.2 +(OW * 0.6) + (AC * 0.6);
TERM minimal := FUNCTION (AC * 0.1);//FUNCTION (AC * 0.5) + 1.4;
TERM partially := FUNCTION (AC * 0.1);//FUNCTION (OW * 0.7) + 1.2 + (AC * 0.6);
TERM satISfactory := FUNCTION (AC * 0.68);
TERM largely := FUNCTION (AC * 0.9);
TERM fully := FUNCTION (AC * 0.1);
METHOD : COGF;
DEFAULT := 0;
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