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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
%perlcode %{
@EXPORT_OK = qw/
gsl_interp_accel_alloc
gsl_interp_accel_find
gsl_interp_accel_reset
gsl_interp_accel_free
gsl_interp_alloc
gsl_interp_init
gsl_interp_name
gsl_interp_min_size
gsl_interp_eval_e
gsl_interp_eval
gsl_interp_eval_deriv_e
gsl_interp_eval_deriv
gsl_interp_eval_deriv2_e
gsl_interp_eval_deriv2
gsl_interp_eval_integ_e
gsl_interp_eval_integ
gsl_interp_free
gsl_interp_bsearch
$gsl_interp_linear
$gsl_interp_polynomial
$gsl_interp_cspline
$gsl_interp_cspline_periodic
$gsl_interp_akima
$gsl_interp_akima_periodic
/;
%EXPORT_TAGS = ( all => \@EXPORT_OK );
__END__
=encoding utf8
=head1 NAME
Math::GSL::Interp - Interpolation
=head1 SYNOPSIS
use Math::GSL::Interp qw/:all/;
my $x_array = [ 0.0, 1.0, 2.0, 3.0, 4.0 ];
# check that we get the last interval if x == last value
$index_result = gsl_interp_bsearch($x_array, 4.0, 0, 4);
print "The last interval is $index_result \n";
=head1 DESCRIPTION
=over 1
=item C<gsl_interp_accel_alloc()>
This function returns a pointer to an accelerator object, which is a kind of
iterator for interpolation lookups. It tracks the state of lookups, thus
allowing for application of various acceleration strategies.
=item C<gsl_interp_accel_find($a, $x_array, $size, $x)>
This function performs a lookup action on the data array $x_array of size
$size, using the given accelerator $a. This is how lookups are performed during
evaluation of an interpolation. The function returns an index i such that
$x_array[i] <= $x < $x_array[i+1].
=item C<gsl_interp_accel_reset>
=item C<gsl_interp_accel_free($a)>
This function frees the accelerator object $a.
=item C<gsl_interp_alloc($T, $alloc)>
This function returns a newly allocated interpolation object of type $T for
$size data-points. $T must be one of the constants below.
=item C<gsl_interp_init($interp, $xa, $ya, $size)>
This function initializes the interpolation object interp for the data (xa,ya)
where xa and ya are arrays of size size. The interpolation object (gsl_interp)
does not save the data arrays xa and ya and only stores the static state
computed from the data. The xa data array is always assumed to be strictly
ordered, with increasing x values; the behavior for other arrangements is not
defined.
=item C<gsl_interp_name($interp)>
This function returns the name of the interpolation type used by $interp.
=item C<gsl_interp_min_size($interp)>
This function returns the minimum number of points required by the
interpolation type of $interp. For example, Akima spline interpolation requires
a minimum of 5 points.
=item C<gsl_interp_eval_e($interp, $xa, $ya, $x, $acc)>
This functions returns the interpolated value of y for a given point $x, using
the interpolation object $interp, data arrays $xa and $ya and the accelerator
$acc. The function returns 0 if the operation succeeded, 1 otherwise and the y
value.
=item C<gsl_interp_eval($interp, $xa, $ya, $x, $acc)>
This functions returns the interpolated value of y for a given point $x, using
the interpolation object $interp, data arrays $xa and $ya and the accelerator
$acc.
=item C<gsl_interp_eval_deriv_e($interp, $xa, $ya, $x, $acc)>
This function computes the derivative value of y for a given point $x, using
the interpolation object $interp, data arrays $xa and $ya and the accelerator
$acc. The function returns 0 if the operation succeeded, 1 otherwise and the d
value.
=item C<gsl_interp_eval_deriv($interp, $xa, $ya, $x, $acc)>
This function returns the derivative d of an interpolated function for a given
point $x, using the interpolation object interp, data arrays $xa and $ya and
the accelerator $acc.
=item C<gsl_interp_eval_deriv2_e($interp, $xa, $ya, $x, $acc)>
This function computes the second derivative d2 of an interpolated function for
a given point $x, using the interpolation object $interp, data arrays $xa and
$ya and the accelerator $acc. The function returns 0 if the operation
succeeded, 1 otherwise and the d2 value.
=item C<gsl_interp_eval_deriv2($interp, $xa, $ya, $x, $acc)>
This function returns the second derivative d2 of an interpolated function
for a given point $x, using the interpolation object $interp, data arrays $xa
and $ya and the accelerator $acc.
=item C<gsl_interp_eval_integ_e($interp, $xa, $ya, $a, $b, $acc)>
This function computes the numerical integral result of an interpolated
function over the range [$a, $b], using the interpolation object $interp, data
arrays $xa and $ya and the accelerator $acc. The function returns 0 if the
operation succeeded, 1 otherwise and the result value.
=item C<gsl_interp_eval_integ($interp, $xa, $ya, $a, $b, $acc)>
This function returns the numerical integral result of an interpolated function
over the range [$a, $b], using the interpolation object $interp, data arrays
$xa and $ya and the accelerator $acc.
=item C<gsl_interp_free($interp)> - This function frees the interpolation object $interp.
=item C<gsl_interp_bsearch($x_array, $x, $index_lo, $index_hi)>
This function returns the index i of the array $x_array such that $x_array[i]
<= x < $x_array[i+1]. The index is searched for in the range
[$index_lo,$index_hi].
=back
This module also includes the following constants :
=over 1
=item C<$gsl_interp_linear>
Linear interpolation
=item C<$gsl_interp_polynomial>
Polynomial interpolation. This method should only be used for interpolating
small numbers of points because polynomial interpolation introduces large
oscillations, even for well-behaved datasets. The number of terms in the
interpolating polynomial is equal to the number of points.
=item C<$gsl_interp_cspline>
Cubic spline with natural boundary conditions. The resulting curve is piecewise
cubic on each interval, with matching first and second derivatives at the
supplied data-points. The second derivative is chosen to be zero at the first
point and last point.
=item C<$gsl_interp_cspline_periodic>
Cubic spline with periodic boundary conditions. The resulting curve is
piecewise cubic on each interval, with matching first and second derivatives at
the supplied data-points. The derivatives at the first and last points are also
matched. Note that the last point in the data must have the same y-value as the
first point, otherwise the resulting periodic interpolation will have a
discontinuity at the boundary.
=item C<$gsl_interp_akima>
Non-rounded Akima spline with natural boundary conditions. This method uses the
non-rounded corner algorithm of Wodicka.
=item C<$gsl_interp_akima_periodic>
Non-rounded Akima spline with periodic boundary conditions. This method uses
the non-rounded corner algorithm of Wodicka.
=back
=head1 AUTHORS
Jonathan "Duke" Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008-2024 Jonathan "Duke" Leto and Thierry Moisan
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
%}
|
