vulgewicht pakken suiker

σ = 3 (slider from 0 to 10, step 0.1)
μ = 1000 (slider from 990 to 1010, step 1)
f(x) = 1 / (σ 2.5066282746310002) exp(-0.5 ((x - μ) / σ)²)
g = 997 (slider from 990 to 1010, step 0.1)
a: x = g
c = Integral(f(x), 990, g)
b: x = μ
A = Intersect(f, b, (1000, 0.2))
B = Intersect(b, xAxis)
d = Segment(A, B)
e: x = μ + σ
D = Intersect(f, e, (1001.9756765463918, 0.12171314741035982))
h: x = μ - σ
C = Intersect(f, h, (997.8680734536083, 0.11752988047808892))
i = Segment(C, D)
E = Intersect(d, i)