餘切函數的圖形與單位圓
Author: 藍邦偉 老師

θ

$ 餘切函數 $

A = Point(xAxis)
c = Circle(A, 1)
θ = 0.6154 rad (slider from 0 to 6.283185307179586, step 0.0017)
B = Point(c)
B' = Rotate(B, θ, A)
f(x) = 1 / tan(x)
P: (θ, 1 / tan(θ))
α = Angle(B, A, B')
C = Point(yAxis)
D = Point(c)
b = Line(D, C)
e = OrthogonalLine(P, xAxis)
F = Intersect(e, xAxis)
g = Segment(P, F)
a = Ray(A, B')
E = Intersect(a, b)
d = Segment(A, E)
h = Segment(D, E)
G = Intersect(xAxis, yAxis)
i = Segment(G, F)
H = Intersect(c, a, 1)
j = Segment(A, H)
k = Segment(A, B)
I = Intersect(a, l)
m = OrthogonalLine(A, xAxis)
J = Intersect(m, l)
n = Segment(I, J)
u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
A_0: (θ, 0)
p = Segment(G, A_0)
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))