cleanup
This commit is contained in:
parent
5cf17f5dbf
commit
cdc49b378a
|
@ -1,13 +0,0 @@
|
||||||
integrate(fun, min, max) = {
|
|
||||||
// assume that min and max are integers.
|
|
||||||
epsilon = 1
|
|
||||||
l = max - min
|
|
||||||
meanF(t) = fun(t)
|
|
||||||
intervals = map(List.upTo(0, (l/epsilon)), ({|n| min + n*epsilon}))
|
|
||||||
values = map(intervals, ({ |x | meanF(x)}))
|
|
||||||
result = reduce(values, 0, ({|acc, x| acc + x})) * epsilon
|
|
||||||
result
|
|
||||||
}
|
|
||||||
|
|
||||||
f(x) = x
|
|
||||||
integrate(f, 1, 100k)
|
|
Loading…
Reference in New Issue
Block a user