(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| INTEG.pm (PDL-2.080) | : | INTEG.pm (PDL-2.081) |
|---|
| | |
| skipping to change at line 146 | | skipping to change at line 146 |
|---|
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$la,$lb,$epsabs,$epsrel) = @_; | | my ($f,$la,$lb,$epsabs,$epsrel) = @_; |
| barf 'Usage: gslinteg_qng($function_ref,$la,$lb,$epsabs,$epsrel,[opt]) ' | | barf 'Usage: gslinteg_qng($function_ref,$la,$lb,$epsabs,$epsrel,[opt]) ' |
| unless ($#_ == 4); | | unless ($#_ == 4); |
| my ($res,$abserr,$neval,$ierr) = qng_meat($la,$lb,$epsabs,$epsrel,$warn,$f); | | my ($res,$abserr,$neval,$ierr) = qng_meat($la,$lb,$epsabs,$epsrel,$warn,$f); |
| return ($res,$abserr,$ierr,$neval); | | return ($res,$abserr,$ierr,$neval); |
| } | | } |
| #line 162 "INTEG.pm" | | #line 162 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qng_meat | | =head2 qng_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b(); double epsabs(); | | Signature: (double a(); double b(); double epsabs(); |
| double epsrel(); double [o] result(); double [o] abserr(); | | double epsrel(); double [o] result(); double [o] abserr(); |
| int [o] neval(); int [o] ierr(); int gslwarn(); SV* function) | | int [o] neval(); int [o] ierr(); int gslwarn(); SV* function) |
| | |
| =for ref | | =for ref |
| | |
| skipping to change at line 168 | | skipping to change at line 168 |
|---|
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qng_meat does not process bad values. | | qng_meat 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 191 "INTEG.pm" | | #line 191 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qng_meat = \&PDL::qng_meat; | | *qng_meat = \&PDL::qng_meat; |
| #line 198 "INTEG.pm" | | #line 198 "INTEG.pm" |
| | |
| #line 585 "gsl_integ.pd" | | #line 585 "gsl_integ.pd" |
| | |
| sub gslinteg_qag{ | | sub gslinteg_qag{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$la,$lb,$epsabs,$epsrel,$limit,$key) = @_; | | my ($f,$la,$lb,$epsabs,$epsrel,$limit,$key) = @_; |
| barf 'Usage: gslinteg_qag($function_ref,$la,$lb,$epsabs,$epsrel,$limit,$key,[
opt]) ' | | barf 'Usage: gslinteg_qag($function_ref,$la,$lb,$epsabs,$epsrel,$limit,$key,[
opt]) ' |
| unless ($#_ == 6); | | unless ($#_ == 6); |
| my ($res,$abserr,$ierr) = qag_meat($la,$lb,$epsabs,$epsrel,$limit,$key,$limit
,$warn,$f); | | my ($res,$abserr,$ierr) = qag_meat($la,$lb,$epsabs,$epsrel,$limit,$key,$limit
,$warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 217 "INTEG.pm" | | #line 217 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qag_meat | | =head2 qag_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b(); double epsabs();double epsrel(); int limit
(); | | Signature: (double a(); double b(); double epsabs();double epsrel(); int limit
(); |
| int key(); double [o] result(); double [o] abserr();int n();in
t [o] ierr();int gslwarn();; SV* function) | | int key(); double [o] result(); double [o] abserr();int n();in
t [o] ierr();int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qag_meat does not process bad values. | | qag_meat 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 245 "INTEG.pm" | | #line 245 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qag_meat = \&PDL::qag_meat; | | *qag_meat = \&PDL::qag_meat; |
| #line 252 "INTEG.pm" | | #line 252 "INTEG.pm" |
| | |
| #line 621 "gsl_integ.pd" | | #line 621 "gsl_integ.pd" |
| | |
| sub gslinteg_qags{ | | sub gslinteg_qags{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$la,$lb,$epsabs,$epsrel,$limit) = @_; | | my ($f,$la,$lb,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qags($function_ref,$la,$lb,$epsabs,$epsrel,$limit,[opt])
' | | barf 'Usage: gslinteg_qags($function_ref,$la,$lb,$epsabs,$epsrel,$limit,[opt])
' |
| unless ($#_ == 5); | | unless ($#_ == 5); |
| my ($res,$abserr,$ierr) = qags_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$war
n,$f); | | my ($res,$abserr,$ierr) = qags_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$war
n,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 271 "INTEG.pm" | | #line 271 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qags_meat | | =head2 qags_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b(); double epsabs();double epsrel(); int limit
(); | | Signature: (double a(); double b(); double epsabs();double epsrel(); int limit
(); |
| double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) | | double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qags_meat does not process bad values. | | qags_meat 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 299 "INTEG.pm" | | #line 299 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qags_meat = \&PDL::qags_meat; | | *qags_meat = \&PDL::qags_meat; |
| #line 306 "INTEG.pm" | | #line 306 "INTEG.pm" |
| | |
| #line 656 "gsl_integ.pd" | | #line 656 "gsl_integ.pd" |
| | |
| sub gslinteg_qagp{ | | sub gslinteg_qagp{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$points,$epsabs,$epsrel,$limit) = @_; | | my ($f,$points,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qagp($function_ref,$points,$epsabs,$epsrel,$limit,[opt])
' | | barf 'Usage: gslinteg_qagp($function_ref,$points,$epsabs,$epsrel,$limit,[opt])
' |
| unless ($#_ == 4); | | unless ($#_ == 4); |
| my ($res,$abserr,$ierr) = qagp_meat($points,$epsabs,$epsrel,$limit,$limit,$war
n,$f); | | my ($res,$abserr,$ierr) = qagp_meat($points,$epsabs,$epsrel,$limit,$limit,$war
n,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 325 "INTEG.pm" | | #line 325 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qagp_meat | | =head2 qagp_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double pts(l); double epsabs();double epsrel();int limit(); | | Signature: (double pts(l); double epsabs();double epsrel();int limit(); |
| double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) | | double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qagp_meat does not process bad values. | | qagp_meat 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 353 "INTEG.pm" | | #line 353 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qagp_meat = \&PDL::qagp_meat; | | *qagp_meat = \&PDL::qagp_meat; |
| #line 360 "INTEG.pm" | | #line 360 "INTEG.pm" |
| | |
| #line 690 "gsl_integ.pd" | | #line 690 "gsl_integ.pd" |
| | |
| sub gslinteg_qagi{ | | sub gslinteg_qagi{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$epsabs,$epsrel,$limit) = @_; | | my ($f,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qagi($function_ref,$epsabs,$epsrel,$limit,[opt]) ' | | barf 'Usage: gslinteg_qagi($function_ref,$epsabs,$epsrel,$limit,[opt]) ' |
| unless ($#_ == 3); | | unless ($#_ == 3); |
| my ($res,$abserr,$ierr) = qagi_meat($epsabs,$epsrel,$limit,$limit,$warn,$f); | | my ($res,$abserr,$ierr) = qagi_meat($epsabs,$epsrel,$limit,$limit,$warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 379 "INTEG.pm" | | #line 379 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qagi_meat | | =head2 qagi_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double epsabs();double epsrel(); int limit(); | | Signature: (double epsabs();double epsrel(); int limit(); |
| double [o] result(); double [o] abserr(); int n(); int [o] ier
r();int gslwarn();; SV* function) | | double [o] result(); double [o] abserr(); int n(); int [o] ier
r();int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qagi_meat does not process bad values. | | qagi_meat 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 407 "INTEG.pm" | | #line 407 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qagi_meat = \&PDL::qagi_meat; | | *qagi_meat = \&PDL::qagi_meat; |
| #line 414 "INTEG.pm" | | #line 414 "INTEG.pm" |
| | |
| #line 724 "gsl_integ.pd" | | #line 724 "gsl_integ.pd" |
| | |
| sub gslinteg_qagiu{ | | sub gslinteg_qagiu{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$la,$epsabs,$epsrel,$limit) = @_; | | my ($f,$la,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qagiu($function_ref,$la,$epsabs,$epsrel,$limit,[opt]) ' | | barf 'Usage: gslinteg_qagiu($function_ref,$la,$epsabs,$epsrel,$limit,[opt]) ' |
| unless ($#_ == 4); | | unless ($#_ == 4); |
| my ($res,$abserr,$ierr) = qagiu_meat($la,$epsabs,$epsrel,$limit,$limit,$warn,$
f); | | my ($res,$abserr,$ierr) = qagiu_meat($la,$epsabs,$epsrel,$limit,$limit,$warn,$
f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 433 "INTEG.pm" | | #line 433 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qagiu_meat | | =head2 qagiu_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double epsabs();double epsrel();int limit(); | | Signature: (double a(); double epsabs();double epsrel();int limit(); |
| double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) | | double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qagiu_meat does not process bad values. | | qagiu_meat 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 461 "INTEG.pm" | | #line 461 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qagiu_meat = \&PDL::qagiu_meat; | | *qagiu_meat = \&PDL::qagiu_meat; |
| #line 468 "INTEG.pm" | | #line 468 "INTEG.pm" |
| | |
| #line 759 "gsl_integ.pd" | | #line 759 "gsl_integ.pd" |
| | |
| sub gslinteg_qagil{ | | sub gslinteg_qagil{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$lb,$epsabs,$epsrel,$limit) = @_; | | my ($f,$lb,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qagil($function_ref,$lb,$epsabs,$epsrel,$limit,[opt]) ' | | barf 'Usage: gslinteg_qagil($function_ref,$lb,$epsabs,$epsrel,$limit,[opt]) ' |
| unless ($#_ == 4); | | unless ($#_ == 4); |
| my ($res,$abserr,$ierr) = qagil_meat($lb,$epsabs,$epsrel,$limit,$limit,$warn,$
f); | | my ($res,$abserr,$ierr) = qagil_meat($lb,$epsabs,$epsrel,$limit,$limit,$warn,$
f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 487 "INTEG.pm" | | #line 487 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qagil_meat | | =head2 qagil_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double b(); double epsabs();double epsrel();int limit(); | | Signature: (double b(); double epsabs();double epsrel();int limit(); |
| double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) | | double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qagil_meat does not process bad values. | | qagil_meat 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 515 "INTEG.pm" | | #line 515 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qagil_meat = \&PDL::qagil_meat; | | *qagil_meat = \&PDL::qagil_meat; |
| #line 522 "INTEG.pm" | | #line 522 "INTEG.pm" |
| | |
| #line 794 "gsl_integ.pd" | | #line 794 "gsl_integ.pd" |
| | |
| sub gslinteg_qawc{ | | sub gslinteg_qawc{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$la,$lb,$c,$epsabs,$epsrel,$limit) = @_; | | my ($f,$la,$lb,$c,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qawc($function_ref,$la,$lb,$c,$epsabs,$epsrel,$limit,[op
t]) ' | | barf 'Usage: gslinteg_qawc($function_ref,$la,$lb,$c,$epsabs,$epsrel,$limit,[op
t]) ' |
| unless ($#_ == 6); | | unless ($#_ == 6); |
| my ($res,$abserr,$ierr) = qawc_meat($la,$lb,$c,$epsabs,$epsrel,$limit,$limit,$
warn,$f); | | my ($res,$abserr,$ierr) = qawc_meat($la,$lb,$c,$epsabs,$epsrel,$limit,$limit,$
warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 541 "INTEG.pm" | | #line 541 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qawc_meat | | =head2 qawc_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b(); double c(); double epsabs();double epsrel(
);int limit(); | | Signature: (double a(); double b(); double c(); double epsabs();double epsrel(
);int limit(); |
| double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) | | double [o] result(); double [o] abserr();int n();int [o] ierr(
);int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qawc_meat does not process bad values. | | qawc_meat 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 569 "INTEG.pm" | | #line 569 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qawc_meat = \&PDL::qawc_meat; | | *qawc_meat = \&PDL::qawc_meat; |
| #line 576 "INTEG.pm" | | #line 576 "INTEG.pm" |
| | |
| #line 828 "gsl_integ.pd" | | #line 828 "gsl_integ.pd" |
| | |
| sub gslinteg_qaws{ | | sub gslinteg_qaws{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| if($$opt{Warn}=~/y/i) { $warn = 1;} | | if($$opt{Warn}=~/y/i) { $warn = 1;} |
| else {$warn = 0;} | | else {$warn = 0;} |
| my ($f,$alpha,$beta,$mu,$nu,$la,$lb,$epsabs,$epsrel,$limit) = @_; | | my ($f,$alpha,$beta,$mu,$nu,$la,$lb,$epsabs,$epsrel,$limit) = @_; |
| barf 'Usage: gslinteg_qaws($function_ref,$alpha,$beta,$mu,$nu,$la,$lb,$epsabs,
$epsrel,$limit,[opt]) ' | | barf 'Usage: gslinteg_qaws($function_ref,$alpha,$beta,$mu,$nu,$la,$lb,$epsabs,
$epsrel,$limit,[opt]) ' |
| unless ($#_ == 9); | | unless ($#_ == 9); |
| my ($res,$abserr,$ierr) = qaws_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$alp
ha,$beta,$mu,$nu,$warn,$f); | | my ($res,$abserr,$ierr) = qaws_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$alp
ha,$beta,$mu,$nu,$warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 595 "INTEG.pm" | | #line 595 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qaws_meat | | =head2 qaws_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b();double epsabs();double epsrel();int limit()
; | | Signature: (double a(); double b();double epsabs();double epsrel();int limit()
; |
| double [o] result(); double [o] abserr();int n(); | | double [o] result(); double [o] abserr();int n(); |
| double alpha(); double beta(); int mu(); int nu();int [o] ierr()
;int gslwarn();; SV* function) | | double alpha(); double beta(); int mu(); int nu();int [o] ierr()
;int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| skipping to change at line 505 | | skipping to change at line 505 |
|---|
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qaws_meat does not process bad values. | | qaws_meat 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 624 "INTEG.pm" | | #line 624 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qaws_meat = \&PDL::qaws_meat; | | *qaws_meat = \&PDL::qaws_meat; |
| #line 631 "INTEG.pm" | | #line 631 "INTEG.pm" |
| | |
| #line 868 "gsl_integ.pd" | | #line 868 "gsl_integ.pd" |
| | |
| sub gslinteg_qawo{ | | sub gslinteg_qawo{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| | |
| skipping to change at line 533 | | skipping to change at line 533 |
|---|
| elsif($sincosopt=~/sin/i){ $OPTION_SIN_COS = 1;} | | elsif($sincosopt=~/sin/i){ $OPTION_SIN_COS = 1;} |
| else { barf("Error in argument 3 of function gslinteg_qawo: specify 'cos' or '
sin'\n");} | | else { barf("Error in argument 3 of function gslinteg_qawo: specify 'cos' or '
sin'\n");} |
| | |
| my $L = $lb - $la; | | my $L = $lb - $la; |
| my $nlevels = $limit; | | my $nlevels = $limit; |
| my ($res,$abserr,$ierr) = qawo_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$OPT
ION_SIN_COS,$omega,$L,$nlevels,$warn,$f); | | my ($res,$abserr,$ierr) = qawo_meat($la,$lb,$epsabs,$epsrel,$limit,$limit,$OPT
ION_SIN_COS,$omega,$L,$nlevels,$warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 657 "INTEG.pm" | | #line 657 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qawo_meat | | =head2 qawo_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double b();double epsabs();double epsrel();int limit()
; | | Signature: (double a(); double b();double epsabs();double epsrel();int limit()
; |
| double [o] result(); double [o] abserr();int n(); | | double [o] result(); double [o] abserr();int n(); |
| int sincosopt(); double omega(); double L(); int nlevels();int [
o] ierr();int gslwarn();; SV* function) | | int sincosopt(); double omega(); double L(); int nlevels();int [
o] ierr();int gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| skipping to change at line 555 | | skipping to change at line 555 |
|---|
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qawo_meat does not process bad values. | | qawo_meat 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 686 "INTEG.pm" | | #line 686 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qawo_meat = \&PDL::qawo_meat; | | *qawo_meat = \&PDL::qawo_meat; |
| #line 693 "INTEG.pm" | | #line 693 "INTEG.pm" |
| | |
| #line 919 "gsl_integ.pd" | | #line 919 "gsl_integ.pd" |
| | |
| sub gslinteg_qawf{ | | sub gslinteg_qawf{ |
| my ($opt,$warn); | | my ($opt,$warn); |
| if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } | | if (ref($_[$#_]) eq 'HASH'){ $opt = pop @_; } |
| else{ $opt = {Warn => 'n'}; } | | else{ $opt = {Warn => 'n'}; } |
| | |
| skipping to change at line 581 | | skipping to change at line 581 |
|---|
| my $OPTION_SIN_COS; | | my $OPTION_SIN_COS; |
| if($sincosopt=~/cos/i){ $OPTION_SIN_COS = 0;} | | if($sincosopt=~/cos/i){ $OPTION_SIN_COS = 0;} |
| elsif($sincosopt=~/sin/i){ $OPTION_SIN_COS = 1;} | | elsif($sincosopt=~/sin/i){ $OPTION_SIN_COS = 1;} |
| else { barf("Error in argument 3 of function gslinteg_qawf: specify 'cos' or '
sin'\n");} | | else { barf("Error in argument 3 of function gslinteg_qawf: specify 'cos' or '
sin'\n");} |
| my $nlevels = $limit; | | my $nlevels = $limit; |
| my ($res,$abserr,$ierr) = qawf_meat($la,$epsabs,$limit,$limit,$OPTION_SIN_COS,
$omega,$nlevels,$warn,$f); | | my ($res,$abserr,$ierr) = qawf_meat($la,$epsabs,$limit,$limit,$OPTION_SIN_COS,
$omega,$nlevels,$warn,$f); |
| return ($res,$abserr,$ierr); | | return ($res,$abserr,$ierr); |
| } | | } |
| #line 717 "INTEG.pm" | | #line 717 "INTEG.pm" |
| | |
|
| #line 948 "../../../blib/lib/PDL/PP.pm" | | #line 949 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| =head2 qawf_meat | | =head2 qawf_meat |
| | |
| =for sig | | =for sig |
| | |
| Signature: (double a(); double epsabs();int limit(); | | Signature: (double a(); double epsabs();int limit(); |
| double [o] result(); double [o] abserr();int n(); | | double [o] result(); double [o] abserr();int n(); |
| int sincosopt(); double omega(); int nlevels();int [o] ierr();in
t gslwarn();; SV* function) | | int sincosopt(); double omega(); int nlevels();int [o] ierr();in
t gslwarn();; SV* function) |
| | |
| =for ref | | =for ref |
| | |
| skipping to change at line 603 | | skipping to change at line 603 |
|---|
| info not available | | info not available |
| | |
| =for bad | | =for bad |
| | |
| qawf_meat does not process bad values. | | qawf_meat 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 746 "INTEG.pm" | | #line 746 "INTEG.pm" |
| | |
|
| #line 950 "../../../blib/lib/PDL/PP.pm" | | #line 951 "/home/osboxes/pdl-code/blib/lib/PDL/PP.pm" |
| | |
| *qawf_meat = \&PDL::qawf_meat; | | *qawf_meat = \&PDL::qawf_meat; |
| #line 753 "INTEG.pm" | | #line 753 "INTEG.pm" |
| | |
| #line 112 "gsl_integ.pd" | | #line 112 "gsl_integ.pd" |
| | |
| =head2 gslinteg_qng - Non-adaptive Gauss-Kronrod integration | | =head2 gslinteg_qng - Non-adaptive Gauss-Kronrod integration |
| | |
| This function applies the Gauss-Kronrod 10-point, 21-point, 43-point and 87-poin
t | | This function applies the Gauss-Kronrod 10-point, 21-point, 43-point and 87-poin
t |
| integration rules in succession until an estimate of the integral of f over ($la
,$lb) | | integration rules in succession until an estimate of the integral of f over ($la
,$lb) |
| | | |
| End of changes. 22 change blocks. |
|---|
| 22 lines changed or deleted | | 22 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 