AI::FuzzyInference 0.05

AI::FuzzyInference is a Perl module to implement a Fuzzy Inference System.

SYNOPSYS

use AI::FuzzyInference;

my $s = new AI::FuzzyInference;

$s->inVar(service, 0, 10,
poor => [0, 0,
2, 1,
4, 0],
good => [2, 0,
4, 1,
6, 0],
excellent => [4, 0,
6, 1,
8, 0],
amazing => [6, 0,
8, 1,
10, 0],
);

$s->inVar(food, 0, 10,
poor => [0, 0,
2, 1,
4, 0],
good => [2, 0,
4, 1,
6, 0],
excellent => [4, 0,
6, 1,
8, 0],
amazing => [6, 0,
8, 1,
10, 0],
);

$s->outVar(tip, 5, 30,
poor => [5, 0,
10, 1,
15, 0],
good => [10, 0,
15, 1,
20, 0],
excellent => [15, 0,
20, 1,
25, 0],
amazing => [20, 0,
25, 1,
30, 0],
);

$s->addRule(
service=poor & food=poor => tip=poor,
service=good & food=poor => tip=poor,
service=excellent & food=poor => tip=good,
service=amazing & food=poor => tip=good,

service=poor & food=good => tip=poor,
service=good & food=good => tip=good,
service=excellent & food=good => tip=good,
service=amazing & food=good => tip=excellent,

service=poor & food=excellent => tip=good,
service=good & food=excellent => tip=excellent,
service=excellent & food=excellent => tip=excellent,
service=amazing & food=excellent => tip=amazing,

service=poor & food=amazing => tip=good,
service=good & food=amazing => tip=excellent,
service=excellent & food=amazing => tip=amazing,
service=amazing & food=amazing => tip=amazing,

);

$s->compute(service => 2,
food => 7);