Date: 8 6 月 2014

Next

Reset

A: Corner[3] + (2, 2)
poly1, a, b_1, c, d, B, C = Polygon(A, A + (1, 0), 4)
list = Sequence(Translate[poly1, (k, 0)], k, 1, 10)
D = (-1, 1)
E: D + (3.5, (-0.5))
F: E + (0, 2)
G: E - (0, 2)
H: E + (1.4, 0.5)
H_1: E + (1.4, (-0.5))
H_2: F + (1.4, 0.5)
H_3: F + (1.4, (-0.5))
H_4: G + (1.4, 0.5)
H_5: G + (1.4, (-0.5))
D_1: D - (1.4, 0.5)
D_2: D_1 + (1.4, 2)
D_3: D_1 + (1.4, 0)
D_4: D_1 + (1.4, (-2))
u = Vector(D_1, D_2)
v = Vector(D_1, D_3)
w = Vector(D_1, D_4)
z = Vector(F, H_2)
e = Vector(F, H_3)
f = Vector(E, H)
g_1 = Vector(E, H_1)
h = Vector(G, H_5)
i = Vector(G, H_4)
n = 0 (slider from 0 to 14, step 1)
r = 5 (slider from 1 to 9, step 1)
g = 4 (slider from 1 to 9, step 1)
b = 3 (slider from 1 to 9, step 1)
text1: "最後一個為紅球：\;\frac{" + (LaTeX[r]) + "}{" + (LaTeX[r + g + b]) + "}"
text7: "藍球比紅球先取完：\;\frac{" + (LaTeX[r]) + "}{" + (LaTeX[r + b]) + "}"
text9: "綠球比紅球先取完：\;\frac{" + (LaTeX[r]) + "}{" + (LaTeX[r + g]) + "}"
text10: "P=" + (LaTeX[If[n ≥ 10, "\frac{" + g + "}{" + (r + g + b) + "}"]]) + "" + (LaTeX[If[n ≥ 11, "×\frac{" + b + "}{" + (r + b) + "}"]]) + "" + (LaTeX[If[n ≥ 12, "+\frac{" + b + "}{" + (r + g + b) + "}"]]) + "" + (LaTeX[If[n ≥ 13, "×\frac{" + g + "}{" + (r + g) + "}"]]) + "" + (LaTeX[If[n ≟ 14, "=" + (SurdText[(((g * b) * (b + g + (2 * r)))) / ((((r + g + b) * (r + b)) * (r + g)))])]]) + ""
textQ: "一個不透明的袋中有大小材質相同的" + (LaTeX[r]) + "個紅球," + (LaTeX[g]) + "個綠球," + (LaTeX[b]) + "個藍球，\;每次取出一球，\;取後不放回，\;試求紅球先取完的機率."
text4: "綠球比藍球先取完：\;\frac{" + (LaTeX[b]) + "}{" + (LaTeX[b + g]) + "}"
text5: "藍球比綠球先取完：\;\frac{" + (LaTeX[g]) + "}{" + (LaTeX[g + b]) + "}"
text2: "" + (LaTeX[If[n  <  10, "最後一個為綠球：\;\frac{" + g + "}{" + (r + b + g) + "}", "\text{ }\textcolor{red}{最後一個為綠球：\;\frac{" + g + "}{" + (r + b + g) + "}"]]) + ""
text3: "" + (LaTeX[If[n  <  12, "最後一個為藍球：\;\frac{" + b + "}{" + (r + b + g) + "}", "\text{ }\textcolor{red}{最後一個為藍球：\;\frac{" + b + "}{" + (r + b + g) + "}"]]) + ""
text6: "" + (LaTeX[If[n  <  11, "紅球比藍球先取完：\;\frac{" + b + "}{" + (r + b) + "}", "\text{ }\textcolor{red}{紅球比藍球先取完：\;\frac{" + b + "}{" + (r + b) + "}"]]) + ""
text8: "" + (LaTeX[If[n  <  13, "紅球比綠球先取完：\;\frac{" + g + "}{" + (r + g) + "}", "\text{ }\textcolor{red}{紅球比綠球先取完：\;\frac{" + g + "}{" + (r + g) + "}"]]) + ""