diff options
Diffstat (limited to 'lib/GSL/Special/Gegenbauer.hs')
-rw-r--r-- | lib/GSL/Special/Gegenbauer.hs | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/lib/GSL/Special/Gegenbauer.hs b/lib/GSL/Special/Gegenbauer.hs new file mode 100644 index 0000000..06f3628 --- /dev/null +++ b/lib/GSL/Special/Gegenbauer.hs | |||
@@ -0,0 +1,72 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Gegenbauer | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | ||
8 | Portability : uses ffi | ||
9 | |||
10 | |||
11 | |||
12 | -} | ||
13 | ------------------------------------------------------------ | ||
14 | |||
15 | module GSL.Special.Gegenbauer( | ||
16 | gegenpoly_1_e | ||
17 | , gegenpoly_2_e | ||
18 | , gegenpoly_3_e | ||
19 | , gegenpoly_1 | ||
20 | , gegenpoly_2 | ||
21 | , gegenpoly_3 | ||
22 | , gegenpoly_n_e | ||
23 | , gegenpoly_n | ||
24 | ) where | ||
25 | |||
26 | import Foreign(Ptr) | ||
27 | import GSL.Special.Internal | ||
28 | |||
29 | -- | wrapper for int gsl_sf_gegenpoly_1_e(double lambda,double x,gsl_sf_result* result); | ||
30 | gegenpoly_1_e :: Double -> Double -> (Double,Double) | ||
31 | gegenpoly_1_e lambda x = createSFR "gegenpoly_1_e" $ gsl_sf_gegenpoly_1_e lambda x | ||
32 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1_e" gsl_sf_gegenpoly_1_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
33 | |||
34 | -- | wrapper for int gsl_sf_gegenpoly_2_e(double lambda,double x,gsl_sf_result* result); | ||
35 | gegenpoly_2_e :: Double -> Double -> (Double,Double) | ||
36 | gegenpoly_2_e lambda x = createSFR "gegenpoly_2_e" $ gsl_sf_gegenpoly_2_e lambda x | ||
37 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2_e" gsl_sf_gegenpoly_2_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
38 | |||
39 | -- | wrapper for int gsl_sf_gegenpoly_3_e(double lambda,double x,gsl_sf_result* result); | ||
40 | gegenpoly_3_e :: Double -> Double -> (Double,Double) | ||
41 | gegenpoly_3_e lambda x = createSFR "gegenpoly_3_e" $ gsl_sf_gegenpoly_3_e lambda x | ||
42 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3_e" gsl_sf_gegenpoly_3_e :: Double -> Double -> Ptr Double -> IO(Int) | ||
43 | |||
44 | -- | wrapper for double gsl_sf_gegenpoly_1(double lambda,double x); | ||
45 | gegenpoly_1 :: Double -> Double -> Double | ||
46 | gegenpoly_1 = gsl_sf_gegenpoly_1 | ||
47 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_1" gsl_sf_gegenpoly_1 :: Double -> Double -> Double | ||
48 | |||
49 | -- | wrapper for double gsl_sf_gegenpoly_2(double lambda,double x); | ||
50 | gegenpoly_2 :: Double -> Double -> Double | ||
51 | gegenpoly_2 = gsl_sf_gegenpoly_2 | ||
52 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_2" gsl_sf_gegenpoly_2 :: Double -> Double -> Double | ||
53 | |||
54 | -- | wrapper for double gsl_sf_gegenpoly_3(double lambda,double x); | ||
55 | gegenpoly_3 :: Double -> Double -> Double | ||
56 | gegenpoly_3 = gsl_sf_gegenpoly_3 | ||
57 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_3" gsl_sf_gegenpoly_3 :: Double -> Double -> Double | ||
58 | |||
59 | -- | wrapper for int gsl_sf_gegenpoly_n_e(int n,double lambda,double x,gsl_sf_result* result); | ||
60 | gegenpoly_n_e :: Int -> Double -> Double -> (Double,Double) | ||
61 | gegenpoly_n_e n lambda x = createSFR "gegenpoly_n_e" $ gsl_sf_gegenpoly_n_e n lambda x | ||
62 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n_e" gsl_sf_gegenpoly_n_e :: Int -> Double -> Double -> Ptr Double -> IO(Int) | ||
63 | |||
64 | -- | wrapper for double gsl_sf_gegenpoly_n(int n,double lambda,double x); | ||
65 | gegenpoly_n :: Int -> Double -> Double -> Double | ||
66 | gegenpoly_n = gsl_sf_gegenpoly_n | ||
67 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_n" gsl_sf_gegenpoly_n :: Int -> Double -> Double -> Double | ||
68 | |||
69 | -- | wrapper for int gsl_sf_gegenpoly_array(int nmax,double lambda,double x,double* result_array); | ||
70 | gegenpoly_array :: Int -> Double -> Double -> Ptr Double -> Int | ||
71 | gegenpoly_array = gsl_sf_gegenpoly_array | ||
72 | foreign import ccall "gegenbauer.h gsl_sf_gegenpoly_array" gsl_sf_gegenpoly_array :: Int -> Double -> Double -> Ptr Double -> Int | ||