rr = 6.275942351643478 (slider from 0 to 7, step 0.001)
β = 6.238469002884096 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B: (rr; β)
p_1 = Circle(B, 3.8)
G = Point(p_1)
aa = Angle(B + (1, 0), B, G)
G1 = Rotate(B + (3.8, 0), aa, B)
G' = Mirror(G1, B)
A1: B
C1: UnitVector[Vector[A1, G']] / 100
r = 7
C = (0, 0)
e = Circle(C, r)
d = 1
c = Circle(B, d)
taco = 3.5
ajuste = 0.03
l_1 = Segment(B, G1)
A = Intersect(c, l_1, 1)
v_1: (taco * UnitVector[Vector[B, A]])
w = UnitOrthogonalVector(v_1)
T3: A + (4 * v_1 / 5) + (ajuste * w)
A2, D = Intersect(e, Ray[A1 + C1, A1 + (2 * C1)])
T4: A - v_1 / 5 + (ajuste * w)
B1: A1 + C1
B2 = Mirror(B1, Segment[A2, C])
C2: UnitVector[Vector[A2, B2]] / 100
A3 = Intersect(e, Ray[A2 + C2, A2 + (2 * C2)])
B3 = Mirror(B2, Segment[A3, C])
C3: UnitVector[Vector[A3, B3]] / 100
A4 = Intersect(e, Ray[A3 + C3, A3 + (2 * C3)])
B4 = Mirror(B3, Segment[A4, C])
C4: UnitVector[Vector[A4, B4]] / 100
A5 = Intersect(e, Ray[A4 + C4, A4 + (2 * C4)])
B5 = Mirror(B4, Segment[A5, C])
C5: UnitVector[Vector[A5, B5]] / 100
A6 = Intersect(e, Ray[A5 + C5, A5 + (2 * C5)])
B6 = Mirror(B5, Segment[A6, C])
C6: UnitVector[Vector[A6, B6]] / 100
A7 = Intersect(e, Ray[A6 + C6, A6 + (2 * C6)])
B7 = Mirror(B6, Segment[A7, C])
C7: UnitVector[Vector[A7, B7]] / 100
A8 = Intersect(e, Ray[A7 + C7, A7 + (2 * C7)])
B8 = Mirror(B7, Segment[A8, C])
C8: UnitVector[Vector[A8, B8]] / 100
A9 = Intersect(e, Ray[A8 + C8, A8 + (2 * C8)])
B9 = Mirror(B8, Segment[A9, C])
C9: UnitVector[Vector[A9, B9]] / 100
A10 = Intersect(e, Ray[A9 + C9, A9 + (2 * C9)])
B10 = Mirror(B9, Segment[A10, C])
C10: UnitVector[Vector[A10, B10]] / 100
A11 = Intersect(e, Ray[A10 + C10, A10 + (2 * C10)])
B11 = Mirror(B10, Segment[A11, C])
C11: UnitVector[Vector[A11, B11]] / 100
A12 = Intersect(e, Ray[A11 + C11, A11 + (2 * C11)])
B12 = Mirror(B11, Segment[A12, C])
C12: UnitVector[Vector[A12, B12]] / 100
A13 = Intersect(e, Ray[A12 + C12, A12 + (2 * C12)])
B13 = Mirror(B12, Segment[A13, C])
C13: UnitVector[Vector[A13, B13]] / 100
A14 = Intersect(e, Ray[A13 + C13, A13 + (2 * C13)])
B14 = Mirror(B13, Segment[A14, C])
C14: UnitVector[Vector[A14, B14]] / 100
A15 = Intersect(e, Ray[A14 + C14, A14 + (2 * C14)])
B15 = Mirror(B14, Segment[A15, C])
C15: UnitVector[Vector[A15, B15]] / 100
A16 = Intersect(e, Ray[A15 + C15, A15 + (2 * C15)])
B16 = Mirror(B15, Segment[A16, C])
C16: UnitVector[Vector[A16, B16]] / 100
A17 = Intersect(e, Ray[A16 + C16, A16 + (2 * C16)])
B17 = Mirror(B16, Segment[A17, C])
C17: UnitVector[Vector[A17, B17]] / 100
A18 = Intersect(e, Ray[A17 + C17, A17 + (2 * C17)])
B18 = Mirror(B17, Segment[A18, C])
C18: UnitVector[Vector[A18, B18]] / 100
A19 = Intersect(e, Ray[A18 + C18, A18 + (2 * C18)])
B19 = Mirror(B18, Segment[A19, C])
C19: UnitVector[Vector[A19, B19]] / 100
A20 = Intersect(e, Ray[A19 + C19, A19 + (2 * C19)])
B20 = Mirror(B19, Segment[A20, C])
C20: UnitVector[Vector[A20, B20]] / 100
A21 = Intersect(e, Ray[A20 + C20, A20 + (2 * C20)])
B21 = Mirror(B20, Segment[A21, C])
C21: UnitVector[Vector[A21, B21]] / 100
A22 = Intersect(e, Ray[A21 + C21, A21 + (2 * C21)])
B22 = Mirror(B21, Segment[A22, C])
C22: UnitVector[Vector[A22, B22]] / 100
A23 = Intersect(e, Ray[A22 + C22, A22 + (2 * C22)])
B23 = Mirror(B22, Segment[A23, C])
C23: UnitVector[Vector[A23, B23]] / 100
A24 = Intersect(e, Ray[A23 + C23, A23 + (2 * C23)])
B24 = Mirror(B23, Segment[A24, C])
C24: UnitVector[Vector[A24, B24]] / 100
A25 = Intersect(e, Ray[A24 + C24, A24 + (2 * C24)])
B25 = Mirror(B24, Segment[A25, C])
C25: UnitVector[Vector[A25, B25]] / 100
A26 = Intersect(e, Ray[A25 + C25, A25 + (2 * C25)])
B26 = Mirror(B25, Segment[A26, C])
C26: UnitVector[Vector[A26, B26]] / 100
A27 = Intersect(e, Ray[A26 + C26, A26 + (2 * C26)])
B27 = Mirror(B26, Segment[A27, C])
C27: UnitVector[Vector[A27, B27]] / 100
A28 = Intersect(e, Ray[A27 + C27, A27 + (2 * C27)])
B28 = Mirror(B27, Segment[A28, C])
C28: UnitVector[Vector[A28, B28]] / 100
A29 = Intersect(e, Ray[A28 + C28, A28 + (2 * C28)])
B29 = Mirror(B28, Segment[A29, C])
C29: UnitVector[Vector[A29, B29]] / 100
A30 = Intersect(e, Ray[A29 + C29, A29 + (2 * C29)])
B30 = Mirror(B29, Segment[A30, C])
C30: UnitVector[Vector[A30, B30]] / 100
A31 = Intersect(e, Ray[A30 + C30, A30 + (2 * C30)])
B31 = Mirror(B30, Segment[A31, C])
C31: UnitVector[Vector[A31, B31]] / 100
A32 = Intersect(e, Ray[A31 + C31, A31 + (2 * C31)])
B32 = Mirror(B31, Segment[A32, C])
C32: UnitVector[Vector[A32, B32]] / 100
A33 = Intersect(e, Ray[A32 + C32, A32 + (2 * C32)])
B33 = Mirror(B32, Segment[A33, C])
C33: UnitVector[Vector[A33, B33]] / 100
A34 = Intersect(e, Ray[A33 + C33, A33 + (2 * C33)])
B34 = Mirror(B33, Segment[A34, C])
C34: UnitVector[Vector[A34, B34]] / 100
A35 = Intersect(e, Ray[A34 + C34, A34 + (2 * C34)])
B35 = Mirror(B34, Segment[A35, C])
C35: UnitVector[Vector[A35, B35]] / 100
A36 = Intersect(e, Ray[A35 + C35, A35 + (2 * C35)])
B36 = Mirror(B35, Segment[A36, C])
C36: UnitVector[Vector[A36, B36]] / 100
A37 = Intersect(e, Ray[A36 + C36, A36 + (2 * C36)])
B37 = Mirror(B36, Segment[A37, C])
C37: UnitVector[Vector[A37, B37]] / 100
A38 = Intersect(e, Ray[A37 + C37, A37 + (2 * C37)])
B38 = Mirror(B37, Segment[A38, C])
C38: UnitVector[Vector[A38, B38]] / 100
A39 = Intersect(e, Ray[A38 + C38, A38 + (2 * C38)])
B39 = Mirror(B38, Segment[A39, C])
C39: UnitVector[Vector[A39, B39]] / 100
A40 = Intersect(e, Ray[A39 + C39, A39 + (2 * C39)])
B40 = Mirror(B39, Segment[A40, C])
C40: UnitVector[Vector[A40, B40]] / 100
A41 = Intersect(e, Ray[A40 + C40, A40 + (2 * C40)])
B41 = Mirror(B40, Segment[A41, C])
C41: UnitVector[Vector[A41, B41]] / 100
A42 = Intersect(e, Ray[A41 + C41, A41 + (2 * C41)])
B42 = Mirror(B41, Segment[A42, C])
C42: UnitVector[Vector[A42, B42]] / 100
A43 = Intersect(e, Ray[A42 + C42, A42 + (2 * C42)])
B43 = Mirror(B42, Segment[A43, C])
C43: UnitVector[Vector[A43, B43]] / 100
A44 = Intersect(e, Ray[A43 + C43, A43 + (2 * C43)])
B44 = Mirror(B43, Segment[A44, C])
C44: UnitVector[Vector[A44, B44]] / 100
A45 = Intersect(e, Ray[A44 + C44, A44 + (2 * C44)])
B45 = Mirror(B44, Segment[A45, C])
C45: UnitVector[Vector[A45, B45]] / 100
A46 = Intersect(e, Ray[A45 + C45, A45 + (2 * C45)])
B46 = Mirror(B45, Segment[A46, C])
C46: UnitVector[Vector[A46, B46]] / 100
A47 = Intersect(e, Ray[A46 + C46, A46 + (2 * C46)])
B47 = Mirror(B46, Segment[A47, C])
C47: UnitVector[Vector[A47, B47]] / 100
A48 = Intersect(e, Ray[A47 + C47, A47 + (2 * C47)])
B48 = Mirror(B47, Segment[A48, C])
C48: UnitVector[Vector[A48, B48]] / 100
A49 = Intersect(e, Ray[A48 + C48, A48 + (2 * C48)])
B49 = Mirror(B48, Segment[A49, C])
C49: UnitVector[Vector[A49, B49]] / 100
A50 = Intersect(e, Ray[A49 + C49, A49 + (2 * C49)])
B50 = Mirror(B49, Segment[A50, C])
C50: UnitVector[Vector[A50, B50]] / 100
A51 = Intersect(e, Ray[A50 + C50, A50 + (2 * C50)])
B51 = Mirror(B50, Segment[A51, C])
C51: UnitVector[Vector[A51, B51]] / 100
A52 = Intersect(e, Ray[A51 + C51, A51 + (2 * C51)])
B52 = Mirror(B51, Segment[A52, C])
C52: UnitVector[Vector[A52, B52]] / 100
A53 = Intersect(e, Ray[A52 + C52, A52 + (2 * C52)])
B53 = Mirror(B52, Segment[A53, C])
C53: UnitVector[Vector[A53, B53]] / 100
A54 = Intersect(e, Ray[A53 + C53, A53 + (2 * C53)])
B54 = Mirror(B53, Segment[A54, C])
C54: UnitVector[Vector[A54, B54]] / 100
A55 = Intersect(e, Ray[A54 + C54, A54 + (2 * C54)])
B55 = Mirror(B54, Segment[A55, C])
C55: UnitVector[Vector[A55, B55]] / 100
A56 = Intersect(e, Ray[A55 + C55, A55 + (2 * C55)])
B56 = Mirror(B55, Segment[A56, C])
C56: UnitVector[Vector[A56, B56]] / 100
A57 = Intersect(e, Ray[A56 + C56, A56 + (2 * C56)])
B57 = Mirror(B56, Segment[A57, C])
C57: UnitVector[Vector[A57, B57]] / 100
A58 = Intersect(e, Ray[A57 + C57, A57 + (2 * C57)])
B58 = Mirror(B57, Segment[A58, C])
C58: UnitVector[Vector[A58, B58]] / 100
A59 = Intersect(e, Ray[A58 + C58, A58 + (2 * C58)])
B59 = Mirror(B58, Segment[A59, C])
C59: UnitVector[Vector[A59, B59]] / 100
A60 = Intersect(e, Ray[A59 + C59, A59 + (2 * C59)])
B60 = Mirror(B59, Segment[A60, C])
C60: UnitVector[Vector[A60, B60]] / 100
A61 = Intersect(e, Ray[A60 + C60, A60 + (2 * C60)])
B61 = Mirror(B60, Segment[A61, C])
C61: UnitVector[Vector[A61, B61]] / 100
A62 = Intersect(e, Ray[A61 + C61, A61 + (2 * C61)])
B62 = Mirror(B61, Segment[A62, C])
C62: UnitVector[Vector[A62, B62]] / 100
A63 = Intersect(e, Ray[A62 + C62, A62 + (2 * C62)])
B63 = Mirror(B62, Segment[A63, C])
C63: UnitVector[Vector[A63, B63]] / 100
A64 = Intersect(e, Ray[A63 + C63, A63 + (2 * C63)])
B64 = Mirror(B63, Segment[A64, C])
C64: UnitVector[Vector[A64, B64]] / 100
A65 = Intersect(e, Ray[A64 + C64, A64 + (2 * C64)])
B65 = Mirror(B64, Segment[A65, C])
C65: UnitVector[Vector[A65, B65]] / 100
A66 = Intersect(e, Ray[A65 + C65, A65 + (2 * C65)])
B66 = Mirror(B65, Segment[A66, C])
C66: UnitVector[Vector[A66, B66]] / 100
A67 = Intersect(e, Ray[A66 + C66, A66 + (2 * C66)])
B67 = Mirror(B66, Segment[A67, C])
C67: UnitVector[Vector[A67, B67]] / 100
A68 = Intersect(e, Ray[A67 + C67, A67 + (2 * C67)])
B68 = Mirror(B67, Segment[A68, C])
C68: UnitVector[Vector[A68, B68]] / 100
A69 = Intersect(e, Ray[A68 + C68, A68 + (2 * C68)])
B69 = Mirror(B68, Segment[A69, C])
C69: UnitVector[Vector[A69, B69]] / 100
A70 = Intersect(e, Ray[A69 + C69, A69 + (2 * C69)])
B70 = Mirror(B69, Segment[A70, C])
C70: UnitVector[Vector[A70, B70]] / 100
A71 = Intersect(e, Ray[A70 + C70, A70 + (2 * C70)])
B71 = Mirror(B70, Segment[A71, C])
C71: UnitVector[Vector[A71, B71]] / 100
A72 = Intersect(e, Ray[A71 + C71, A71 + (2 * C71)])
B72 = Mirror(B71, Segment[A72, C])
C72: UnitVector[Vector[A72, B72]] / 100
A73 = Intersect(e, Ray[A72 + C72, A72 + (2 * C72)])
B73 = Mirror(B72, Segment[A73, C])
C73: UnitVector[Vector[A73, B73]] / 100
A74 = Intersect(e, Ray[A73 + C73, A73 + (2 * C73)])
B74 = Mirror(B73, Segment[A74, C])
C74: UnitVector[Vector[A74, B74]] / 100
A75 = Intersect(e, Ray[A74 + C74, A74 + (2 * C74)])
B75 = Mirror(B74, Segment[A75, C])
C75: UnitVector[Vector[A75, B75]] / 100
A76 = Intersect(e, Ray[A75 + C75, A75 + (2 * C75)])
B76 = Mirror(B75, Segment[A76, C])
C76: UnitVector[Vector[A76, B76]] / 100
A77 = Intersect(e, Ray[A76 + C76, A76 + (2 * C76)])
B77 = Mirror(B76, Segment[A77, C])
C77: UnitVector[Vector[A77, B77]] / 100
A78 = Intersect(e, Ray[A77 + C77, A77 + (2 * C77)])
B78 = Mirror(B77, Segment[A78, C])
C78: UnitVector[Vector[A78, B78]] / 100
A79 = Intersect(e, Ray[A78 + C78, A78 + (2 * C78)])
B79 = Mirror(B78, Segment[A79, C])
C79: UnitVector[Vector[A79, B79]] / 100
A80 = Intersect(e, Ray[A79 + C79, A79 + (2 * C79)])
B80 = Mirror(B79, Segment[A80, C])
C80: UnitVector[Vector[A80, B80]] / 100
A81 = Intersect(e, Ray[A80 + C80, A80 + (2 * C80)])
B81 = Mirror(B80, Segment[A81, C])
C81: UnitVector[Vector[A81, B81]] / 100
A82 = Intersect(e, Ray[A81 + C81, A81 + (2 * C81)])
B82 = Mirror(B81, Segment[A82, C])
C82: UnitVector[Vector[A82, B82]] / 100
A83 = Intersect(e, Ray[A82 + C82, A82 + (2 * C82)])
B83 = Mirror(B82, Segment[A83, C])
C83: UnitVector[Vector[A83, B83]] / 100
A84 = Intersect(e, Ray[A83 + C83, A83 + (2 * C83)])
B84 = Mirror(B83, Segment[A84, C])
C84: UnitVector[Vector[A84, B84]] / 100
A85 = Intersect(e, Ray[A84 + C84, A84 + (2 * C84)])
B85 = Mirror(B84, Segment[A85, C])
C85: UnitVector[Vector[A85, B85]] / 100
A86 = Intersect(e, Ray[A85 + C85, A85 + (2 * C85)])
B86 = Mirror(B85, Segment[A86, C])
C86: UnitVector[Vector[A86, B86]] / 100
A87 = Intersect(e, Ray[A86 + C86, A86 + (2 * C86)])
B87 = Mirror(B86, Segment[A87, C])
C87: UnitVector[Vector[A87, B87]] / 100
A88 = Intersect(e, Ray[A87 + C87, A87 + (2 * C87)])
B88 = Mirror(B87, Segment[A88, C])
C88: UnitVector[Vector[A88, B88]] / 100
A89 = Intersect(e, Ray[A88 + C88, A88 + (2 * C88)])
B89 = Mirror(B88, Segment[A89, C])
C89: UnitVector[Vector[A89, B89]] / 100
A90 = Intersect(e, Ray[A89 + C89, A89 + (2 * C89)])
B90 = Mirror(B89, Segment[A90, C])
C90: UnitVector[Vector[A90, B90]] / 100
A91 = Intersect(e, Ray[A90 + C90, A90 + (2 * C90)])
B91 = Mirror(B90, Segment[A91, C])
C91: UnitVector[Vector[A91, B91]] / 100
A92 = Intersect(e, Ray[A91 + C91, A91 + (2 * C91)])
B92 = Mirror(B91, Segment[A92, C])
C92: UnitVector[Vector[A92, B92]] / 100
A93 = Intersect(e, Ray[A92 + C92, A92 + (2 * C92)])
B93 = Mirror(B92, Segment[A93, C])
C93: UnitVector[Vector[A93, B93]] / 100
A94 = Intersect(e, Ray[A93 + C93, A93 + (2 * C93)])
B94 = Mirror(B93, Segment[A94, C])
C94: UnitVector[Vector[A94, B94]] / 100
A95 = Intersect(e, Ray[A94 + C94, A94 + (2 * C94)])
B95 = Mirror(B94, Segment[A95, C])
C95: UnitVector[Vector[A95, B95]] / 100
A96 = Intersect(e, Ray[A95 + C95, A95 + (2 * C95)])
B96 = Mirror(B95, Segment[A96, C])
C96: UnitVector[Vector[A96, B96]] / 100
A97 = Intersect(e, Ray[A96 + C96, A96 + (2 * C96)])
B97 = Mirror(B96, Segment[A97, C])
C97: UnitVector[Vector[A97, B97]] / 100
A98 = Intersect(e, Ray[A97 + C97, A97 + (2 * C97)])
B98 = Mirror(B97, Segment[A98, C])
C98: UnitVector[Vector[A98, B98]] / 100
A99 = Intersect(e, Ray[A98 + C98, A98 + (2 * C98)])
B99 = Mirror(B98, Segment[A99, C])
C99: UnitVector[Vector[A99, B99]] / 100
A100 = Intersect(e, Ray[A99 + C99, A99 + (2 * C99)])
B100 = Mirror(B99, Segment[A100, C])
C100: UnitVector[Vector[A100, B100]] / 100
b = Ray(A1, B1)
α = Angle(A1, A2, C)
texto1: "" + α
a = Segment(A2, C)
t = 1 (slider from 1 to 100, step 0.01)
P: (Object["A" + (floor(t))] * (1 - t + floor(t))) + ((t - floor(t)) * Object["A" + (floor(t + 1))])
nada = -0.8 (slider from -5 to 5, step 0.1)
lista1: A1:A100
v = 3 (slider from 1 to 5, step 1)
lista2 = Sequence(Segment[Element[lista1, k], Element[lista1, k + 1]], k, 1, 100)