Ver fórmula

ABCDEFGHIJ

Recuento por columnas

m:

n:

m = 7 (slider from 1 to 10, step 1)
n = 2 (slider from 1 to m, step 1)
letras: {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J"}
eles = First(letras, m)
combisin2 = Sequence(Sequence[Element[eles, i] + (Element[eles, j]), j, i + 1, m], i, 1, m)
combisin3 = Sequence(Flatten[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]), k, j + 1, m], j, i + 1, m]], i, 1, m)
codigos = TextToUnicode("ABCDEFGHIJ")
combisin4 = Sequence(Flatten[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]), t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC4 = TableText(combisin4, "v")
textoC3 = TableText(combisin3, "v")
d = false
formulaP: "P_" + (LaTeX[m]) + "=" + (LaTeX[m!]) + ""
combisin5 = Sequence(Flatten[Sequence[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]) + (Element[eles, u]), u, t + 1, m], t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC5 = TableText(combisin5, "v")
combisin6 = Sequence(Flatten[Sequence[Sequence[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]) + (Element[eles, u]) + (Element[eles, v]), v, u + 1, m], u, t + 1, m], t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC6 = TableText(combisin6, "v")
combisin7 = Sequence(Flatten[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]) + (Element[eles, u]) + (Element[eles, v]) + (Element[eles, w]), w, v + 1, m], v, u + 1, m], u, t + 1, m], t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC7 = TableText(combisin7, "v")
combisin8 = Sequence(Flatten[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]) + (Element[eles, u]) + (Element[eles, v]) + (Element[eles, w]) + (Element[eles, w2]), w2, w + 1, m], w, v + 1, m], v, u + 1, m], u, t + 1, m], t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC8 = TableText(combisin8, "v")
combisin9 = Sequence(Flatten[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]) + (Element[eles, u]) + (Element[eles, v]) + (Element[eles, w]) + (Element[eles, w2]) + (Element[eles, w3]), w3, w2 + 1, m], w2, w + 1, m], w, v + 1, m], v, u + 1, m], u, t + 1, m], t, k + 1, m], k, j + 1, m], j, i + 1, m]], i, 1, m)
textoC9 = TableText(combisin9, "v")
textoC1 = TableText({eles}, "v")
textoprod: m + If[n > 1, " · " + (m - 1), ""] + (If[n > 2, " · " + (m - 2), ""]) + (If[n > 3, " · " + (m - 3), ""]) + (If[n > 4, " · " + (m - 4), ""]) + (If[n > 5, " · " + (m - 5), ""]) + (If[n > 6, " · " + (m - 6), ""]) + (If[n > 7, " · " + (m - 7), ""]) + (If[n > 8, " · " + (m - 8), ""]) + (If[n > 9, " · " + (m - 9), ""])
a = false
textosuma: Binomial[m - 1, n - 1] + If[m > n + 1, " + " + (Binomial[m - 2, n - 1]), ""] + (If[m > n + 2, " + " + (Binomial[m - 3, n - 1]), ""]) + (If[m > n + 3, " + " + (Binomial[m - 4, n - 1]), ""]) + (If[m > n + 4, " + " + (Binomial[m - 5, n - 1]), ""]) + (If[m > n + 5, " + " + (Binomial[m - 6, n - 1]), ""]) + (If[m > n + 6, " + " + (Binomial[m - 7, n - 1]), ""]) + (If[m > n + 7, " + " + (Binomial[m - 8, n - 1]), ""]) + " + 1 = " + (Binomial[m, n])
formula2C: "\binom{" + (LaTeX[m]) + " }{ " + (LaTeX[n]) + "}= \frac{" + (LaTeX[m]) + "!}{" + (LaTeX[m - n]) + "!·" + (LaTeX[n]) + "!}"
formula2: "C_{" + (LaTeX[m]) + " , " + (LaTeX[n]) + "} =\frac{ " + (LaTeX[textoprod]) + "}{ " + (LaTeX[n]) + " !}=" + (LaTeX[Binomial[m, n]]) + ""
texto1: "Combinaciones de " + m + " elementos de orden " + n + ""
textoC2 = TableText(combisin2, "v")
CajaDeEntrada1 = Textfield(m)
CajaDeEntrada2 = Textfield(n)