Author: 教育局 評估及考評局組

straighten

connect

reset

m = 0 (slider from 0 to 1, step 0.01)
C: (0, m / (1 - m))
A: (1, 0)
CA = Distance(C, A)
r: CA
n = 2 (slider from 2 to 6, step 1)
p: 60 / n
q: 360 / p - 1
slide = 0 (slider from 0 to 1, step 0.01)
O = Point(yAxis)
f = 0 (slider from 0 to 1, step 0.1)
B = Rotate(A, (2 * π / r), C)
arc = CircleArc(C, A, B)
B': ((2 * π) + 1 - slide, 0)
A': (1 - slide, 0)
seg = Segment(A', B')
v = Circle(O, 1)
u = Circle(O, 1)
L_0 = Sequence(Rotate[A, ((k * p) * ° / r), C], k, 1, q)
i = Line((0, 0), (1, 0))
j = OrthogonalLine(O, i)
D = Rotate((0, -1), ((-π) * m))
w = Vector(D)
L_1 = Sequence(Translate[L_0(k), Vector[(w * sin(((k * p))°))]], k, 1, q)
a = Vector(A)
M_0 = Sequence(Translate[A', Vector[((a * k) * π / ((3 * n)))]], k, 1, q)
M_1 = Sequence(Translate[M_0(k), Vector[(w * sin(((k * π)) / ((3 * n))))]], k, 1, q)
graph(x) = sin(x)
b = false
L_2 = Sequence(Segment[L_0(k), L_1(k)], k, 1, q)
M_2 = Sequence(Segment[M_0(k), M_1(k)], k, 1, q)