Distancia a casa (m)

Tiempo (min)

Mostrar puntos

Mostrar puntos

x30 = Segment((13.0, -3.0), (13.0, 5.0))
P30 = Point(x30)
x29 = Segment((12.5, -3.0), (12.5, 5.0))
P29 = Point(x29)
x28 = Segment((12.0, -3.0), (12.0, 5.0))
P28 = Point(x28)
x27 = Segment((11.5, -3.0), (11.5, 5.0))
P27 = Point(x27)
x26 = Segment((11.0, -3.0), (11.0, 5.0))
P26 = Point(x26)
x25 = Segment((10.5, -3.0), (10.5, 5.0))
P25 = Point(x25)
x24 = Segment((10.0, -3.0), (10.0, 5.0))
P24 = Point(x24)
x23 = Segment((9.5, -3.0), (9.5, 5.0))
P23 = Point(x23)
x22 = Segment((9.0, -3.0), (9.0, 5.0))
P22 = Point(x22)
x21 = Segment((8.5, -3.0), (8.5, 5.0))
P21 = Point(x21)
x20 = Segment((8.0, -3.0), (8.0, 5.0))
P20 = Point(x20)
x19 = Segment((7.5, -3.0), (7.5, 5.0))
P19 = Point(x19)
x18 = Segment((7.0, -3.0), (7.0, 5.0))
P18 = Point(x18)
x17 = Segment((6.5, -3.0), (6.5, 5.0))
P17 = Point(x17)
x16 = Segment((6.0, -3.0), (6.0, 5.0))
P16 = Point(x16)
x15 = Segment((5.5, -3.0), (5.5, 5.0))
P15 = Point(x15)
x14 = Segment((5.0, -3.0), (5.0, 5.0))
P14 = Point(x14)
x13 = Segment((4.5, -3.0), (4.5, 5.0))
P13 = Point(x13)
x0 = Segment((-2.0, -3.0), (-2.0, 5.0))
P0 = Point(x0)
x1 = Segment((-1.5, -3.0), (-1.5, 5.0))
P1 = Point(x1)
x2 = Segment((-1.0, -3.0), (-1.0, 5.0))
P2 = Point(x2)
x3 = Segment((-0.5, -3.0), (-0.5, 5.0))
P3 = Point(x3)
x4 = Segment((0.0, -3.0), (0.0, 5.0))
P4 = Point(x4)
x5 = Segment((0.5, -3.0), (0.5, 5.0))
P5 = Point(x5)
x6 = Segment((1.0, -3.0), (1.0, 5.0))
P6 = Point(x6)
x7 = Segment((1.5, -3.0), (1.5, 5.0))
P7 = Point(x7)
x8 = Segment((2.0, -3.0), (2.0, 5.0))
P8 = Point(x8)
x9 = Segment((2.5, -3.0), (2.5, 5.0))
P9 = Point(x9)
x10 = Segment((3.0, -3.0), (3.0, 5.0))
P10 = Point(x10)
x11 = Segment((3.5, -3.0), (3.5, 5.0))
P11 = Point(x11)
x12 = Segment((4.0, -3.0), (4.0, 5.0))
P12 = Point(x12)
listapuntos1: {P0, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, P14, P15, P16, P17, P18, P19, P20, P21, P22, P23, P24, P25, P26, P27, P28, P29, P30}
listasegmentos = Sequence(Segment[Element[listapuntos1, k], Element[listapuntos1, k + 1.0]], k, 0.0, 30.0)
listaordenadas = Sequence(Segment[(0.5 * k - 2.0, -(3.0)), Element[listapuntos1, k + 1.0]], k, 1.0, 30.0)
ejex = Segment((-2.3, -3.0), (13.3, -3.0))
marcasx = Sequence(Segment[(k - 2.0, -(3.05)), (k - 2.0, -(2.955))], k, 0.0, 15.0)
marcasy = Sequence(Segment[(-(2.05), k - 3.0), (-(1.95), k - 3.0)], k, 0.0, 8.0)
rotulosx = Sequence(Text[10.0 * k, If[k > 9.0, (k - 2.25, -(3.4)), (k - 2.15, -(3.4))]], k, 0.0, 15.0)
rotulosy = Sequence(Text[100.0 * k, (-(2.65), k - 3.1)], k, 1.0, 8.0)
ejey = Segment((-2.0, -3.15), (-2.0, 5.2))
a = false
A = Point(Polygon[P0, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, P14, P15, P16, P17, P18, P19, P20, P21, P22, P23, P24, P25, P26, P27, P28, P29, P30, P29, P28, P27, P26, P25, P24, P23, P22, P21, P20, P19, P18, P17, P16, P15, P14, P13, P12, P11, P10, P9, P8, P7, P6, P5, P4, P3, P2, P1])
B: (-(3.25), y(A))
b = Segment(B, A)