f(x) = (-x^(2)) + 7
posicion(x) = If[0 ≤ x ≤ 2.7, f(x)]
v(x) = (-9.8 * x)
a(x) = -9.8
Velocidad(x) = If[0 ≤ x ≤ 10, v(x)]
g(x) = If[0 ≤ x ≤ 20, a(x)]
b = 0.7 (slider from 0 to 20)
P: (b, 0)
V: (0, 0)
h = Segment(V, P)
i = Line(P, yAxis)
A = Intersect(Velocidad, i)
B = Intersect(i, h)
t1, a_1, v_1, p = Polygon(V, P, A)
Textot1: "Área de  " + (Name[V]) + (Name[P]) + (Name[A]) + " = " + t1
Puntot1 = PointIn(t1)