Date: 3 4 月 2013

$k=%v$

$n=%v$

重複組合

Next

1

顯示提示

k = 10 (slider from 1 to 10, step 1)
n = 5 (slider from 1 to 5, step 1)
list = Sequence(Translate[pic1, (0.5 * j - 0.5, 0)], j, 1, k)
s = 0 (slider from 0 to 5, step 1)
A = (-1.48, -0.3)
list2 = Sequence(A + (1.6 * j - 1.6, 0), j, 1, n)
A_1: Element[list2, n] + (2, 1)
text5: "\frac{" + (LaTeX[k + n - 1]) + "!}{" + (LaTeX[k]) + "!×" + (LaTeX[n - 1]) + "!}=C^{" + (LaTeX[k + n - 1]) + "}_{" + (LaTeX[k]) + "}=H^{" + (LaTeX[n]) + "}_{" + (LaTeX[k]) + "}"
text3: "x" + (LaTeX[If[n ≟ 2, "+y", If[n ≟ 3, "+y+z", If[n ≟ 4, "+y+z+u", If[n ≟ 5, "+y+z+u+w"]]]]]) + "=" + (LaTeX[If[k ≟ 1, "1", If[k ≟ 2, "1+1", If[k ≟ 3, "1+1+1", If[k ≟ 4, "1+1+1+1", If[k ≟ 5, "1+1+1+1+1", If[k ≟ 6, "1+1+1+1+1+1", If[k ≟ 7, "1+1+1+1+1+1+1", If[k ≟ 8, "1+1+1+1+1+1+1+1", If[k ≟ 9, "1+1+1+1+1+1+1+1+1", If[k ≟ 10, "1+1+1+1+1+1+1+1+1+1"]]]]]]]]]]]) + ""
text2: "x" + (LaTeX[If[n ≟ 2, "+y", If[n ≟ 3, "+y+z", If[n ≟ 4, "+y+z+u", If[n ≟ 5, "+y+z+u+w"]]]]]) + "=" + (LaTeX[k]) + "=1×" + (LaTeX[k]) + ""
a = false