t = 10.2 (slider from 0 to 15, step 0.1)
R: (0, (50 * t^(2)))
C1 = (2000, 0)
θ: atan((50 * t^(2) / 2000))
A = Point(xAxis)
A' = Rotate(A, (-θ), C1)
α = Angle(A', C1, A)
a = Segment(C1, R)
text1: "Angle = " + θ + " radians"
text2: "Height = " + ((50 * t^(2))) + " m"
text3: "dh/dt = " + ((100 * t)) + " m/s"
Height = Segment((0, 0), R)
text4: "dθ/dt = " + (((100 * t) * cos(θ)^(2) / 2000)) + " rad/sec"