"Fossies" - the Fresh Open Source Software Archive  

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

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

[ To the main PDL source changes report ]

Minuit.pm  (PDL-2.080):Minuit.pm  (PDL-2.081)
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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm"
*mninit = \&PDL::Minuit::mninit; *mninit = \&PDL::Minuit::mninit;
#line 141 "Minuit.pm" #line 141 "Minuit.pm"
#line 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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 948 "../../blib/lib/PDL/PP.pm" #line 949 "/home/osboxes/pdl-code/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 950 "../../blib/lib/PDL/PP.pm" #line 951 "/home/osboxes/pdl-code/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
To the Perl Modules section of the PDL source changes report or the top of this page
Mainly generated by pkgdiff using rfcdiff
Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)