small algorithm to approximate an integral

2022-10-26 10:28:05 +02:00 · 2022-10-26 10:28:05 +02:00 · 21ab12cc9c
parent f7b26cc80d
commit 21ab12cc9c
1 changed files with 7 additions and 0 deletions
--- a/integral-approx.hs
+++ b/integral-approx.hs
@ -0,0 +1,7 @@
+f x = x * x
+
+n = 10000
+
+integral f startX endX =
+  sum $ map (\x -> squareLen * f (x * squareLen)) [1..n]
+  where squareLen = (endX - startX) / n