+

+

-

=

Suma

Resta

Mostrar ejercicios

comprobar

-

+

-

+

-

Otro ejercicio

Nuevo intento

Ocultar ejercicios

Realiza la operación que se indica.

Selecciona el resultado correcto moviendo el punto rojo. 

Suma y resta de fracciones 
con igual denominador.

¡ Muy bien !. Has completado correctamente los diez ejercicios.

=

M = (10, 0)
L = (-3.7, 0.04)
i = Segment(L, M)
dd = 7.95 (slider from 2.1 to 12.1, step 0.05)
h = Random(3, 12)
g = Random((-h) + 1, h - 1)
f = Random((-h) + 1, h - 1)
d: floor(dd)
texto1: "Denominador = " + d + ""
aa = 3.55 (slider from 1.05 to dd - 1, step 0.05)
a: floor(aa)
texto2: "Numerador 1 = " + a + ""
bb = 2.7 (slider from 1.05 to dd - 1, step 0.05)
b: floor(bb)
A = (-2.22, 3.82)
r = 1.4
c = Circle(A, r)
A': A + (r, 0)
seg1 = Segment(A, A')
lista1 = Sequence(Segment[Rotate[A, ((t * 360) * ° / d), A], Rotate[A', ((t * 360) * ° / d), A]], t, 0, d - 1)
A'' = Rotate(A', ((a * 360) * ° / d), A)
u = Vector(A, A')
B: A + (2.5 * u)
f_1, lista2, g_1 = fracciontarta(B, r, b, d)
suma: (a + b) / d
supsuma: ceil(suma)
lista3 = Sequence(Translate[B, Vector[((2.5 * t) * u)]], t, 1, supsuma)
lista4 = Sequence(Translate[f_1, Vector[((2.5 * t) * u)]], t, 1, supsuma)
lista5 = Sequence(Translate[lista2, Vector[((2.5 * t) * u)]], t, 1, supsuma)
lista6 = Last(lista3)
D = Element(lista6, 1)
resto = Mod(a + b, d)
k, lista7, p = fracciontarta(D, r, resto, d)
lista8 = First(lista3)
C = Element(lista8, 1)
q = Circle(C, r)
oper = 1 (slider from 1 to 10, step 1)
E = Midpoint(A, B)
F = Midpoint(B, C)
G: B + (2.5 * u)
rab: a - b
s, lista9, t = fracciontarta(G, r, rab, d)
G': A' + (5 * u)
G'' = Rotate(G', ((rab * 360) * ° / d), G)
c_1 = CircleSector(G, G'', G')
A''': A + (0, ((-2) * r))
B''': A''' + (2.5 * u)
H: B''' + (2.5 * u)
sab: a + b
d_1 = CircleSector(A, A', A'')
op1 = Random(1, 2)
top1 = If(f ≥ 0, "+", "-")
top2 = If(g ≥ 0, "+", "-")
op2 = Random(1, 2)
e = Random(1, h - 1)
f': abs(f)
g': abs(g)
resul: e + f + g
J = Point(i)
I = Point(i)
j = Segment(I, J)
l: x(J) - x(I)
K = Point(j)
m: -25 + ceil(((x(K) - x(I)) / (x(J) - x(I)) * 60))
n: e + f + g
texto11: "\frac{" + (LaTeX[e]) + "}{" + (LaTeX[h]) + "}\text{" + (LaTeX[top1]) + "}\frac{" + (LaTeX[f']) + "}{" + (LaTeX[h]) + "}\text{" + (LaTeX[top2]) + "}\frac{" + (LaTeX[g']) + "}{" + (LaTeX[h]) + "}=\frac{" + (LaTeX[m]) + "}{" + (LaTeX[h]) + "}"
aciertos = 0 (slider from 0 to 10, step 1)
P: K
texto14 = If(m ≟ n, "¡ Muy bien !", "Revisa los cálculos")
N = (-3.1, 2.68)
e_1 = Circle(N, 0.3)
v = Vector(N, N + (0.8, 0))
lista10 = Sequence(Translate[N, Vector[(t * v)]], t, 0, 4)
Q: N + (0, (-0.8))
lista11 = Sequence(Translate[Q, Vector[(t * v)]], t, 0, 4)
lista12 = Join({lista10, lista11})
lista14 = Sequence(Circle[Element[lista12, i], 0.2], i, 0, aciertos)
lista13 = Sequence(Circle[Element[lista12, i], 0.3], i, 1, 10)
texto3: "Numerador 2= " + b + ""
texto18 = If(oper ≟ 1, "+", "-")
o = GCD(sab, d)
nss: sab / o
dss: d / o
w = GCD(rab, d)
nrs: rab / w
drs: d / w
s_1: sab / d
r_1: rab / d
texto21 = If(oper ≟ 1, "+", "-")
a_1 = If((o * p) ≟ 1, sab, 57.29577951308232*°)
texto22: "" + sab + ""
texto23: "" + rab + ""
texto24 = If(oper ≟ 1, texto22, texto23)
uno: a + b ≟ d
cero: a - b ≟ 0
sr = If(oper ≟ 1, sab, rab)
mcd = GCD(sr, d)
ns: sr / mcd
ds: d / mcd
mcm = LCM(sr, d)
b_1: sr / d
pro2: (mcd * mcm)
pro1: (sr * d)
texto26: "=\frac{" + (LaTeX[ns]) + "}{" + (LaTeX[ds]) + "}"
texto27 = If(mcm ≟ 0, "=0", If[mcd ≟ 1, "", If[mcd  <  d, texto26, If[mcd ≟ d, "=1"]]])
texto25: "\frac{" + (LaTeX[a]) + "}{" + (LaTeX[d]) + "}" + (LaTeX[texto21]) + "\frac{" + (LaTeX[b]) + "}{" + (LaTeX[d]) + "}=\frac{" + (LaTeX[a]) + "" + (LaTeX[texto21]) + "" + (LaTeX[b]) + "}{" + (LaTeX[d]) + "}=\frac{" + (LaTeX[sr]) + "}{" + (LaTeX[d]) + "}" + (LaTeX[texto27]) + ""
texto12: "\frac{" + (LaTeX[m]) + "}{" + (LaTeX[h]) + "}"

Tool: fracciontarta
centro, radio, num, denom
Input: A, r, a, d
Output: c, lista1, e

c = Circle(A, r)
A': A + (r, 0)
lista1 = Sequence(Segment[Rotate[A, ((t * 360) * ° / d), A], Rotate[A', ((t * 360) * ° / d), A]], t, 0, d - 1)
A'' = Rotate(A', ((a * 360) * ° / d), A)
e = CircleSector(A, A', A'')