Mostrar mitades

Mostrar cuartos

Mostrar octavos

Verificar puntos

Restaurar

¡Fantástico!

Nuevas fracciones

list7: {5, 10, -7, 8, 7}
list6: {4, 8, 4, 4, 4}
dens: {2, 4, 4, 4, 4, 4, 4, 8, 8, 8, 8}
error: 1 / 16
list6_1 = Sequence(RandomElement[dens], i, 1, 5)
H = (-1.9625818273100142, -2.0776116239601476)
list7_1 = Sequence(Random[(-2 * Element[list6_1, i]), (2 * Element[list6_1, i])], i, 1, 5)
flist = Sequence(Element[list7, i] / Element[list6, i], i, 1, 5)
G = (0.03741817268998582, -2.0776116239601476)
F = (-0.4625818273100142, -2.0776116239601476)
E = (-0.9625818273100142, -2.0776116239601476)
D = (-1.4625818273100142, -2.0776116239601476)
list8: {D, E, F, G, H}
toosmall = Sequence((-x(Element[list8, i])) + Element[flist, i] > error, i, 1, 5)
toobig = Sequence(x(Element[list8, i]) - Element[flist, i] > error, i, 1, 5)
A: (-2.25, 0)
B: (2.25, 0)
f_1 = Segment(A, B)
C = (-2.080132143014982, -0.4896769346355284)
list1 = Sequence(Segment[(-2 + i, -0.12), (-2 + i, 0.12)], i, 0, 4, 1)
list2 = Sequence(Text[-2 + i, (x(C) + (1.02 * i), y(C))], i, 0, 4)
list3 = Sequence(Segment[(-2 + i, -0.11), (-2 + i, 0.11)], i, 0, 4, 0.5)
list4 = Sequence(Segment[(-2 + i, -0.09), (-2 + i, 0.09)], i, 0, 4, 0.25)
list5 = Sequence(Segment[(-2 + i, -0.07), (-2 + i, 0.07)], i, 0, 4, 0.125)
a = false
b = false
c = false
n: Sum[toobig] + Sum[toosmall]
p = false
I = (-1.9625818273100142, -2.0776116239601476)
J: I + (0.5, 0)
K: I + (1, 0)
L: I + (1.5, 0)
M: I + (2, 0)
list6_0: {8, 4, 4, 4, 2}
list7_0: {5, 5, 1, -3, -3}
text5: "\frac{" + (LaTeX[Element[list7, 5]]) + "}{" + (LaTeX[Element[list6, 5]]) + "}"
text2: "\frac{ " + (LaTeX[Element[list7, 2]]) + "}{ " + (LaTeX[Element[list6, 2]]) + "}"
text3: "\frac{" + (LaTeX[Element[list7, 3]]) + "}{" + (LaTeX[Element[list6, 3]]) + "}"
text4: "\frac{" + (LaTeX[Element[list7, 4]]) + "}{" + (LaTeX[Element[list6, 4]]) + "}"
text1: "\frac{" + (LaTeX[Element[list7, 1]]) + "}{" + (LaTeX[Element[list6, 1]]) + "}"
Curve(x) = NaN
text7: "" + (LaTeX[Sum[toobig]]) + " \text{ son mayores que lo que deberían ser,} \cr" + (LaTeX[Sum[toosmall]]) + " \text{ son menores que lo que deberían ser.}"

Tool: Angle
Angle[ <Point> ]
Input: L_1
Output: α, A, U_1, f, j

Move

Turn

p = Circle(L_1, 10)
U_1 = Point(p)
j = Segment(U_1, L_1)
A = Rotate(U_1, 50°, L_1)
α = Angle(U_1, L_1, A)
f = Segment(L_1, A)

Tool: Tool1
Tool1[ <Point> ]
Input: A
Output: f, g, h, poly1

c = Circle(A, 1)
B = Point(c)
B' = Rotate(B, 60°, A)
poly1, b', a, b = Polygon(A, B, B')
f = Segment(B', B)
g = Segment(B, A)
h = Segment(A, B')

Tool: Tool2
Tool2[ <Point> ]
Input: A
Output: f, g, h, i, poly1

c = Circle(A, 1)
B = Point(c)
B' = Rotate(B, 60°, A)
B'' = Rotate(B', 60°, A)
poly1, b'', b', b, a = Polygon(B'', B', B, A)
f = Segment(B'', B')
g = Segment(B', B)
h = Segment(B, A)
i = Segment(A, B'')

Tool: Tool3
Tool3[ <Point> ]
Input: A
Output: f, g, h, i, poly1

c = Circle(A, 1)
B = Point(c)
B' = Rotate(B, 60°, A)
B'' = Rotate(B', 60°, A)
B''' = Rotate(B'', 60°, A)
poly1, b''', b, b', b'' = Polygon(B''', B, B', B'')
f = Segment(B''', B)
g = Segment(B, B')
h = Segment(B', B'')
i = Segment(B'', B''')

Tool: Tool4
Tool4[ <Point> ]
Input: A
Output: poly1, f, g, h, i, j, k

c = Circle(A, 1)
B = Point(c)
B' = Rotate(B, 60°, A)
B'' = Rotate(B', 60°, A)
B''' = Rotate(B'', 60°, A)
C = Rotate(B''', 60°, A)
C' = Rotate(C, 60°, A)
poly1, b''', b'', b', b, c', c_1 = Polygon(B''', B'', B', B, C', C)
f = Segment(B'', B')
g = Segment(B', B)
h = Segment(B, C')
i = Segment(C', C)
j = Segment(C, B''')
k = Segment(B''', B'')