AI-Fuzzy

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- added functions: support, core, height, is_normal, is_subnormal
	  to AI::Fuzzy::Set

0.02 Wed Oct  9 16:41:29 EDT 2002
	- ownership transfering to Tom Scanlan <tscanlan@openreach.com>
	- added functions to AI::Fuzzy::Set for intersection, union, 
	  complement, equal, and as_string
	- made a heck of a lot of tests.  use them as examples...

0.01  Mon Jul 19 19:33:46 1999
	- original version; created by h2xs 1.18

Fuzzy.pm  view on Meta::CPAN

@range = $fl->range();
    # returns a list of labels, sorted by their midpoints
    # eg: ("cold", "cool", "lukewarm", "warm", "hot")
=head1 AUTHOR

Tom Scanlan <tscanlan@openreach.com>,
current maintainer 

Michal Wallace  (sabren@manifestation.com),
original author


=head1 SEE ALSO

Move along, nothing to "see also" here...

=head1 BUGS

Please send any bugs to Tom Scanlan <tscanlan@openreach.com>

README  view on Meta::CPAN

    $s = new AI::Fuzzy::Set( $fl->label($value) ); # same thing, but now
    it's an object

    @range = $fl->range(); # returns a list of labels, sorted by their
    midpoints # eg: ("cold", "cool", "lukewarm", "warm", "hot")

AUTHOR
    Tom Scanlan <tscanlan@openreach.com>, current maintainer

    Michal Wallace (sabren@manifestation.com), original author

SEE ALSO
    Move along, nothing to "see also" here...

BUGS
    Please send any bugs to Tom Scanlan <tscanlan@openreach.com>

test.pl  view on Meta::CPAN

$sd = $sa->union($sc);
ok ($sd->membership("Lester"), .35);

$sd = $sa->intersection($sb);
ok ($sd->membership("Lester"), 0);

$sd = $sd->complement();
ok ($sd->membership("Max"), .14);

# the complement of the complement should be the original
$se = $sa->complement() || print "problem with complement\n";
$se = $se->complement() || print "problem with complement\n";
ok ($se->equal($sa));

# a union b should equal b union a
$aUb = $sa->union($sb);
$bUa = $sb->union($sa);
ok($aUb->equal($bUa));

# a intersection b should equal b intersection a