automatic

Visualitza Bola

Si vols visualitzar la trajectoria de la bola,
abans de canviar la posició de P, imposa d=0

Recta Tangent

a = true
A = (2, 0)
B = (7, 0)
C = (8, 0)
c = Ellipse(A, B, C)
P = Point(c)
d = 0.47 (slider from 0 to 2, step 0.01)
b = true
Recta = Tangent(P, c)
BP = Segment(B, P)
D = Point(Recta)
E = Point(Recta)
α_ii = Angle(B, P, D)
F = Rotate(E, α_ii, P)
reflex = Ray(P, F)
P_1, P_2 = Intersect(c, reflex)
α_rr = Angle(E, P, F)
BOLA = If(d ≤ 1, B + d * Vector[B, P] * a, P + (d - 1) * Vector[P, P_2] * a)
PP_2 = Segment(P, P_2)
trajectoria_1 = If(d ≤ 1, Segment[B, BOLA], BP)
trajctoria_2 = Segment(P, BOLA)
perpen = OrthogonalLine(P, Recta)
T = Point(perpen)
α_i = Angle(T, P, B)
α_r = Angle(P_2, P, T)