ocular rewritten

when green flag clicked

set [n v] to [500] //n (# subintervals)
set [b v] to [2] //
set [a v] to [-2]
set [i v] to [0]
set [integral v] to [0]
repeat ((n) + (1))
  set [x v] to (((((b) - (a)) / (n)) * (i)) + (a))
  if <<(i) = [0]> or <(i) = (n)>> then
    change [integral v] by ((((b) - (a)) / ((2) * (n))) * ([e ^ v] of ((-1) * ((x) * (x))))) //
  else
    change [integral v] by ((2) * ((((b) - (a)) / ((2) * (n))) * ([e ^ v] of ((-1) * ((x) * (x))))))
  end
  change [i v] by (1)
end