Media : 

Desviación :

Intervalos alrededor de la media     

Modificar aquí el valor de la media
y de la desviación típica de vuestra
serie estadística.

Porcentaje correspondiente a 
este intervalo: 

M = 12.5 (slider from 0 to 50, step 0.1)
σ = 2.2 (slider from 1 to 5, step 0.01)
f(x) = 1.0 / (2.0 * 3.141592653589793 * σ^(2.0))^(0.5) * exp(-(x - M)^(2.0) / (2.0 * σ^(2.0)))
b = 2.05 (slider from 0 to 5, step 0.01)
g = Integral(f, M - b * σ, M + b * σ)
T5: "[  M  -  " + b + "σ ;  M +" + b + "σ  ["
T6: "[  " + (M - b * σ) + " ;  " + (M + b * σ) + "["
T8: "" + (g * 100.0) + "%"
r = Integral(f, M - b * σ, M + b * σ)
A: (M - σ * b, 0.0)
B: (M + σ * b, 0.0)
C = Midpoint(A, B)
u = Vector(C, B)
v = Vector(C, A)
a = Line(C, yAxis)
D = Intersect(f, a, (12.5, 0.18133740018246938))
c = Segment(D, C)
E = (32.57050109869543, 0.27514275113055603)
F = (50.01888058826654, 0.27456307074884273)
G = (50, 0.05)
H = (32.74440521320943, 0.050226763025785715)
poly1, e, f_1, g_1, h = Polygon(E, F, G, H)
I = Midpoint(h)
J = Midpoint(f_1)
d = Segment(I, J)