population aléatoire

Dans cette population, la probabilité d'apparition des losanges violets est fixée par le curseur P.
P=0 : Aucun losange violet
P=1 : Aucun rond gris

P = 0.25 (slider from 0 to 1, step 0.05)
liste0 = Sequence(If[i - i + floor(random() + P) ≟ 0.0, (i - 1.0 - 50.0 * floor((i - 1.0) / 50.0), floor((i - 1.0) / 50.0))], i, 1.0, 1000.0)
liste0triée = RemoveUndefined(liste0)
liste1 = Sequence(If[Defined[Element[liste0, i]] ≟ false, (i - 1.0 - 50.0 * floor((i - 1.0) / 50.0), floor((i - 1.0) / 50.0))], i, 1.0, 1000.0)
liste1triée = RemoveUndefined(liste1)
Nb1 = Length(liste1triée)
Nb0 = Length(liste0triée)
texte1: Nb1 + ""
texte2: Nb0 + ""