(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| Minuit.pm (PDL-2.081) | : | Minuit.pm (PDL-2.082) |
|---|
| | |
| 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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 958 "/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 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" | | #line 960 "/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 |
|---|
"Fossies" - the Fresh Open Source Software Archive 