diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-06-19 07:37:05 +0000 |
commit | a9722cf16fe322985c998ab290cf03213b539e49 (patch) | |
tree | fc06b55ff719a7908eae23748bacfe140ce5374f /lib/Numeric/GSL/Special/Expint.hs | |
parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) |
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Expint.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Expint.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Expint.hs b/lib/Numeric/GSL/Special/Expint.hs index 7b8336b..32f2b1a 100644 --- a/lib/Numeric/GSL/Special/Expint.hs +++ b/lib/Numeric/GSL/Special/Expint.hs | |||
@@ -46,87 +46,115 @@ module Numeric.GSL.Special.Expint( | |||
46 | import Foreign(Ptr) | 46 | import Foreign(Ptr) |
47 | import Foreign.C.Types(CInt) | 47 | import Foreign.C.Types(CInt) |
48 | import Numeric.GSL.Special.Internal | 48 | import Numeric.GSL.Special.Internal |
49 | |||
49 | expint_E1_e :: Double -> (Double,Double) | 50 | expint_E1_e :: Double -> (Double,Double) |
50 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x | 51 | expint_E1_e x = createSFR "expint_E1_e" $ gsl_sf_expint_E1_e x |
51 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt | 52 | foreign import ccall "gsl_sf_expint_E1_e" gsl_sf_expint_E1_e :: Double -> Ptr () -> IO CInt |
53 | |||
52 | expint_E1 :: Double -> Double | 54 | expint_E1 :: Double -> Double |
53 | expint_E1 = gsl_sf_expint_E1 | 55 | expint_E1 = gsl_sf_expint_E1 |
54 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double | 56 | foreign import ccall "gsl_sf_expint_E1" gsl_sf_expint_E1 :: Double -> Double |
57 | |||
55 | expint_E2_e :: Double -> (Double,Double) | 58 | expint_E2_e :: Double -> (Double,Double) |
56 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x | 59 | expint_E2_e x = createSFR "expint_E2_e" $ gsl_sf_expint_E2_e x |
57 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt | 60 | foreign import ccall "gsl_sf_expint_E2_e" gsl_sf_expint_E2_e :: Double -> Ptr () -> IO CInt |
61 | |||
58 | expint_E2 :: Double -> Double | 62 | expint_E2 :: Double -> Double |
59 | expint_E2 = gsl_sf_expint_E2 | 63 | expint_E2 = gsl_sf_expint_E2 |
60 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double | 64 | foreign import ccall "gsl_sf_expint_E2" gsl_sf_expint_E2 :: Double -> Double |
65 | |||
61 | expint_En_e :: CInt -> Double -> (Double,Double) | 66 | expint_En_e :: CInt -> Double -> (Double,Double) |
62 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x | 67 | expint_En_e n x = createSFR "expint_En_e" $ gsl_sf_expint_En_e n x |
63 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt | 68 | foreign import ccall "gsl_sf_expint_En_e" gsl_sf_expint_En_e :: CInt -> Double -> Ptr () -> IO CInt |
69 | |||
64 | expint_En :: CInt -> Double -> Double | 70 | expint_En :: CInt -> Double -> Double |
65 | expint_En = gsl_sf_expint_En | 71 | expint_En = gsl_sf_expint_En |
66 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double | 72 | foreign import ccall "gsl_sf_expint_En" gsl_sf_expint_En :: CInt -> Double -> Double |
73 | |||
67 | expint_E1_scaled_e :: Double -> (Double,Double) | 74 | expint_E1_scaled_e :: Double -> (Double,Double) |
68 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x | 75 | expint_E1_scaled_e x = createSFR "expint_E1_scaled_e" $ gsl_sf_expint_E1_scaled_e x |
69 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt | 76 | foreign import ccall "gsl_sf_expint_E1_scaled_e" gsl_sf_expint_E1_scaled_e :: Double -> Ptr () -> IO CInt |
77 | |||
70 | expint_E1_scaled :: Double -> Double | 78 | expint_E1_scaled :: Double -> Double |
71 | expint_E1_scaled = gsl_sf_expint_E1_scaled | 79 | expint_E1_scaled = gsl_sf_expint_E1_scaled |
72 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double | 80 | foreign import ccall "gsl_sf_expint_E1_scaled" gsl_sf_expint_E1_scaled :: Double -> Double |
81 | |||
73 | expint_E2_scaled_e :: Double -> (Double,Double) | 82 | expint_E2_scaled_e :: Double -> (Double,Double) |
74 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x | 83 | expint_E2_scaled_e x = createSFR "expint_E2_scaled_e" $ gsl_sf_expint_E2_scaled_e x |
75 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt | 84 | foreign import ccall "gsl_sf_expint_E2_scaled_e" gsl_sf_expint_E2_scaled_e :: Double -> Ptr () -> IO CInt |
85 | |||
76 | expint_E2_scaled :: Double -> Double | 86 | expint_E2_scaled :: Double -> Double |
77 | expint_E2_scaled = gsl_sf_expint_E2_scaled | 87 | expint_E2_scaled = gsl_sf_expint_E2_scaled |
78 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double | 88 | foreign import ccall "gsl_sf_expint_E2_scaled" gsl_sf_expint_E2_scaled :: Double -> Double |
89 | |||
79 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) | 90 | expint_En_scaled_e :: CInt -> Double -> (Double,Double) |
80 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x | 91 | expint_En_scaled_e n x = createSFR "expint_En_scaled_e" $ gsl_sf_expint_En_scaled_e n x |
81 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt | 92 | foreign import ccall "gsl_sf_expint_En_scaled_e" gsl_sf_expint_En_scaled_e :: CInt -> Double -> Ptr () -> IO CInt |
93 | |||
82 | expint_En_scaled :: CInt -> Double -> Double | 94 | expint_En_scaled :: CInt -> Double -> Double |
83 | expint_En_scaled = gsl_sf_expint_En_scaled | 95 | expint_En_scaled = gsl_sf_expint_En_scaled |
84 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double | 96 | foreign import ccall "gsl_sf_expint_En_scaled" gsl_sf_expint_En_scaled :: CInt -> Double -> Double |
97 | |||
85 | expint_Ei_e :: Double -> (Double,Double) | 98 | expint_Ei_e :: Double -> (Double,Double) |
86 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x | 99 | expint_Ei_e x = createSFR "expint_Ei_e" $ gsl_sf_expint_Ei_e x |
87 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt | 100 | foreign import ccall "gsl_sf_expint_Ei_e" gsl_sf_expint_Ei_e :: Double -> Ptr () -> IO CInt |
101 | |||
88 | expint_Ei :: Double -> Double | 102 | expint_Ei :: Double -> Double |
89 | expint_Ei = gsl_sf_expint_Ei | 103 | expint_Ei = gsl_sf_expint_Ei |
90 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double | 104 | foreign import ccall "gsl_sf_expint_Ei" gsl_sf_expint_Ei :: Double -> Double |
105 | |||
91 | expint_Ei_scaled_e :: Double -> (Double,Double) | 106 | expint_Ei_scaled_e :: Double -> (Double,Double) |
92 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x | 107 | expint_Ei_scaled_e x = createSFR "expint_Ei_scaled_e" $ gsl_sf_expint_Ei_scaled_e x |
93 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt | 108 | foreign import ccall "gsl_sf_expint_Ei_scaled_e" gsl_sf_expint_Ei_scaled_e :: Double -> Ptr () -> IO CInt |
109 | |||
94 | expint_Ei_scaled :: Double -> Double | 110 | expint_Ei_scaled :: Double -> Double |
95 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled | 111 | expint_Ei_scaled = gsl_sf_expint_Ei_scaled |
96 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double | 112 | foreign import ccall "gsl_sf_expint_Ei_scaled" gsl_sf_expint_Ei_scaled :: Double -> Double |
113 | |||
97 | shi_e :: Double -> (Double,Double) | 114 | shi_e :: Double -> (Double,Double) |
98 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x | 115 | shi_e x = createSFR "shi_e" $ gsl_sf_Shi_e x |
99 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt | 116 | foreign import ccall "gsl_sf_Shi_e" gsl_sf_Shi_e :: Double -> Ptr () -> IO CInt |
117 | |||
100 | shi :: Double -> Double | 118 | shi :: Double -> Double |
101 | shi = gsl_sf_Shi | 119 | shi = gsl_sf_Shi |
102 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double | 120 | foreign import ccall "gsl_sf_Shi" gsl_sf_Shi :: Double -> Double |
121 | |||
103 | chi_e :: Double -> (Double,Double) | 122 | chi_e :: Double -> (Double,Double) |
104 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x | 123 | chi_e x = createSFR "chi_e" $ gsl_sf_Chi_e x |
105 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt | 124 | foreign import ccall "gsl_sf_Chi_e" gsl_sf_Chi_e :: Double -> Ptr () -> IO CInt |
125 | |||
106 | chi :: Double -> Double | 126 | chi :: Double -> Double |
107 | chi = gsl_sf_Chi | 127 | chi = gsl_sf_Chi |
108 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double | 128 | foreign import ccall "gsl_sf_Chi" gsl_sf_Chi :: Double -> Double |
129 | |||
109 | expint_3_e :: Double -> (Double,Double) | 130 | expint_3_e :: Double -> (Double,Double) |
110 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x | 131 | expint_3_e x = createSFR "expint_3_e" $ gsl_sf_expint_3_e x |
111 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt | 132 | foreign import ccall "gsl_sf_expint_3_e" gsl_sf_expint_3_e :: Double -> Ptr () -> IO CInt |
133 | |||
112 | expint_3 :: Double -> Double | 134 | expint_3 :: Double -> Double |
113 | expint_3 = gsl_sf_expint_3 | 135 | expint_3 = gsl_sf_expint_3 |
114 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double | 136 | foreign import ccall "gsl_sf_expint_3" gsl_sf_expint_3 :: Double -> Double |
137 | |||
115 | si_e :: Double -> (Double,Double) | 138 | si_e :: Double -> (Double,Double) |
116 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x | 139 | si_e x = createSFR "si_e" $ gsl_sf_Si_e x |
117 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt | 140 | foreign import ccall "gsl_sf_Si_e" gsl_sf_Si_e :: Double -> Ptr () -> IO CInt |
141 | |||
118 | si :: Double -> Double | 142 | si :: Double -> Double |
119 | si = gsl_sf_Si | 143 | si = gsl_sf_Si |
120 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double | 144 | foreign import ccall "gsl_sf_Si" gsl_sf_Si :: Double -> Double |
145 | |||
121 | ci_e :: Double -> (Double,Double) | 146 | ci_e :: Double -> (Double,Double) |
122 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x | 147 | ci_e x = createSFR "ci_e" $ gsl_sf_Ci_e x |
123 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt | 148 | foreign import ccall "gsl_sf_Ci_e" gsl_sf_Ci_e :: Double -> Ptr () -> IO CInt |
149 | |||
124 | ci :: Double -> Double | 150 | ci :: Double -> Double |
125 | ci = gsl_sf_Ci | 151 | ci = gsl_sf_Ci |
126 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double | 152 | foreign import ccall "gsl_sf_Ci" gsl_sf_Ci :: Double -> Double |
153 | |||
127 | atanint_e :: Double -> (Double,Double) | 154 | atanint_e :: Double -> (Double,Double) |
128 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x | 155 | atanint_e x = createSFR "atanint_e" $ gsl_sf_atanint_e x |
129 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt | 156 | foreign import ccall "gsl_sf_atanint_e" gsl_sf_atanint_e :: Double -> Ptr () -> IO CInt |
157 | |||
130 | atanint :: Double -> Double | 158 | atanint :: Double -> Double |
131 | atanint = gsl_sf_atanint | 159 | atanint = gsl_sf_atanint |
132 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double | 160 | foreign import ccall "gsl_sf_atanint" gsl_sf_atanint :: Double -> Double |