Introduce el número

Número:

Ver factores

Ver distribución

n = 24 (slider from 1 to 999, step 1)
CasillaDeEntrada1 = Textfield(n)
ndivis1 = Divisors(n)
Factors(n)
divis = DivisorsList(n)
Factors(n)
lista1 = Sequence(Text[Element[divis, k] + "x" + (Element[divis, ndivis1 - k + 1])], k, 1, ndivis1)
A = (-1.76, 4.8875)
B = (1, 6)
C = (0.64, 5.2)
u = Vector(B, C)
A_1: A + u
ancho = 1.4 (slider from 0 to 3, step 0.1)
alto = 0.62 (slider from 0 to 1, step 0.01)
ncifras_1 = If(n  <  10, 1, n  <  100, 2, n  <  1000, 3, n  <  10000, 4, 5)
a = Ray(A_1, A)
D: A_1 + (ancho + (0.3 * ncifras_1), 0)
b = LineBisector(A_1, D)
E = Intersect(b, a)
c = Segment(A_1, E)
d_1 = Segment(E, D)
texto1 = TableText({lista1}, "vc")
F: A_1 - (0, (alto * ndivis1))
G: D - (0, (alto * ndivis1))
e = Segment(A_1, F)
f = Segment(D, G)
H = Midpoint(F, G)
I = Midpoint(G, H)
J = Midpoint(H, F)
K: F - (0, alto)
L: G - (0, alto)
M = Midpoint(K, L)
g = Segment(K, J)
h = Segment(M, H)
i = Segment(L, I)
j = Segment(F, G)
texto2: "" + n + ""
A_2: A + (0, (-0.1 * ncifras_1))
lista3 = PrimeFactors(n)
matriz1 = Factors(n)
filas = Length(matriz1)
expo1 = If(Element[matriz1, 1, 2] > 1, "^" + (Element[matriz1, 1, 2]), "")
expo2 = If(Element[matriz1, 2, 2] > 1, "^" + (Element[matriz1, 2, 2]), "")
expo3 = If(Element[matriz1, 3, 2] > 1, "^" + (Element[matriz1, 3, 2]), "")
textof1: "" + (LaTeX[Element[matriz1, 1, 1]]) + "" + (LaTeX[expo1]) + ""
textof2 = If(filas > 1, "." + (LaTeX[Element[matriz1, 2, 1]]) + (LaTeX[expo2]) + "", "")
k = 4
textof3 = If(filas > 2, "." + (LaTeX[Element[matriz1, 3, 1]]) + (LaTeX[expo3]) + "", "")
expo4 = If(Element[matriz1, 4, 2] > 1, "^" + (Element[matriz1, 4, 2]), "")
expo5 = If(Element[matriz1, 5, 2] > 1, "^" + (Element[matriz1, 5, 2]), "")
expo6 = If(Element[matriz1, 6, 2] > 1, "^" + (Element[matriz1, 6, 2]), "")
textof4 = If(filas > 3, "." + (LaTeX[Element[matriz1, 4, 1]]) + (LaTeX[expo4]) + "", "")
textof5 = If(filas > 4, "." + (LaTeX[Element[matriz1, 5, 1]]) + (LaTeX[expo5]) + "", "")
textof6 = If(filas > 5, "." + (LaTeX[Element[matriz1, 6, 1]]) + (LaTeX[expo6]) + "", "")
texto4: "=" + (LaTeX[textof1 + textof2 + textof3 + textof4 + textof5 + textof6]) + ""
l = false
lista2 = Sequence(Segment[A_1 - (0, (k * alto)), A_1 - (0, (k * alto)) + (ancho + (0.3 * ncifras_1), 0)], k, 0, ndivis1)
d = 8 (slider from 1 to n, step 1)
P = (1.5, -1)
radiobolas = Min({0.3, 4 / d, 2.5 / (n / d)})
coc = Div(n, d)
res = Mod(n, d)
lista5 = Sequence(Sequence[Circle[P + (((2 * j) * radiobolas), ((2 * i) * radiobolas)), radiobolas], i, 1, coc], j, 1, d)
lista6 = Sequence(Circle[P + (((2 * i) * radiobolas), ((2 * (coc + 1)) * radiobolas)), radiobolas], i, 1, res)
N: P + (radiobolas, radiobolas)
O: N + (((2 * d) * radiobolas), 0)
Q: N + (0, ((2 * coc) * radiobolas))
R: Q + (((2 * d) * radiobolas), 0)
polígono1, n_1, o, r, q = Polygon(N, O, R, Q)
v = Vector(N - (0, 0.2), O - (0, 0.2))
w = Vector(O - (0, 0.2), N - (0, 0.2))
texto5: "d = " + d
m = Vector(O + (0.2, 0), R + (0.2, 0))
p = Vector(R + (0.2, 0), O + (0.2, 0))
texto6: "c = " + coc
s = false
texs = If(n > 1, "s", "")
texto3: "El de " + n + " es un cohete de
 " + ndivis1 + " piso" + texs + ""