"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/Minuit.pm" between
PDL-2.079.tar.gz and PDL-2.080.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Minuit.pm  (PDL-2.079):Minuit.pm  (PDL-2.080)
skipping to change at line 92 skipping to change at line 92
PDL::Minuit::mninit(5,$mn_options->{Unit},$mn_options->{Unit}); PDL::Minuit::mninit(5,$mn_options->{Unit},$mn_options->{Unit});
PDL::Minuit::mnseti($mn_options->{Title}); PDL::Minuit::mnseti($mn_options->{Title});
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
} }
#line 107 "Minuit.pm" #line 107 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mninit =head2 mninit
=for sig =for sig
Signature: (longlong a();longlong b(); longlong c()) Signature: (longlong a();longlong b(); longlong c())
=for ref =for ref
info not available info not available
=for bad =for bad
mninit does not process bad values. mninit does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 134 "Minuit.pm" #line 134 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mninit = \&PDL::Minuit::mninit; *mninit = \&PDL::Minuit::mninit;
#line 141 "Minuit.pm" #line 141 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mn_abre =head2 mn_abre
=for sig =for sig
Signature: (longlong l(); char* nombre; char* mode) Signature: (longlong l(); char* nombre; char* mode)
=for ref =for ref
info not available info not available
=for bad =for bad
mn_abre does not process bad values. mn_abre does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 168 "Minuit.pm" #line 168 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mn_abre = \&PDL::Minuit::mn_abre; *mn_abre = \&PDL::Minuit::mn_abre;
#line 175 "Minuit.pm" #line 175 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mn_cierra =head2 mn_cierra
=for sig =for sig
Signature: (longlong l()) Signature: (longlong l())
=for ref =for ref
info not available info not available
=for bad =for bad
mn_cierra does not process bad values. mn_cierra does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 202 "Minuit.pm" #line 202 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mn_cierra = \&PDL::Minuit::mn_cierra; *mn_cierra = \&PDL::Minuit::mn_cierra;
#line 209 "Minuit.pm" #line 209 "Minuit.pm"
#line 108 "minuit.pd" #line 108 "minuit.pd"
sub mn_def_pars{ sub mn_def_pars{
my $pars = shift; my $pars = shift;
my $steps = shift; my $steps = shift;
skipping to change at line 216 skipping to change at line 216
$names[$i]); $names[$i]);
barf "Problem initializing parameter $i in Minuit, got $iflag" unless ($ifl ag == 0); barf "Problem initializing parameter $i in Minuit, got $iflag" unless ($ifl ag == 0);
} }
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
} }
#line 261 "Minuit.pm" #line 261 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnparm =head2 mnparm
=for sig =for sig
Signature: (longlong a(); double b(); double c(); double d(); double e(); long long [o] ia(); char* str) Signature: (longlong a(); double b(); double c(); double d(); double e(); long long [o] ia(); char* str)
=for ref =for ref
info not available info not available
=for bad =for bad
mnparm does not process bad values. mnparm does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 288 "Minuit.pm" #line 288 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnparm = \&PDL::Minuit::mnparm; *mnparm = \&PDL::Minuit::mnparm;
#line 295 "Minuit.pm" #line 295 "Minuit.pm"
#line 164 "minuit.pd" #line 164 "minuit.pd"
sub mn_excm{ sub mn_excm{
my $command = shift; my $command = shift;
my $fun_ref = $mn_options->{Function}; my $fun_ref = $mn_options->{Function};
skipping to change at line 271 skipping to change at line 271
warn "Problem executing command '$command' " unless ($iflag == 0); warn "Problem executing command '$command' " unless ($iflag == 0);
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return $iflag; return $iflag;
} }
#line 329 "Minuit.pm" #line 329 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnexcm =head2 mnexcm
=for sig =for sig
Signature: (double a(n); longlong ia(); longlong [o] ib(); char* str; SV* func tion; IV numelem) Signature: (double a(n); longlong ia(); longlong [o] ib(); char* str; SV* func tion; IV numelem)
=for ref =for ref
info not available info not available
=for bad =for bad
mnexcm does not process bad values. mnexcm does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 356 "Minuit.pm" #line 356 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnexcm = \&PDL::Minuit::mnexcm; *mnexcm = \&PDL::Minuit::mnexcm;
#line 363 "Minuit.pm" #line 363 "Minuit.pm"
#line 205 "minuit.pd" #line 205 "minuit.pd"
sub mn_pout{ sub mn_pout{
barf "Usage: mn_pout(par_number)" unless ($#_ == 0); barf "Usage: mn_pout(par_number)" unless ($#_ == 0);
my $par_num = shift; my $par_num = shift;
my $n = $mn_options->{N}; my $n = $mn_options->{N};
skipping to change at line 324 skipping to change at line 324
PDL::Minuit::mnpout($par_num,$val,$err,$bnd1,$bnd2,$ivarbl,\$par_name); PDL::Minuit::mnpout($par_num,$val,$err,$bnd1,$bnd2,$ivarbl,\$par_name);
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return ($val,$err,$bnd1,$bnd2,$ivarbl,$par_name); return ($val,$err,$bnd1,$bnd2,$ivarbl,$par_name);
} }
#line 394 "Minuit.pm" #line 394 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnpout =head2 mnpout
=for sig =for sig
Signature: (longlong ia(); double [o] a(); double [o] b(); double [o] c(); dou ble [o] d();longlong [o] ib(); SV* str) Signature: (longlong ia(); double [o] a(); double [o] b(); double [o] c(); dou ble [o] d();longlong [o] ib(); SV* str)
=for ref =for ref
info not available info not available
=for bad =for bad
mnpout does not process bad values. mnpout does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 421 "Minuit.pm" #line 421 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnpout = \&PDL::Minuit::mnpout; *mnpout = \&PDL::Minuit::mnpout;
#line 428 "Minuit.pm" #line 428 "Minuit.pm"
#line 242 "minuit.pd" #line 242 "minuit.pd"
sub mn_stat{ sub mn_stat{
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_abre($mn_options->{Unit},$logfile,'old'); PDL::Minuit::mn_abre($mn_options->{Unit},$logfile,'old');
} }
skipping to change at line 366 skipping to change at line 366
my ($fmin,$fedm,$errdef,$npari,$nparx,$istat) = PDL::Minuit::mnstat(); my ($fmin,$fedm,$errdef,$npari,$nparx,$istat) = PDL::Minuit::mnstat();
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return ($fmin,$fedm,$errdef,$npari,$nparx,$istat); return ($fmin,$fedm,$errdef,$npari,$nparx,$istat);
} }
#line 449 "Minuit.pm" #line 449 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnstat =head2 mnstat
=for sig =for sig
Signature: (double [o] a(); double [o] b(); double [o] c(); longlong [o] ia(); longlong [o] ib(); longlong [o] ic()) Signature: (double [o] a(); double [o] b(); double [o] c(); longlong [o] ia(); longlong [o] ib(); longlong [o] ic())
=for ref =for ref
info not available info not available
=for bad =for bad
mnstat does not process bad values. mnstat does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 476 "Minuit.pm" #line 476 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnstat = \&PDL::Minuit::mnstat; *mnstat = \&PDL::Minuit::mnstat;
#line 483 "Minuit.pm" #line 483 "Minuit.pm"
#line 264 "minuit.pd" #line 264 "minuit.pd"
sub mn_emat{ sub mn_emat{
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_abre($mn_options->{Unit},$logfile,'old'); PDL::Minuit::mn_abre($mn_options->{Unit},$logfile,'old');
skipping to change at line 414 skipping to change at line 414
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return $mat; return $mat;
} }
#line 509 "Minuit.pm" #line 509 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnemat =head2 mnemat
=for sig =for sig
Signature: (double [o] mat(n,n)) Signature: (double [o] mat(n,n))
=for ref =for ref
info not available info not available
=for bad =for bad
mnemat does not process bad values. mnemat does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 536 "Minuit.pm" #line 536 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnemat = \&PDL::Minuit::mnemat; *mnemat = \&PDL::Minuit::mnemat;
#line 543 "Minuit.pm" #line 543 "Minuit.pm"
#line 292 "minuit.pd" #line 292 "minuit.pd"
sub mn_err{ sub mn_err{
barf "Usage: mn_err(par_number)" unless ($#_ == 0); barf "Usage: mn_err(par_number)" unless ($#_ == 0);
my $par_num = shift; my $par_num = shift;
skipping to change at line 463 skipping to change at line 463
my ($eplus,$eminus,$eparab,$globcc) = PDL::Minuit::mnerrs($par_num); my ($eplus,$eminus,$eparab,$globcc) = PDL::Minuit::mnerrs($par_num);
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return ($eplus,$eminus,$eparab,$globcc); return ($eplus,$eminus,$eparab,$globcc);
} }
#line 570 "Minuit.pm" #line 570 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mnerrs =head2 mnerrs
=for sig =for sig
Signature: (longlong ia(); double [o] a(); double [o] b(); double [o] c(); dou ble [o] d()) Signature: (longlong ia(); double [o] a(); double [o] b(); double [o] c(); dou ble [o] d())
=for ref =for ref
info not available info not available
=for bad =for bad
mnerrs does not process bad values. mnerrs does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 597 "Minuit.pm" #line 597 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mnerrs = \&PDL::Minuit::mnerrs; *mnerrs = \&PDL::Minuit::mnerrs;
#line 604 "Minuit.pm" #line 604 "Minuit.pm"
#line 320 "minuit.pd" #line 320 "minuit.pd"
sub mn_contour{ sub mn_contour{
barf "Usage: mn_contour(par_number_1,par_number_2,npt)" unless ($#_ == 2); barf "Usage: mn_contour(par_number_1,par_number_2,npt)" unless ($#_ == 2);
my $par_num_1 = shift; my $par_num_1 = shift;
my $par_num_2 = shift; my $par_num_2 = shift;
skipping to change at line 517 skipping to change at line 517
PDL::Minuit::mncont($par_num_1,$par_num_2,$npt,$xpt,$ypt,$nfound,$fun_ref,$n ); PDL::Minuit::mncont($par_num_1,$par_num_2,$npt,$xpt,$ypt,$nfound,$fun_ref,$n );
if (defined (my $logfile = $mn_options->{Log})){ if (defined (my $logfile = $mn_options->{Log})){
PDL::Minuit::mn_cierra($mn_options->{Unit}); PDL::Minuit::mn_cierra($mn_options->{Unit});
} }
return ($xpt,$ypt,$nfound); return ($xpt,$ypt,$nfound);
} }
#line 636 "Minuit.pm" #line 636 "Minuit.pm"
#line 1058 "../../blib/lib/PDL/PP.pm" #line 948 "../../blib/lib/PDL/PP.pm"
=head2 mncont =head2 mncont
=for sig =for sig
Signature: (longlong ia(); longlong ib(); longlong ic(); double [o] a(n); doub le [o] b(n); longlong [o] id(); SV* function; IV numelem) Signature: (longlong ia(); longlong ib(); longlong ic(); double [o] a(n); doub le [o] b(n); longlong [o] id(); SV* function; IV numelem)
=for ref =for ref
info not available info not available
=for bad =for bad
mncont does not process bad values. mncont does not process bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 663 "Minuit.pm" #line 663 "Minuit.pm"
#line 1060 "../../blib/lib/PDL/PP.pm" #line 950 "../../blib/lib/PDL/PP.pm"
*mncont = \&PDL::Minuit::mncont; *mncont = \&PDL::Minuit::mncont;
#line 670 "Minuit.pm" #line 670 "Minuit.pm"
#line 358 "minuit.pd" #line 358 "minuit.pd"
=head2 mn_init() =head2 mn_init()
=for ref =for ref
 End of changes. 20 change blocks. 
20 lines changed or deleted 20 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)