Inicio

P: (0.2, 1.75)
laberinto = Polygon({(-0.1, 2.6), (7.6, 2.6), (7.6, -4.5), (7, -4.5), (7, -4.4), (7.5, -4.4), (7.5, -4), (6.6, -4), (6.6, -4.5), (6, -4.5), (6, -4.4), (6.5, -4.4), (6.5, -3.9), (7.5, -3.9), (7.5, -1.5), (6, -1.5), (6, -2.5), (5.5, -2.5), (5.5, -2), (4.6, -2), (4.6, -2.5), (4.5, -2.5), (4.5, -2), (3.6, -2), (3.6, -2.5), (1.6, -2.5), (1.6, -3.5), (1.5, -3.5), (1.5, -2.4), (2.4, -2.4), (2.4, -1.9), (2.5, -1.9), (2.5, -2.4), (3.5, -2.4), (3.5, -1.9), (5.6, -1.9), (5.6, -2.4), (5.9, -2.4), (5.9, -1.5), (4.5, -1.5), (4.5, 0), (3.4, 0), (3.4, 1), (3, 1), (3, -0.5), (2.9, -0.5), (2.9, 0), (2.5, 0), (2.5, 0.1), (2.9, 0.1), (2.9, 1), (2.5, 1), (2.5, 1.1), (2.9, 1.1), (2.9, 2.1), (3.5, 2.1), (3.5, 2), (3, 2), (3, 1.1), (3.5, 1.1), (3.5, 0.1), (4.5, 0.1), (4.5, 0.6), (4.9, 0.6), (4.9, 2.1), (6.5, 2.1), (6.5, 1.6), (7, 1.6), (7, 1.5), (6.4, 1.5), (6.4, 2), (5, 2), (5, 1.1), (5.5, 1.1), (5.5, 1), (5, 1), (5, 0.5), (4.6, 0.5), (4.6, -0.4), (6.9, -0.4), (6.9, 0.1), (7, 0.1), (7, -1), (6.9, -1), (6.9, -0.5), (5.5, -0.5), (5.5, -1), (5, -1), (5, -0.9), (5.4, -0.9), (5.4, -0.5), (4.6, -0.5), (4.6, -1.4), (5.9, -1.4), (5.9, -0.9), (6.5, -0.9), (6.5, -1), (6, -1), (6, -1.4), (7.5, -1.4), (7.5, 1), (6, 1), (6, 0.5), (5.5, 0.5), (5.5, 0.1), (6.4, 0.1), (6.4, 0.6), (7, 0.6), (7, 0.5), (6.5, 0.5), (6.5, 0), (5, 0), (5, 0.1), (5.4, 0.1), (5.4, 0.6), (5.9, 0.6), (5.9, 1.5), (5.5, 1.5), (5.5, 1.6), (6, 1.6), (6, 1.1), (7.5, 1.1), (7.5, 2), (7, 2), (7, 2.1), (7.5, 2.1), (7.5, 2.5), (4.5, 2.5), (4.5, 1), (4, 1), (4, 0.5), (3.9, 0.5), (3.9, 1.5), (3.5, 1.5), (3.5, 1.6), (3.9, 1.6), (3.9, 2.1), (4, 2.1), (4, 1.1), (4.4, 1.1), (4.4, 2.5), (2.5, 2.5), (2.5, 1.5), (2.1, 1.5), (2.1, 0.6), (2.5, 0.6), (2.5, 0.5), (2.1, 0.5), (2.1, -0.4), (2.5, -0.4), (2.5, -0.9), (3.4, -0.9), (3.4, -0.4), (4.1, -0.4), (4.1, -1.5), (3, -1.5), (3, -2), (2.9, -2), (2.9, -1.5), (2.1, -1.5), (2.1, -2), (1.1, -2), (1.1, -3.9), (2, -3.9), (2, -2.9), (3, -2.9), (3, -3), (2.6, -3), (2.6, -3.5), (2.5, -3.5), (2.5, -3), (2.1, -3), (2.1, -4.4), (2.6, -4.4), (2.6, -4.5), (2, -4.5), (2, -4), (1, -4), (1, -3), (0.5, -3), (0.5, -2.9), (1, -2.9), (1, -2), (0.5, -2), (0.5, -1.9), (2, -1.9), (2, -0.9), (2.1, -0.9), (2.1, -1.4), (4, -1.4), (4, -0.5), (3.5, -0.5), (3.5, -1), (2.4, -1), (2.4, -0.5), (1.1, -0.5), (1.1, -1), (0.4, -1), (0.4, 0.1), (1.4, 0.1), (1.4, 1), (0.4, 1), (0.4, 1.1), (0.9, 1.1), (0.9, 1.6), (1, 1.6), (1, 1.1), (1.5, 1.1), (1.5, 0), (0.5, 0), (0.5, -0.9), (1, -0.9), (1, -0.4), (2, -0.4), (2, 2), (2.1, 2), (2.1, 1.6), (2.4, 1.6), (2.4, 2.5), (0, 2.5), (0, 1.6), (0.4, 1.6), (0.4, 2.1), (1.5, 2.1), (1.5, 1.5), (1.4, 1.5), (1.4, 2), (0.5, 2), (0.5, 1.5), (0, 1.5), (0, 0.6), (1, 0.6), (1, 0.5), (0, 0.5), (0, -1.4), (1.5, -1.4), (1.5, -0.9), (1.6, -0.9), (1.6, -1.5), (0, -1.5), (0, -2.4), (0.5, -2.4), (0.5, -2.5), (0, -2.5), (0, -4.9), (1.5, -4.9), (1.5, -4.5), (0.5, -4.5), (0.5, -3.4), (0.6, -3.4), (0.6, -4.4), (1.6, -4.4), (1.6, -4.9), (3.5, -4.9), (3.5, -3.9), (4, -3.9), (4, -3.4), (4.1, -3.4), (4.1, -4.4), (5, -4.4), (5, -4.5), (4, -4.5), (4, -4), (3.6, -4), (3.6, -4.9), (5.4, -4.9), (5.4, -4), (4.5, -4), (4.5, -3), (3.6, -3), (3.6, -3.5), (3.1, -3.5), (3.1, -4.5), (3, -4.5), (3, -4), (2.5, -4), (2.5, -3.9), (3, -3.9), (3, -3.4), (3.5, -3.4), (3.5, -2.9), (4, -2.9), (4, -2.4), (4.1, -2.4), (4.1, -2.9), (5, -2.9), (5, -2.4), (5.1, -2.4), (5.1, -2.9), (6.5, -2.9), (6.5, -1.9), (7.1, -1.9), (7.1, -3.5), (6.1, -3.5), (6.1, -4), (6, -4), (6, -3.5), (5, -3.5), (5, -3.4), (7, -3.4), (7, -2), (6.6, -2), (6.6, -3), (4.6, -3), (4.6, -3.9), (5.5, -3.9), (5.5, -4.9), (7.6, -4.9), (7.6, -5), (-0.1, -5)})
v = (0.1, 0)
r1 = Ray(P, P + v)
vn: (-OrthogonalVector[v])
t = 0.803 (slider from 0 to 1, step 0.001)
r2 = Ray(P, P + vn)
pA = RemoveUndefined({Intersect[r1, laberinto]})
pD = RemoveUndefined({Intersect[r2, laberinto]})
dA = Sequence(Distance[P, Element[pA, k]], k, 1, Length[pA])
dD = Sequence(Distance[P, Element[pD, k]], k, 1, Length[pD])
Pa = Element(pA, IndexOf[Min[dA], dA])
Pd = Element(pD, IndexOf[Min[dD], dD])
dPA = Distance(P, Pa)
dPD = Distance(P, Pd)