Paso

Regenera la cuerda

Muchas

Reinicia

Regenera la cuerda

Muchas

Reinicia

Regenera la cuerda

Muchas

Reinicia

r = 2.5
A = (-1, 3)
c = Circle(A, r)
B: A + (1, 0)
a = Ray(A, B)
C = Point(a)
A' = Mirror(A, C)
d = Circle(C, r)
e = Circle(A', r)
paso1 = 3 (slider from 0 to 5, step 1)
P_1 = Point(c)
Q_1 = Rotate(P_1, ((random() * 2) * π), A)
sverde1 = Segment(P_1, Q_1)
srojo1 = Segment(P_1, Q_1)
lista1: {Polygon[P_1, Rotate[P_1, 2.0943951023931953, A], 3]}
lado: (r * sqrt(3))
d1 = 0.1 (slider from -5 to 5, step 0.1)
verdes1 = 0
rojos1 = 0
textov1: "Verdes: " + verdes1 + ""
texton1: "Porcentaje de éxitos: " + ((100 * verdes1 / (verdes1 + rojos1))) + " %"
b = LineBisector(A, C)
f = LineBisector(C, A')
paso2 = 3 (slider from 0 to 5, step 1)
rojos2 = 0
verdes2 = 0
d2 = 4.8 (slider from -5 to 5, step 0.1)
P_2 = Point(d)
D = Mirror(P_2, C)
g = Segment(P_2, D)
Q_2: P_2 + (random() * (D - P_2))
h = OrthogonalLine(Q_2, g)
E = Intersect(d, h, 1)
F = Intersect(d, h, 2)
srojo2 = Segment(E, F)
sverde2 = Segment(E, F)
lista2: {Polygon[P_2, Rotate[P_2, 2.0944, C], 3]}
texton2: "Porcentaje de éxitos: " + ((100 * verdes2 / (verdes2 + rojos2))) + " %"
textov2: "Verdes: " + verdes2 + ""
paso3 = 3 (slider from 0 to 5, step 1)
Q_3: A' + (r * (1 - random()^(2); ((2 * π) * random())))
d3 = 3.6 (slider from -5 to 5, step 0.1)
rojos3 = 0
verdes3 = 0
i = Segment(Q_3, A')
j = Ray(Q_3, A')
G = Intersect(e, j, 1)
lista3: {Polygon[G, Rotate[G, 2.0944, A'], 3]}
k = OrthogonalLine(Q_3, i)
H = Intersect(e, k, 2)
I = Intersect(e, k, 1)
sverde3 = Segment(H, I)
srojo3 = Segment(H, I)
texton3: "Porcentaje de éxitos: " + ((100 * verdes3 / (verdes3 + rojos3))) + " %"
textov3: "Verdes: " + verdes3 + ""
textor1: "Rojas: " + rojos1 + ""
textor2: "Rojas: " + rojos2 + ""
textor3: "Rojas: " + rojos3 + ""