$|v_0|:$

m/s

Objetivo B fuera de alcance

a, h, i, j, l = Polygon((0, 0), (0, 10^(6)), (10^(6), 10^(6)), (10^(6), 0))
A = PointIn(a)
r: 25
B = PointIn(a)
P: A + (r * UnitVector[Vector[A, B]])
v0 = Vector(A, P)
v0y: y(v0)
v0x: x(v0)
g: (0, -9.81)
T(x) = (x - x(A)) / v0x
M = (0, 1.5)
anima = 0 (slider from 0 to 1, step 0.001)
v = (21.789388428113732, 12.256530990813975)
t0: {0, 0, 0}
t1: {0, 0, 0}
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
dt = 0.357
tt = 0
vx = Vector((x(M), y(A)), (x(M) + v0x, y(A)))
vy = Vector((x(A), y(A)), (x(A), y(A) + v0y))
CasillaDeEntrada1 = Textfield(r)
tk: x(B - A) / v0x
vv = Vector(M, M + v)
tv: (v0y + sqrt(((2 * y(A)) * abs(g)) + v0y^(2))) / abs(g)
tc: sqrt((2 * y(B) / abs(g)))
posible: x(A) ≠ x(B) ∧ tc ≤ tv ∨ x(A) ≟ x(B) ∧ (y(A) > y(B) ∨ y(B) ≤ y(A) + v0^(2) / ((2 * abs(g))))
Tteor = If(v0x ≟ 0 ∧ v0y ≥ 0, (v0y + sqrt(((2 * y(A - B)) * abs(g)) + v0y^(2))) / abs(g), v0x ≟ 0 ∧ v0y < 0, (v0y - sqrt(((2 * y(A - B)) * abs(g)) + v0y^(2))) / abs(g), x(B - A) / v0x)
s: x(A) + (v0x * (v0y + sqrt(v0y^(2) + ((2 * y(A)) * 9.81))) / 9.81)
f0(x) = If[T(x) ≥ 0 ∧ (v0x * x) ≤ (v0x * s), If[v0x ≟ 0, 0, y(A) + (v0y * T(x)) - (4.905 * (T(x))^(2))]]
bx: (x(Corner[2] - Corner[1]) / 80 * 7 / 5)
by: (x(Corner[2] - Corner[1]) / 80 * 6 / 5)
N = (40, 24)
vN = (0, 0)
texto1: "Tiempo 
teórico:  " + (round((100 * Tteor)) / 100) + "''
Tiempo 
animación:  " + (round((100 * t)) / 100) + "''"
reg: {}
pol = PolyLine(reg)