Date: 29 5 月 2013

下列何者為方程式4x^3-3x^2+2x-1=0的根?

A1 = 1.7320508075688772
A2 = 16
A3 = 1.4142135623730951
A4 = 24
A5 = 32
B5 = 0
B4 = 0
B2 = 0
B3 = 1
B1 = 0
list1: {(A1, B1), (A2, B2), (A3, B3), (A4, B4), (A5, B5)}
list2 = Shuffle(list1)
C5 = Element(list2, 5)
D5: y(C5)
C4 = Element(list2, 4)
D4: y(C4)
C3 = Element(list2, 3)
D3: y(C3)
C2 = Element(list2, 2)
D2: y(C2)
C1 = Element(list2, 1)
D1: y(C1)
e = false
d = false
A6: D1 + 2 * D2 + 4 * D3 + 8 * D4 + 16 * D5
c = true
b = false
a = false
Ans: a + 2 * b + 4 * c + 8 * d + 16 * e
t = 1 (slider from -5 to 5, step 0.1)
text2: "$你選擇的答案是：\;" + (LaTeX[If[Ans ≟ 1, "(A)", If[Ans ≟ 2, "(B)", If[Ans ≟ 4, "(C)", If[Ans ≟ 8, "(D)", If[Ans ≟ 16, "(E)", If[Ans ≟ 3, "(A)(B)", If[Ans ≟ 5, "(A)(C)", If[Ans ≟ 9, "(A)(D)", If[Ans ≟ 17, "(A)(E)", If[Ans ≟ 7, "(A)(B)(C)", If[Ans ≟ 11, "(A)(B)(D)", If[Ans ≟ 19, "(A)(B)(E)", If[Ans ≟ 13, "(A)(C)(D)", If[Ans ≟ 21, "(A)(C)(E)", If[Ans ≟ 25, "(A)(D)(E)", If[Ans ≟ 14, "(B)(C)(D)", If[Ans ≟ 22, "(B)(C)(E)", If[Ans ≟ 28, "(C)(D)(E)", If[Ans ≟ 15, "(A)(B)(C)(D)", If[Ans ≟ 23, "(A)(B)(C)(E)", If[Ans ≟ 27, "(A)(B)(D)(E)", If[Ans ≟ 29, "(A)(C)(D)(E)", If[Ans ≟ 30, "(B)(C)(D)(E)", If[Ans ≟ 31, "(A)(B)(C)(D)(E)", If[Ans ≟ 6, "(B)(C)", If[Ans ≟ 10, "(B)(D)", If[Ans ≟ 18, "(B)(E)", If[Ans ≟ 12, "(C)(D)", If[Ans ≟ 20, "(C)(E)", If[Ans ≟ 24, "(D)(E)", If[Ans ≟ 26, "(B)(D)(E)"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]) + "$"
text3: "$正確答案是：\;" + (LaTeX[If[A6 ≟ 1, "(A)", If[A6 ≟ 2, "(B)", If[A6 ≟ 4, "(C)", If[A6 ≟ 8, "(D)", If[A6 ≟ 16, "(E)", If[A6 ≟ 3, "(A)(B)", If[A6 ≟ 5, "(A)(C)", If[A6 ≟ 9, "(A)(D)", If[A6 ≟ 17, "(A)(E)", If[A6 ≟ 7, "(A)(B)(C)", If[A6 ≟ 11, "(A)(B)(D)", If[A6 ≟ 19, "(A)(B)(E)", If[A6 ≟ 13, "(A)(C)(D)", If[A6 ≟ 21, "(A)(C)(E)", If[A6 ≟ 25, "(A)(D)(E)", If[A6 ≟ 14, "(B)(C)(D)", If[A6 ≟ 22, "(B)(C)(E)", If[A6 ≟ 28, "(C)(D)(E)", If[A6 ≟ 15, "(A)(B)(C)(D)", If[A6 ≟ 23, "(A)(B)(C)(E)", If[A6 ≟ 27, "(A)(B)(D)(E)", If[A6 ≟ 29, "(A)(C)(D)(E)", If[A6 ≟ 30, "(B)(C)(D)(E)", If[A6 ≟ 31, "(A)(B)(C)(D)(E)", If[A6 ≟ 6, "(B)(C)", If[A6 ≟ 10, "(B)(D)", If[A6 ≟ 18, "(B)(E)", If[A6 ≟ 12, "(C)(D)", If[A6 ≟ 20, "(C)(E)", If[A6 ≟ 24, "(D)(E)", If[A6 ≟ 26, "(B)(D)(E)"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]) + "$"
list3: {B1, B2, B3, B4, B5}
text1: "$" + (LaTeX[A7]) + "$
$(A)\;" + (LaTeX[SurdText[x(Element[list2, 1])]]) + "$
$(B)\;" + (LaTeX[SurdText[x(Element[list2, 2])]]) + "$
$(C)\;" + (LaTeX[SurdText[x(Element[list2, 3])]]) + "$
$(D)\;" + (LaTeX[SurdText[x(Element[list2, 4])]]) + "$
$(E)\;" + (LaTeX[SurdText[x(Element[list2, 5])]]) + "$"