Date: 4 6 月 2014

R_1

G_1

B_1

R_2

G_2

B_2

R_3

G_3

B_3

R_4

G_4

B_4

R_5

G_5

B_5

R_6

G_6

B_6

R_7

G_7

B_7

R_8

G_8

B_8

R_9

G_9

B_9

R_{10}

G_{10}

B_{10}

紅球個數:%v

綠球個數:%v

藍球個數:%v

取球問題之實作:\cr
(請直接用滑鼠拉動所選之球到所要的位置上)

A1 = Circle((1, 5), 0.4)
B1 = Circle((1, 4), 0.4)
C1 = Circle((1, 3), 0.4)
A2 = Circle((2, 5), 0.4)
B2 = Circle((2, 4), 0.4)
C2 = Circle((2, 3), 0.4)
A3 = Circle((3, 5), 0.4)
B3 = Circle((3, 4), 0.4)
C3 = Circle((3, 3), 0.4)
A4 = Circle((4, 5), 0.4)
B4 = Circle((4, 4), 0.4)
C4 = Circle((4, 3), 0.4)
A5 = Circle((5, 5), 0.4)
B5 = Circle((5, 4), 0.4)
C5 = Circle((5, 3), 0.4)
A6 = Circle((6, 5), 0.4)
B6 = Circle((6, 4), 0.4)
C6 = Circle((6, 3), 0.4)
A7 = Circle((7, 5), 0.4)
B7 = Circle((7, 4), 0.4)
C7 = Circle((7, 3), 0.4)
A8 = Circle((8, 5), 0.4)
B8 = Circle((8, 4), 0.4)
C8 = Circle((8, 3), 0.4)
A9 = Circle((9, 5), 0.4)
B9 = Circle((9, 4), 0.4)
C9 = Circle((9, 3), 0.4)
A10 = Circle((10, 5), 0.4)
B10 = Circle((10, 4), 0.4)
C10 = Circle((10, 3), 0.4)
r = 4 (slider from 0 to 10, step 1)
g = 5 (slider from 0 to 10, step 1)
b = 6 (slider from 0 to 10, step 1)
A = (-3.6179428571428733, -0.01863809523810065)
list1 = Join({Sequence[Segment[A + (i, 0), A + (i, 1)], i, 0, r + g + b], Sequence[Segment[A + (0, i), A + (r + g + b, i)], i, 0, 1], Sequence[Text["" + (i), A + (i - 1, 0), true, true], i, 1, r + g + b]})