$Case=%v$

$A$

$B$

$C$

$選擇已知邊$

a

b

c

$Step=%v$

$畢氏定理$
$a²+b²=c²$

list1: {4, 12, 15, 24, 1, 1, 2.65, 1.73205, "a²-b²"}
list2: {3, 5, 8, 7, 1.73, 1, 3, 3, "2ab"}
list3: {5, 13, 17, 25, 2, 1.41, 4, 3.4641016151377544, "a²+b²"}
n = 2 (slider from 1 to 4, step 1)
t3: "" + (LaTeX[Element[list1, n]]) + ""
A = (-5.013426178066027, -0.12723902632540066)
B: A + (Element[list1, n], Element[list2, n])
C: (x(B), y(A))
a = Segment(B, C)
b = Segment(A, C)
c = Segment(A, B)
t1: "" + (LaTeX[SurdText[Element[list3, n]]]) + ""
t2: "" + (LaTeX[SurdText[Element[list2, n]]]) + ""
r = 2 (slider from 1 to 3, step 1)
α = Angle(B, C, A)
text1: "" + (LaTeX[If[r ≟ 1, "c^2", If[r ≟ 2, "a^2", "b^2"]]]) + "=" + (LaTeX[If[r ≟ 1, t2 + "^2" + "+" + t3 + "^2", If[r ≟ 2, t1 + "^2" + "-" + t3 + "^2", t1 + "^2" + "-" + t2 + "^2"]]]) + ""
s_1 = 0
s_2 = 0
s = 0 (slider from 0 to 2, step 1)
listb: {16, 144, 225, 576}
lista: {9, 25, 64, 49}
listc: {25, 169, 289, 625}
ta: "" + (LaTeX[Element[lista, n]]) + ""
tb: "" + (LaTeX[Element[listb, n]]) + ""
tc: "" + (LaTeX[Element[listc, n]]) + ""
text2: "⇒" + (LaTeX[If[r ≟ 1, "c", If[r ≟ 2, "a", "b"]]]) + "=\sqrt{" + (LaTeX[If[r ≟ 1, "" + ta + "+" + tb, If[r ≟ 2, "" + tc + "-" + tb, "" + tc + "-" + ta]]]) + "}=" + (LaTeX[If[r ≟ 1, t1, If[r ≟ 2, t2, t3]]]) + ""
poly1, c_1, a_1, b_1 = Polygon(A, B, C)