On répète N fois le tirage d'un échantillon de n individus dont une proportion p inconnue a un certain caractère.
On représente pour chaque échantillon la fréquence observée du carctère (point rouge) et l'intervalle de confiance 
au seuil de 95% associé. 
L'objectif est de déterminer cette proportion p. Pour cela on cherche la valeur f qui est dans le plus grand nombre 
d'intrevlles de confiance.

Afficher p

des intervalles de confiance.

Nouvelle valeur de p

Vérifer

Bravo !

bravo

Bien.

Taille des échantillons:

p

B: (0, 1)
p = 0.54 (slider from 0 to 1, step 0.01)
A = Intersect(xAxis, yAxis)
g = Segment(A, B)
C: (0, p)
p_1: p
n = 100 (slider from 10 to 2000, step 10)
k = 60 (slider from 10 to 500, step 10)
liste1 = Sequence(RandomBinomial[n, p_1] / n, l, 1, k)
listemin: liste1 - 1 / sqrt(n)
listemax: liste1 + 1 / sqrt(n)
liste2 = Sequence(Segment[(l, liste1(l) - 1 / sqrt(n)), (l, liste1(l) + 1 / sqrt(n))], l, 1, k)
f: y = p
liste3 = Sequence(Intersect[f, Element[liste2, i]], i, 1, Length[liste2])
liste4 = RemoveUndefined(liste3)
a = Length(liste4)
freq: a / k
texte2 = LaTeX(freq, true, true)
b = false
liste5 = Sequence((l, liste1(l)), l, 1, k)
m: y(C)
freqpc: (100 * freq)
texte6: "p=" + p + ""
c = true
texte4: "$p=" + (LaTeX[m]) + " \text{ appartient à } " + (LaTeX[freqpc]) + " \text{ %}$"