Tamaño de la muestra

Nivel de confianza (%)

Cota de error

Media de la muestra

Desviación típica

Nivel de confianza

tam = false
nivel = 95 (slider from 0 to 99.9, step 0.1)
n = 130 (slider from 1 to 250, step 1)
dt = 57 (slider from 0 to m, step 0.1)
e = 9.8 (slider from 0 to (3 * dt / sqrt(n)), step 0.1)
cota = false
z = If(tam ≟ true ∧ cota ≟ true, (e * sqrt(n) / dt), InverseNormal[0, 1, 1 - (1 - nivel / 100) / 2])
m = 100 (slider from 1 to 200, step 1)
f(x) = (1 / sqrt((2 * π)) * ℯ^(((-x^(2))) / 2))
fp(x) = (1 / dt * f((x - m) / dt))
fteo(x) = (1 / dt * f((x - m) / (dt / sqrt(n))))
a = Segment((m, 0), (m, fp(m)))
C = If(cota ≟ false, (m - (z * dt / sqrt(n)), 0), (m - e, 0))
A: (m, 0)
D = If(cota ≟ false, (m + (z * dt / sqrt(n)), 0), (m + e, 0))
texto1: "1-α=" + (nivel / 100) + "  ⇒  α/2=" + ((1 - nivel / 100) / 2) + "
-z_{α/2}=NormalInversa[0,1,α/2]=" + (InverseNormal[0, 1, (1 - nivel / 100) / 2]) + "
z_{α/2}=NormalInversa[0,1,1-α/2]= " + (InverseNormal[0, 1, 1 - (1 - nivel / 100) / 2]) + ""
b1 = Segment((x(C), 0), (x(C), fteo(x(C))))
b2 = Segment((x(D), 0), (x(D), fteo(x(D))))
c = Integral(fteo, x(C), x(D))
texto6: "Error=" + (LaTeX[z]) + " · \frac{" + (LaTeX[dt]) + "}{\sqrt{" + (LaTeX[n]) + "}}=" + (LaTeX[(z * dt / sqrt(n))]) + ""
niv = false
n1: floor(((z * dt / e))^(2)) + 1
texto5: "n=\left( " + (LaTeX[z]) + " \frac{" + (LaTeX[dt]) + "}{" + (LaTeX[e]) + "} \right)^{2}=" + (LaTeX[((z * dt / e))^(2)]) + "≈" + (LaTeX[n1]) + ""
texto7: "z \; = \;  \frac{" + (LaTeX[e]) + "\sqrt{" + (LaTeX[n]) + "}}{" + (LaTeX[dt]) + "} \;  = \;  " + (LaTeX[(e * sqrt(n) / dt)]) + " "
texto8: "α/2 = Normal(0,1," + ((-z)) + ") = " + (Normal[0, 1, (-z)]) + "
     1−α = " + (1 - (2 * Normal[0, 1, (-z)])) + "  ⇒  " + ((100 * (1 - (2 * Normal[0, 1, (-z)])))) + "%"
texto4: "\begin{array}{} Intervalo  \;de \;  confianza: \;  \\  \left [ " + (LaTeX[x(C)]) + " , " + (LaTeX[x(D)]) + " \right ]  \end{array} "