velocita in un lancio con velocità inziale orizzontale
Author: Tiziana Segalini

h_1 = 0.88
a: y = h_1
B = Point(a)
h: (0, h_1)
modulo_v = Distance(h, B)
c: y = h_1 - 4.9 (x / modulo_v)^(2)
D = Point(c)
t: sqrt(2 h_1 / 9.8)
TestohB: "\overline{" + (Name[h]) + (Name[B]) + "} \, = \, " + modulo_v
A, C = Intersect(c, xAxis)
velocità_1 = Vector(h, B)
b = Tangent(D, c)
d = Circle(D, 0.3)
E, F = Intersect(d, b)
velocità = Vector(D, F)