File Coverage

blib/lib/Math/DWT/Wavelet/Daubechies.pm
Criterion Covered Total %
statement 6 49 12.2
branch 0 12 0.0
condition n/a
subroutine 2 9 22.2
pod 7 7 100.0
total 15 77 19.4


line stmt bran cond sub pod time code
1             package Math::DWT::Wavelet::Daubechies;
2 1     1   720 use strict;
  1         1  
  1         24  
3 1     1   2 use warnings;
  1         2  
  1         1338  
4              
5             =head1 NAME
6              
7             Math::DWT::Wavelet::Daubechies - FIR lo- & hi-pass filter coefficients for the Daubechies wavelet.
8              
9             =head1 VERSION
10              
11             Version 0.02
12              
13             =cut
14              
15             our $VERSION = '0.02';
16              
17             =head1 SYNOPSIS
18              
19             This module provides the lo- and hi-pass decomposition and reconstruction filter coefficients for the Daubechies wavelet. It is meant to be used with other Math::DWT modules:
20              
21             use Math::DWT;
22             use Math::DWT::UDWT;
23              
24             my $dwt = Math::DWT->new('Daubechies');
25             my $udwt = Math::DWT::UDWT->new('Daubechies');
26              
27              
28             =cut
29              
30             =head1 SUBROUTINES/METHODS
31              
32             =head2 new(VAR)
33              
34             Takes a single argument, var, which determines the particular filter set which the object will provide. You can get a list of available filter sets with the vars() method.
35              
36             my $daubechies4 = Math::DWT::Wavelet::Daubechies->new(4);
37              
38             This method returns a Math::DWT::Wavelet::Daubechies object;
39              
40             =head2 vars()
41              
42             This method returns a list of possible choices for VAR when creating a new object, e.g.:
43              
44             my @v = Math::DWT::Wavelet::Daubechies->vars();
45             print scalar(@v); # 20
46              
47              
48             =head2 filters()
49              
50             Depending on the context in which it is called, returns an array or an arrayref containing (lo_d, hi_d, lo_r, hi_r) - the set of filters which are defined with the instantiated object.
51              
52              
53             =head2 lo_d()
54              
55             =head2 hi_d()
56              
57             =head2 lo_r()
58              
59             =head2 hi_r()
60              
61             Returns the requested set of filter coefficients as either an array or arrayref, depending on calling context.
62              
63             =head1 SEE ALSO
64              
65             Math::DWT(3pm), Math::DWT::UDWT(3pm), Math::DWT::Wavelet::Haar(3pm), Math::DWT::Wavelet::Coiflet(3pm), Math::DWT::Wavelet::Symlet(3pm), Math::DWT::Wavelet::Biorthogonal(3pm), Math::DWT::Wavelet::ReverseBiorthogonal(3pm), Math::DWT::Wavelet::DiscreteMeyer(3pm), perl(1)
66              
67              
68             =head1 AUTHOR
69              
70              
71             Mike Kroh, C<< >>
72              
73             =head1 BUGS
74              
75              
76             Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
77              
78              
79              
80             =head1 ACKNOWLEDGEMENTS
81              
82             These wavelet filter coefficients were scraped from this site: L.
83              
84             =head1 LICENSE AND COPYRIGHT
85              
86              
87             Copyright 2016 Mike Kroh.
88              
89             This program is free software; you can redistribute it and/or modify it
90             under the terms of the the Artistic License (2.0). You may obtain a
91             copy of the full license at:
92              
93             L
94              
95             Any use, modification, and distribution of the Standard or Modified
96             Versions is governed by this Artistic License. By using, modifying or
97             distributing the Package, you accept this license. Do not use, modify,
98             or distribute the Package, if you do not accept this license.
99              
100             If your Modified Version has been derived from a Modified Version made
101             by someone other than you, you are nevertheless required to ensure that
102             your Modified Version complies with the requirements of this license.
103              
104             This license does not grant you the right to use any trademark, service
105             mark, tradename, or logo of the Copyright Holder.
106              
107             This license includes the non-exclusive, worldwide, free-of-charge
108             patent license to make, have made, use, offer to sell, sell, import and
109             otherwise transfer the Package with respect to any patent claims
110             licensable by the Copyright Holder that are necessarily infringed by the
111             Package. If you institute patent litigation (including a cross-claim or
112             counterclaim) against any party alleging that the Package constitutes
113             direct or contributory patent infringement, then this Artistic License
114             to you shall terminate on the date that such litigation is filed.
115              
116             Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER
117             AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
118             THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
119             PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY
120             YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR
121             CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR
122             CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE,
123             EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
124              
125              
126             =cut
127              
128              
129              
130             my @vars=qw/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20/;
131              
132             my %lo_d; my %hi_d; my %lo_r; my %hi_r;
133              
134              
135             $lo_d{1}=[qw/0.7071067811865476 0.7071067811865476/];
136             $hi_d{1}=[qw/-0.7071067811865476 0.7071067811865476/];
137             $lo_r{1}=[qw/0.7071067811865476 0.7071067811865476/];
138             $hi_r{1}=[qw/0.7071067811865476 -0.7071067811865476/];
139              
140             $lo_d{2}=[qw/-0.12940952255092145 0.22414386804185735 0.836516303737469 0.48296291314469025/];
141             $hi_d{2}=[qw/-0.48296291314469025 0.836516303737469 -0.22414386804185735 -0.12940952255092145/];
142             $lo_r{2}=[qw/0.48296291314469025 0.836516303737469 0.22414386804185735 -0.12940952255092145/];
143             $hi_r{2}=[qw/-0.12940952255092145 -0.22414386804185735 0.836516303737469 -0.48296291314469025/];
144              
145             $lo_d{3}=[qw/0.035226291882100656 -0.08544127388224149 -0.13501102001039084 0.4598775021193313 0.8068915093133388 0.3326705529509569/];
146             $hi_d{3}=[qw/-0.3326705529509569 0.8068915093133388 -0.4598775021193313 -0.13501102001039084 0.08544127388224149 0.035226291882100656/];
147             $lo_r{3}=[qw/0.3326705529509569 0.8068915093133388 0.4598775021193313 -0.13501102001039084 -0.08544127388224149 0.035226291882100656/];
148             $hi_r{3}=[qw/0.035226291882100656 0.08544127388224149 -0.13501102001039084 -0.4598775021193313 0.8068915093133388 -0.3326705529509569/];
149              
150             $lo_d{4}=[qw/-0.010597401784997278 0.032883011666982945 0.030841381835986965 -0.18703481171888114 -0.02798376941698385 0.6308807679295904 0.7148465705525415 0.23037781330885523/];
151             $hi_d{4}=[qw/-0.23037781330885523 0.7148465705525415 -0.6308807679295904 -0.02798376941698385 0.18703481171888114 0.030841381835986965 -0.032883011666982945 -0.010597401784997278/];
152             $lo_r{4}=[qw/0.23037781330885523 0.7148465705525415 0.6308807679295904 -0.02798376941698385 -0.18703481171888114 0.030841381835986965 0.032883011666982945 -0.010597401784997278/];
153             $hi_r{4}=[qw/-0.010597401784997278 -0.032883011666982945 0.030841381835986965 0.18703481171888114 -0.02798376941698385 -0.6308807679295904 0.7148465705525415 -0.23037781330885523/];
154              
155             $lo_d{5}=[qw/0.003335725285001549 -0.012580751999015526 -0.006241490213011705 0.07757149384006515 -0.03224486958502952 -0.24229488706619015 0.13842814590110342 0.7243085284385744 0.6038292697974729 0.160102397974125/];
156             $hi_d{5}=[qw/-0.160102397974125 0.6038292697974729 -0.7243085284385744 0.13842814590110342 0.24229488706619015 -0.03224486958502952 -0.07757149384006515 -0.006241490213011705 0.012580751999015526 0.003335725285001549/];
157             $lo_r{5}=[qw/0.160102397974125 0.6038292697974729 0.7243085284385744 0.13842814590110342 -0.24229488706619015 -0.03224486958502952 0.07757149384006515 -0.006241490213011705 -0.012580751999015526 0.003335725285001549/];
158             $hi_r{5}=[qw/0.003335725285001549 0.012580751999015526 -0.006241490213011705 -0.07757149384006515 -0.03224486958502952 0.24229488706619015 0.13842814590110342 -0.7243085284385744 0.6038292697974729 -0.160102397974125/];
159              
160             $lo_d{6}=[qw/-0.00107730108499558 0.004777257511010651 0.0005538422009938016 -0.031582039318031156 0.02752286553001629 0.09750160558707936 -0.12976686756709563 -0.22626469396516913 0.3152503517092432 0.7511339080215775 0.4946238903983854 0.11154074335008017/];
161             $hi_d{6}=[qw/-0.11154074335008017 0.4946238903983854 -0.7511339080215775 0.3152503517092432 0.22626469396516913 -0.12976686756709563 -0.09750160558707936 0.02752286553001629 0.031582039318031156 0.0005538422009938016 -0.004777257511010651 -0.00107730108499558/];
162             $lo_r{6}=[qw/0.11154074335008017 0.4946238903983854 0.7511339080215775 0.3152503517092432 -0.22626469396516913 -0.12976686756709563 0.09750160558707936 0.02752286553001629 -0.031582039318031156 0.0005538422009938016 0.004777257511010651 -0.00107730108499558/];
163             $hi_r{6}=[qw/-0.00107730108499558 -0.004777257511010651 0.0005538422009938016 0.031582039318031156 0.02752286553001629 -0.09750160558707936 -0.12976686756709563 0.22626469396516913 0.3152503517092432 -0.7511339080215775 0.4946238903983854 -0.11154074335008017/];
164              
165             $lo_d{7}=[qw/0.0003537138000010399 -0.0018016407039998328 0.00042957797300470274 0.012550998556013784 -0.01657454163101562 -0.03802993693503463 0.0806126091510659 0.07130921926705004 -0.22403618499416572 -0.14390600392910627 0.4697822874053586 0.7291320908465551 0.39653931948230575 0.07785205408506236/];
166             $hi_d{7}=[qw/-0.07785205408506236 0.39653931948230575 -0.7291320908465551 0.4697822874053586 0.14390600392910627 -0.22403618499416572 -0.07130921926705004 0.0806126091510659 0.03802993693503463 -0.01657454163101562 -0.012550998556013784 0.00042957797300470274 0.0018016407039998328 0.0003537138000010399/];
167             $lo_r{7}=[qw/0.07785205408506236 0.39653931948230575 0.7291320908465551 0.4697822874053586 -0.14390600392910627 -0.22403618499416572 0.07130921926705004 0.0806126091510659 -0.03802993693503463 -0.01657454163101562 0.012550998556013784 0.00042957797300470274 -0.0018016407039998328 0.0003537138000010399/];
168             $hi_r{7}=[qw/0.0003537138000010399 0.0018016407039998328 0.00042957797300470274 -0.012550998556013784 -0.01657454163101562 0.03802993693503463 0.0806126091510659 -0.07130921926705004 -0.22403618499416572 0.14390600392910627 0.4697822874053586 -0.7291320908465551 0.39653931948230575 -0.07785205408506236/];
169              
170             $lo_d{8}=[qw/-0.00011747678400228192 0.0006754494059985568 -0.0003917403729959771 -0.00487035299301066 0.008746094047015655 0.013981027917015516 -0.04408825393106472 -0.01736930100202211 0.128747426620186 0.00047248457399797254 -0.2840155429624281 -0.015829105256023893 0.5853546836548691 0.6756307362980128 0.3128715909144659 0.05441584224308161/];
171             $hi_d{8}=[qw/-0.05441584224308161 0.3128715909144659 -0.6756307362980128 0.5853546836548691 0.015829105256023893 -0.2840155429624281 -0.00047248457399797254 0.128747426620186 0.01736930100202211 -0.04408825393106472 -0.013981027917015516 0.008746094047015655 0.00487035299301066 -0.0003917403729959771 -0.0006754494059985568 -0.00011747678400228192/];
172             $lo_r{8}=[qw/0.05441584224308161 0.3128715909144659 0.6756307362980128 0.5853546836548691 -0.015829105256023893 -0.2840155429624281 0.00047248457399797254 0.128747426620186 -0.01736930100202211 -0.04408825393106472 0.013981027917015516 0.008746094047015655 -0.00487035299301066 -0.0003917403729959771 0.0006754494059985568 -0.00011747678400228192/];
173             $hi_r{8}=[qw/-0.00011747678400228192 -0.0006754494059985568 -0.0003917403729959771 0.00487035299301066 0.008746094047015655 -0.013981027917015516 -0.04408825393106472 0.01736930100202211 0.128747426620186 -0.00047248457399797254 -0.2840155429624281 0.015829105256023893 0.5853546836548691 -0.6756307362980128 0.3128715909144659 -0.05441584224308161/];
174              
175             $lo_d{9}=[qw/3.9347319995026124e-05 -0.0002519631889981789 0.00023038576399541288 0.0018476468829611268 -0.004281503681904723 -0.004723204757894831 0.022361662123515244 0.00025094711499193845 -0.06763282905952399 0.030725681478322865 0.14854074933476008 -0.09684078322087904 -0.29327378327258685 0.13319738582208895 0.6572880780366389 0.6048231236767786 0.24383467463766728 0.03807794736316728/];
176             $hi_d{9}=[qw/-0.03807794736316728 0.24383467463766728 -0.6048231236767786 0.6572880780366389 -0.13319738582208895 -0.29327378327258685 0.09684078322087904 0.14854074933476008 -0.030725681478322865 -0.06763282905952399 -0.00025094711499193845 0.022361662123515244 0.004723204757894831 -0.004281503681904723 -0.0018476468829611268 0.00023038576399541288 0.0002519631889981789 3.9347319995026124e-05/];
177             $lo_r{9}=[qw/0.03807794736316728 0.24383467463766728 0.6048231236767786 0.6572880780366389 0.13319738582208895 -0.29327378327258685 -0.09684078322087904 0.14854074933476008 0.030725681478322865 -0.06763282905952399 0.00025094711499193845 0.022361662123515244 -0.004723204757894831 -0.004281503681904723 0.0018476468829611268 0.00023038576399541288 -0.0002519631889981789 3.9347319995026124e-05/];
178             $hi_r{9}=[qw/3.9347319995026124e-05 0.0002519631889981789 0.00023038576399541288 -0.0018476468829611268 -0.004281503681904723 0.004723204757894831 0.022361662123515244 -0.00025094711499193845 -0.06763282905952399 -0.030725681478322865 0.14854074933476008 0.09684078322087904 -0.29327378327258685 -0.13319738582208895 0.6572880780366389 -0.6048231236767786 0.24383467463766728 -0.03807794736316728/];
179              
180             $lo_d{10}=[qw/-1.326420300235487e-05 9.358867000108985e-05 -0.0001164668549943862 -0.0006858566950046825 0.00199240529499085 0.0013953517469940798 -0.010733175482979604 0.0036065535669883944 0.03321267405893324 -0.02945753682194567 -0.07139414716586077 0.09305736460380659 0.12736934033574265 -0.19594627437659665 -0.24984642432648865 0.2811723436604265 0.6884590394525921 0.5272011889309198 0.18817680007762133 0.026670057900950818/];
181             $hi_d{10}=[qw/-0.026670057900950818 0.18817680007762133 -0.5272011889309198 0.6884590394525921 -0.2811723436604265 -0.24984642432648865 0.19594627437659665 0.12736934033574265 -0.09305736460380659 -0.07139414716586077 0.02945753682194567 0.03321267405893324 -0.0036065535669883944 -0.010733175482979604 -0.0013953517469940798 0.00199240529499085 0.0006858566950046825 -0.0001164668549943862 -9.358867000108985e-05 -1.326420300235487e-05/];
182             $lo_r{10}=[qw/0.026670057900950818 0.18817680007762133 0.5272011889309198 0.6884590394525921 0.2811723436604265 -0.24984642432648865 -0.19594627437659665 0.12736934033574265 0.09305736460380659 -0.07139414716586077 -0.02945753682194567 0.03321267405893324 0.0036065535669883944 -0.010733175482979604 0.0013953517469940798 0.00199240529499085 -0.0006858566950046825 -0.0001164668549943862 9.358867000108985e-05 -1.326420300235487e-05/];
183             $hi_r{10}=[qw/-1.326420300235487e-05 -9.358867000108985e-05 -0.0001164668549943862 0.0006858566950046825 0.00199240529499085 -0.0013953517469940798 -0.010733175482979604 -0.0036065535669883944 0.03321267405893324 0.02945753682194567 -0.07139414716586077 -0.09305736460380659 0.12736934033574265 0.19594627437659665 -0.24984642432648865 -0.2811723436604265 0.6884590394525921 -0.5272011889309198 0.18817680007762133 -0.026670057900950818/];
184              
185             $lo_d{11}=[qw/4.494274277236352e-06 -3.463498418698379e-05 5.443907469936638e-05 0.00024915252355281426 -0.0008930232506662366 -0.00030859285881515924 0.004928417656058778 -0.0033408588730145018 -0.015364820906201324 0.02084090436018004 0.03133509021904531 -0.06643878569502022 -0.04647995511667613 0.14981201246638268 0.06604358819669089 -0.27423084681792875 -0.16227524502747828 0.41196436894789695 0.6856867749161785 0.44989976435603013 0.1440670211506196 0.01869429776147044/];
186             $hi_d{11}=[qw/-0.01869429776147044 0.1440670211506196 -0.44989976435603013 0.6856867749161785 -0.41196436894789695 -0.16227524502747828 0.27423084681792875 0.06604358819669089 -0.14981201246638268 -0.04647995511667613 0.06643878569502022 0.03133509021904531 -0.02084090436018004 -0.015364820906201324 0.0033408588730145018 0.004928417656058778 0.00030859285881515924 -0.0008930232506662366 -0.00024915252355281426 5.443907469936638e-05 3.463498418698379e-05 4.494274277236352e-06/];
187             $lo_r{11}=[qw/0.01869429776147044 0.1440670211506196 0.44989976435603013 0.6856867749161785 0.41196436894789695 -0.16227524502747828 -0.27423084681792875 0.06604358819669089 0.14981201246638268 -0.04647995511667613 -0.06643878569502022 0.03133509021904531 0.02084090436018004 -0.015364820906201324 -0.0033408588730145018 0.004928417656058778 -0.00030859285881515924 -0.0008930232506662366 0.00024915252355281426 5.443907469936638e-05 -3.463498418698379e-05 4.494274277236352e-06/];
188             $hi_r{11}=[qw/4.494274277236352e-06 3.463498418698379e-05 5.443907469936638e-05 -0.00024915252355281426 -0.0008930232506662366 0.00030859285881515924 0.004928417656058778 0.0033408588730145018 -0.015364820906201324 -0.02084090436018004 0.03133509021904531 0.06643878569502022 -0.04647995511667613 -0.14981201246638268 0.06604358819669089 0.27423084681792875 -0.16227524502747828 -0.41196436894789695 0.6856867749161785 -0.44989976435603013 0.1440670211506196 -0.01869429776147044/];
189              
190             $lo_d{12}=[qw/-1.5290717580684923e-06 1.2776952219379579e-05 -2.4241545757030318e-05 -8.850410920820318e-05 0.0003886530628209267 6.5451282125215034e-06 -0.0021795036186277044 0.0022486072409952287 0.006711499008795549 -0.012840825198299882 -0.01221864906974642 0.04154627749508764 0.010849130255828966 -0.09643212009649671 0.0053595696743599965 0.18247860592758275 -0.023779257256064865 -0.31617845375277914 -0.04476388565377762 0.5158864784278007 0.6571987225792911 0.3773551352142041 0.10956627282118277 0.013112257957229239/];
191             $hi_d{12}=[qw/-0.013112257957229239 0.10956627282118277 -0.3773551352142041 0.6571987225792911 -0.5158864784278007 -0.04476388565377762 0.31617845375277914 -0.023779257256064865 -0.18247860592758275 0.0053595696743599965 0.09643212009649671 0.010849130255828966 -0.04154627749508764 -0.01221864906974642 0.012840825198299882 0.006711499008795549 -0.0022486072409952287 -0.0021795036186277044 -6.5451282125215034e-06 0.0003886530628209267 8.850410920820318e-05 -2.4241545757030318e-05 -1.2776952219379579e-05 -1.5290717580684923e-06/];
192             $lo_r{12}=[qw/0.013112257957229239 0.10956627282118277 0.3773551352142041 0.6571987225792911 0.5158864784278007 -0.04476388565377762 -0.31617845375277914 -0.023779257256064865 0.18247860592758275 0.0053595696743599965 -0.09643212009649671 0.010849130255828966 0.04154627749508764 -0.01221864906974642 -0.012840825198299882 0.006711499008795549 0.0022486072409952287 -0.0021795036186277044 6.5451282125215034e-06 0.0003886530628209267 -8.850410920820318e-05 -2.4241545757030318e-05 1.2776952219379579e-05 -1.5290717580684923e-06/];
193             $hi_r{12}=[qw/-1.5290717580684923e-06 -1.2776952219379579e-05 -2.4241545757030318e-05 8.850410920820318e-05 0.0003886530628209267 -6.5451282125215034e-06 -0.0021795036186277044 -0.0022486072409952287 0.006711499008795549 0.012840825198299882 -0.01221864906974642 -0.04154627749508764 0.010849130255828966 0.09643212009649671 0.0053595696743599965 -0.18247860592758275 -0.023779257256064865 0.31617845375277914 -0.04476388565377762 -0.5158864784278007 0.6571987225792911 -0.3773551352142041 0.10956627282118277 -0.013112257957229239/];
194              
195             $lo_d{13}=[qw/5.2200350984548e-07 -4.700416479360808e-06 1.0441930571407941e-05 3.067853757932436e-05 -0.0001651289885565057 4.9251525126285676e-05 0.000932326130867249 -0.0013156739118922766 -0.002761911234656831 0.007255589401617119 0.003923941448795577 -0.02383142071032781 0.002379972254052227 0.056139477100276156 -0.026488406475345658 -0.10580761818792761 0.07294893365678874 0.17947607942935084 -0.12457673075080665 -0.31497290771138414 0.086985726179645 0.5888895704312119 0.6110558511587811 0.3119963221604349 0.08286124387290195 0.009202133538962279/];
196             $hi_d{13}=[qw/-0.009202133538962279 0.08286124387290195 -0.3119963221604349 0.6110558511587811 -0.5888895704312119 0.086985726179645 0.31497290771138414 -0.12457673075080665 -0.17947607942935084 0.07294893365678874 0.10580761818792761 -0.026488406475345658 -0.056139477100276156 0.002379972254052227 0.02383142071032781 0.003923941448795577 -0.007255589401617119 -0.002761911234656831 0.0013156739118922766 0.000932326130867249 -4.9251525126285676e-05 -0.0001651289885565057 -3.067853757932436e-05 1.0441930571407941e-05 4.700416479360808e-06 5.2200350984548e-07/];
197             $lo_r{13}=[qw/0.009202133538962279 0.08286124387290195 0.3119963221604349 0.6110558511587811 0.5888895704312119 0.086985726179645 -0.31497290771138414 -0.12457673075080665 0.17947607942935084 0.07294893365678874 -0.10580761818792761 -0.026488406475345658 0.056139477100276156 0.002379972254052227 -0.02383142071032781 0.003923941448795577 0.007255589401617119 -0.002761911234656831 -0.0013156739118922766 0.000932326130867249 4.9251525126285676e-05 -0.0001651289885565057 3.067853757932436e-05 1.0441930571407941e-05 -4.700416479360808e-06 5.2200350984548e-07/];
198             $hi_r{13}=[qw/5.2200350984548e-07 4.700416479360808e-06 1.0441930571407941e-05 -3.067853757932436e-05 -0.0001651289885565057 -4.9251525126285676e-05 0.000932326130867249 0.0013156739118922766 -0.002761911234656831 -0.007255589401617119 0.003923941448795577 0.02383142071032781 0.002379972254052227 -0.056139477100276156 -0.026488406475345658 0.10580761818792761 0.07294893365678874 -0.17947607942935084 -0.12457673075080665 0.31497290771138414 0.086985726179645 -0.5888895704312119 0.6110558511587811 -0.3119963221604349 0.08286124387290195 -0.009202133538962279/];
199              
200             $lo_d{14}=[qw/-1.7871399683109222e-07 1.7249946753674012e-06 -4.389704901780418e-06 -1.0337209184568496e-05 6.875504252695734e-05 -4.177724577037067e-05 -0.00038683194731287514 0.0007080211542354048 0.001061691085606874 -0.003849638868019787 -0.0007462189892638753 0.01278949326634007 -0.0056150495303375755 -0.030185351540353976 0.02698140830794797 0.05523712625925082 -0.0715489555039835 -0.0867484115681106 0.13998901658445695 0.13839521386479153 -0.2180335299932165 -0.27168855227867705 0.21867068775886594 0.6311878491047198 0.5543056179407709 0.25485026779256437 0.062364758849384874 0.0064611534600864905/];
201             $hi_d{14}=[qw/-0.0064611534600864905 0.062364758849384874 -0.25485026779256437 0.5543056179407709 -0.6311878491047198 0.21867068775886594 0.27168855227867705 -0.2180335299932165 -0.13839521386479153 0.13998901658445695 0.0867484115681106 -0.0715489555039835 -0.05523712625925082 0.02698140830794797 0.030185351540353976 -0.0056150495303375755 -0.01278949326634007 -0.0007462189892638753 0.003849638868019787 0.001061691085606874 -0.0007080211542354048 -0.00038683194731287514 4.177724577037067e-05 6.875504252695734e-05 1.0337209184568496e-05 -4.389704901780418e-06 -1.7249946753674012e-06 -1.7871399683109222e-07/];
202             $lo_r{14}=[qw/0.0064611534600864905 0.062364758849384874 0.25485026779256437 0.5543056179407709 0.6311878491047198 0.21867068775886594 -0.27168855227867705 -0.2180335299932165 0.13839521386479153 0.13998901658445695 -0.0867484115681106 -0.0715489555039835 0.05523712625925082 0.02698140830794797 -0.030185351540353976 -0.0056150495303375755 0.01278949326634007 -0.0007462189892638753 -0.003849638868019787 0.001061691085606874 0.0007080211542354048 -0.00038683194731287514 -4.177724577037067e-05 6.875504252695734e-05 -1.0337209184568496e-05 -4.389704901780418e-06 1.7249946753674012e-06 -1.7871399683109222e-07/];
203             $hi_r{14}=[qw/-1.7871399683109222e-07 -1.7249946753674012e-06 -4.389704901780418e-06 1.0337209184568496e-05 6.875504252695734e-05 4.177724577037067e-05 -0.00038683194731287514 -0.0007080211542354048 0.001061691085606874 0.003849638868019787 -0.0007462189892638753 -0.01278949326634007 -0.0056150495303375755 0.030185351540353976 0.02698140830794797 -0.05523712625925082 -0.0715489555039835 0.0867484115681106 0.13998901658445695 -0.13839521386479153 -0.2180335299932165 0.27168855227867705 0.21867068775886594 -0.6311878491047198 0.5543056179407709 -0.25485026779256437 0.062364758849384874 -0.0064611534600864905/];
204              
205             $lo_d{15}=[qw/6.133359913303714e-08 -6.316882325879451e-07 1.8112704079399406e-06 3.3629871817363823e-06 -2.8133296266037558e-05 2.579269915531323e-05 0.00015589648992055726 -0.00035956524436229364 -0.0003734823541372647 0.0019433239803823459 -0.00024175649075894543 -0.0064877345603061454 0.005101000360422873 0.015083918027862582 -0.020810050169636805 -0.02576700732836694 0.054780550584559995 0.033877143923563204 -0.11112093603713753 -0.0396661765557336 0.19014671400708816 0.06528295284876569 -0.28888259656686216 -0.19320413960907623 0.33900253545462167 0.6458131403572103 0.4926317717079753 0.20602386398692688 0.04674339489275062 0.004538537361577376/];
206             $hi_d{15}=[qw/-0.004538537361577376 0.04674339489275062 -0.20602386398692688 0.4926317717079753 -0.6458131403572103 0.33900253545462167 0.19320413960907623 -0.28888259656686216 -0.06528295284876569 0.19014671400708816 0.0396661765557336 -0.11112093603713753 -0.033877143923563204 0.054780550584559995 0.02576700732836694 -0.020810050169636805 -0.015083918027862582 0.005101000360422873 0.0064877345603061454 -0.00024175649075894543 -0.0019433239803823459 -0.0003734823541372647 0.00035956524436229364 0.00015589648992055726 -2.579269915531323e-05 -2.8133296266037558e-05 -3.3629871817363823e-06 1.8112704079399406e-06 6.316882325879451e-07 6.133359913303714e-08/];
207             $lo_r{15}=[qw/0.004538537361577376 0.04674339489275062 0.20602386398692688 0.4926317717079753 0.6458131403572103 0.33900253545462167 -0.19320413960907623 -0.28888259656686216 0.06528295284876569 0.19014671400708816 -0.0396661765557336 -0.11112093603713753 0.033877143923563204 0.054780550584559995 -0.02576700732836694 -0.020810050169636805 0.015083918027862582 0.005101000360422873 -0.0064877345603061454 -0.00024175649075894543 0.0019433239803823459 -0.0003734823541372647 -0.00035956524436229364 0.00015589648992055726 2.579269915531323e-05 -2.8133296266037558e-05 3.3629871817363823e-06 1.8112704079399406e-06 -6.316882325879451e-07 6.133359913303714e-08/];
208             $hi_r{15}=[qw/6.133359913303714e-08 6.316882325879451e-07 1.8112704079399406e-06 -3.3629871817363823e-06 -2.8133296266037558e-05 -2.579269915531323e-05 0.00015589648992055726 0.00035956524436229364 -0.0003734823541372647 -0.0019433239803823459 -0.00024175649075894543 0.0064877345603061454 0.005101000360422873 -0.015083918027862582 -0.020810050169636805 0.02576700732836694 0.054780550584559995 -0.033877143923563204 -0.11112093603713753 0.0396661765557336 0.19014671400708816 -0.06528295284876569 -0.28888259656686216 0.19320413960907623 0.33900253545462167 -0.6458131403572103 0.4926317717079753 -0.20602386398692688 0.04674339489275062 -0.004538537361577376/];
209              
210             $lo_d{16}=[qw/-2.1093396300980412e-08 2.3087840868545578e-07 -7.363656785441815e-07 -1.0435713423102517e-06 1.133660866126152e-05 -1.394566898819319e-05 -6.103596621404321e-05 0.00017478724522506327 0.00011424152003843815 -0.0009410217493585433 0.00040789698084934395 0.00312802338120381 -0.0036442796214883506 -0.006990014563390751 0.013993768859843242 0.010297659641009963 -0.036888397691556774 -0.007588974368642594 0.07592423604445779 -0.006239722752156254 -0.13238830556335474 0.027340263752899923 0.21119069394696974 -0.02791820813292813 -0.3270633105274758 -0.08975108940236352 0.44029025688580486 0.6373563320829833 0.43031272284545874 0.1650642834886438 0.03490771432362905 0.0031892209253436892/];
211             $hi_d{16}=[qw/-0.0031892209253436892 0.03490771432362905 -0.1650642834886438 0.43031272284545874 -0.6373563320829833 0.44029025688580486 0.08975108940236352 -0.3270633105274758 0.02791820813292813 0.21119069394696974 -0.027340263752899923 -0.13238830556335474 0.006239722752156254 0.07592423604445779 0.007588974368642594 -0.036888397691556774 -0.010297659641009963 0.013993768859843242 0.006990014563390751 -0.0036442796214883506 -0.00312802338120381 0.00040789698084934395 0.0009410217493585433 0.00011424152003843815 -0.00017478724522506327 -6.103596621404321e-05 1.394566898819319e-05 1.133660866126152e-05 1.0435713423102517e-06 -7.363656785441815e-07 -2.3087840868545578e-07 -2.1093396300980412e-08/];
212             $lo_r{16}=[qw/0.0031892209253436892 0.03490771432362905 0.1650642834886438 0.43031272284545874 0.6373563320829833 0.44029025688580486 -0.08975108940236352 -0.3270633105274758 -0.02791820813292813 0.21119069394696974 0.027340263752899923 -0.13238830556335474 -0.006239722752156254 0.07592423604445779 -0.007588974368642594 -0.036888397691556774 0.010297659641009963 0.013993768859843242 -0.006990014563390751 -0.0036442796214883506 0.00312802338120381 0.00040789698084934395 -0.0009410217493585433 0.00011424152003843815 0.00017478724522506327 -6.103596621404321e-05 -1.394566898819319e-05 1.133660866126152e-05 -1.0435713423102517e-06 -7.363656785441815e-07 2.3087840868545578e-07 -2.1093396300980412e-08/];
213             $hi_r{16}=[qw/-2.1093396300980412e-08 -2.3087840868545578e-07 -7.363656785441815e-07 1.0435713423102517e-06 1.133660866126152e-05 1.394566898819319e-05 -6.103596621404321e-05 -0.00017478724522506327 0.00011424152003843815 0.0009410217493585433 0.00040789698084934395 -0.00312802338120381 -0.0036442796214883506 0.006990014563390751 0.013993768859843242 -0.010297659641009963 -0.036888397691556774 0.007588974368642594 0.07592423604445779 0.006239722752156254 -0.13238830556335474 -0.027340263752899923 0.21119069394696974 0.02791820813292813 -0.3270633105274758 0.08975108940236352 0.44029025688580486 -0.6373563320829833 0.43031272284545874 -0.1650642834886438 0.03490771432362905 -0.0031892209253436892/];
214              
215             $lo_d{17}=[qw/7.26749296856637e-09 -8.423948446008154e-08 2.9577009333187617e-07 3.0165496099963414e-07 -4.505942477225963e-06 6.990600985081294e-06 2.318681379876164e-05 -8.204803202458212e-05 -2.5610109566546042e-05 0.0004394654277689454 -0.00032813251941022427 -0.001436845304805 0.0023012052421511474 0.002967996691518064 -0.008602921520347815 -0.0030429899813869555 0.022733676583919053 -0.0032709555358783646 -0.04692243838937891 0.022312336178011833 0.08110598665408082 -0.05709141963185808 -0.12681569177849797 0.10113548917744287 0.19731058956508457 -0.12659975221599248 -0.32832074836418546 0.027314970403312946 0.5183157640572823 0.6109966156850273 0.3703507241528858 0.13121490330791097 0.025985393703623173 0.00224180700103879/];
216             $hi_d{17}=[qw/-0.00224180700103879 0.025985393703623173 -0.13121490330791097 0.3703507241528858 -0.6109966156850273 0.5183157640572823 -0.027314970403312946 -0.32832074836418546 0.12659975221599248 0.19731058956508457 -0.10113548917744287 -0.12681569177849797 0.05709141963185808 0.08110598665408082 -0.022312336178011833 -0.04692243838937891 0.0032709555358783646 0.022733676583919053 0.0030429899813869555 -0.008602921520347815 -0.002967996691518064 0.0023012052421511474 0.001436845304805 -0.00032813251941022427 -0.0004394654277689454 -2.5610109566546042e-05 8.204803202458212e-05 2.318681379876164e-05 -6.990600985081294e-06 -4.505942477225963e-06 -3.0165496099963414e-07 2.9577009333187617e-07 8.423948446008154e-08 7.26749296856637e-09/];
217             $lo_r{17}=[qw/0.00224180700103879 0.025985393703623173 0.13121490330791097 0.3703507241528858 0.6109966156850273 0.5183157640572823 0.027314970403312946 -0.32832074836418546 -0.12659975221599248 0.19731058956508457 0.10113548917744287 -0.12681569177849797 -0.05709141963185808 0.08110598665408082 0.022312336178011833 -0.04692243838937891 -0.0032709555358783646 0.022733676583919053 -0.0030429899813869555 -0.008602921520347815 0.002967996691518064 0.0023012052421511474 -0.001436845304805 -0.00032813251941022427 0.0004394654277689454 -2.5610109566546042e-05 -8.204803202458212e-05 2.318681379876164e-05 6.990600985081294e-06 -4.505942477225963e-06 3.0165496099963414e-07 2.9577009333187617e-07 -8.423948446008154e-08 7.26749296856637e-09/];
218             $hi_r{17}=[qw/7.26749296856637e-09 8.423948446008154e-08 2.9577009333187617e-07 -3.0165496099963414e-07 -4.505942477225963e-06 -6.990600985081294e-06 2.318681379876164e-05 8.204803202458212e-05 -2.5610109566546042e-05 -0.0004394654277689454 -0.00032813251941022427 0.001436845304805 0.0023012052421511474 -0.002967996691518064 -0.008602921520347815 0.0030429899813869555 0.022733676583919053 0.0032709555358783646 -0.04692243838937891 -0.022312336178011833 0.08110598665408082 0.05709141963185808 -0.12681569177849797 -0.10113548917744287 0.19731058956508457 0.12659975221599248 -0.32832074836418546 -0.027314970403312946 0.5183157640572823 -0.6109966156850273 0.3703507241528858 -0.13121490330791097 0.025985393703623173 -0.00224180700103879/];
219              
220             $lo_d{18}=[qw/-2.507934454941929e-09 3.06883586303703e-08 -1.1760987670250871e-07 -7.691632689865049e-08 1.768712983622886e-06 -3.3326344788769603e-06 -8.520602537423464e-06 3.741237880730847e-05 -1.535917123021341e-07 -0.00019864855231101547 0.0002135815619103188 0.0006284656829644715 -0.0013405962983313922 -0.0011187326669886426 0.004943343605456594 0.00011863003387493042 -0.013051480946517112 0.006262167954438661 0.026670705926689853 -0.023733210395336858 -0.04452614190225633 0.05705124773905827 0.0648872162123582 -0.10675224665906288 -0.09233188415030412 0.16708131276294505 0.14953397556500755 -0.21648093400458224 -0.2936540407357981 0.14722311196952223 0.571801654887122 0.5718268077650818 0.31467894133619284 0.10358846582214751 0.01928853172409497 0.0015763102184365595/];
221             $hi_d{18}=[qw/-0.0015763102184365595 0.01928853172409497 -0.10358846582214751 0.31467894133619284 -0.5718268077650818 0.571801654887122 -0.14722311196952223 -0.2936540407357981 0.21648093400458224 0.14953397556500755 -0.16708131276294505 -0.09233188415030412 0.10675224665906288 0.0648872162123582 -0.05705124773905827 -0.04452614190225633 0.023733210395336858 0.026670705926689853 -0.006262167954438661 -0.013051480946517112 -0.00011863003387493042 0.004943343605456594 0.0011187326669886426 -0.0013405962983313922 -0.0006284656829644715 0.0002135815619103188 0.00019864855231101547 -1.535917123021341e-07 -3.741237880730847e-05 -8.520602537423464e-06 3.3326344788769603e-06 1.768712983622886e-06 7.691632689865049e-08 -1.1760987670250871e-07 -3.06883586303703e-08 -2.507934454941929e-09/];
222             $lo_r{18}=[qw/0.0015763102184365595 0.01928853172409497 0.10358846582214751 0.31467894133619284 0.5718268077650818 0.571801654887122 0.14722311196952223 -0.2936540407357981 -0.21648093400458224 0.14953397556500755 0.16708131276294505 -0.09233188415030412 -0.10675224665906288 0.0648872162123582 0.05705124773905827 -0.04452614190225633 -0.023733210395336858 0.026670705926689853 0.006262167954438661 -0.013051480946517112 0.00011863003387493042 0.004943343605456594 -0.0011187326669886426 -0.0013405962983313922 0.0006284656829644715 0.0002135815619103188 -0.00019864855231101547 -1.535917123021341e-07 3.741237880730847e-05 -8.520602537423464e-06 -3.3326344788769603e-06 1.768712983622886e-06 -7.691632689865049e-08 -1.1760987670250871e-07 3.06883586303703e-08 -2.507934454941929e-09/];
223             $hi_r{18}=[qw/-2.507934454941929e-09 -3.06883586303703e-08 -1.1760987670250871e-07 7.691632689865049e-08 1.768712983622886e-06 3.3326344788769603e-06 -8.520602537423464e-06 -3.741237880730847e-05 -1.535917123021341e-07 0.00019864855231101547 0.0002135815619103188 -0.0006284656829644715 -0.0013405962983313922 0.0011187326669886426 0.004943343605456594 -0.00011863003387493042 -0.013051480946517112 -0.006262167954438661 0.026670705926689853 0.023733210395336858 -0.04452614190225633 -0.05705124773905827 0.0648872162123582 0.10675224665906288 -0.09233188415030412 -0.16708131276294505 0.14953397556500755 0.21648093400458224 -0.2936540407357981 -0.14722311196952223 0.571801654887122 -0.5718268077650818 0.31467894133619284 -0.10358846582214751 0.01928853172409497 -0.0015763102184365595/];
224              
225             $lo_d{19}=[qw/8.666848839034483e-10 -1.1164020670405678e-08 4.636937775802368e-08 1.447088298804088e-08 -6.86275565779811e-07 1.531931476697877e-06 3.0109643163099385e-06 -1.664017629722462e-05 5.105950487090694e-06 8.711270467250443e-05 -0.00012460079173506306 -0.0002606761356811995 0.0007358025205041731 0.00034180865344939543 -0.002687551800734441 0.0007689543592242488 0.007040747367080495 -0.005866922281112195 -0.013988388678695632 0.019375549889114482 0.021623767409452484 -0.04567422627778492 -0.026501236250778635 0.0869067555554507 0.02758435062488713 -0.14278569504021468 -0.03351854190320226 0.21234974330662043 0.07465226970806647 -0.28583863175723145 -0.22809139421653665 0.2608949526521201 0.6017045491300916 0.5244363774668862 0.26438843174202237 0.08127811326580564 0.01428109845082521 0.0011086697631864314/];
226             $hi_d{19}=[qw/-0.0011086697631864314 0.01428109845082521 -0.08127811326580564 0.26438843174202237 -0.5244363774668862 0.6017045491300916 -0.2608949526521201 -0.22809139421653665 0.28583863175723145 0.07465226970806647 -0.21234974330662043 -0.03351854190320226 0.14278569504021468 0.02758435062488713 -0.0869067555554507 -0.026501236250778635 0.04567422627778492 0.021623767409452484 -0.019375549889114482 -0.013988388678695632 0.005866922281112195 0.007040747367080495 -0.0007689543592242488 -0.002687551800734441 -0.00034180865344939543 0.0007358025205041731 0.0002606761356811995 -0.00012460079173506306 -8.711270467250443e-05 5.105950487090694e-06 1.664017629722462e-05 3.0109643163099385e-06 -1.531931476697877e-06 -6.86275565779811e-07 -1.447088298804088e-08 4.636937775802368e-08 1.1164020670405678e-08 8.666848839034483e-10/];
227             $lo_r{19}=[qw/0.0011086697631864314 0.01428109845082521 0.08127811326580564 0.26438843174202237 0.5244363774668862 0.6017045491300916 0.2608949526521201 -0.22809139421653665 -0.28583863175723145 0.07465226970806647 0.21234974330662043 -0.03351854190320226 -0.14278569504021468 0.02758435062488713 0.0869067555554507 -0.026501236250778635 -0.04567422627778492 0.021623767409452484 0.019375549889114482 -0.013988388678695632 -0.005866922281112195 0.007040747367080495 0.0007689543592242488 -0.002687551800734441 0.00034180865344939543 0.0007358025205041731 -0.0002606761356811995 -0.00012460079173506306 8.711270467250443e-05 5.105950487090694e-06 -1.664017629722462e-05 3.0109643163099385e-06 1.531931476697877e-06 -6.86275565779811e-07 1.447088298804088e-08 4.636937775802368e-08 -1.1164020670405678e-08 8.666848839034483e-10/];
228             $hi_r{19}=[qw/8.666848839034483e-10 1.1164020670405678e-08 4.636937775802368e-08 -1.447088298804088e-08 -6.86275565779811e-07 -1.531931476697877e-06 3.0109643163099385e-06 1.664017629722462e-05 5.105950487090694e-06 -8.711270467250443e-05 -0.00012460079173506306 0.0002606761356811995 0.0007358025205041731 -0.00034180865344939543 -0.002687551800734441 -0.0007689543592242488 0.007040747367080495 0.005866922281112195 -0.013988388678695632 -0.019375549889114482 0.021623767409452484 0.04567422627778492 -0.026501236250778635 -0.0869067555554507 0.02758435062488713 0.14278569504021468 -0.03351854190320226 -0.21234974330662043 0.07465226970806647 0.28583863175723145 -0.22809139421653665 -0.2608949526521201 0.6017045491300916 -0.5244363774668862 0.26438843174202237 -0.08127811326580564 0.01428109845082521 -0.0011086697631864314/];
229              
230             $lo_d{20}=[qw/-2.998836489615753e-10 4.05612705554717e-09 -1.814843248297622e-08 2.0143220235374613e-10 2.633924226266962e-07 -6.847079596993149e-07 -1.0119940100181473e-06 7.241248287663791e-06 -4.376143862182197e-06 -3.710586183390615e-05 6.774280828373048e-05 0.00010153288973669777 -0.0003851047486990061 -5.349759844340453e-05 0.0013925596193045254 -0.0008315621728772474 -0.003581494259744107 0.00442054238676635 0.0067216273018096935 -0.013810526137727442 -0.008789324924555765 0.03229429953011916 0.0058746818113949465 -0.061722899624668884 0.005632246857685454 0.10229171917513397 -0.024716827337521424 -0.1554587507060453 0.039850246458519104 0.22829105082013823 -0.016727088308801888 -0.3267868004335376 -0.13921208801128787 0.36150229873889705 0.6104932389378558 0.4726961853103315 0.21994211355113222 0.06342378045900529 0.010549394624937735 0.0007799536136659112/];
231             $hi_d{20}=[qw/-0.0007799536136659112 0.010549394624937735 -0.06342378045900529 0.21994211355113222 -0.4726961853103315 0.6104932389378558 -0.36150229873889705 -0.13921208801128787 0.3267868004335376 -0.016727088308801888 -0.22829105082013823 0.039850246458519104 0.1554587507060453 -0.024716827337521424 -0.10229171917513397 0.005632246857685454 0.061722899624668884 0.0058746818113949465 -0.03229429953011916 -0.008789324924555765 0.013810526137727442 0.0067216273018096935 -0.00442054238676635 -0.003581494259744107 0.0008315621728772474 0.0013925596193045254 5.349759844340453e-05 -0.0003851047486990061 -0.00010153288973669777 6.774280828373048e-05 3.710586183390615e-05 -4.376143862182197e-06 -7.241248287663791e-06 -1.0119940100181473e-06 6.847079596993149e-07 2.633924226266962e-07 -2.0143220235374613e-10 -1.814843248297622e-08 -4.05612705554717e-09 -2.998836489615753e-10/];
232             $lo_r{20}=[qw/0.0007799536136659112 0.010549394624937735 0.06342378045900529 0.21994211355113222 0.4726961853103315 0.6104932389378558 0.36150229873889705 -0.13921208801128787 -0.3267868004335376 -0.016727088308801888 0.22829105082013823 0.039850246458519104 -0.1554587507060453 -0.024716827337521424 0.10229171917513397 0.005632246857685454 -0.061722899624668884 0.0058746818113949465 0.03229429953011916 -0.008789324924555765 -0.013810526137727442 0.0067216273018096935 0.00442054238676635 -0.003581494259744107 -0.0008315621728772474 0.0013925596193045254 -5.349759844340453e-05 -0.0003851047486990061 0.00010153288973669777 6.774280828373048e-05 -3.710586183390615e-05 -4.376143862182197e-06 7.241248287663791e-06 -1.0119940100181473e-06 -6.847079596993149e-07 2.633924226266962e-07 2.0143220235374613e-10 -1.814843248297622e-08 4.05612705554717e-09 -2.998836489615753e-10/];
233             $hi_r{20}=[qw/-2.998836489615753e-10 -4.05612705554717e-09 -1.814843248297622e-08 -2.0143220235374613e-10 2.633924226266962e-07 6.847079596993149e-07 -1.0119940100181473e-06 -7.241248287663791e-06 -4.376143862182197e-06 3.710586183390615e-05 6.774280828373048e-05 -0.00010153288973669777 -0.0003851047486990061 5.349759844340453e-05 0.0013925596193045254 0.0008315621728772474 -0.003581494259744107 -0.00442054238676635 0.0067216273018096935 0.013810526137727442 -0.008789324924555765 -0.03229429953011916 0.0058746818113949465 0.061722899624668884 0.005632246857685454 -0.10229171917513397 -0.024716827337521424 0.1554587507060453 0.039850246458519104 -0.22829105082013823 -0.016727088308801888 0.3267868004335376 -0.13921208801128787 -0.36150229873889705 0.6104932389378558 -0.4726961853103315 0.21994211355113222 -0.06342378045900529 0.010549394624937735 -0.0007799536136659112/];
234             ;
235              
236             sub new {
237 0     0 1   my $class=shift;
238 0           my $self={};
239 0           my $var=shift;
240              
241             $self={lo_d=>$lo_d{$var},
242             hi_d=>$hi_d{$var},
243             lo_r=>$lo_r{$var},
244 0           hi_r=>$hi_r{$var}
245             };
246            
247 0           bless $self,$class;
248 0           return $self;
249             };
250              
251             sub vars {
252 0     0 1   my $self=shift;
253 0 0         if (wantarray()) {
254 0           return (@vars);
255             };
256 0           return \@vars;
257             };
258              
259             sub filters {
260 0     0 1   my $self=shift;
261 0           my $lo_d=$self->lo_d;
262 0           my $hi_d=$self->hi_d;
263 0           my $lo_r=$self->lo_r;
264 0           my $hi_r=$self->hi_r;
265 0           my @a=( $lo_d,$hi_d,$lo_r,$hi_r);
266 0 0         if (wantarray()) {
267 0           return (@a);
268             };
269 0           return \@a;
270             };
271              
272             sub lo_d {
273 0     0 1   my $self=shift;
274 0           my $a=$self->{lo_d};
275 0 0         if (wantarray()) {
276 0           return (@{$a});
  0            
277             };
278 0           return $a;
279             };
280             sub hi_d {
281 0     0 1   my $self=shift;
282 0           my $a=$self->{hi_d};
283 0 0         if (wantarray()) {
284 0           return (@{$a});
  0            
285             };
286 0           return $a;
287             };
288             sub lo_r {
289 0     0 1   my $self=shift;
290 0           my $a=$self->{lo_r};
291 0 0         if (wantarray()) {
292 0           return (@{$a});
  0            
293             };
294 0           return $a;
295             };
296             sub hi_r {
297 0     0 1   my $self=shift;
298 0           my $a=$self->{hi_r};
299 0 0         if (wantarray()) {
300 0           return (@{$a});
  0            
301             };
302 0           return $a;
303             };
304              
305            
306             1;