diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-17 12:27:17 +0000 |
commit | e58f1e0e94407983fa18cd535cf76427019f1519 (patch) | |
tree | 4ffffdb92fd78e2233485895fb288111af0bf386 /lib/Numeric/GSL/Special/Debye.hs | |
parent | 45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff) |
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special/Debye.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Debye.hs | 72 |
1 files changed, 11 insertions, 61 deletions
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs index 7221fca..c989a82 100644 --- a/lib/Numeric/GSL/Special/Debye.hs +++ b/lib/Numeric/GSL/Special/Debye.hs | |||
@@ -1,17 +1,15 @@ | |||
1 | ------------------------------------------------------------ | 1 | ------------------------------------------------------------ |
2 | {- | | 2 | -- | |
3 | Module : Numeric.GSL.Special.Debye | 3 | -- Module : Numeric.GSL.Special.Debye |
4 | Copyright : (c) Alberto Ruiz 2006 | 4 | -- Copyright : (c) Alberto Ruiz 2006 |
5 | License : GPL-style | 5 | -- License : GPL |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | 6 | -- Maintainer : Alberto Ruiz (aruiz at um dot es) |
7 | Stability : provisional | 7 | -- Stability : provisional |
8 | Portability : uses ffi | 8 | -- Portability : uses ffi |
9 | 9 | -- | |
10 | Wrappers for selected functions described at: | 10 | -- Wrappers for selected functions described at: |
11 | 11 | -- | |
12 | <http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | 12 | -- <http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> |
13 | |||
14 | -} | ||
15 | ------------------------------------------------------------ | 13 | ------------------------------------------------------------ |
16 | 14 | ||
17 | module Numeric.GSL.Special.Debye( | 15 | module Numeric.GSL.Special.Debye( |
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Debye( | |||
32 | import Foreign(Ptr) | 30 | import Foreign(Ptr) |
33 | import Foreign.C.Types(CInt) | 31 | import Foreign.C.Types(CInt) |
34 | import Numeric.GSL.Special.Internal | 32 | import Numeric.GSL.Special.Internal |
35 | |||
36 | -- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result); | ||
37 | -- | ||
38 | -- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
39 | debye_1_e :: Double -> (Double,Double) | 33 | debye_1_e :: Double -> (Double,Double) |
40 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x | 34 | debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x |
41 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt | 35 | foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt |
42 | |||
43 | -- | wrapper for double gsl_sf_debye_1(double x); | ||
44 | -- | ||
45 | -- <http://www.google.com/search?q=gsl_sf_debye_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
46 | debye_1 :: Double -> Double | 36 | debye_1 :: Double -> Double |
47 | debye_1 = gsl_sf_debye_1 | 37 | debye_1 = gsl_sf_debye_1 |
48 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double | 38 | foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double |
49 | |||
50 | -- | wrapper for int gsl_sf_debye_2_e(double x,gsl_sf_result* result); | ||
51 | -- | ||
52 | -- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
53 | debye_2_e :: Double -> (Double,Double) | 39 | debye_2_e :: Double -> (Double,Double) |
54 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x | 40 | debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x |
55 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt | 41 | foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt |
56 | |||
57 | -- | wrapper for double gsl_sf_debye_2(double x); | ||
58 | -- | ||
59 | -- <http://www.google.com/search?q=gsl_sf_debye_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
60 | debye_2 :: Double -> Double | 42 | debye_2 :: Double -> Double |
61 | debye_2 = gsl_sf_debye_2 | 43 | debye_2 = gsl_sf_debye_2 |
62 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double | 44 | foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double |
63 | |||
64 | -- | wrapper for int gsl_sf_debye_3_e(double x,gsl_sf_result* result); | ||
65 | -- | ||
66 | -- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
67 | debye_3_e :: Double -> (Double,Double) | 45 | debye_3_e :: Double -> (Double,Double) |
68 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x | 46 | debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x |
69 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt | 47 | foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt |
70 | |||
71 | -- | wrapper for double gsl_sf_debye_3(double x); | ||
72 | -- | ||
73 | -- <http://www.google.com/search?q=gsl_sf_debye_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
74 | debye_3 :: Double -> Double | 48 | debye_3 :: Double -> Double |
75 | debye_3 = gsl_sf_debye_3 | 49 | debye_3 = gsl_sf_debye_3 |
76 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double | 50 | foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double |
77 | |||
78 | -- | wrapper for int gsl_sf_debye_4_e(double x,gsl_sf_result* result); | ||
79 | -- | ||
80 | -- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
81 | debye_4_e :: Double -> (Double,Double) | 51 | debye_4_e :: Double -> (Double,Double) |
82 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x | 52 | debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x |
83 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt | 53 | foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt |
84 | |||
85 | -- | wrapper for double gsl_sf_debye_4(double x); | ||
86 | -- | ||
87 | -- <http://www.google.com/search?q=gsl_sf_debye_4&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
88 | debye_4 :: Double -> Double | 54 | debye_4 :: Double -> Double |
89 | debye_4 = gsl_sf_debye_4 | 55 | debye_4 = gsl_sf_debye_4 |
90 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double | 56 | foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double |
91 | |||
92 | -- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result); | ||
93 | -- | ||
94 | -- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
95 | debye_5_e :: Double -> (Double,Double) | 57 | debye_5_e :: Double -> (Double,Double) |
96 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x | 58 | debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x |
97 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt | 59 | foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt |
98 | |||
99 | -- | wrapper for double gsl_sf_debye_5(double x); | ||
100 | -- | ||
101 | -- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
102 | debye_5 :: Double -> Double | 60 | debye_5 :: Double -> Double |
103 | debye_5 = gsl_sf_debye_5 | 61 | debye_5 = gsl_sf_debye_5 |
104 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double | 62 | foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double |
105 | |||
106 | -- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result); | ||
107 | -- | ||
108 | -- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
109 | debye_6_e :: Double -> (Double,Double) | 63 | debye_6_e :: Double -> (Double,Double) |
110 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x | 64 | debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x |
111 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt | 65 | foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt |
112 | |||
113 | -- | wrapper for double gsl_sf_debye_6(double x); | ||
114 | -- | ||
115 | -- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
116 | debye_6 :: Double -> Double | 66 | debye_6 :: Double -> Double |
117 | debye_6 = gsl_sf_debye_6 | 67 | debye_6 = gsl_sf_debye_6 |
118 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double | 68 | foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double |