Rodapié base

Rodapié en altura

Baldosa cuadrada

Ver

Ocultar

Ver

Ocultar

Ver

Ocultar

Nuevo rectángulo

Presentación

Presentación

Ejercicios

Ejercicios

Ver solución

Ocultar solución

lista2: {20, 24, 27, 28, 30, 32, 35, 36, 40, 44, 45, 48, 49, 52, 55, 56, 60}
l2 = Random(1, 17)
nn = Element(lista2, l2)
nx = 60 (slider from 1 to 80, step 1)
q = 11 (slider from 1 to n, step 1)
l = 1 (slider from 0 to 1, step 1)
n = If(l ≟ 1, nx, nn)
lista1: {20, 24, 27, 28, 30, 32, 35, 36, 40, 44, 45, 48, 49, 55, 56, 60, 64, 65, 68, 70, 72, 75, 77, 80}
l1 = Random(1, 24)
mm = Element(lista1, l1)
p = 20 (slider from 1 to m, step 1)
mx = 80 (slider from 1 to 90, step 1)
m = If(l ≟ 1, mx, mm)
polígono1, a, b, c, d = Polygon((0, 0), (m, 0), (m, n), (0, n))
m1 = If(Mod[m, p] ≟ 0, floor(m / p), floor(m / p) + 1)
n1 = If(Mod[n, q] ≟ 0, floor(n / q), floor(n / q) + 1)
r = 10 (slider from 1 to minmn, step 1)
mr = If(Mod[m, r] ≟ 0, floor(m / r), floor(m / r) + 1)
nr = If(Mod[n, r] ≟ 0, floor(n / r), floor(n / r) + 1)
i = 0 (slider from 0 to 1, step 1)
j = 0 (slider from 0 to 1, step 1)
k = 0 (slider from 0 to 1, step 1)
mc = GCD(m, n)
texto2: "Altura = " + n + ""
listam = DivisorsList(m)
Factors(m)
listan = DivisorsList(n)
Factors(n)
mcd = GCD(m, n)
texto9a: "Divisores de " + m + " = " + listam + ""
texto9b: "Divisores de " + n + " = " + listan + ""
texto9c: "Máximo Común Divisor = " + mcd + ""
s = 0 (slider from 0 to 1, step 1)
texto1: "Base = " + m + ""
minmn = Min(m, n)
listamn = DivisorsList(mcd)
Factors(mcd)
texto9: "Divisores comunes = " + listamn + ""
texto8: "Lado = " + r + ""
texto7: "Divisor altura = " + q + ""
texto6: "Divisor base = " + p + ""
texto10: "" + m + ""
texto11: "" + n + ""
cuadini = Polygon((0, 0), (r, 0), 4)
lmn = Sequence(Sequence[Translate[cuadini, (i, j)], j, 0, n - 1, r], i, 0, m - 1, r)
rectinim, e, f, g, h = Polygon((0, 0), (p, 0), (p, 4), (0, 4))
rectinin, t, a_1, b_1, c_1 = Polygon((0, 0), (4, 0), (4, q), (0, q))
lm11 = Sequence(Translate[rectinim, ((i * p), 0)], i, 0, m1 - 1)
ln11 = Sequence(Translate[rectinin, (0, (i * q))], i, 0, n1 - 1)