From 197e88c3b56d28840217010a2871c6ea3a4dd1a4 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 21 May 2014 10:30:55 +0200 Subject: update dependencies, move examples etc --- packages/hmatrix/examples/plot.hs | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 packages/hmatrix/examples/plot.hs (limited to 'packages/hmatrix/examples/plot.hs') diff --git a/packages/hmatrix/examples/plot.hs b/packages/hmatrix/examples/plot.hs deleted file mode 100644 index f950aa5..0000000 --- a/packages/hmatrix/examples/plot.hs +++ /dev/null @@ -1,20 +0,0 @@ -import Numeric.LinearAlgebra -import Graphics.Plot -import Numeric.GSL.Special(erf_Z, erf) - -sombrero n = f x y where - (x,y) = meshdom range range - range = linspace n (-2,2) - f x y = exp (-r2) * cos (2*r2) where - r2 = x*x+y*y - -f x = sin x + 0.5 * sin (5*x) - -gaussianPDF = erf_Z -cumdist x = 0.5 * (1+ erf (x/sqrt 2)) - -main = do - let x = linspace 1000 (-4,4) - mplot [f x] - mplot [x, mapVector cumdist x, mapVector gaussianPDF x] - mesh (sombrero 40) \ No newline at end of file -- cgit v1.2.3