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

n 等分線段:

m = 3 (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 = (0.862280416906721, 1.1018027549363643)
B = (3.382055412978583, 1.159288116063479)
c = Segment(A, B)
C_1 = (0.8718613104279055, 1.3030015188812654)
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 = Intersect(f, d, 1)
g = Segment(C, B)
h = Line(D, g)
P = Intersect(h, c)
i = Segment(A, C)
u = Vector(D, P)
文字1: "目前:   \overline{ AP } = \frac{" + k + " }{ " + n + "}  \overline{ AB }"