$Q$

$P$

$A$

$Step=%v$

$M$

$C$

$D$

$ 尺規作圖過圓外一點對圓作切線 $

Q = (0.04, 2.3)
P = (6.9, 3.46)
list = Sequence(Circle[Q, k], k, 1, 8)
A = Point(list)
s = 0 (slider from 0 to 7, step 1)
α = 0 rad (slider from 0*° to 6.283185307179586, step 0.1*°)
A' = Rotate(A, α, Q)
c = CircleArc(Q, A, A')
r = Segment(Q, A')
a = Segment(Q, A)
d = Circle(Q, r)
t = 0 (slider from 0 to 1, step 0.01)
B: Q + t * Vector[Q, P]
u = Vector(Q, B)
b = Segment(Q, P)
M: 0.5 * P + 0.5 * Q
β = 0 rad (slider from 0 to 180*°, step 0.1*°)
P' = Rotate(P, β)
P'_1 = Rotate(P, β, M)
Q' = Rotate(Q, β, M)
e = CircleArc(M, P, P'_1)
f = CircleArc(M, Q, Q')
g = Circle(M, Q)
C = Intersect(d, g, 1)
D_1, D = Intersect(d, g)
t2 = 0 (slider from 0 to 1, step 0.01)
E: Q + t2 * Vector[Q, C]
F: Q + t2 * Vector[Q, D]
v = Vector(Q, E)
w = Vector(Q, F)
t3 = 0 (slider from 0 to 2, step 0.02)
G: C + t3 * Vector[C, P]
H: C - t3 * Vector[C, P]
J: D - t3 * Vector[D, P]
K: D + t3 * Vector[D, P]
z = Vector(C, H)
h = Vector(C, G)
i = Vector(D, K)
j = Vector(D, J)
k = Segment(C, Q)
l = Segment(Q, D)
m: s ≟ 1