Effectuer une nouvelle simulation en taper [ctrl+R]

Nétages = 10 (slider from 1 to 20, step 1)
l1 = Sequence(Sequence[(k / 2 + (h - 1) / 4, (0.5 * h)), k, 1, Nétages - h + 1], h, 1, Nétages)
trajet = Sequence(If[RandomUniform[0, 1] > 0.5, 1, 0], k, 0, Nétages)
indicePoints = Sequence(Sum[trajet, k] + 1, k, 0, Nétages)
clousTrajets = Sequence(Element[Element[l1, Nétages - k], Element[indicePoints, k + 1]], k, 0, Nétages - 1)
pointsTrajet = Sequence((x(Element[clousTrajets, k]), y(Element[clousTrajets, k]) + 0.25), k, 1, Nétages)
avantDernier = Element(pointsTrajet, Nétages)
Dernier = If(Random[0, 1] > 0.5, (x(avantDernier) - 0.25, 0.25), (x(avantDernier) + 0.25, 0.25))
trajetFinal = Union(pointsTrajet, {Dernier})
l = PolyLine(trajetFinal)
Prems: ((Nétages + 1) / 4, Nétages / 2 + 0.25)
f = Segment((0, 0), ((Nétages + 1) / 2, 0))
l3 = Sequence(Text[k, (0.25 + k / 2, -0.25)], k, 0, Nétages)
l2 = Sequence(Segment[(-0.5 + k / 2, 0.4), (-0.5 + k / 2, 0)], k, 1, Nétages + 2)