Re^3: RFC: A Beginners Guide to Fuzzy Rules-Based Systems

About

Your OP contained


$fis->addRule, I am not sure if I understood it. Could you, please, rephrase it? the following chunk of code: class='codeblock'>$fis->addRule( &   speed=slow'       =>  'award=minimum', &   speed=slow'       =>  'award=minimum', &   speed=slow'       =>  'award=small', &   speed=slow'       =>  'award=small', &   speed=regular'    =>  'award=minimum', &   speed=regular'    =>  'award=small', &   speed=regular'    =>  'award=small', &   speed=regular'    =>  'award=excellent', &   speed=fast'       =>  'award=small', &   speed=fast'       =>  'award=good', &   speed=fast'       =>  'award=good', &   speed=fast'       =>  'award=excellent', &   speed=fastest'    =>  'award=small', &   speed=fastest'    =>  'award=good', &   speed=fastest'    =>  'award=excellent', &   speed=fastest'    =>  'award=excellent', class='embed-code-dl'>[download]

if that could be replaced with just an array (in my original post), for prevention of errors and maintainability. Just a thought. Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds Comment on Re^3: RFC: A Beginners Guide to Fuzzy Rules-Based Systems Download Code

Replies are listed 'Best First'.

Re^4: RFC: A Beginners Guide to Fuzzy Rules-Based Systems
by lin0 (Curate) on Oct 12, 2006 at 16:55 UTC

Hi talexb,

Now, I got it!

It will be hard to change that particular chunk of code for an array because of the way those statements are treated in the AI::FuzzyInference module (please, see the code below). However, I will think about your idea and see if I can suggest some improvements to the module

thank you

lin0

# sub addRule() - public method.
#
# Adds fuzzy if-then inference rules.
#
# $obj->addRule('x=medium'         => 'z = slow',
#               'x=low  & y=small' => 'z = fast',
#               'x=high & y=tiny'  => 'z=veryfast');
# spaces are optional. The characters [&=|] are special.

sub addRule {
    my ($self, %rules) = @_;

    for my $k (keys %rules) {
    my $v = $rules{$k};
    s/\s+//g for $v, $k;

    push @{$self->{RULES}} => [$k, $v];
    }

    return 1;
}
[download]

[reply]
[d/l]


No such thing as a small change
	PerlMonks