Longitud

Nº de agujas

Exploración

Simulación

Análisis

TOCA

NO TOCA

3.14159...

Simulador

Ayuda

B = (-2.7600000000000002, -3.2800000000000002)
d_1 = Circle(B, 0.5)
C = Point(d_1)
ar = Arc(d_1, B + (0.5, 0.0), C)
n = 200 (slider from 1 to 500, step 1)
nada = 2.3 (slider from -5 to 5, step 0.1)
listapuntos = Sequence((12.0 * random() + 1.0 + k - k + nada - nada + ar - ar, 8.0 * random() - 4.0 + k - k + nada - nada), k, 1.0, n)
l = 1 (slider from 0 to 1, step 0.1)
listaextremo1 = Sequence(Rotate[Element[listapuntos, k] + (l / 2.0, 0.0), 180.0° * random() + k - k, Element[listapuntos, k]], k, 1.0, n)
listacircunferencias = Sequence(Circle[Element[listapuntos, k], 0.5], k, 1.0, n)
listaextremo2 = Sequence(Mirror[Element[listaextremo1, k], Element[listapuntos, k]], k, 1.0, n)
listasegmentos = Sequence(Segment[Element[listaextremo1, k], Element[listaextremo2, k]], k, 1.0, n)
listarecuento = Sequence(If[floor(y(Element[listaextremo1, k])) ≟ floor(y(Element[listaextremo2, k])), 0.0, 1.0], k, 1.0, n)
tapete, a, b, c, d = Polygon((0.7, -4.3), (13.3, -4.3), (13.3, 4.3), (0.7, 4.3))
tocan = Sum(listarecuento)
texto2: "Tocan: " + tocan
listarayado = Sequence(Segment[(1.0, -(4.0) + k), (13.0, -(4.0) + k)], k, 0.0, 8.0)
z = 2 (slider from 0 to 2, step 1)
Centroaguja: (8.0 * random() + 1.0 + nada - nada, 4.0 * random() - 2.0 + nada - nada)
extremo1 = Rotate(Centroaguja + (2.0 * l, 0.0), 180.0° * random() + nada - nada, Centroaguja)
extremo2 = Mirror(extremo1, Centroaguja)
aguja = Segment(extremo1, extremo2)
A = (11, -1.5)
tapete2, e, f, g, h = Polygon((-0.5, -3.5), (10.5, -3.5), (10.5, 3.5), (-0.5, 3.5))
recuento1 = If(y(extremo1) < 2.0 ∧ y(extremo1) > -(2.0) ∧ y(extremo2) < 2.0 ∧ y(extremo2) > -(2.0), 0.0, 1.0)
barrafija, t, a_1, b_1, c_1 = Polygon((-0.7, 0.0), (14.0, 0.0), (14.0, 1.0), (-0.7, 1.0))
rayadox1 = Segment((0.0, 2.0), (10.0, 2.0))
barrapi, i, j, k, m = Polygon((1.0, 0.0), (10.42478, 0.0), (10.42478, 1.0), (1.0, 1.0))
rayadox0 = Segment((0.0, -2.0), (10.0, -2.0))
aproximapi: n / tocan
barrapiap, p, q, r, s = Polygon((1.0, 0.0), (1.0 + 3.0 * aproximapi, 0.0), (1.0 + 3.0 * aproximapi, 1.0), (1.0, 1.0))
marcas = Sequence(Segment[(1.0 + 3.0 * k, -(0.1)), (1.0 + 3.0 * k, 1.1)], k, 0.0, 4.0)
rotulos = Sequence(Text[k, (1.0 + 3.0 * k - 0.1, 1.2)], k, 0.0, 4.0)
vectorpiap = Vector((1.0 + 3.0 * aproximapi, -(1.5)), (1.0 + 3.0 * aproximapi, -(0.1)))
texto1: "p= \frac{ t }{n }= \frac{ " + tocan + " }{" + n + " }=" + (tocan / n)
vectorpi = Vector((10.42478, 2.3), (10.42478, 1.2))
texto12: " \frac{ 1 }{ p} =" + aproximapi
ang = Angle(C, B, (1.0, 0.0))
ayuda = false