13 Math::GSL - OO Perl interface to the GNU Scientific Library (GSL)
24 use Math::GSL::Sf qw/ ... /;
29 Nothing is exported by default. This is alpha software, the API could change at any second.
34 Jonathan Leto, C<< <jonathan at leto.net> >>
38 Please report any bugs or feature requests to C<bug-math-gsl at rt.cpan.org>, or through
39 the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Math::GSL>. I will be notified, and then you'll
40 automatically be notified of progress on your bug as I make changes.
45 You can find documentation for this module with the perldoc command.
49 or online at L<http://leto.net/code/Math-GSL/>
52 You can also look for information at:
56 =item * RT: CPAN's request tracker
58 L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Math::GSL>
60 =item * AnnoCPAN: Annotated CPAN documentation
62 L<http://annocpan.org/dist/Math::GSL>
66 L<http://cpanratings.perl.org/d/Math::GSL>
70 L<http://search.cpan.org/dist/Math::GSL>
75 =head1 ACKNOWLEDGEMENTS
78 =head1 COPYRIGHT & LICENSE
80 Copyright 2008 Jonathan Leto, all rights reserved.
82 This program is free software; you can redistribute it and/or modify it
83 under the same terms as Perl itself.
89 my ($self,$args) = @_;
90 my $class = ref $self || $self || 'Math::GSL';
97 return qw
/ CDF Errno Fit Machine PowInt Randist SF Types /;
102 my ($self,$results,$eps) = @_;
104 while (my($k,$v)=each %$results){
106 print "got $x for $k\n" if defined $ENV{DEBUG
};
108 ok
( $v eq $x, "'$v'?='$x'" );
110 my $res = abs($x-$v);
112 : ok
( $res < $eps, "$k ?= $x, +- $res" );
117 use constant MIN_DOUBLE
=> 2.2250738585072014e-308;
118 use constant MAX_DOUBLE
=> 1.7976931348623157E+308;
119 use constant MAX_FLOAT
=> 3.40282347E+38;
120 use constant MIN_FLOAT
=> 1.175494351e-38;
122 sub _has_quads
{ $Config{use64bitint
} eq 'define' || ($Config{longsize
} >= 8) }
123 sub _has_long_doubles
{ $Config{d_longdbl
} eq 'define' }
124 sub _has_long_doubles_as_default
{ $Config{uselongdouble
} eq 'define' }
125 sub _has_long_doubles_same_as_doubles
{ $Config{doublesize
} == $Config{longdblsize
} }
127 sub _assert_dies
($;$)
129 my ($code,$msg) = @_;
130 my $status = eval { &$code };
131 print "status=||$status||\n\$\?=$?\n\$\!=$!\n" if 0;
132 $@ ? ok
(1, $msg) : ok
(0, join "\n", $@
, $msg );