Fracciones equivalentes

Representación

1

2

3

Sobre un círculo

Sobre un cuadrado

Sobre un rectángulo

Dos formas de obtener fracciones equivalentes

Selecciona la fracción, primero el denominador.

+

-

+

-

Amplificar

Simplificar

Fracciones equivalentes: amplificar

Fracciones equivalentes: simplificar

Otra fraccion

x

Comprobar

Nuevo intento

Mueve el punto x para seleccionar el numerador.

1

Has completado correctamente el ejercicio.

Puedes mover 
el punto rojo.

mostrar G'

Nuevo Cálculo

Comprobar

Nuevo intento

Selecciona el denominador y 
a continuación el numerador 
moviendo los puntos.

2

Has completado correctamente el ejercicio

Mostar ejercicios

Ocultar ejercicios

Ejercicio 1

Ejercicio 2

Reiniciar construcción

Ejercicio 1

Ejercicio 2

E1

E2

1

2

3

H = (-2, -5)
p1 = Random(2, 8)
d1 = Random(2, 10)
d1a: (d1 * p1)
H' = (8, -5)
I: H + (H' - H) / d1a
v1 = Vector(H, I)
lista13 = Sequence(H + (i * v1), i, 0, d1a)
lista13'' = First(lista13, d1a)
L = (6, -2)
lista16 = Sequence(j, j, 1, d1 - 1)
n1 = RandomElement(lista16)
n1a: (n1 * p1)
max2 = GCD(n1a, d1a)
d2s: d1a / max2
n2s: n1a / max2
G = (0, -2)
denom = 3 (slider from 2.05 to 12.05, step 0.05)
num = 1.01 (slider from 1.01 to denom - 1, step 0.05)
d: floor(denom)
n: floor(num)
ancho = 8 (slider from 4 to 10, step 0.1)
alto = 1.1 (slider from 0.5 to 2, step 0.1)
r = 1.5 (slider from 0.3 to 3, step 0.05)
A = (0.5, -2)
c, e, listat1 = fracciontarta(A, r, d, n)
tipo = 1 (slider from 1 to 3, step 1)
listac1, polic1, poli01 = fraccioncuadrado(A, r, d, n)
B: A - (r, 0)
polib1, polib2, listab1 = fraccionbarra(B, ancho, alto, d, n)
C: A + ((3 * r), 0)
p = 2 (slider from 2 to 10, step 1)
listab4, polic2, poli02 = fraccioncuadrado(C, r, (d * p), (n * p))
f, g, listat4 = fracciontarta(C, r, (p * d), (p * n))
D: B + (0, ((-1.5) * r))
polib4, polib3, listab5 = fraccionbarra(D, ancho, alto, (p * d), (p * n))
na: (n * p)
da: (d * p)
texto001: "\frac{" + (LaTeX[n]) + "}{" + LaTeX[d] + "}=\frac{" + LaTeX[n] + "·" + LaTeX[p] + "}{" + LaTeX[d] + "·" + LaTeX[p] + "}=\frac{" + LaTeX[na] + "}{" + LaTeX[da] + "}"
u = Vector(A, C)
listac2 = Translate(listac1, u)
listat2 = Translate(listat1, u)
min = Min(n, d)
mcd = GCD(n, d)
lista01 = DivisorsList(n)
Factors(n)
lista02 = DivisorsList(d)
Factors(d)
lista03 = Intersection(lista01, lista02)
a = Length(lista03)
b = 1 (slider from 1 to a, step 1)
h = Element(lista03, b)
listab2 = Translate(listab1, Vector[B, D])
E = (6, -2)
k, q, listat3 = fracciontarta(E, r, d / h, n / h)
lista04 = First(lista03)
listac3, polic3, poli03 = fraccioncuadrado(E, r, d / h, n / h)
F: E - (r, 0)
mod = 1 (slider from 0 to 2, step 1)
polib5, polib4_1, listab3 = fraccionbarra(D, ancho, alto, d / h, n / h)
texto013: "\frac{" + (LaTeX[n]) + "}{" + LaTeX[d] + "}"
texto014: "\frac{" + (LaTeX[na]) + "}{" + LaTeX[da] + "}"
texto016: "\frac{" + (LaTeX[n]) + "}{" + LaTeX[d] + "}"
texto017: "\frac{" + (LaTeX[na]) + "}{" + LaTeX[da] + "}"
ds: d / h
ns: n / h
texto019: "\frac{" + (LaTeX[ns]) + "}{" + LaTeX[ds] + "}"
texto018: "Dividir entre " + h + ""
texto020: "\frac{" + (LaTeX[ns]) + "}{" + LaTeX[ds] + "}"
texto021: "\frac{" + (LaTeX[n]) + "}{" + LaTeX[d] + "}=\frac{" + LaTeX[n] + ":" + LaTeX[h] + "}{" + LaTeX[d] + ":" + LaTeX[h] + "}=\frac{" + LaTeX[ns] + "}{" + LaTeX[ds] + "}"
ejer = 0 (slider from 0 to 3, step 1)
P = Point(lista13'')
s, t, lista11 = fracciontarta(G, r, d1, n1)
s1 = Segment(H, H')
J: H + (n1a * v1)
dis1: Distance[H, P] / Distance[H, I]
texto13: "" + dis1 + ""
est1 = 0 (slider from 0 to 2, step 1)
seg11 = Segment(H - (0, 0.2), H + (0, 0.2))
lista14 = Sequence(Translate[seg11, Vector[((i * v1) * d1)]], i, 1, p1)
i: abs(v1)
lista15 = Sequence(Text[(d1 * k), H + (0, (-0.5)) + ((d1 * i) * (k, 0))], k, 0, p1)
aciertos1 = 0 (slider from 0 to 10, step 1)
K = (-1, -3)
lista1 = Sequence(Circle[K + (i * (0.3, 0)), 0.12], i, 1, aciertos1)
texto15: "\frac{" + (LaTeX[n1]) + "}{" + LaTeX[d1] + "}=\frac{" + LaTeX[n1] + "·" + LaTeX[p1] + "}{" + LaTeX[d1] + "·" + LaTeX[p1] + "}=\frac{" + LaTeX[n1a] + "}{" + LaTeX[d1a] + "}"
texto16: "\frac{" + (LaTeX[n1]) + "}{" + LaTeX[d1] + "}≠\frac{" + LaTeX[dis1] + "}{" + LaTeX[d1a] + "}"
G' = Point(Segment[G, L])
c_1, c_2, c_3 = fracciontarta(G', r, d1a, dis1)
j = Segment(G, L)
g' = true
M = (-0.9830866807610993, -2.1353065539112057)
polígono1, polígono2, lista2 = fraccionbarra(M, ancho, alto, (d1 * p1), (n1 * p1))
N = (-0.9830866807610994, -4.101479915433403)
est2 = 0 (slider from 0 to 2, step 1)
O = (-1, -5)
O' = (5, -5)
segn2 = Segment(O, O')
R = (-1, -6)
R' = (5, -6)
segd2 = Segment(R, R')
aciertos2 = 0 (slider from 0 to 10, step 1)
texto5_1: "\frac{" + (LaTeX[n1a]) + "}{" + LaTeX[d1a] + "}"
V = (-1, -3.5)
lista4 = Sequence(Circle[V + (i * (0.3, 0)), 0.12], i, 1, aciertos2)
W: R + (R' - R) / d1a
u2 = Vector(R, W)
lista25 = Sequence(R + (i * u2), i, 2, d1a)
T = Point(lista25)
d2: Distance[R, T] / Distance[R, W]
Z: O + (O' - O) / d2
v2 = Vector(O, Z)
lista23 = Sequence(O + (i * v2), i, 1, d2 - 1)
A' = Point(lista23)
n2: Distance[O, A'] / Distance[O, Z]
polígono3, polígono4, lista3 = fraccionbarra(N, ancho, alto, d2, n2)
sol2: n2s ≟ n2 ∧ d2s ≟ d2
texto2: "\frac{" + (LaTeX[n2]) + "}{" + LaTeX[d2] + "}"
texto4: "\frac{" + (LaTeX[n1a]) + "}{" + LaTeX[d1a] + "}=\frac{" + LaTeX[n2] + "}{" + LaTeX[d2] + "}"
texto6: "\frac{" + (LaTeX[n1a]) + "}{" + LaTeX[d1a] + "}≠\frac{" + LaTeX[n2] + "}{" + LaTeX[d2] + "}"
texto12 = If(P ≟ J, "¡ Muy bien !", "No es correcto. Revisa los cálculos.")
texto1 = If(sol2, "¡ Muy bien !", "No es correcto, inténtalo de nuevo.")
texto7: "La  \space fracción \space \frac{" + (LaTeX[n]) + "}{" + LaTeX[d] + "}  \space es \space  irreducible."
texto008: "Denominador = " + d + ""
texto11: "Calcula \space el \space valor \space de \space  x  \space de  \space forma \space que  \space   \frac{" + (LaTeX[n1]) + "}{" + LaTeX[d1] + "} =\frac{x}{" + LaTeX[d1a] + "}. "
texto22: "Numerador = " + n2 + ""
texto24: "Denominador = " + d2 + ""
texto21: "Calcula  \space la  \space fracción  \space equivalente  \space a  \space \frac{" + (LaTeX[n1a]) + "}{" + LaTeX[d1a] + "} \space  que \space sea \space irreducible."
texto010_1: "Numerador = " + n + ""
texto015: "Multiplicar por  " + (LaTeX[p]) + ""

Tool: fraccionbarra
punto, ancho, alto, denom,num
Input: R1, an, al, den, num
Output: polígono1, polígono2, lista1

n: floor(num)
d: floor(den)
R2: R1 + (0, al)
R3: R2 + (an, 0)
R4: R1 + (an, 0)
polígono1, e1, e2, e3, e4 = Polygon(R1, R2, R3, R4)
R: R1 + (R4 - R1) / d
lista1 = Sequence(Segment[Translate[R1, Vector[(i * Vector[R1, R])]], Translate[R2, Vector[(i * Vector[R1, R])]]], i, 0, d)
u = Vector(R1, R)
N: R1 + (n * u)
M: N + (0, al)
polígono2, e1_1, e2_1, m, n_1 = Polygon(R1, R2, M, N)

Tool: fraccioncuadrado
punto, lado/2,denom,num
Input: B, r, den, num
Output: lista3, polígono3, polígono4

n: floor(num)
d: floor(den)
C1: B + ((-r), (-r))
C2: B + ((-r), r)
polígono3, a, b, f, g, C4, C3 = Polygon(C2, C1, 4)
C: C1 + (C4 - C1) / d
v = Vector(C1, C)
lista3 = Sequence(Segment[Translate[C1, Vector[(i * v)]], Translate[C2, Vector[(i * v)]]], i, 0, d)
D: C1 + (n * v)
E: D + (0, (2 * r))
polígono4, c1, c2, e_1, d_1, c1_1 = Polygon(C1, C2, E, D, C1)

Tool: fracciontarta
punto,radio,denom,num
Input: O, r, den, num
Output: e, c, lista2

n: floor(num)
d: floor(den)
A: O + (r, 0)
c = Circle(O, r)
lista2 = Sequence(Segment[Rotate[O, ((i * 360) * ° / d), O], Rotate[A, ((i * 360) * ° / d), O]], i, 0, d - 1)
A' = Rotate(A, ((n * 360) * ° / d), O)
e = CircleSector(O, A, A')