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/Exp.hs | |
parent | f589b9e673c3aef62834b3e2e88d96226bb7c24f (diff) |
minor changes
Diffstat (limited to 'lib/Numeric/GSL/Special/Exp.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Exp.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Exp.hs b/lib/Numeric/GSL/Special/Exp.hs index fa3a15e..1380590 100644 --- a/lib/Numeric/GSL/Special/Exp.hs +++ b/lib/Numeric/GSL/Special/Exp.hs | |||
@@ -37,60 +37,79 @@ module Numeric.GSL.Special.Exp( | |||
37 | import Foreign(Ptr) | 37 | import Foreign(Ptr) |
38 | import Foreign.C.Types(CInt) | 38 | import Foreign.C.Types(CInt) |
39 | import Numeric.GSL.Special.Internal | 39 | import Numeric.GSL.Special.Internal |
40 | |||
40 | exp_e :: Double -> (Double,Double) | 41 | exp_e :: Double -> (Double,Double) |
41 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x | 42 | exp_e x = createSFR "exp_e" $ gsl_sf_exp_e x |
42 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt | 43 | foreign import ccall "gsl_sf_exp_e" gsl_sf_exp_e :: Double -> Ptr () -> IO CInt |
44 | |||
43 | exp :: Double -> Double | 45 | exp :: Double -> Double |
44 | exp = gsl_sf_exp | 46 | exp = gsl_sf_exp |
45 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double | 47 | foreign import ccall "gsl_sf_exp" gsl_sf_exp :: Double -> Double |
48 | |||
46 | exp_e10_e :: Double -> (Double,Int,Double) | 49 | exp_e10_e :: Double -> (Double,Int,Double) |
47 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x | 50 | exp_e10_e x = createSFR_E10 "exp_e10_e" $ gsl_sf_exp_e10_e x |
48 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt | 51 | foreign import ccall "gsl_sf_exp_e10_e" gsl_sf_exp_e10_e :: Double -> Ptr () -> IO CInt |
52 | |||
49 | exp_mult_e :: Double -> Double -> (Double,Double) | 53 | exp_mult_e :: Double -> Double -> (Double,Double) |
50 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y | 54 | exp_mult_e x y = createSFR "exp_mult_e" $ gsl_sf_exp_mult_e x y |
51 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt | 55 | foreign import ccall "gsl_sf_exp_mult_e" gsl_sf_exp_mult_e :: Double -> Double -> Ptr () -> IO CInt |
56 | |||
52 | exp_mult :: Double -> Double -> Double | 57 | exp_mult :: Double -> Double -> Double |
53 | exp_mult = gsl_sf_exp_mult | 58 | exp_mult = gsl_sf_exp_mult |
54 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double | 59 | foreign import ccall "gsl_sf_exp_mult" gsl_sf_exp_mult :: Double -> Double -> Double |
60 | |||
55 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) | 61 | exp_mult_e10_e :: Double -> Double -> (Double,Int,Double) |
56 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y | 62 | exp_mult_e10_e x y = createSFR_E10 "exp_mult_e10_e" $ gsl_sf_exp_mult_e10_e x y |
57 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt | 63 | foreign import ccall "gsl_sf_exp_mult_e10_e" gsl_sf_exp_mult_e10_e :: Double -> Double -> Ptr () -> IO CInt |
64 | |||
58 | expm1_e :: Double -> (Double,Double) | 65 | expm1_e :: Double -> (Double,Double) |
59 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x | 66 | expm1_e x = createSFR "expm1_e" $ gsl_sf_expm1_e x |
60 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt | 67 | foreign import ccall "gsl_sf_expm1_e" gsl_sf_expm1_e :: Double -> Ptr () -> IO CInt |
68 | |||
61 | expm1 :: Double -> Double | 69 | expm1 :: Double -> Double |
62 | expm1 = gsl_sf_expm1 | 70 | expm1 = gsl_sf_expm1 |
63 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double | 71 | foreign import ccall "gsl_sf_expm1" gsl_sf_expm1 :: Double -> Double |
72 | |||
64 | exprel_e :: Double -> (Double,Double) | 73 | exprel_e :: Double -> (Double,Double) |
65 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x | 74 | exprel_e x = createSFR "exprel_e" $ gsl_sf_exprel_e x |
66 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt | 75 | foreign import ccall "gsl_sf_exprel_e" gsl_sf_exprel_e :: Double -> Ptr () -> IO CInt |
76 | |||
67 | exprel :: Double -> Double | 77 | exprel :: Double -> Double |
68 | exprel = gsl_sf_exprel | 78 | exprel = gsl_sf_exprel |
69 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double | 79 | foreign import ccall "gsl_sf_exprel" gsl_sf_exprel :: Double -> Double |
80 | |||
70 | exprel_2_e :: Double -> (Double,Double) | 81 | exprel_2_e :: Double -> (Double,Double) |
71 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x | 82 | exprel_2_e x = createSFR "exprel_2_e" $ gsl_sf_exprel_2_e x |
72 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt | 83 | foreign import ccall "gsl_sf_exprel_2_e" gsl_sf_exprel_2_e :: Double -> Ptr () -> IO CInt |
84 | |||
73 | exprel_2 :: Double -> Double | 85 | exprel_2 :: Double -> Double |
74 | exprel_2 = gsl_sf_exprel_2 | 86 | exprel_2 = gsl_sf_exprel_2 |
75 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double | 87 | foreign import ccall "gsl_sf_exprel_2" gsl_sf_exprel_2 :: Double -> Double |
88 | |||
76 | exprel_n_e :: CInt -> Double -> (Double,Double) | 89 | exprel_n_e :: CInt -> Double -> (Double,Double) |
77 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x | 90 | exprel_n_e n x = createSFR "exprel_n_e" $ gsl_sf_exprel_n_e n x |
78 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt | 91 | foreign import ccall "gsl_sf_exprel_n_e" gsl_sf_exprel_n_e :: CInt -> Double -> Ptr () -> IO CInt |
92 | |||
79 | exprel_n :: CInt -> Double -> Double | 93 | exprel_n :: CInt -> Double -> Double |
80 | exprel_n = gsl_sf_exprel_n | 94 | exprel_n = gsl_sf_exprel_n |
81 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double | 95 | foreign import ccall "gsl_sf_exprel_n" gsl_sf_exprel_n :: CInt -> Double -> Double |
96 | |||
82 | exprel_n_CF_e :: Double -> Double -> (Double,Double) | 97 | exprel_n_CF_e :: Double -> Double -> (Double,Double) |
83 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x | 98 | exprel_n_CF_e n x = createSFR "exprel_n_CF_e" $ gsl_sf_exprel_n_CF_e n x |
84 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt | 99 | foreign import ccall "gsl_sf_exprel_n_CF_e" gsl_sf_exprel_n_CF_e :: Double -> Double -> Ptr () -> IO CInt |
100 | |||
85 | exp_err_e :: Double -> Double -> (Double,Double) | 101 | exp_err_e :: Double -> Double -> (Double,Double) |
86 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx | 102 | exp_err_e x dx = createSFR "exp_err_e" $ gsl_sf_exp_err_e x dx |
87 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt | 103 | foreign import ccall "gsl_sf_exp_err_e" gsl_sf_exp_err_e :: Double -> Double -> Ptr () -> IO CInt |
104 | |||
88 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) | 105 | exp_err_e10_e :: Double -> Double -> (Double,Int,Double) |
89 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx | 106 | exp_err_e10_e x dx = createSFR_E10 "exp_err_e10_e" $ gsl_sf_exp_err_e10_e x dx |
90 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt | 107 | foreign import ccall "gsl_sf_exp_err_e10_e" gsl_sf_exp_err_e10_e :: Double -> Double -> Ptr () -> IO CInt |
108 | |||
91 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) | 109 | exp_mult_err_e :: Double -> Double -> Double -> Double -> (Double,Double) |
92 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy | 110 | exp_mult_err_e x dx y dy = createSFR "exp_mult_err_e" $ gsl_sf_exp_mult_err_e x dx y dy |
93 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 111 | foreign import ccall "gsl_sf_exp_mult_err_e" gsl_sf_exp_mult_err_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |
112 | |||
94 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) | 113 | exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> (Double,Int,Double) |
95 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy | 114 | exp_mult_err_e10_e x dx y dy = createSFR_E10 "exp_mult_err_e10_e" $ gsl_sf_exp_mult_err_e10_e x dx y dy |
96 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt | 115 | foreign import ccall "gsl_sf_exp_mult_err_e10_e" gsl_sf_exp_mult_err_e10_e :: Double -> Double -> Double -> Double -> Ptr () -> IO CInt |