J

A

B

Ver árbol

Ver lista

E

D

C

F

G

H

I

fe

dfe

rre

rf

rf

+

+

-

-

arbol: false
m = 5 (slider from 2 to 10, step 1)
ancho: x(Corner[2]) - x(Corner[1])
P: (Corner[1] + Corner[4]) / 2 + (0.5, 0)
PP: P + (ancho / 3 - 0.5, 0)
alto: y(Corner[4]) - y(Corner[1])
Punto11: PP + (0, ((1 - m) / 2 * (alto - 1) / m))
Punto21: Punto11 + (ancho / 3 - 0.5, ((2 - m) / 2 * (alto - 1) / m / (m - 1)))
v2: (0, (alto - 1) / m / (m - 1))
v1: (0, (alto - 1) / m)
v3: (0, (alto - 1) / m / (m - 1) / (m - 2))
Punto31: Punto21 + (ancho / 3 - 0.5, ((3 - m) / 2 * (alto - 1) / m / (m - 1) / (m - 2)))
A10: 10
n = 3 (slider from 1 to Min[5, m], step 1)
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
PPP: PP + (ancho / 3 - 0.5, 0)
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)
ss3 = If(arbol, Sequence[Sequence[Translate[Translate[Sequence[Segment[Punto21, Punto31 + (k * v3)], k, 0, m - 3], Vector[(j * v2)]], Vector[(i * v1)]], j, 0, m - 2], i, 0, m - 1])
ss2 = If(arbol, Sequence[Sequence[Translate[Segment[Punto11, Punto21 + (j * v2)], Vector[(i * v1)]], j, 0, m - 2], i, 0, m - 1])
eles = First(B1:B10, m)
ss1 = Sequence(Segment[P, PP + (k * v1)], k, (1 - m) / 2, m / 2)
se1 = Element(ss1, m + 1 - SelectedIndex[eles])
lista2 = Remove(eles, {SelectedElement[eles]})
lista3 = Remove(lista2, {SelectedElement[lista2]})
Punto4: Punto31 + ((m - SelectedIndex[eles]) * v1) + ((m - 1 - SelectedIndex[lista2]) * v2) + ((m - 2 - SelectedIndex[lista3]) * v3)
se4 = Segment(Punto4, Punto4 + (2, 0))
lista4 = Remove(lista3, {SelectedElement[lista3]})
lista5 = Remove(lista4, {SelectedElement[lista4]})
se2 = Element(Element[ss2, m + 1 - SelectedIndex[eles]], m - SelectedIndex[lista2])
se3 = Element(Element[Element[ss3, m + 1 - SelectedIndex[eles]], m - SelectedIndex[lista2]], m - 1 - SelectedIndex[lista3])
varisin2 = If(n ≟ 2 ∧ (¬arbol), Sequence[Sequence[Element[eles, i] + (Element[Remove[eles, {Element[eles, i]}], j]), j, 1, m - 1], i, 1, m])
textov2 = TableText(varisin2)
textov1 = TableText({eles})
texto3: "Variaciones sin repetición
de " + m + " elementos tomados de " + n + " en " + n + ""
varisin3 = If(n ≟ 3 ∧ (¬arbol), 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])
textov3 = TableText(varisin3, "v")
varisin4 = If(n ≟ 4 ∧ (¬arbol), 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])
textov4 = TableText(varisin4, "v")
varisin5 = If(n ≟ 5 ∧ m < 8 ∧ (¬arbol), Sequence[Flatten[Sequence[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]) + (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], 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]}], u]), u, 1, m - 4], t, 1, m - 3], k, 1, m - 2], j, 1, m - 1]], i, 1, m])
textov5 = TableText(varisin5, "v")
varisin5alt = If(n ≟ 5 ∧ m > 7 ∧ (¬arbol), Sequence[Flatten[Sequence[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]) + (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], 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]}], u]), u, 1, m - 4], t, 1, m - 3], k, 1, m - 2], j, 1, 1]], i, 1, m])
textov5alt = TableText(varisin5alt, "v")