說明:
拉動n------改變分母
拉動m------改變分子

n 等分線段:

m = 5 (slider from 1 to n, step 1)
n = 6 (slider from 1 to 12, step 1)
a = NaN (slider from -5 to 5, step 1)
k = Min(n, m)
文字2: "\frac{" + k + " }{" + m + "}"
文字3: a + " \frac{" + k + " }{" + m + "}"
文字5: a + 1 + " \frac{" + k + " }{" + m + "}"
文字6: "- \frac{" + k + " }{" + m + "}"
A_1: (If[a ≥ 0, a, a + 1], 0)
b: x = If[a ≥ 0, a + 1, a]
A = (4.292240297491228, -0.8431186298643483)
B = (7.563585095135159, -0.8329987024063988)
c = Segment(A, B)
C_1 = Point(c)
d = Ray(A, C_1)
集合1 = Sequence(Circle[A, t * Segment[A, C_1]], t, 1, n)
e = Circle(A, k * Segment[A, C_1])
D = Intersect(e, d, 1)
f = Circle(A, n * Segment[A, C_1])
C_2 = Intersect(f, d, 1)
i = Segment(A, C_2)
g = OrthogonalLine(B, c)
C = Intersect(f, g, 2)
h = Segment(A, C)
P = Intersect(e, h, 1)
j = OrthogonalLine(P, c)
Q = Intersect(j, c)
α = Angle(C, B, A)
β = Angle(P, Q, A)
文字1: "目前:   \overline{ AQ } = \frac{" + k + " }{ " + n + "}  \overline{ AB }"