Colocar en un foco

Estrella 4

Hexágono

Eje mayor

Pentágono

Rombo

Flecha

Estrella 10 (I)

Estrella 7

Estrella 10 (II)

Triángulo

Estrella 6

Eje menor

Reiniciar

F_1: (-4, 0)
F_2: (4, 0)
V0 = (1.1981818181818116, 1.386620691754948)
P0 = PointIn(c)
A1 = Intersect(c, Line[P0, Vector[V0]], 2)
B1 = Mirror(A1 + V0, Tangent[A1, c])
C1: round((B1 * 10^(10))) / 10^(10)
V = (1.1981818181818116, 1.386620691754948)
P = (-0.9927403143473629, -2.9402734567684377)
anima = 0.63 (slider from 0 to 1, step 0.01)
f = Line(P, Vector[V])
E = Intersect(c, f, 2)
g, i = Tangent(E, c)
A2 = Intersect(c, Line[A1, C1], 2)
v0 = Vector(V0)
rebotes: {}
gn = OrthogonalVector(g)
v = Vector(V)
E' = Mirror(E + V, g)
B2 = Mirror(A2 + C1 - A1, Tangent[A2, c])
C2: round((B2 * 10^(10))) / 10^(10)
A3 = Intersect(c, Line[A2, C2], 2)
B3 = Mirror(A3 + C2 - A2, Tangent[A3, c])
C3: round((B3 * 10^(10))) / 10^(10)
A4 = Intersect(c, Line[A3, C3], 2)
B4 = Mirror(A4 + C3 - A3, Tangent[A4, c])
C4: round((B4 * 10^(10))) / 10^(10)
A5 = Intersect(c, Line[A4, C4], 2)
B5 = Mirror(A5 + C4 - A4, Tangent[A5, c])
C5: round((B5 * 10^(10))) / 10^(10)
A6 = Intersect(c, Line[A5, C5], 2)
B6 = Mirror(A6 + C5 - A5, Tangent[A6, c])
C6: round((B6 * 10^(10))) / 10^(10)
A7 = Intersect(c, Line[A6, C6], 2)
B7 = Mirror(A7 + C6 - A6, Tangent[A7, c])
C7: round((B7 * 10^(10))) / 10^(10)
A8 = Intersect(c, Line[A7, C7], 2)
B8 = Mirror(A8 + C7 - A7, Tangent[A8, c])
C8: round((B8 * 10^(10))) / 10^(10)
A9 = Intersect(c, Line[A8, C8], 2)
B9 = Mirror(A9 + C8 - A8, Tangent[A9, c])
C9: round((B9 * 10^(10))) / 10^(10)
A10 = Intersect(c, Line[A9, C9], 2)
B10 = Mirror(A10 + C9 - A9, Tangent[A10, c])
C10: round((B10 * 10^(10))) / 10^(10)
A11 = Intersect(c, Line[A10, C10], 2)
B11 = Mirror(A11 + C10 - A10, Tangent[A11, c])
C11: round((B11 * 10^(10))) / 10^(10)
A12 = Intersect(c, Line[A11, C11], 2)
B12 = Mirror(A12 + C11 - A11, Tangent[A12, c])
C12: round((B12 * 10^(10))) / 10^(10)
A13 = Intersect(c, Line[A12, C12], 2)
B13 = Mirror(A13 + C12 - A12, Tangent[A13, c])
C13: round((B13 * 10^(10))) / 10^(10)
A14 = Intersect(c, Line[A13, C13], 2)
B14 = Mirror(A14 + C13 - A13, Tangent[A14, c])
C14: round((B14 * 10^(10))) / 10^(10)
A15 = Intersect(c, Line[A14, C14], 2)
B15 = Mirror(A15 + C14 - A14, Tangent[A15, c])
C15: round((B15 * 10^(10))) / 10^(10)
A16 = Intersect(c, Line[A15, C15], 2)
B16 = Mirror(A16 + C15 - A15, Tangent[A16, c])
C16: round((B16 * 10^(10))) / 10^(10)
A17 = Intersect(c, Line[A16, C16], 2)
B17 = Mirror(A17 + C16 - A16, Tangent[A17, c])
C17: round((B17 * 10^(10))) / 10^(10)
A18 = Intersect(c, Line[A17, C17], 2)
B18 = Mirror(A18 + C17 - A17, Tangent[A18, c])
C18: round((B18 * 10^(10))) / 10^(10)
A19 = Intersect(c, Line[A18, C18], 2)
B19 = Mirror(A19 + C18 - A18, Tangent[A19, c])
C19: round((B19 * 10^(10))) / 10^(10)
A20 = Intersect(c, Line[A19, C19], 2)
B20 = Mirror(A20 + C19 - A19, Tangent[A20, c])
C20: round((B20 * 10^(10))) / 10^(10)
A21 = Intersect(c, Line[A20, C20], 2)
B21 = Mirror(A21 + C20 - A20, Tangent[A21, c])
C21: round((B21 * 10^(10))) / 10^(10)
A22 = Intersect(c, Line[A21, C21], 2)
B22 = Mirror(A22 + C21 - A21, Tangent[A22, c])
C22: round((B22 * 10^(10))) / 10^(10)
A23 = Intersect(c, Line[A22, C22], 2)
B23 = Mirror(A23 + C22 - A22, Tangent[A23, c])
C23: round((B23 * 10^(10))) / 10^(10)
A24 = Intersect(c, Line[A23, C23], 2)
B24 = Mirror(A24 + C23 - A23, Tangent[A24, c])
C24: round((B24 * 10^(10))) / 10^(10)
A25 = Intersect(c, Line[A24, C24], 2)
B25 = Mirror(A25 + C24 - A24, Tangent[A25, c])
C25: round((B25 * 10^(10))) / 10^(10)
A26 = Intersect(c, Line[A25, C25], 2)
B26 = Mirror(A26 + C25 - A25, Tangent[A26, c])
C26: round((B26 * 10^(10))) / 10^(10)
A27 = Intersect(c, Line[A26, C26], 2)
B27 = Mirror(A27 + C26 - A26, Tangent[A27, c])
C27: round((B27 * 10^(10))) / 10^(10)
A28 = Intersect(c, Line[A27, C27], 2)
B28 = Mirror(A28 + C27 - A27, Tangent[A28, c])
C28: round((B28 * 10^(10))) / 10^(10)
A29 = Intersect(c, Line[A28, C28], 2)
B29 = Mirror(A29 + C28 - A28, Tangent[A29, c])
C29: round((B29 * 10^(10))) / 10^(10)
A30 = Intersect(c, Line[A29, C29], 2)
B30 = Mirror(A30 + C29 - A29, Tangent[A30, c])
C30: round((B30 * 10^(10))) / 10^(10)
A31 = Intersect(c, Line[A30, C30], 2)
B31 = Mirror(A31 + C30 - A30, Tangent[A31, c])
C31: round((B31 * 10^(10))) / 10^(10)
A32 = Intersect(c, Line[A31, C31], 2)
B32 = Mirror(A32 + C31 - A31, Tangent[A32, c])
C32: round((B32 * 10^(10))) / 10^(10)
A33 = Intersect(c, Line[A32, C32], 2)
B33 = Mirror(A33 + C32 - A32, Tangent[A33, c])
C33: round((B33 * 10^(10))) / 10^(10)
A34 = Intersect(c, Line[A33, C33], 2)
B34 = Mirror(A34 + C33 - A33, Tangent[A34, c])
C34: round((B34 * 10^(10))) / 10^(10)
A35 = Intersect(c, Line[A34, C34], 2)
B35 = Mirror(A35 + C34 - A34, Tangent[A35, c])
C35: round((B35 * 10^(10))) / 10^(10)
A36 = Intersect(c, Line[A35, C35], 2)
B36 = Mirror(A36 + C35 - A35, Tangent[A36, c])
C36: round((B36 * 10^(10))) / 10^(10)
A37 = Intersect(c, Line[A36, C36], 2)
B37 = Mirror(A37 + C36 - A36, Tangent[A37, c])
C37: round((B37 * 10^(10))) / 10^(10)
A38 = Intersect(c, Line[A37, C37], 2)
B38 = Mirror(A38 + C37 - A37, Tangent[A38, c])
C38: round((B38 * 10^(10))) / 10^(10)
A39 = Intersect(c, Line[A38, C38], 2)
B39 = Mirror(A39 + C38 - A38, Tangent[A39, c])
C39: round((B39 * 10^(10))) / 10^(10)
A40 = Intersect(c, Line[A39, C39], 2)
B40 = Mirror(A40 + C39 - A39, Tangent[A40, c])
C40: round((B40 * 10^(10))) / 10^(10)
A41 = Intersect(c, Line[A40, C40], 2)
B41 = Mirror(A41 + C40 - A40, Tangent[A41, c])
C41: round((B41 * 10^(10))) / 10^(10)
A42 = Intersect(c, Line[A41, C41], 2)
B42 = Mirror(A42 + C41 - A41, Tangent[A42, c])
C42: round((B42 * 10^(10))) / 10^(10)
A43 = Intersect(c, Line[A42, C42], 2)
B43 = Mirror(A43 + C42 - A42, Tangent[A43, c])
C43: round((B43 * 10^(10))) / 10^(10)
A44 = Intersect(c, Line[A43, C43], 2)
B44 = Mirror(A44 + C43 - A43, Tangent[A44, c])
C44: round((B44 * 10^(10))) / 10^(10)
A45 = Intersect(c, Line[A44, C44], 2)
B45 = Mirror(A45 + C44 - A44, Tangent[A45, c])
C45: round((B45 * 10^(10))) / 10^(10)
A46 = Intersect(c, Line[A45, C45], 2)
B46 = Mirror(A46 + C45 - A45, Tangent[A46, c])
C46: round((B46 * 10^(10))) / 10^(10)
A47 = Intersect(c, Line[A46, C46], 2)
B47 = Mirror(A47 + C46 - A46, Tangent[A47, c])
C47: round((B47 * 10^(10))) / 10^(10)
A48 = Intersect(c, Line[A47, C47], 2)
B48 = Mirror(A48 + C47 - A47, Tangent[A48, c])
C48: round((B48 * 10^(10))) / 10^(10)
A49 = Intersect(c, Line[A48, C48], 2)
B49 = Mirror(A49 + C48 - A48, Tangent[A49, c])
C49: round((B49 * 10^(10))) / 10^(10)
A50 = Intersect(c, Line[A49, C49], 2)
B50 = Mirror(A50 + C49 - A49, Tangent[A50, c])
C50: round((B50 * 10^(10))) / 10^(10)
A51 = Intersect(c, Line[A50, C50], 2)
B51 = Mirror(A51 + C50 - A50, Tangent[A51, c])
C51: round((B51 * 10^(10))) / 10^(10)
A52 = Intersect(c, Line[A51, C51], 2)
B52 = Mirror(A52 + C51 - A51, Tangent[A52, c])
C52: round((B52 * 10^(10))) / 10^(10)
A53 = Intersect(c, Line[A52, C52], 2)
B53 = Mirror(A53 + C52 - A52, Tangent[A53, c])
C53: round((B53 * 10^(10))) / 10^(10)
A54 = Intersect(c, Line[A53, C53], 2)
B54 = Mirror(A54 + C53 - A53, Tangent[A54, c])
C54: round((B54 * 10^(10))) / 10^(10)
A55 = Intersect(c, Line[A54, C54], 2)
B55 = Mirror(A55 + C54 - A54, Tangent[A55, c])
C55: round((B55 * 10^(10))) / 10^(10)
A56 = Intersect(c, Line[A55, C55], 2)
B56 = Mirror(A56 + C55 - A55, Tangent[A56, c])
C56: round((B56 * 10^(10))) / 10^(10)
A57 = Intersect(c, Line[A56, C56], 2)
B57 = Mirror(A57 + C56 - A56, Tangent[A57, c])
C57: round((B57 * 10^(10))) / 10^(10)
A58 = Intersect(c, Line[A57, C57], 2)
B58 = Mirror(A58 + C57 - A57, Tangent[A58, c])
C58: round((B58 * 10^(10))) / 10^(10)
A59 = Intersect(c, Line[A58, C58], 2)
B59 = Mirror(A59 + C58 - A58, Tangent[A59, c])
C59: round((B59 * 10^(10))) / 10^(10)
A60 = Intersect(c, Line[A59, C59], 2)
B60 = Mirror(A60 + C59 - A59, Tangent[A60, c])
C60: round((B60 * 10^(10))) / 10^(10)
A61 = Intersect(c, Line[A60, C60], 2)
B61 = Mirror(A61 + C60 - A60, Tangent[A61, c])
C61: round((B61 * 10^(10))) / 10^(10)
A62 = Intersect(c, Line[A61, C61], 2)
B62 = Mirror(A62 + C61 - A61, Tangent[A62, c])
C62: round((B62 * 10^(10))) / 10^(10)
A63 = Intersect(c, Line[A62, C62], 2)
B63 = Mirror(A63 + C62 - A62, Tangent[A63, c])
C63: round((B63 * 10^(10))) / 10^(10)
A64 = Intersect(c, Line[A63, C63], 2)
B64 = Mirror(A64 + C63 - A63, Tangent[A64, c])
C64: round((B64 * 10^(10))) / 10^(10)
A65 = Intersect(c, Line[A64, C64], 2)
B65 = Mirror(A65 + C64 - A64, Tangent[A65, c])
C65: round((B65 * 10^(10))) / 10^(10)
A66 = Intersect(c, Line[A65, C65], 2)
B66 = Mirror(A66 + C65 - A65, Tangent[A66, c])
C66: round((B66 * 10^(10))) / 10^(10)
A67 = Intersect(c, Line[A66, C66], 2)
B67 = Mirror(A67 + C66 - A66, Tangent[A67, c])
C67: round((B67 * 10^(10))) / 10^(10)
A68 = Intersect(c, Line[A67, C67], 2)
B68 = Mirror(A68 + C67 - A67, Tangent[A68, c])
C68: round((B68 * 10^(10))) / 10^(10)
A69 = Intersect(c, Line[A68, C68], 2)
B69 = Mirror(A69 + C68 - A68, Tangent[A69, c])
C69: round((B69 * 10^(10))) / 10^(10)
A70 = Intersect(c, Line[A69, C69], 2)
B70 = Mirror(A70 + C69 - A69, Tangent[A70, c])
C70: round((B70 * 10^(10))) / 10^(10)
A71 = Intersect(c, Line[A70, C70], 2)
B71 = Mirror(A71 + C70 - A70, Tangent[A71, c])
C71: round((B71 * 10^(10))) / 10^(10)
A72 = Intersect(c, Line[A71, C71], 2)
B72 = Mirror(A72 + C71 - A71, Tangent[A72, c])
C72: round((B72 * 10^(10))) / 10^(10)
A73 = Intersect(c, Line[A72, C72], 2)
B73 = Mirror(A73 + C72 - A72, Tangent[A73, c])
C73: round((B73 * 10^(10))) / 10^(10)
A74 = Intersect(c, Line[A73, C73], 2)
B74 = Mirror(A74 + C73 - A73, Tangent[A74, c])
C74: round((B74 * 10^(10))) / 10^(10)
A75 = Intersect(c, Line[A74, C74], 2)
B75 = Mirror(A75 + C74 - A74, Tangent[A75, c])
C75: round((B75 * 10^(10))) / 10^(10)
A76 = Intersect(c, Line[A75, C75], 2)
B76 = Mirror(A76 + C75 - A75, Tangent[A76, c])
C76: round((B76 * 10^(10))) / 10^(10)
A77 = Intersect(c, Line[A76, C76], 2)
B77 = Mirror(A77 + C76 - A76, Tangent[A77, c])
C77: round((B77 * 10^(10))) / 10^(10)
A78 = Intersect(c, Line[A77, C77], 2)
B78 = Mirror(A78 + C77 - A77, Tangent[A78, c])
C78: round((B78 * 10^(10))) / 10^(10)
A79 = Intersect(c, Line[A78, C78], 2)
B79 = Mirror(A79 + C78 - A78, Tangent[A79, c])
C79: round((B79 * 10^(10))) / 10^(10)
A80 = Intersect(c, Line[A79, C79], 2)
B80 = Mirror(A80 + C79 - A79, Tangent[A80, c])
C80: round((B80 * 10^(10))) / 10^(10)
A81 = Intersect(c, Line[A80, C80], 2)
B81 = Mirror(A81 + C80 - A80, Tangent[A81, c])
C81: round((B81 * 10^(10))) / 10^(10)
A82 = Intersect(c, Line[A81, C81], 2)
B82 = Mirror(A82 + C81 - A81, Tangent[A82, c])
C82: round((B82 * 10^(10))) / 10^(10)
A83 = Intersect(c, Line[A82, C82], 2)
B83 = Mirror(A83 + C82 - A82, Tangent[A83, c])
C83: round((B83 * 10^(10))) / 10^(10)
A84 = Intersect(c, Line[A83, C83], 2)
B84 = Mirror(A84 + C83 - A83, Tangent[A84, c])
C84: round((B84 * 10^(10))) / 10^(10)
A85 = Intersect(c, Line[A84, C84], 2)
B85 = Mirror(A85 + C84 - A84, Tangent[A85, c])
C85: round((B85 * 10^(10))) / 10^(10)
A86 = Intersect(c, Line[A85, C85], 2)
B86 = Mirror(A86 + C85 - A85, Tangent[A86, c])
C86: round((B86 * 10^(10))) / 10^(10)
A87 = Intersect(c, Line[A86, C86], 2)
B87 = Mirror(A87 + C86 - A86, Tangent[A87, c])
C87: round((B87 * 10^(10))) / 10^(10)
A88 = Intersect(c, Line[A87, C87], 2)
B88 = Mirror(A88 + C87 - A87, Tangent[A88, c])
C88: round((B88 * 10^(10))) / 10^(10)
A89 = Intersect(c, Line[A88, C88], 2)
B89 = Mirror(A89 + C88 - A88, Tangent[A89, c])
C89: round((B89 * 10^(10))) / 10^(10)
A90 = Intersect(c, Line[A89, C89], 2)
B90 = Mirror(A90 + C89 - A89, Tangent[A90, c])
C90: round((B90 * 10^(10))) / 10^(10)
A91 = Intersect(c, Line[A90, C90], 2)
B91 = Mirror(A91 + C90 - A90, Tangent[A91, c])
C91: round((B91 * 10^(10))) / 10^(10)
A92 = Intersect(c, Line[A91, C91], 2)
B92 = Mirror(A92 + C91 - A91, Tangent[A92, c])
C92: round((B92 * 10^(10))) / 10^(10)
A93 = Intersect(c, Line[A92, C92], 2)
B93 = Mirror(A93 + C92 - A92, Tangent[A93, c])
C93: round((B93 * 10^(10))) / 10^(10)
A94 = Intersect(c, Line[A93, C93], 2)
B94 = Mirror(A94 + C93 - A93, Tangent[A94, c])
C94: round((B94 * 10^(10))) / 10^(10)
A95 = Intersect(c, Line[A94, C94], 2)
B95 = Mirror(A95 + C94 - A94, Tangent[A95, c])
C95: round((B95 * 10^(10))) / 10^(10)
A96 = Intersect(c, Line[A95, C95], 2)
B96 = Mirror(A96 + C95 - A95, Tangent[A96, c])
C96: round((B96 * 10^(10))) / 10^(10)
A97 = Intersect(c, Line[A96, C96], 2)
B97 = Mirror(A97 + C96 - A96, Tangent[A97, c])
C97: round((B97 * 10^(10))) / 10^(10)
A98 = Intersect(c, Line[A97, C97], 2)
B98 = Mirror(A98 + C97 - A97, Tangent[A98, c])
C98: round((B98 * 10^(10))) / 10^(10)
A99 = Intersect(c, Line[A98, C98], 2)
B99 = Mirror(A99 + C98 - A98, Tangent[A99, c])
C99: round((B99 * 10^(10))) / 10^(10)
A100 = Intersect(c, Line[A99, C99], 2)
B100 = Mirror(A100 + C99 - A99, Tangent[A100, c])
C100: round((B100 * 10^(10))) / 10^(10)
h = Segment(P0, A1)
trayectoria = PolyLine(A1:A100)