Ajout de points

Initialisation et réinitialisation

Nombre de points à ajouter :

nbPoints = 0
ajout = 0
Lpoints = Sequence((RandomUniform[-1, 1], RandomUniform[-1, 1]), j, 1, nbPoints)
Lin = KeepIf(x(A)^(2) + y(A)^(2) < 1, A, Lpoints)
carre, a, b, c, d = Polygon((-1, -1), (1, -1), (1, 1), (-1, 1))
cer = Circle((0, 0), 1)
ChampTexte1 = Textfield(ajout)
Lout = KeepIf(x(A)^(2) + y(A)^(2) ≥ 1, A, Lpoints)
nbPointsIn = 0
rapport = 0
texte1: "rapport=" + rapport + ""