Lanzar

Parar

Mostrar objetivo

Ecuación

Mostrar gráfica

Puntos notables

Alcance

Altura máxima

¡¡ Diana !!

C = (-4.184539821124361, 8.453280557921637)
E: C + (0, 0.6)
D: C + (0.6, 0)
c = CircleSector(C, D, E)
F = Point(c)
α = Angle(D, C, F)
A = (0, 0)
B: A + (0.4, 0)
B' = Rotate(B, α, A)
vel = 8.32 (slider from 4 to 12, step 0.01)
d = CircleSector(C, D, F)
f(x) = ((x - x(A)) * tan(α)) - ((0.5 * 9.81 / ((vel * cos(α)))^(2)) * (x - x(A))^(2)) + y(A)
a = Segment(A - (0.4, 0), A + (0.4, 0))
e = Segment(A, A + (15, 0))
texto2: "v = " + vel + " m/s"
g = 0.95 (slider from 0 to 1, step 0.01)
h = Segment(A, B')
i: y = y(A)
Pcorte2 = Intersect(f, i, (x(A) + 15, f(x(A) + 15)))
H = Point(e)
b = 0 (slider from 0 to 1, step 1)
P: (x(A) + ((g * b) * (x(Pcorte2) - x(A))), f(x(A) + ((g * b) * (x(Pcorte2) - x(A)))))
j = Segment(A + (0, (-0.3)), H + (0, (-0.3)))
k = false
texto6: "" + j + " m"
l = false
m = false
texto8: "y \; = \;  -\; " + ((0.5 * 9.81 / ((vel * cos(α)))^(2))) + " \; x² \; + \; " + (If[α ≠ 45°, tan(α) + " \; x", " \; x"])
V: ((x(A) + x(Pcorte2)) / 2, f((x(A) + x(Pcorte2)) / 2))
n = false
ejeY = Segment(A - (0, 2.2), A + (0, 8))
V1 = 0
o = false
p = false
texto5: "" + (Distance[A, Pcorte2]) + " m"
texto7: "" + (y(V)) + " m"
f2(x) = If[(x > x(A)) ∧ (f(x) > y(A)) ∧ (x < x(P)), f]
texto9: "" + (x(Pcorte2)) + " m"
alcance = Segment(A, Pcorte2)
Palcance: Pcorte2
q = Segment((x(V), 0), V)
texto10: "" + (y(V)) + " m"
listaVert = Sequence(Segment[A + (k - 1, (-2.2)), A + (k - 1, 7.5)], k, 0, 16)
listaHor = Sequence(Segment[A + ((-1.2), k - 2), A + (15.5, k - 2)], k, 0, 9)
ejeX = Segment(A - (1.5, 0), A + (15.8, 0))
listaNumX = Sequence(Text[k - 1, (k - If[k > 10, 1.15, 1.05], (-0.4))], k, 0, 16)
listaNumY = Sequence(Text[k - 2, ((-0.4), k - 2.05)], k, 0, 9)
texto1: "" + (round((10 * α)) / 10)