Gaussian.pm (PDL-2.074) | : | Gaussian.pm (PDL-2.075) | ||
---|---|---|---|---|
skipping to change at line 17 | skipping to change at line 17 | |||
our %EXPORT_TAGS = (Func=>\@EXPORT_OK); | our %EXPORT_TAGS = (Func=>\@EXPORT_OK); | |||
use PDL::Core; | use PDL::Core; | |||
use PDL::Exporter; | use PDL::Exporter; | |||
use DynaLoader; | use DynaLoader; | |||
our @ISA = ( 'PDL::Exporter','DynaLoader' ); | our @ISA = ( 'PDL::Exporter','DynaLoader' ); | |||
push @PDL::Core::PP, __PACKAGE__; | push @PDL::Core::PP, __PACKAGE__; | |||
bootstrap PDL::Fit::Gaussian ; | bootstrap PDL::Fit::Gaussian ; | |||
#line 5 "gaussian.pd" | #line 4 "gaussian.pd" | |||
=head1 NAME | =head1 NAME | |||
PDL::Fit::Gaussian - routines for fitting gaussians | PDL::Fit::Gaussian - routines for fitting gaussians | |||
=head1 DESCRIPTION | =head1 DESCRIPTION | |||
This module contains some custom gaussian fitting routines. | This module contains some custom gaussian fitting routines. | |||
These were developed in collaboration with Alison Offer, | These were developed in collaboration with Alison Offer, | |||
they do a reasonably robust job and are quite useful. | they do a reasonably robust job and are quite useful. | |||
skipping to change at line 113 | skipping to change at line 114 | |||
estimate of the FWHM is the length of the ndarray/3, so it might fail | estimate of the FWHM is the length of the ndarray/3, so it might fail | |||
if the ndarray is too long. (This is non-robust anyway). Most data | if the ndarray is too long. (This is non-robust anyway). Most data | |||
does just fine and this is a good default gaussian fitter. | does just fine and this is a good default gaussian fitter. | |||
SEE ALSO: fitgauss1d() to fit centre as well. | SEE ALSO: fitgauss1d() to fit centre as well. | |||
=cut | =cut | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
#line 122 "Gaussian.pm" | #line 123 "Gaussian.pm" | |||
#line 1060 "../../../blib/lib/PDL/PP.pm" | ||||
#line 1061 "../../../blib/lib/PDL/PP.pm" | ||||
*fitgauss1d = \&PDL::fitgauss1d; | *fitgauss1d = \&PDL::fitgauss1d; | |||
#line 132 "Gaussian.pm" | #line 134 "Gaussian.pm" | |||
#line 1060 "../../../blib/lib/PDL/PP.pm" | ||||
#line 1061 "../../../blib/lib/PDL/PP.pm" | ||||
*fitgauss1dr = \&PDL::fitgauss1dr; | *fitgauss1dr = \&PDL::fitgauss1dr; | |||
#line 138 "Gaussian.pm" | #line 141 "Gaussian.pm" | |||
#line 191 "gaussian.pd" | ||||
#line 192 "gaussian.pd" | ||||
=head1 BUGS | =head1 BUGS | |||
May not converge for weird data, still pretty good! | May not converge for weird data, still pretty good! | |||
=head1 AUTHOR | =head1 AUTHOR | |||
This file copyright (C) 1999, Karl Glazebrook (kgb@aaoepp.aao.gov.au), | This file copyright (C) 1999, Karl Glazebrook (kgb@aaoepp.aao.gov.au), | |||
Gaussian fitting code by Alison Offer | Gaussian fitting code by Alison Offer | |||
(aro@aaocbn.aao.gov.au). All rights reserved. There | (aro@aaocbn.aao.gov.au). All rights reserved. There | |||
is no warranty. You are allowed to redistribute this software / | is no warranty. You are allowed to redistribute this software / | |||
documentation under certain conditions. For details, see the file | documentation under certain conditions. For details, see the file | |||
COPYING in the PDL distribution. If this file is separated from the | COPYING in the PDL distribution. If this file is separated from the | |||
PDL distribution, the copyright notice should be included in the file. | PDL distribution, the copyright notice should be included in the file. | |||
=cut | =cut | |||
#line 158 "Gaussian.pm" | #line 162 "Gaussian.pm" | |||
# Exit with OK status | # Exit with OK status | |||
1; | 1; | |||
End of changes. 8 change blocks. | ||||
8 lines changed or deleted | 12 lines changed or added |