Exploración

Simulación

Solución

Ayuda

Mostrar rastro

Velocidad de simulación

z = 2 (slider from 0 to 2, step 1)
A1 = If(z < 2, (-2, -3), (2, -3))
long = 8 (slider from 0 to 8, step 0.1)
base = Segment(A1, A1 + (long, 0))
D = Point(base)
L = Point(base)
avanza = 2.5 (slider from -5 to 5, step 0.1)
P1 = If(z > 0, A1 + ((long * random()), 0) + avanza - avanza, L)
P2: A1 + ((long * random()), 0) + avanza - avanza
Lpuntos0 = If(z > 0, {x(P1), x(P2)}, {x(P1), x(D)})
max0 = Max(Lpuntos0)
c2 = Circle((max0, y(A1)), A1 + (long, 0))
C = Point(c2)
lado3 = Segment(C, (max0, y(A1)))
min0 = Min(Lpuntos0)
c1 = Circle((min0, y(A1)), A1)
B = Point(c1)
lado1 = Segment(B, (min0, y(A1)))
lado2 = If(z > 0, Segment[P1, P2], Segment[P1, D])
Llados: {lado1, lado2, lado3}
mayorlado = Max(Llados)
lado1falso = Segment((min0, y(A1)), (min0, y(A1) - (x(A1) - min0)))
lado2falso = Segment((max0, y(A1)), (max0, y(A1) + x(A1) + long - max0))
α = Angle(B, (min0, y(A1)), A1)
β = Angle(A1 + (long, 0), (max0, y(A1)), C)
arco1 = Arc(c1, Mirror[A1, (min0, y(A1))], A1)
arco2 = Arc(c2, A1 + (long, 0), Mirror[A1 + (long, 0), (min0, y(A1))])
cuadrado, a, b, c, d = Polygon((7, -2), (7 + long, (-2)), (7 + long, (-2) + long), (7, (-2) + long))
A = Intersect(c1, c2, 1)
polígono1, a_1, p1, p2 = Polygon(P1, P2, A)
Marcasimu: (lado1falso + 7, long - lado2falso - 2)
Marca1simu: Marcasimu
e = 0 (slider from 0 to 5, step 0.1)
posible = If(polígono1 > 0, 1, 0)
Marca2simu: Marcasimu
polígono2, f, g, h = Polygon((7, y(A1) + 1 + long / 2), (7 + long / 2, y(A1) + 1 + long / 2), (7 + long / 2, y(A1) + 1 + long))
ayuda = false
rastro = false
lado2sol = Segment(P1, D)
A2: A1 + (long, 0)
compara1 = If(x(D) < x(P1), 1, 0)
c1soliz = Circle(D, A1)
c1solder = Circle(D, A2)
c2solder = Circle(P1, A2)
c2soliz = Circle(P1, A1)
arco1soliz = Arc(c1soliz, Mirror[A1, D], A1)
arco1solder = Arc(c1solder, A2, Mirror[A2, D])
A12 = Point(arco1solder)
A11 = Point(arco1soliz)
lado1solder = Segment(D, A12)
lado1soliz = Segment(A11, D)
arco2solder = Arc(c2solder, A2, Mirror[A2, P1])
arco2soliz = Arc(c2soliz, A2, Mirror[A2, P1])
A21 = Point(arco2soliz)
A22 = Point(arco2solder)
lado3soliz = Segment(P1, A21)
lado3solder = Segment(P1, A22)
Lcuartos = Sequence(A1 + (k * (long / 4, 0)), k, 1, 3)
Extre2falso: (max0, y(A1) + x(A1) + long - max0)
Extre1falso: (min0, y(A1) - (x(A1) - min0))
Lpuntos1: {x(P1), x(D)}
solucion = If(mayorlado < Sum[Llados] - mayorlado, 1, 0)
E, H = Intersect(arco2soliz, arco1solder)
Marcasol: (x(P1) - x(A1) + 7, x(D) - x(A1) - 2)
F = (10, -2.5)
G = (10.38, -2.5)
l = Segment(F, G)
I = Point(l)
polígono3, j, k, m = Polygon((7 + long / 2, y(A1) + 1 + long / 2), (7 + long, y(A1) + 1 + long / 2), (7 + long / 2, y(A1) + 1))
Marcasol1: Marcasol
texto6: "l_2 = " + lado2
texto5: "l_1 = " + lado1
texto7: "l_3 = " + lado3
i = Segment((7, y(A1) + 1), (7 + long, y(A1) + 1 + long))
texto8: mayorlado + If[solucion ≟ 1, " < ", If[mayorlado ≟ Sum[Llados] - mayorlado, " = ", " > "]] + (Sum[Llados] - mayorlado)