正弦與正弦倍角的投影
Author: 藍邦偉　老師

2θ

θ

$ f(x)=sin2x $

$ f(x)=sinx $

$ π $

$ \pi $

$ 2\pi $

$ 2\pi $

K = (0, 0)
A = (-1.5707963267948966, 0)
θ = 0 rad (slider from 0 to 6.28318530717959, step 1.0E-4)
c = Circle(A, 1)
B = Point(c)
B' = Rotate(B, 2 * θ, A)
a = Segment(A, B')
b(x) = sin(2 * x)
d = OrthogonalLine(B', xAxis)
C: ((-3.141592653589793) / 2 + cos(2 * θ), 0)
e = Segment(B', C)
α = Angle(B, A, B')
P: (θ, sin(2 * θ))
f = OrthogonalLine(P, xAxis)
T_1 = Corner(1)
T_4: (Corner[4] + Corner[1]) / 2
T_2 = Corner(2)
T_3: (Corner[3] + Corner[2]) / 2
多邊形1, t_1, t_2, t_3, t_4 = Polygon(T_1, T_2, T_3, T_4)
h = Segment(T_3, T_4)
T_{y1}: (x((2 * Corner[3] + 5 * Corner[4]) / 7), y(T_3))
T_{y2}: (2 * Corner[3] + 5 * Corner[4]) / 7
v_1 = Vector(T_{y1}, T_{y2})
T_{y3}: (x((2 * Corner[3] + 5 * Corner[4]) / 7), y(Corner[1]))
v_2 = Vector(T_{y3}, T_{y1})
T_{y4}: (7 * T_{y3} + 3 * T_{y1}) / 10
v = Vector((x(Corner[1]), y(T_{y4})), (x(Corner[2]), y(T_{y4})))
u = Vector((x(Corner[1]), y(K)), (x(Corner[2]), y(K)))
i = OrthogonalLine(A, u)
A_{0}: (-(3.141592653589793 / 2), y(T_{y4}))
k = Circle(A_{0}, 1)
B_0: A_{0} + (1, 0)
E = Rotate(B_0, θ, A_{0})
j = Segment(A_{0}, E)
F: (x(E), y(A_{0}))
l = Segment(E, F)
β = Angle(B_0, A_{0}, E)
K': A_{0} + (3.141592653589793 / 2, 0)
D: (θ, 0)
m = Segment(P, D)
n: x = x(E)
p: y = y(B')
q: y = y(E)
P_0: (θ, y(E))
g(x) = sin(x) + y(T_{y4})
P_1: (θ, y(K'))
r = Segment(P_0, P_1)