Muovendo in punto B, 
si traccia il grafico della durata del moto da A a C

g = 9.81 (slider from -5 to 10, step 0.1)
A = Point(yAxis)
B = Point(xAxis)
sAB = Segment(A, B)
C = Point(xAxis)
sBC = Segment(B, C)
acceleraz: g * y(A) / sAB
tAB: sqrt(2.0 * sAB / acceleraz)
vB: sqrt(2.0 * y(A) * g)
tBC: sBC / vB
tAC: tAB + tBC
D: (x(B), 2.0 * tAC)