k =

Número de rebotes por ciclo

Reiniciar

C: (0, 0)
r: 4
c = Circle(C, r)
P0 = (-4, 0)
V0 = (0.7818314824680298, 0.6234898018587335)
A1 = Intersect(c, Line[P0, Vector[V0]], 2)
Q = Mirror(A1 + V0, Tangent[A1, c])
V = (0.7818314824680298, 0.6234898018587335)
P = (-4, 0)
anima = 0.23 (slider from 0 to 1, step 0.01)
f = Line(P, Vector[V])
E = Intersect(c, f, 2)
g, i = Tangent(E, c)
N = 7
A2 = Mirror(P0, Line[A1, C])
v0 = Vector(V0)
gn = OrthogonalVector(g)
v = Vector(V)
E' = Mirror(E + V, g)
β = Angle(P, E, C)
d = Circle(C, (r * abs(sin(β))))
A3 = Mirror(A1, Line[A2, C])
A4 = Mirror(A2, Line[A3, C])
A5 = Mirror(A3, Line[A4, C])
A6 = Mirror(A4, Line[A5, C])
A7 = Mirror(A5, Line[A6, C])
A8 = Mirror(A6, Line[A7, C])
A9 = Mirror(A7, Line[A8, C])
A10 = Mirror(A8, Line[A9, C])
A11 = Mirror(A9, Line[A10, C])
A12 = Mirror(A10, Line[A11, C])
A13 = Mirror(A11, Line[A12, C])
A14 = Mirror(A12, Line[A13, C])
A15 = Mirror(A13, Line[A14, C])
A16 = Mirror(A14, Line[A15, C])
A17 = Mirror(A15, Line[A16, C])
A18 = Mirror(A16, Line[A17, C])
A19 = Mirror(A17, Line[A18, C])
A20 = Mirror(A18, Line[A19, C])
A21 = Mirror(A19, Line[A20, C])
A22 = Mirror(A20, Line[A21, C])
A23 = Mirror(A21, Line[A22, C])
A24 = Mirror(A22, Line[A23, C])
A25 = Mirror(A23, Line[A24, C])
A26 = Mirror(A24, Line[A25, C])
A27 = Mirror(A25, Line[A26, C])
A28 = Mirror(A26, Line[A27, C])
A29 = Mirror(A27, Line[A28, C])
A30 = Mirror(A28, Line[A29, C])
A31 = Mirror(A29, Line[A30, C])
A32 = Mirror(A30, Line[A31, C])
A33 = Mirror(A31, Line[A32, C])
A34 = Mirror(A32, Line[A33, C])
A35 = Mirror(A33, Line[A34, C])
A36 = Mirror(A34, Line[A35, C])
A37 = Mirror(A35, Line[A36, C])
A38 = Mirror(A36, Line[A37, C])
A39 = Mirror(A37, Line[A38, C])
A40 = Mirror(A38, Line[A39, C])
A41 = Mirror(A39, Line[A40, C])
A42 = Mirror(A40, Line[A41, C])
A43 = Mirror(A41, Line[A42, C])
A44 = Mirror(A42, Line[A43, C])
A45 = Mirror(A43, Line[A44, C])
A46 = Mirror(A44, Line[A45, C])
A47 = Mirror(A45, Line[A46, C])
A48 = Mirror(A46, Line[A47, C])
A49 = Mirror(A47, Line[A48, C])
A50 = Mirror(A48, Line[A49, C])
A51 = Mirror(A49, Line[A50, C])
A52 = Mirror(A50, Line[A51, C])
A53 = Mirror(A51, Line[A52, C])
A54 = Mirror(A52, Line[A53, C])
A55 = Mirror(A53, Line[A54, C])
A56 = Mirror(A54, Line[A55, C])
A57 = Mirror(A55, Line[A56, C])
A58 = Mirror(A56, Line[A57, C])
A59 = Mirror(A57, Line[A58, C])
A60 = Mirror(A58, Line[A59, C])
A61 = Mirror(A59, Line[A60, C])
A62 = Mirror(A60, Line[A61, C])
A63 = Mirror(A61, Line[A62, C])
A64 = Mirror(A62, Line[A63, C])
A65 = Mirror(A63, Line[A64, C])
A66 = Mirror(A64, Line[A65, C])
A67 = Mirror(A65, Line[A66, C])
A68 = Mirror(A66, Line[A67, C])
A69 = Mirror(A67, Line[A68, C])
A70 = Mirror(A68, Line[A69, C])
A71 = Mirror(A69, Line[A70, C])
A72 = Mirror(A70, Line[A71, C])
A73 = Mirror(A71, Line[A72, C])
A74 = Mirror(A72, Line[A73, C])
A75 = Mirror(A73, Line[A74, C])
A76 = Mirror(A74, Line[A75, C])
A77 = Mirror(A75, Line[A76, C])
A78 = Mirror(A76, Line[A77, C])
A79 = Mirror(A77, Line[A78, C])
A80 = Mirror(A78, Line[A79, C])
A81 = Mirror(A79, Line[A80, C])
A82 = Mirror(A80, Line[A81, C])
A83 = Mirror(A81, Line[A82, C])
A84 = Mirror(A82, Line[A83, C])
A85 = Mirror(A83, Line[A84, C])
A86 = Mirror(A84, Line[A85, C])
A87 = Mirror(A85, Line[A86, C])
A88 = Mirror(A86, Line[A87, C])
A89 = Mirror(A87, Line[A88, C])
A90 = Mirror(A88, Line[A89, C])
A91 = Mirror(A89, Line[A90, C])
A92 = Mirror(A90, Line[A91, C])
A93 = Mirror(A91, Line[A92, C])
A94 = Mirror(A92, Line[A93, C])
A95 = Mirror(A93, Line[A94, C])
A96 = Mirror(A94, Line[A95, C])
A97 = Mirror(A95, Line[A96, C])
A98 = Mirror(A96, Line[A97, C])
A99 = Mirror(A97, Line[A98, C])
A100 = Mirror(A98, Line[A99, C])
n = 7 (slider from 2 to 30, step 1)
α = Angle(P, E, E')
texto1: "α=180°\left( 1-\frac{2k}{n}  \right) =" + (LaTeX[α]) + ""
k = 2
k1 = RemoveUndefined(Sequence[If[GCD[s, N] ≟ 1, s], s, 1, floor((N - 1) / 2)])
V1: (1, tan((90° * (1 - (2 * k / n))))) / abs((1, tan((90° * (1 - (2 * k / n))))))
k2 = SelectedElement(k1)
trayectoria = PolyLine(A1:A50)