Advertisement
am1x

qtrap1m002.jl

Apr 10th, 2024
727
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Julia 0.36 KB | Fixit | 0 0
  1. func(x) = @inline exp(x) - 10.0;
  2.  
  3.  
  4. @fastmath function quad_trap(f, a, b, n)
  5.     h = (b - a) / n
  6.     res = 0.5 * (f(a) + f(b))
  7.     for i in 1:n-1
  8.         res += f(a + i*h)
  9.     end
  10.     res * h
  11. end
  12.  
  13.  
  14. function g()
  15.     a = 0.0
  16.     for _ in 1:1000000
  17.         a = quad_trap(func, -1.0, 1.0, 10000)
  18.     end
  19.     a
  20. end
  21.  
  22. println(g())
  23. #flush(stdout)
  24. @timev g()
  25.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement