2D 座標架
Author: 藍邦偉  老師

$ O $

$Q$

$P$

$Step=%v$

$ 試求以\;Q\;為圓心且通過\;P\;點$
$的圓方程式 $

$ 圓方程式(2) $

$ Sol： $

Reset

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
O = (0, 0)
Q_2: 0.7 * Corner[1] + 0.3 * Corner[2]
Q_3: (x(Q_2), y(Corner[4]))
poly1, q_1, q_2, q_4, q_3 = Polygon(Corner[1], Q_2, Q_3, Corner[4])
A_0 = (1.1591663471177052, 2.3717247701852027)
Q = DynamicCoordinates(A_0, floor(x(A_0)), floor(y(A_0)))
B_0 = (3.699212525427398, 3.823179729219312)
P = DynamicCoordinates(B_0, floor(x(B_0)), floor(y(B_0)))
r = Segment(Q, P)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.1*°)
P' = Rotate(P, α, Q)
c = CircleArc(Q, P, P')
h: x(Q)
k: y(Q)
s = 0 (slider from 0 to 4, step 1)
text2: "$ 以Q\;" + (LaTeX[Q]) + "為圓心，\;且通過$
$P\;" + (LaTeX[P]) + "點 的圓方程式為$"
text1: "$∵ r²=\overline{PQ}^2 =" + (LaTeX[r^(2)]) + "$"
text3: "$ " + (LaTeX[If[h ≠ 0, "(x", "x"]]) + " " + (LaTeX[If[h ≟ 0, "", If[h > 0, "-" * h, If[h < 0, "+" * (-h)]]]]) + "" + (LaTeX[If[h ≟ 0, "", ")"]]) + "^2+" + (LaTeX[If[k ≠ 0, "(y", "y"]]) + "" + (LaTeX[If[k ≟ 0, "", If[k > 0, "-" * k, If[k < 0, "+" * (-k)]]]]) + "" + (LaTeX[If[k ≟ 0, "", ")"]]) + "^2=" + (LaTeX[SurdText[r]]) + "^2$"
C_1 = Circle(Q, r)
text4: "$ 或\;" + (LaTeX[C_1]) + " $"
D_1 = Circle(Q, r)