1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
# NOTE:
# currently not in use anymore
# - see PDL::Func (in Lib/) and t/func.t
print "1..1\nok 1 # Skipped: see PDL::Func\n";
exit;
use PDL::LiteF;
my $ctr = 0;
sub ok {
$ctr++;
my $result = shift ;
print "not " unless $result ;
print "ok $ctr\n" ;
}
BEGIN {
eval "use PDL::Slatec;";
$loaded = ($@ ? 0 : 1);
}
my $ntests = 11;
print "1..$ntests\n";
unless ($loaded) {
for (1..$ntests) {
print "ok $_ # Skipped: PDL::Slatec not available.\n";
}
exit;
}
use strict;
eval "use PDL::Interpolate::Slatec";
########### First test normal subclassing ###########
my $x = sequence(float,10);
my $y = $x*$x + 0.5;
my $obj = new PDL::Interpolate::Slatec( x => $x, y => $y );
ok( UNIVERSAL::isa( $obj, 'PDL::Interpolate' ) );
ok( $obj->library eq "Slatec" );
ok( $obj->status == 1 );
my ( $xi, $yi, $gi, $ans, $d );
$xi = sequence(float,5) + 2.3;
$yi = $obj->interpolate( $xi );
ok( $obj->status == 1 );
$ans = $xi*$xi + 0.5;
$d = abs( $ans - $yi );
ok( all $d <= 0.03 );
( $yi, $gi ) = $obj->interpolate( $xi );
ok( $obj->status == 1 );
$ans = 2*$xi;
$d = abs( $ans - $gi );
ok( all $d <= 0.04 );
# see how they cope with threading
#
$y = cat( $x*$x+43.3, $x*$x*$x-23 );
$obj->set( x => $x, y => $y );
ok( $obj->status == 1 );
$yi = $obj->interpolate( $xi );
ok( $obj->status == 1 );
ok( (dims($yi) == 2) & ($yi->getdim(0) == $xi->getdim(0)) & ($yi->getdim(1) == 2) );
$ans = cat( $xi*$xi+43.3, $xi*$xi*$xi-23 );
$d = abs( $ans - $yi );
ok( all $d <= 6 );
# end
|
