1

2

3

4

5

6

7

8

9

1

2

3

4

5

6

7

8

9

0

Números

Cuadrados

Cubos

Cuartas pot

Quintas pot

Terminan en ....

Potencias

Potencias

Grafo

Grafo

Cuadrados

Cubos

Cuartas pot

A = (-2, 4)
B = (-1.24, 4)
C = (0.28, 4.02)
D = (4.3, 3.98)
E = (10.2, 3.98)
F = (14.36, 4)
a = LineBisector(A, B)
b = LineBisector(C, D)
G = (2.34, 3.98)
c = LineBisector(G, F)
H = (8.34, 4.02)
I = (6, 4)
J = (6.7, 4)
K = (8, 4)
L = (8.76, 4)
M = (12.36, 4.02)
N = (-4, 4)
O = (-3.3467329623540616, 4.026111295150797)
d = LineBisector(I, J)
e = LineBisector(N, O)
f = LineBisector(E, F)
g = LineBisector(M, D)
P = Point(a)
h = CircleArc(P, B, A)
Q = Point(b)
k = CircleArc(Q, D, C)
R = Point(d)
p = CircleArc(R, J, I)
S = Point(f)
q = CircleArc(S, F, E)
T = Point(e)
r = CircleArc(T, O, N)
i = LineBisector(H, D)
U = Point(i)
s = CircleArc(U, H, D)
V = Point(c)
Z = Point(g)
c_1 = CircleArc(Z, M, D)
t = CircleArc(V, F, G)
j = LineBisector(L, K)
W = Point(j)
d_1 = CircleArc(W, L, K)
A_1 = (1.56, -1.32)
B_1 = (1.5507507882378748, -3.3499770365333923)
C_1 = (-0.48, -5.98)
D_1 = (3.44, -5.96)
E_1 = (1.24, 0)
F_1 = (2.22, -0.02)
G_1 = (4, 0)
H_1 = (5, 0)
l = LineBisector(F_1, E_1)
M_1 = Point(l)
e_1 = CircleArc(M_1, F_1, E_1)
u = Vector(B_1, A_1)
N_1 = (1.46, -4.58)
v = Vector(C_1, N_1)
w = Vector(D_1, N_1)
n = 1 (slider from 1 to 18, step 1)
O_1 = (6, -9)
P_1 = (6, 2)
m_2 = Line(O_1, P_1)
Q_1 = (18, -9)
R_1 = (21, -9)
u_1 = Vector(Q_1, R_1)
f_1 = Translate(e_1, u_1)
g_1 = Mirror(e_1, m_2)
h_1 = Mirror(f_1, m_2)
I_1 = Mirror(F_1, m_2)
J_1 = Mirror(H_1, m_2)
S_1 = (0.22, -10.58)
K_1 = Mirror(B_1, m_2)
L_1 = Mirror(K_1, m_2)
T_1 = Mirror(A_1, m_2)
U_1 = Mirror(N_1, m_2)
V_1 = Mirror(D_1, m_2)
W_1 = Mirror(C_1, m_2)
v_1 = Vector(K_1, T_1)
w_1 = Vector(V_1, U_1)
a_1 = Vector(W_1, U_1)
Z_1 = (0.04, -6.76)
A_2 = Translate(Z_1, u_1)
b_1 = Vector(Z_1, A_2)
A_3: A_2 + (0, 0.3)
Z2: Z_1 + (0, 0.3)
i_1 = Vector(A_3, Z2)
B_2 = (1.0729474954971983, -4.126407387236991)
C_2 = (2.088279492571136, -4.156270093033283)
j_1 = LineBisector(B_2, C_2)
D_2 = Point(j_1)
k_1 = CircleArc(D_2, C_2, B_2)
E_2 = Point(l)
p_1 = CircleArc(E_2, F_1, E_1)
F_2 = Point(l)
q_1 = CircleArc(F_2, F_1, E_1)
r_1 = Translate(p_1, u_1)
s_1 = Mirror(p_1, m_2)
t_1 = Mirror(r_1, m_2)
c_2 = Mirror(k_1, m_2)
G_2 = Mirror(B_2, m_2)
Z2' = Mirror(Z2, m_2)
H_2 = Mirror(A_3, m_2)
I_2 = Mirror(A_2, m_2)
J_2 = Mirror(Z_1, m_2)
l_1 = Vector(H_2, Z2')
m_1 = Vector(J_2, I_2)
d_2 = Translate(q_1, u_1)
e_2 = Mirror(d_2, m_2)
f_2 = Mirror(q_1, m_2)
a_2 = LineBisector(B, F)
K_2 = Point(a_2)
g_2 = CircleArc(K_2, F, B)
T_5: T_1 + (-0.4, 0.1)
T_6: T_1 + (0.15, 0.1)
v_2 = Vector(V_1, T_5)
w_2 = Vector(W_1, T_6)
L_2 = Mirror(T_5, m_2)
M_2 = Mirror(T_6, m_2)
u_2 = Vector(D_1, L_2)
n_1 = Vector(C_1, M_2)
N_2 = (-1, -9)
O_2: N_2 + (0.2, 0)
b_2 = Vector(N_2, O_2)
m = 1 (slider from 0 to 5, step 1)
L1 = NaN
P_2 = Translate(L_1, b_2)
Q_2 = Translate(A_1, b_2)
h_2 = Vector(P_2, Q_2)
R_2 = Point(m_2)
S_2 = Point(m_2)
i_2 = Segment(R_2, S_2)
T_2 = Mirror(Q_2, i_2)
U_2 = Mirror(P_2, i_2)
j_2 = Vector(U_2, T_2)
lista1 = Sequence(i, i, 1, 9)
AA = (-3.85439896089103, 3.01077929807686)
V_2 = (-1.4355197913913527, -16.39997946951311)
ppp = 5
lista11 = Sequence(Text[Element[lista1, k], AA + (k * (2, 0))], k, 1, 9)
lista2 = Sequence(Element[lista1, k]^(2) - (10 * floor(Element[lista1, k]^(2) / 10)), k, 1, 9)
lista3 = Sequence(Element[lista1, k]^(3) - (10 * floor(Element[lista1, k]^(3) / 10)), k, 1, 9)
lista4 = Sequence(Element[lista1, k]^(4) - (10 * floor(Element[lista1, k]^(4) / 10)), k, 1, 9)
lista5 = Sequence(Element[lista1, k]^(5) - (10 * floor(Element[lista1, k]^(5) / 10)), k, 1, 9)
pp = 2.6 (slider from -5 to 5, step 0.1)
BB: AA - (0, pp)
CC: BB - (0, pp)
DD: CC - (0, pp)
EE: DD - (0, pp)
o = 1 (slider from 0 to 1, step 1)
oo = 0 (slider from 0 to 1, step 1)
lista20 = Sequence(Element[lista1, k]^(2) - (10 * floor(Element[lista1, k]^(2) / 10)), k, 1, 4)
lista22 = Sequence(Text[Element[lista2, k], BB + (k * (2, 0))], k, 1, 9)
lista222 = Sequence(Text[Element[lista2, k], BB + (k * (2, 0))], k, 1, 4)
lista33 = Sequence(Text[Element[lista3, k], CC + (k * (2, 0))], k, 1, 9)
lista44 = Sequence(Text[Element[lista4, k], DD + (k * (2, 0))], k, 1, 9)
lista55 = Sequence(Text[Element[lista5, k], EE + (k * (2, 0))], k, 1, 9)
texto5: "Paso " + m + ""
texto6: "Paso " + n + ""
texto7: "Paso " + m + ""