The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
AI-CBR-0.01
River stage zero No dependents
1 ++
/ AI::CBR::Sim

NAME

AI::CBR::Sim - collection of basic similarity functions

SYNOPSIS

Import similarity functions for case construction.

    use AI::CBR::Sim qw(sim_dist sim_eq);

    ...
    ...

EXPORT

  • sim_dist

  • sim_frac

  • sim_eq

  • sim_set

FUNCTIONS

sim_dist

Works for any numeric values. Suitable when you are interested into the difference of values in a given range. Returns the fraction of the difference of the values with respect to a given maximum range of interest. The madatory third argument is this range.

        sim_dist(26, 22, 10); # returns 0.4
        sim_dist(-2, 1, 100); # returns 0.03

sim_frac

Works for non-negative numeric values. Suitable when you are only interested into their relative difference with respect to 0. Returns the fraction of the smaller argument with respect to the higher one.

        sim_frac(3, 2); # returns 0.67
        sim_frac(40, 50); # returns 0.8

sim_eq

Works for any textual value. Suitable when you are interested only into equality/inequality. Returns 1 in case of equality, 0 in case of inequality. No third argument.

        sim_eq('foo', 'bar'); # returns 0
        sim_eq('foo', 'foo'); # returns 1

sim_set

Works for sets/lists of textual values. Suitable when you are interested into overlap of the two sets. Arguments are two array references with textual values. Returns the number of elements in the intersection divided by the number of elements in the union. No third argument.

        sim_set([qw/a b c/], [qw/b c d/]); # returns 0.5
        sim_set([qw/a b c/], [qw/c/]); # returns 0.33

AUTHOR

Darko Obradovic, <dobradovic at gmx.de>

BUGS

Please report any bugs or feature requests to bug-ai-cbr-sim at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=AI-CBR. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc AI::CBR::Case

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 Darko Obradovic, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.