Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        if ( $y == 0 ) { return undef; }
        return $x/$y;
}

Select or download this
print "{" . $r->{Ymax} . "|" . $r->{Xbot} . "|" . $r->{invSlope} . "}" ;