Denominador común

Comparación

Representación 

Comprobar la solución

Mostrar solución

c1 = 1 (slider from 1 to 20, step 1)
a1 = 11.4 (slider from 1 to 20, step 1)
d1 = 5.5 (slider from 1 to 20, step 1)
g = 7.3 (slider from 1 to 20, step 1)
d: round(d1)
c: round(c1)
C = (2.68, -2)
cd: floor((c - 0.5) / d)
rC = If(cd < 2.0, 2.0, If[cd < 4.0, 1.5, 0.75])
posXYa: {(0.0, 0.0), (1.5, 0.0), (3.0, 0.0), (4.5, 0.0), (6.0, 0.0), (0.0, -1.5), (1.5, -1.5), (3.0, -1.5), (4.5, -1.5), (6.0, -1.5), (0.0, -3.0), (1.5, -3.0), (3.0, -3.0), (4.5, -3.0), (6.0, -3.0), (7.5, 0.0), (7.5, -1.5), (7.5, -3.0), (9.0, 0.0), (9.0, -1.5), (9.0, -3.0)}
posXYb: {(0.0, 0.0), (3.0, 0.0), (6.0, 0.0), (9.0, 0.0)}
posXYc: {(0.0, 0.0), (4.0, 0.0)}
CC: C + If[cd < 1.0, (0.0, 0.0), If[cd < 2.0, Element[posXYc, 1.0 + cd], If[cd < 4.0, Element[posXYb, 1.0 + cd], Element[posXYa, 1.0 + cd]]]]
a: round(a1)
b: round(g)
ab: floor((a - 0.5) / b)
rA = If(ab < 2.0, 2.0, If[ab < 4.0, 1.5, 0.75])
A = (2.68, 4.2)
AA: A + If[ab < 1.0, (0.0, 0.0), If[ab < 2.0, Element[posXYc, 1.0 + ab], If[ab < 4.0, Element[posXYb, 1.0 + ab], Element[posXYa, 1.0 + ab]]]]
S = Point(l_1)
B: AA + (rA, 0.0)
m = LCM(b, d)
n_2: m * c / d
n_1: a * m / b
B' = Rotate(B, a / b * 359.99°, AA)
D: CC + (rC, 0.0)
D' = Rotate(D, c / d * 359.99°, CC)
texto5: "mcm (" + b + ", " + d + ") = " + m
texto4: "\frac{ " + n_1 + " }{" + m + " } "
texto6: " \frac{ " + n_2 + " }{" + m + " } "
j = false
p = GCD(n_1 + n_2, m)
q = GCD(n_1 - n_2, m)
z = 4 (slider from 4 to 5, step 1)
polígono1, r, s, t, a_1 = Polygon(E, E + (0.0, -(9.0)), E + (2.5, -(9.0)), E + (2.5, 0.0))
lista7 = Sequence((1.0, 0.0) + (t * 13.0 / b, 0.0), t, 0.0, b)
m_1: floor(a / b)
texto18: m_1 + ""
texto19: m_1 + 1.0 + ""
F = (1.34, -2.2800000000000002)
G: F + (5.0, 0.0)
H: F + (0.0, 5.0)
J: F + (5.0, 5.0)
L1 = Sequence(F + t * (G - F), t, 0.0, 1.0, 1.0 / b)
L2 = Sequence(H + t * (J - H), t, 0.0, 1.0, 1.0 / b)
b_1 = Ray(H, J)
K = Point(b_1)
c_1 = Segment(H, K)
L5 = Sequence(Segment[Element[L1, k], Element[L2, k]], k, 2.0, b)
T1 = Element(L1, a + 1.0)
T2 = Element(L2, a + 1.0)
v = true
denominador1 = NaN (slider from 1 to 132, step 1)
numerador1 = NaN (slider from 1 to 245, step 1)
denominador2 = NaN (slider from 1 to 132, step 1)
lista12 = Sequence((1.0, 0.0) + (S - (1.0, 0.0)) * t, t, 1.0, b)
text = If(a / b < c / d, "<", If[a / b ≟ c / d, "=", ">"])
texto43: text + ""
o_1 = false
texto35: "b = " + b
texto24: "d = " + d
n = Segment((1.0, 0.0), (14.0, 0.0))
b_2 = Ray((1.0, 0.0), S)
T = (1, 0)
U = (14, 0)
g_2 = Circle(A, 2.2)
h_2 = Ray(A, B)
i_2 = Ray(A, B')
V = Intersect(g_2, i_2, 1.0)
W = Intersect(g_2, h_2, 1.0)
p_2 = Circle(C, 2.2)
j_2 = Ray(C, D)
l_2 = Ray(C, D')
Z = Intersect(p_2, l_2, 1.0)
A_1 = Intersect(p_2, j_2, 1.0)
l = Segment((0.5, 0.0), (15.0, 0.0))
texto36: "a = " + a
texto2: "  \frac{ a }{b } \,\,=  \,\, \frac{" + a + " }{" + b + "}"
texto3: " \frac{ c }{ d}  \,\,= \,\, \frac{ " + c + " }{" + d + " } "
f = CircleSector(AA, B, B')
h = CircleSector(CC, D, D')
lista2 = Sequence(Segment[Rotate[AA, t * 360.0° / b, AA], Rotate[B, t * 360.0° / b, AA]], t, 1.0, b)
lista4 = Sequence(Segment[Rotate[CC, t * 360.0° / d, CC], Rotate[D, t * 360.0° / d, CC]], t, 1.0, d)
lista5 = Sequence(Segment[Rotate[AA, t * 360.0° / m, AA], Rotate[B, t * 360.0° / m, AA]], t, 1.0, m)
lista6 = Sequence(Segment[Rotate[CC, t * 360.0° / m, CC], Rotate[D, t * 360.0° / m, CC]], t, 1.0, m)
e = Circle(AA, rA)
e' = Circle(CC, rC)
tortillaA150 = Dilate(tortillaA200, 0.75, A)
tortillaA75 = Dilate(tortillaA150, 0.5, A)
vectorA1 = Sequence(Vector[Vector[A, A + Element[posXYa, s]]], s, 1.0, ab + 1.0)
vectorA2 = Sequence(Vector[Vector[A, A + Element[posXYb, s]]], s, 1.0, ab + 1.0)
vectorA3 = Sequence(Vector[Vector[A, A + Element[posXYc, s]]], s, 1.0, ab + 1.0)
tortillaC200 = Translate(tortillaA200, Vector[Vector[C - A]])
tortillaC150 = Translate(tortillaA150, Vector[Vector[C - A]])
tortillaC75 = Translate(tortillaA75, Vector[Vector[C - A]])
vectorC1 = Sequence(Vector[Vector[C, C + Element[posXYa, s]]], s, 1.0, cd + 1.0)
vectorC2 = Sequence(Vector[Vector[C, C + Element[posXYb, s]]], s, 1.0, cd + 1.0)
vectorC3 = Sequence(Vector[Vector[C, C + Element[posXYc, s]]], s, 1.0, cd + 1.0)
colocaA1 = Sequence(Translate[tortillaA75, Element[vectorA1, s]], s, 1.0, ab + 1.0)
colocaA2 = Sequence(Translate[tortillaA150, Element[vectorA2, s]], s, 1.0, ab + 1.0)
colocaA3 = Sequence(Translate[tortillaA200, Element[vectorA3, s]], s, 1.0, ab + 1.0)
colocaC1 = Sequence(Translate[tortillaC75, Element[vectorC1, s]], s, 1.0, cd + 1.0)
colocaC2 = Sequence(Translate[tortillaC150, Element[vectorC2, s]], s, 1.0, cd + 1.0)
colocaC3 = Sequence(Translate[tortillaC200, Element[vectorC3, s]], s, 1.0, cd + 1.0)
B2: AA + (rA * 1.05, 0.0)
B2' = Rotate(B2, a / b * 359.99°, AA)
f2 = CircleSector(AA, B2', B2)
D2: CC + (rC * 1.05, 0.0)
D2' = Rotate(D2, c / d * 359.99°, CC)
h2 = CircleSector(CC, D2', D2)
texto22: " \frac{" + a + "}{" + b + "}" + (If[m_1 > 0.0, "\,=\," + m_1 + (If[a - b * m_1 > 0.0, " +\,\frac{" + (a - b * m_1) + "}{" + b + "}", ""]), ""])
I = Point(Segment[(0.0, -0.5), (13.0, -0.5)])
texto41: " \frac{ " + (round(a)) + " }{" + (round(b)) + " }"
texto42: " \frac{ " + (round(c)) + " }{" + (round(d)) + " }"
texto23: "c = " + (round(c))