diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-09-21 18:28:08 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-09-21 18:28:08 +0000 |
commit | 0198366bba7a5f2d67338633f9eb90889ffc31b2 (patch) | |
tree | 4897d90233b333ee2092e63a4b74c7bcb2d22577 /examples/deriv.hs | |
parent | d4cb2692f9dae748da23371057a983deca4b2f80 (diff) |
add examples
Diffstat (limited to 'examples/deriv.hs')
-rw-r--r-- | examples/deriv.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/examples/deriv.hs b/examples/deriv.hs new file mode 100644 index 0000000..472a284 --- /dev/null +++ b/examples/deriv.hs | |||
@@ -0,0 +1,8 @@ | |||
1 | -- Numerical differentiation | ||
2 | |||
3 | import GSL | ||
4 | |||
5 | d :: (Double -> Double) -> (Double -> Double) | ||
6 | d f x = fst $ derivCentral 0.01 f x | ||
7 | |||
8 | main = print $ d (\x-> x * d (\y-> x+y) 1) 1 | ||