Simulación

Mostrar rastro

Ayuda

TOCA

NO TOCA

Área cuadrícula: 1 u.c.

Exploración

Simulación

Solucion

Lanza

-

+

Solución

Simulación

Exploración

+

-

Activa rastro

Borra rastro

mueve = 3.1 (slider from -5 to 5, step 0.1)
n = 200 (slider from 1 to 200, step 1)
basemano = Segment((-2.5, -1), (-2.5, -2))
A = Point(basemano)
dist = Distance(A, (-2, -1))
r = 0.5 (slider from 0.1 to 1, step 0.05)
listapuntos = Sequence(((12 * random()) + 1 + dist - dist + mueve - mueve, (8 * random()) + dist - dist + mueve - mueve - 4), k, 1, n)
lado: (2 * (1 - r))
lista1 = Sequence(If[(abs(x(Element[listapuntos, k]) - round(x(Element[listapuntos, k]))) ≤ r / 2) ∨ (abs(y(Element[listapuntos, k]) - round(y(Element[listapuntos, k]))) ≤ r / 2), 1, 0], k, 1, n)
tapete, b, c, d, e = Polygon((0.7, -4.3), (13.3, -4.3), (13.3, 4.3), (0.7, 4.3))
a = Sum(lista1)
z = 2 (slider from 0 to 2, step 1)
listacuadriculax = Sequence(Segment[(1, k - 4), (13, k - 4)], k, 0, 8)
listacuadriculay = Sequence(Segment[(k + 1, (-4)), (k + 1, 4)], k, 0, 12)
Centroficha: ((4 * random()) + mueve - mueve + dist - dist + 2, (4 * random()) + mueve - mueve + dist - dist - 1)
listacuadx = Sequence(Segment[((4 * k) + 2, (-2)), ((4 * k) + 2, 4)], k, 0, 1)
listacuady = Sequence(Segment[(1, -1 + (4 * k)), (7, -1 + (4 * k))], k, 0, 1)
Centrofichamanual = (8.08, 1)
Centrotraza: Centrofichamanual
g = false
h = false
listacuadx1 = Sequence(Segment[(k + 2, -1), (k + 2, 3)], k, 1, 3)
pintado, f, i, j, k = Polygon((4, 1) + ((-lado), (-lado)), (4, 1) + (lado, (-lado)), (4, 1) + (lado, lado), (4, 1) + ((-lado), lado))
listacuady1 = Sequence(Segment[(2, -1 + k), (6, -1 + k)], k, 1, 3)
listacuady2 = Sequence(Segment[(2, -1 + (0.5 * k)), (6, -1 + (0.5 * k))], k, 1, 7)
listacuadx2 = Sequence(Segment[((0.5 * k) + 2, -1), ((0.5 * k) + 2, 3)], k, 1, 7)
B = (9.540000000000001, -0.7000000000000001)
toca = If((x(Centroficha) - (2 * r) > 2) ∧ (x(Centroficha) + (2 * r)  <  6) ∧ (y(Centroficha) - (2 * r) > -1) ∧ (y(Centroficha) + (2 * r)  <  3), 0, 1)
listacircu = Sequence(Circle[Element[listapuntos, k], r / 2], k, 1, n)
x1 = -1 (slider from -1.5 to -1, step 0.1)
y1 = -0.25 (slider from -0.25 to 0.25, step 0.05)
texto1: "Proporción:  \;   p \;  =  \; \frac{ t }{n } \;  = \;  \frac{" + a + " }{" + n + "} \;  = \; " + (a / n)
texto12: "Área no coloreada: " + (1 - pintado / 16) + " u.c."
texto11: "Área coloreada: " + (pintado / 16) + " u.c."
texto7: "Diámetro: " + r + ""
solu = 0
simu = 0
explo = 1
texto6: "Nº de monedas: " + n + ""
texto2: "Nº de monedas que tocan: " + a + ""