+

+

+

+

-

-

-

-

Suma

Resta

=

Mostrar ejercicios

Otro ejercicio

Realiza la operación de suma o resta que se indica:

Mueve los deslizadores para que ambas fracciones tengan igual denominador,
el mínimo común múltiplo de los denominadores.

Comprobar

nuevo intento

Muy bien. Has completado correctamente diez ejercicios.

Ocultar ejercicios

Selecciona operación

Suma

Resta

=0

=1

Realiza operación

Selecciona la fracción

lista15: {-1, 1}
g_2 = RandomElement(lista15)
bb = 4.77 (slider from 2.1 to 10.4, step 0.01)
h = Random(2, 10)
g_1 = Random(1, h - 1)
aa = 1.6 (slider from 1.05 to bb - 1, step 0.05)
dd = 5.65 (slider from 2.1 to 10.4, step 0.05)
cc = 3.2 (slider from 1.05 to dd - 1, step 0.05)
a: floor(aa)
b: floor(bb)
c: floor(cc)
d: floor(dd)
texto1: "Numerador 1=" + a + ""
texto2: "Denominador 1=" + b + ""
texto3: "Numerador 2=" + c + ""
texto4: "Denominador2 = " + d + ""
r = 1.4 (slider from -5 to 5, step 1)
m = LCM(b, d)
n_1: (m / b * a)
n_2: (m / d * c)
A = (-2.48, 3.96)
a', lista1, a''_1 = fraccion2(A, r, a, b)
u = Vector(A, A + (r, 0))
v = OrthogonalVector(u)
B: A + (2.5 * u)
b'_1, lista2, b''_1 = fraccion2(B, r, c, d)
oper = 1 (slider from 1 to 6, step 1)
texto5 = If(oper ≟ 1, "+", "-")
t = 0 (slider from 0 to 1, step 0.01)
A_1: A - ((t * 2.5) * v)
a''_2, lista3, a'' = fraccion2(A_1, r, a, b)
lista4 = partes(A_1, r, a, m)
B_1: B - ((t * 2.5) * v)
lista5 = partes(B_1, r, c, m)
b', lista6, b'' = fraccion2(B_1, r, c, d)
sumadec: a / b + c / d
supsuma: ceil(sumadec)
lista7 = Sequence(Translate[B_1, Vector[((2.5 * t) * u)]], t, 1, supsuma)
ressum: n_1 + n_2 - m
lista8 = Last(lista7)
D = Element(lista8, 1)
d', lista9, d'' = fraccion2(D, r, ressum, m)
lista10 = First(lista7)
C = Element(lista10, 1)
c' = Circle(C, r)
lista11 = partes(C, r, n_1 + n_2, m)
c'_1 = Circle(C, r)
texto6 = If(oper ≟ 1, "+", "-")
C': C + (r, 0)
resta: n_1 - n_2
C'' = Rotate(C', ((resta * 360) * ° / m), C)
c'' = CircleSector(C, C', C'')
c_1 = CircleSector(C, C'', C')
texto5_1 = If(oper ≟ 1, "+", "-")
texto9: "\frac{" + (LaTeX[a]) + "}{" + (LaTeX[b]) + "} \space " + (LaTeX[texto5]) + " \space \frac{" + (LaTeX[c]) + "}{" + (LaTeX[d]) + "}="
suma: n_1 + n_2
texto11 = If(oper ≟ 1, suma, resta)
texto10: "\frac{" + (LaTeX[a]) + "}{" + (LaTeX[b]) + "} \space " + (LaTeX[texto5]) + "\frac{" + (LaTeX[c]) + "}{" + (LaTeX[d]) + "}=\frac{" + (LaTeX[n_1]) + "}{" + (LaTeX[m]) + "} \space" + (LaTeX[texto5]) + " \frac{" + (LaTeX[n_2]) + "}{" + (LaTeX[m]) + "}=\frac{" + (LaTeX[n_1]) + "" + (LaTeX[texto5]) + "" + (LaTeX[n_2]) + "}{" + (LaTeX[m]) + "}=\frac{" + (LaTeX[texto11]) + "}{" + (LaTeX[m]) + "}"
f = Random(2, 10)
g: (g_1 * g_2)
e = Random(1, f - 1)
i: abs(g)
texto13 = If(g  <  0, "-", "+")
p1 = 1 (slider from 1 to 10, step 1)
p2 = 1 (slider from 1 to 10, step 1)
min = LCM(f, h)
texto17: "m.c.m.(" + f + "," + h + ")=" + min + ""
num1: (p1 * e)
den1: (f * p1)
num2: (i * p2)
den2: (h * p2)
texto14: "\frac{" + (LaTeX[num1]) + "}{" + (LaTeX[den1]) + "} \space " + (LaTeX[texto13]) + " \space \frac{" + (LaTeX[num2]) + "}{" + (LaTeX[den2]) + "}="
texto18 = If(den1 ≟ min ∧ den2 ≟ min, "¡Muy bien!", "Revisa los cálculos")
resuma: num1 + num2
reresta: num1 - num2
resultado = If(g_2 ≟ -1, reresta, resuma)
texto19: "\frac{" + (LaTeX[num1]) + " \space" + (LaTeX[texto13]) + "" + (LaTeX[num2]) + " }{" + (LaTeX[min]) + "}=\frac{" + (LaTeX[resultado]) + "}{" + (LaTeX[min]) + "}"
mcdsuma = GCD(resuma, min)
mcdresta = GCD(reresta, min)
simplisumanum: resuma / mcdsuma
simplisumaden: min / mcdsuma
texto20: "=\frac{" + (LaTeX[simplisumanum]) + "}{" + (LaTeX[simplisumaden]) + "}"
simplirestanum: reresta / mcdresta
simplirestaden: min / mcdresta
texto21: "=\frac{" + (LaTeX[simplirestanum]) + "}{" + (LaTeX[simplirestaden]) + "}"
resentero: resultado / min
resulentero: floor(resentero)
texto22: "=" + resulentero + ""
aciertos = 0 (slider from 0 to 10, step 1)
N = (-3.48, -1.42)
lista17 = Sequence(Translate[N, Vector[(t * u / 2)]], t, 0, 4)
Q: N + (0, (-0.8))
lista18 = Sequence(Translate[Q, Vector[(t * u / 2)]], t, 0, 4)
lista19 = Join({lista17, lista18})
lista20 = Sequence(Circle[Element[lista19, i], 0.3], i, 1, 10)
lista21 = Sequence(Circle[Element[lista19, i], 0.2], i, 0, aciertos)
mcdsuma1 = GCD(suma, m)
numsimplisuma: suma / mcdsuma1
densimplisuma: m / mcdsuma1
texto27: "=\frac{" + (LaTeX[numsimplisuma]) + "}{" + (LaTeX[densimplisuma]) + "}"
mcdresta1 = GCD(resta, m)
numsimpliresta: resta / mcdresta1
densimpliresta: m / mcdresta1
texto28: "=\frac{" + (LaTeX[numsimpliresta]) + "}{" + (LaTeX[densimpliresta]) + "}"
lista12 = partes(C, r, numsimpliresta, densimpliresta)
lista13 = partes(C, r, 0, densimplisuma)
lista14 = partes(D, r, 0, densimplisuma)
E = (-0.96, -0.14)
F: E + (2.5 * u)
k, lista16, p = fraccion2(E, r, e, f)
q, lista22, s = fraccion2(F, r, i, h)
d_1, lista23, e_1 = fraccion2(F, r, (p2 * g_1), (p2 * h))
f_1, lista24, h_1 = fraccion2(E, r, (p1 * e), (p1 * f))
texto23: "\frac{" + (LaTeX[e]) + "·" + (LaTeX[p1]) + "}{" + (LaTeX[f]) + "·" + (LaTeX[p1]) + "} "
texto24: "\frac{ " + (LaTeX[g_1]) + "·" + (LaTeX[p2]) + "}{" + (LaTeX[h]) + " ·" + (LaTeX[p2]) + "} "
texto12: "Calcula \space \frac{" + (LaTeX[e]) + "}{" + (LaTeX[f]) + "} \space " + (LaTeX[texto13]) + " \space \frac{" + (LaTeX[i]) + "}{" + (LaTeX[h]) + "}"
texto8: "x " + p1 + ""
texto31: "x " + p2 + ""

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})

Tool: fraccion2
punto, radio, num, denom
Input: A, r, aa, bb
Output: a', lista1, a''

a: floor(aa)
b: floor(bb)
a' = 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)
a'' = CircleSector(A, A', A'')

Tool: partes
Input: A, r, a, b
Output: lista1

a', lista1, a'' = fraccion2(A, r, a, b)