Distancia recorrida (m)

Tiempo (min)

Ejercicio 1

Ejercicio 2

Ejercicio 3

Ejercicio 4

Ejercicio 5

Ejercicio 6

Altitud (m)

Temperatura (ºC)

Precio de la
entrada (€)

Beneficios (€)

Velocidad (m/s)

Distancia (m)

Cantidad de pasta (kg)

Diámetro (cm)

x0 = Segment((-2.0, -3.0), (-2.0, 5.0))
P0 = Point(x0)
x1 = Segment((-1.0, -3.0), (-1.0, 5.0))
P1 = Point(x1)
x3 = Segment((1.0, -3.0), (1.0, 5.0))
P3 = Point(x3)
x4 = Segment((2.0, -3.0), (2.0, 5.0))
P4 = Point(x4)
x5 = Segment((3.0, -3.0), (3.0, 5.0))
P5 = Point(x5)
x6 = Segment((4.0, -3.0), (4.0, 5.0))
P6 = Point(x6)
x7 = Segment((5.0, -3.0), (5.0, 5.0))
P7 = Point(x7)
x8 = Segment((6.0, -3.0), (6.0, 5.0))
P8 = Point(x8)
x9 = Segment((7.0, -3.0), (7.0, 5.0))
P9 = Point(x9)
x10 = Segment((8.0, -3.0), (8.0, 5.0))
P10 = Point(x10)
marcasy = Sequence(Segment[(-(2.05), k - 3.0), (-(1.95), k - 3.0)], k, 0.0, 8.0)
ejey = Segment((-2.0, -3.15), (-2.0, 5.2))
x2 = Segment((0.0, -3.0), (0.0, 5.0))
P2 = Point(x2)
x01 = Segment((-2.0, 0.0), P0)
x11 = Segment((-1.0, 0.0), P1)
x21 = Segment((0.0, 0.0), P2)
x31 = Segment((1.0, 0.0), P3)
x41 = Segment((2.0, 0.0), P4)
x51 = Segment((3.0, 0.0), P5)
x61 = Segment((4.0, 0.0), P6)
x71 = Segment((5.0, 0.0), P7)
x81 = Segment((6.0, 0.0), P8)
x91 = Segment((7.0, 0.0), P9)
x101 = Segment((8.0, 0.0), P10)
ejex = Segment((-2.3, -3.0), (8.3, -3.0))
marcasx = Sequence(Segment[(k - 2.0, -(3.05)), (k - 2.0, -(2.955))], k, 0.0, 10.0)
rotulosx2 = Sequence(Text[10.0 * k, If[k > 9.0, (k - 2.25, -(3.4)), (k - 2.15, -(3.4))]], k, 0.0, 10.0)
listapuntos1: {P0, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10}
listasegmentos = Sequence(Segment[Element[listapuntos1, k], Element[listapuntos1, k + 1.0]], k, 0.0, 10.0)
e = 6 (slider from 1 to 6, step 1)
rotulosx1 = Sequence(Text[k, If[k > 9.0, (k - 2.15, -(3.4)), (k - 2.05, -(3.4))]], k, 0.0, 10.0)
rotulosy1 = Sequence(Text[500.0 * k, (If[k < 2.0, -2.65, -2.8], k - 3.1)], k, 1.0, 8.0)
listaordenadas = Sequence(Segment[(k - 2.0, -(3.0)), Element[listapuntos1, k + 1.0]], k, 1.0, 10.0)
rotulosy2 = Sequence(Text[1000.0 * k, (-(2.8), k - 3.1)], k, 1.0, 8.0)
rotulosy3 = Sequence(Text[20.0 * k, (If[k < 5.0, -2.5, -2.65], k - 3.1)], k, 1.0, 8.0)
ejex3 = Segment((-2.3, 0.0), (8.3, 0.0))
rotulosx3 = Sequence(Text[1.5 * k, If[k > 9.0, (k - 2.25, -(0.4)), (k - 2.15, -(0.4))]], k, 0.0, 10.0)
rotulosy41 = Sequence(Text[1000.0 * k, (-(2.8), k - 0.1)], k, 1.0, 5.0)
rotulosy42 = Sequence(Text[1000.0 * k - 3000.0, (-(2.87), k - 3.1)], k, 0.0, 2.0)
marcasx3 = Sequence(Segment[(k - 2.0, -(0.05)), (k - 2.0, 0.05)], k, 0.0, 10.0)
rayadox = Sequence(Segment[(-(2.1), k - 3.0), (8.2, k - 3.0)], k, 0.0, 8.0, 0.5)
rayadoy = Sequence(Segment[(k - 2.0, -(3.1)), (k - 2.0, 5.2)], k, 0.0, 10.0, 0.5)