Nº de elementos:

Tomados de

Ver número

Ver fórmula

m = 5 (slider from 1 to 10, step 1)
n = 3 (slider from 1 to topen, step 1)
CajaDeEntrada1 = Textfield(m)
CajaDeEntrada2 = Textfield(n)
texto1: "en " + n + ""
a = true
texto2: If[a, "Sí", "No"] + " importa el orden"
b = false
texto3: If[b, "Con", "Sin"] + " repeticiones"
letras: {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J"}
eles = First(letras, m)
varisin2 = Sequence(Sequence[Element[eles, i] + (Element[Remove[eles, {Element[eles, i]}], j]), j, 1, m - 1], i, 1, m)
textoV2 = TableText(varisin2)
varisin3 = Sequence(Flatten[Sequence[Sequence[Element[eles, i] + (Element[Remove[eles, {Element[eles, i]}], j]) + (Element[Remove[eles, {Element[eles, i], Element[Remove[eles, {Element[eles, i]}], j]}], k]), k, 1, m - 2], j, 1, m - 1]], i, 1, m)
textoV1 = TableText({eles})
combisin2 = Sequence(Sequence[Element[eles, i] + (Element[eles, j]), j, i + 1, m], i, 1, m)
textoC2 = TableText(combisin2)
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)
varicon2 = Sequence(Sequence[Element[eles, i] + (Element[eles, j]), j, 1, m], i, 1, m)
textoVC2 = TableText(varicon2)
varicon3 = Sequence(Flatten[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]), k, 1, m], j, 1, m]], i, 1, m)
combicon2 = Sequence(Sequence[Element[eles, i] + (Element[eles, j]), j, i, m], i, 1, m)
textoCC2 = TableText(combicon2)
combicon3 = Sequence(Flatten[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]), k, j, m], j, i, m]], i, 1, m)
tipo = If(a, "VARIACIONES", "COMBINACIONES")
repe = If(b, "CON", "SIN")
texto4: "" + tipo + " " + repe + " REPETICIÓN
de " + m + " elementos tomados de " + n + " en " + n + ""
codigos = TextToUnicode("ABCDEFGHIJ")
varisin4 = Sequence(Flatten[Sequence[Sequence[Sequence[Element[eles, i] + (Element[Remove[eles, {Element[eles, i]}], j]) + (Element[Remove[eles, {Element[eles, i], Element[Remove[eles, {Element[eles, i]}], j]}], k]) + (Element[Remove[eles, {Element[eles, i], Element[Remove[eles, {Element[eles, i]}], j], Element[Remove[eles, {Element[eles, i], Element[Remove[eles, {Element[eles, i]}], j]}], k]}], t]), t, 1, m - 3], k, 1, m - 2], j, 1, m - 1]], i, 1, m)
varicon4 = Sequence(Flatten[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]), t, 1, m], k, 1, m], j, 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)
combicon4 = Sequence(Flatten[Sequence[Sequence[Sequence[Element[eles, i] + (Element[eles, j]) + (Element[eles, k]) + (Element[eles, t]), t, k, m], k, j, m], j, i, m]], i, 1, m)
textoVC4 = TableText(varicon4, "v")
textoV4 = TableText(varisin4, "v")
textoC4 = TableText(combisin4, "v")
textoCC4 = TableText(combicon4, "v")
textoCC3 = TableText(combicon3, "v")
textoC3 = TableText(combisin3, "v")
textoV3 = TableText(varisin3, "v")
textoVC3 = TableText(varicon3, "v")
c = false
formulaVR: "VR_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=" + (LaTeX[m^(n)]) + ""
formulaV: "V_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=" + (LaTeX[m! / (m - n)!]) + ""
formulaC: "C_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=" + (LaTeX[m! / ((n! * (m - n)!))]) + ""
formulaCR: "CR_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=" + (LaTeX[(m + n - 1)! / ((n! * (m - 1)!))]) + ""
topen = If(b, 4, Min[4, m])
texto5: "PERMUTACIONES de " + m + " elementos"
d = false
formula2CR: "CR_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=\frac{" + (LaTeX[m + n - 1]) + "!}{" + (LaTeX[n]) + "!·" + (LaTeX[m - 1]) + "!}"
formula2C: "C_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=\frac{" + (LaTeX[m]) + "!}{" + (LaTeX[n]) + "!·" + (LaTeX[m - n]) + "!}"
formula2V: "V_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=\frac{" + (LaTeX[m]) + "!}{" + (LaTeX[m - n]) + "!}"
formula2VR: "VR_{" + (LaTeX[m]) + "," + (LaTeX[n]) + "}=" + (LaTeX[m]) + "^" + (LaTeX[n]) + ""
formulaP: "P_" + (LaTeX[m]) + "=" + (LaTeX[m!]) + ""
formula2P: "P_" + (LaTeX[m]) + "=" + (LaTeX[m]) + "!"