Gráfica ida

Gráfica vuelta

Intersección

Activa rastro

Gráfica PNR

Tabla de valores

t (h)

d (km)

Tiempo de vuelo (h)

Distancia (km)

ida = false
vuelta = false
inter = false
rastro = false
graf = false
tab = false
dx = -2.96 (slider from -3.1 to -2.9, step 0.01)
dy = 2.2 (slider from 2.1 to 2.3, step 0.01)
b = 0.2 (slider from -1 to 1, step 0.01)
velo = 250 (slider from 0 to 350, step 1)
Lrayastabx = Sequence(Segment[(10.7, 5.6 - (0.8 * k)), (12.7, 5.6 - (0.8 * k))], k, 0, 12)
Lrayastaby = Sequence(Segment[(10.7 + k, 5.6), (10.7 + k, (-4))], k, 0, 2)
Ltablax = Sequence(Text[(0.5 * k), (11 + If[k ≟ 0 ∨ k ≟ 2 ∨ k ≟ 4 ∨ k ≟ 6 ∨ k ≟ 8 ∨ k ≟ 10, 0.12, 0], 4.3 - (0.8 * k))], k, 0, 10)
tiempo = 4 (slider from 0 to 5, step 0.5)
f1(x) = ((((0.008 * velo / (tiempo / 2)) * 0.625) * x) * (tiempo - (0.625 * x))) - 3
ejeY = Segment((0, -3.2), (0, 4.6))
ejeX = Segment((-0.2, -3), (8.2, -3))
Lrotulosx = Sequence(Text[(0.5 * k), (If[k ≟ 1 ∨ k ≟ 3 ∨ k ≟ 5 ∨ k ≟ 7 ∨ k ≟ 9, (0.8 * k) - 0.2, (0.8 * k) - 0.075], (-3.4))], k, 1, 10)
LmarcasX = Sequence(Segment[((0.8 * k), (-3.1)), ((0.8 * k), (-2.9))], k, 1, 10)
Lrayasvertg = Sequence(Segment[((0.8 * k), (-3.1)), ((0.8 * k), 4.5)], k, 1, 10)
Lrotulosy = Sequence(Text[(100 * k), ((-0.65), (0.8 * k) - 3.1)], k, 1, 9)
Lrayashorg = Sequence(Segment[((-0.1), (0.4 * k) - 3), (8.1, (0.4 * k) - 3)], k, 1, 18)
LmarcasY = Sequence(Segment[((-0.1), (0.8 * k) - 3), (0.1, (0.8 * k) - 3)], k, 1, 9)
f2(x) = If[f1(x) > -3, f1]
texto6: "Autonomía de vuelo: " + tiempo + " h"
viento: (velo * b)
f3(x) = (((0.008 * (velo + viento)) * 0.625) * x) - 3
f4(x) = ((0.008 * (viento - velo)) * ((0.625 * x) - tiempo)) - 3
A2 = Intersect(f3, a)
A1 = Intersect(f4, a)
A = Intersect(f3, f4)
Px: (x(A), (-3))
Py: (0, y(A))
c = Segment(Py, A)
d = Segment(A, Px)
texto8: "(" + ((0.625 * x(A))) + ", " + ((125 * (f1(x(A)) + 3))) + ")"
Ltablay = Sequence(Text[round((1250 * (f1((0.8 * k)) + 3))) / 10, (If[k ≟ 0 ∨ k ≟ (2 * tiempo), 12.12, 11.85], 4.3 - (0.8 * k))], k, 0, (2 * tiempo))
P: A
B = (-3, 2)
C = (-3, 2.38)
e = Segment(B, C)
D: (dx, dy)
f31(x) = If[(x > 0) ∧ (x < x(A2)) ∧ (x < 8.2), f3]
f41(x) = If[(f4(x) > -3) ∧ (x > x(A1)) ∧ (x > 0), f4]
texto5: "Velocidad del avión: " + velo + " km/h"
texto7: "Velocidad del viento: " + viento + " km/h"