J

A

B

E

D

C

F

G

H

I

fe

+

+

-

-

Ver las combinaciones

Ver cuántas son

Ver recuento por columnas

n = 2 (slider from 1 to m, step 1)
m = 7 (slider from 2 to 10, step 1)
p = Min(n, m - n)
A10: 10
A1: 1
A2: 2
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
D1 = Textfield(B1)
D5 = Textfield(B5)
D4 = Textfield(B4)
D3 = Textfield(B3)
D2 = Textfield(B2)
D6 = Textfield(B6)
D7 = Textfield(B7)
D8 = Textfield(B8)
D9 = Textfield(B9)
D10 = Textfield(B10)
eles = First(B1:B10, m)
texto3: "Combinaciones de " + m + " elementos
tomados de " + n + " en " + n + ""
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)
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)
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)
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)
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)
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)
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)
B11 = Sum(B1:B10)
tabla = If(n ≟ 2, TableText[combisin2, "v"], n ≟ 3, TableText[combisin3, "v"], n ≟ 4, TableText[combisin4, "v"], n ≟ 5, TableText[combisin5, "v"], n ≟ 6, TableText[combisin6, "v"], n ≟ 7, TableText[combisin7, "v"], n ≟ 8, TableText[combisin8, "v"], n ≟ 9, TableText[combisin9, "v"], TableText[{{B11}}, "v"])
a = true
b = false
textoprod: m + If[p > 1, " · " + (m - 1), ""] + (If[p > 2, " · " + (m - 2), ""]) + (If[p > 3, " · " + (m - 3), ""]) + (If[p > 4, " · " + (m - 4), ""])
c = false
textorecuento: "" + (nCr[m - 1, n - 1] + If[m > n + 1, " + " + (nCr[m - 2, n - 1]), ""] + (If[m > n + 2, " + " + (nCr[m - 3, n - 1]), ""]) + (If[m > n + 3, " + " + (nCr[m - 4, n - 1]), ""]) + (If[m > n + 4, " + " + (nCr[m - 5, n - 1]), ""]) + (If[m > n + 5, " + " + (nCr[m - 6, n - 1]), ""]) + (If[m > n + 6, " + " + (nCr[m - 7, n - 1]), ""]) + (If[m > n + 7, " + " + (nCr[m - 8, n - 1]), ""])) + " + 1 = " + (nCr[m, n]) + ""
trozotexto = If(p > 1, "=\frac{ " + (LaTeX[textoprod]) + "}{ " + (LaTeX[p]) + " !}", "")
texto2: "C_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}= \binom{" + (LaTeX[m]) + " }{ " + (LaTeX[n]) + "}= \frac{" + (LaTeX[m]) + "!}{" + (LaTeX[m - n]) + "!·" + (LaTeX[n]) + "!}" + (LaTeX[trozotexto]) + "=" + (LaTeX[nCr[m, n]]) + ""