diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-08 08:48:12 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-08 08:48:12 +0200 |
commit | 1925c123d7d8184a1d2ddc0a413e0fd2776e1083 (patch) | |
tree | fad79f909d9c3be53d68e6ebd67202650536d387 /examples/deriv.hs | |
parent | eb3f702d065a4a967bb754977233e6eec408fd1f (diff) |
empty hmatrix-base
Diffstat (limited to 'examples/deriv.hs')
-rw-r--r-- | examples/deriv.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/examples/deriv.hs b/examples/deriv.hs deleted file mode 100644 index c9456d1..0000000 --- a/examples/deriv.hs +++ /dev/null | |||
@@ -1,8 +0,0 @@ | |||
1 | -- Numerical differentiation | ||
2 | |||
3 | import Numeric.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 | ||