x

\phi(k)

k

f(x)

σ = 0.42 (slider from 0 to 1, step 0.01)
k_0 = 3.1 (slider from 0 to 10, step 0.1)
ϕ(x) = (1 / ((sqrt((2 * pi)) * σ)) * ℯ^(((-(x - k_0)^(2))) / ((2 * σ^(2)))))
h = Integral(ϕ, -100, 100)
n = 1 (slider from 1 to 50, step 1)
N = 1.4 (slider from 0.1 to 10, step 0.1)
d: ((2 * N) * σ / n)
l1 = Sequence(Segment[(k_0 - (N * σ) - d / 2 + (k * d), 0), (k_0 - (N * σ) - d / 2 + (k * d), ϕ(k_0 - (N * σ) - d / 2 + (k * d)))], k, 1, n)
A = 2.1 (slider from 0.1 to 10, step 0.1)
B: (k_0 - (N * σ), 0)
C: (k_0 + (N * σ), 0)
D: (k_0, 0)
E: (k_0, ϕ(k_0))
g = Segment(E, D)