\text{Loi normale } \mathcal{N} (\mu, \sigma^2) :

\mu

k = 1 (slider from 0.1 to 3.5, step 0.1)
f(x) = (1 / sqrt((2 * π)) * ℯ^(((-x^(2))) / 2))
σ = 1 (slider from 0.3 to 3, step 0.1)
μ = 0 (slider from -5 to 5, step 0.1)
g(x) = (1 / σ * f((x - μ) / σ))
A: (μ - σ, 0)
I = Integral(g, μ - (k * σ), μ + (k * σ))
B: (μ + σ, 0)
C: (μ, 0)
D: (μ, g(μ))
h = Segment(D, C)
ktext = If(k ≟ 1, "", Text[k])
borneinf: "\mu -" + ktext + " \sigma"
bornesup: "\mu +" + ktext + " \sigma"
proba: "P(" + (LaTeX[borneinf]) + " \leq X \leq " + (LaTeX[bornesup]) + ")  \simeq " + (LaTeX[I]) + ""
sigma2text = If(σ ≟ 1, "", "^2")
Normal: "X \hookrightarrow \mathcal{N} (" + (LaTeX[μ]) + "," + (LaTeX[σ]) + "" + (LaTeX[sigma2text]) + ")"