(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| imagend.pd (PDL-2.082) | : | imagend.pd (PDL-2.083) |
|---|
| | |
| skipping to change at line 623 | | skipping to change at line 623 |
|---|
| } else { | | } else { |
| my $z = $x->flat->index(0) + $k->flat->index(0); | | my $z = $x->flat->index(0) + $k->flat->index(0); |
| $type = $z->get_datatype; | | $type = $z->get_datatype; |
| } | | } |
| $x = $x->convert($type); | | $x = $x->convert($type); |
| $k = $k->convert($type); | | $k = $k->convert($type); |
| | |
| ## Handle options -- $def is a static variable so it only gets set up once. | | ## Handle options -- $def is a static variable so it only gets set up once. |
| our $def; | | our $def; |
| unless(defined($def)) { | | unless(defined($def)) { |
|
| $def = new PDL::Options( { | | $def = PDL::Options->new( { |
| Method=>'a', | | Method=>'a', |
| Boundary=>'t' | | Boundary=>'t' |
| } | | } |
| ); | | ); |
| $def->minmatch(1); | | $def->minmatch(1); |
| $def->casesens(0); | | $def->casesens(0); |
| } | | } |
| | |
| my $opt = $def->options(PDL::Options::ifhref($opt0)); | | my $opt = $def->options(PDL::Options::ifhref($opt0)); |
| | |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 