+

+

-

-

Comprobar

Mostrar ejercicios

Ocultar ejercicios

Siguiente ejercicio

Fracción propia e impropia

Nuevo intento

¡ Muy bien ! Has completado correctamente los seis ejercicios.

Reiniciar construcción

A = (-2.5, 4)
bb = 6 (slider from 2.1 to 12.1, step 0.01)
b: floor(bb)
cc = 13 (slider from 1.05 to (4 * b), step 0.05)
c: floor(cc)
resto = Mod(c, b)
cociente = Div(c, b)
r: 1.7 - (0.1 * floor(c / b - 0.01))
A': A + (r, 0)
e = Circle(A, r)
lista1 = Sequence(Segment[Rotate[A, ((t * 360) * ° / b), A], Rotate[A', ((t * 360) * ° / b), A]], t, 0, b - 1)
A'' = Rotate(A', ((resto * 360) * ° / b), A)
f = CircleSector(A, A', A'')
u = Vector(A, A')
comprobar = 1 (slider from 0 to 2, step 1)
lista11 = Sequence(Translate[e, Vector[((2.5 * u) * t)]], t, 0, cociente - 1)
lista1' = Translate(lista1, Vector[((2.5 * u) * cociente)])
e' = Translate(e, Vector[((2.5 * u) * cociente)])
f' = Translate(f, Vector[((2.5 * u) * cociente)])
lista2 = Sequence(Translate[lista1, Vector[((2.5 * u) * t)]], t, 0, cociente - 1)
lista3 = Sequence(Translate[e, Vector[((2.5 * u) * t)]], t, 0, cociente - 1)
B = (-3, 1)
D = (8, 1)
d = Segment(B - (0.5, 0), D + (0.5, 0))
g: floor((c - 0.01) / b)
h: g + 1
texto4: "" + g + ""
texto5: "" + h + ""
C: B + (D - B) / b
u' = Vector(B, C)
lista4 = Sequence(B + (t * u'), t, 1, b - 1)
i = Segment(B, D)
E: B + (resto * u')
F = (-3, -1)
G = (8, -1)
j = Segment(F, G)
H: F + (G - F) / ceil(c / b)
u'' = Vector(F, H)
lista5 = Sequence(F + (t * u''), t, 0, ceil(c / b))
I: F + (H - F) / b
u''' = Vector(F, I)
lista7 = Sequence(I + (t * u'''), t, 0, (b * ceil(c / b)) - 1)
k: x(I) - x(F)
Mueve = Point(Segment[F + (0.01, (-0.3)), G + ((-0.01), (-0.3))])
K = Element(lista7, c)
l = Distance(Mueve, K)
texto8: "\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}"
ejer = 1 (slider from 1 to 3, step 1)
m = Segment(F - (0.5, 0), G + (0.5, 0))
J = (0, -3)
texto6: "\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}=" + (LaTeX[cociente]) + "+\frac{" + (LaTeX[resto]) + "}{" + (LaTeX[b]) + "}"
texto9: "\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}=" + (LaTeX[cociente]) + ""
texto3: "Numerador =" + c + ""
texto2: "Denominador =" + b + ""
texto1: "\frac{" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}"
M = (-3.6, -1.58)
p = Circle(M, 0.3)
aciertos = 0 (slider from 0 to 6, step 1)
q = Circle(M, 0.2)
lista9 = Sequence(Translate[q, Vector[(t * Vector[M, M + (0.8, 0)])]], t, 0, aciertos - 1)
texto11: "Representa \space  la \space  fracción  \space \frac{" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}"
lista8 = Sequence(Translate[p, Vector[(t * Vector[M, M + (0.8, 0)])]], t, 0, 5)
N: Mueve
E': D
lista6 = Sequence(Text["" + (k), Translate[F + ((-0.1), 0.4), Vector[(k * u'')]]], k, 0, ceil(c / b - 0.01))
L: K + (0, 0.2)
texto7 = If(l  <  0.31, "¡ Correcto !", "Revisa la posición del punto")

Tool: fracciontarta
punto, radio, numerador, denominador
Input: A, r, aa, bb
Output: lista1, A', A'', f, e

a: floor(aa)
b: floor(bb)
e = Circle(A, r)
A': A + (r, 0)
lista1 = Sequence(Segment[Rotate[A, ((t * 360) * ° / b), A], Rotate[A', ((t * 360) * ° / b), A]], t, 0, b - 1)
A'' = Rotate(A', ((a * 360) * ° / b), A)
f = CircleSector(A, A', A'')

Tool: fraccioncuadradavertical
punto, punto, num, denom
Input: F, G, a, b
Output: lista3, F', G', H, I, poli3, poli1

poli1, g, h, i, j, H, I = Polygon(F, G, 4)
v = Vector(F, I)
lista3 = Sequence(Segment[Translate[F, Vector[(t * v / b)]], Translate[G, Vector[(t * v / b)]]], t, 1, b - 1)
F' = Translate(F, Vector[(a * v / b)])
G' = Translate(G, Vector[(a * v / b)])
poli3 = Polygon({F, G, G', F', F})