56 lines
1.3 KiB
Plaintext
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
|
|
|