diff options
Diffstat (limited to 'packages/hmatrix/examples/deriv.hs')
-rw-r--r-- | packages/hmatrix/examples/deriv.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/packages/hmatrix/examples/deriv.hs b/packages/hmatrix/examples/deriv.hs deleted file mode 100644 index c9456d1..0000000 --- a/packages/hmatrix/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 | ||