Verticale gravitazionale

LL = 10 (slider from 0.1 to 10, step 0.1)
A = (-1.933436, -3.0640099999999992)
B = Point(Circle[A, LL])
L = Segment(A, B)
b = Line(B, yAxis)
c = OrthogonalLine(A, b)
C = Intersect(b, c)
H = Segment(C, B)
α = Angle(c, L)