正割函數
Author: 藍邦偉 老師

θ

正割函數

y=secx

A = Point(xAxis)
c = Circle(A, 1)
f(x) = 1 / cos(x)
B = Point(c)
θ = 0 rad (slider from 0 to 6.283185307179586)
B' = Rotate(B, θ, A)
α = Angle(B, A, B')
P: (θ, 1 / cos(θ))
a = OrthogonalLine(P, xAxis)
C = Intersect(a, xAxis)
b = Segment(P, C)
D = Intersect(xAxis, yAxis)
d = Segment(D, C)
e = OrthogonalLine(B, xAxis)
g = Ray(A, B')
E = Intersect(g, e)
i = Segment(E, A)
F = Intersect(g, j)
h = Segment(A, F)
u = Vector((x(Corner[1]), 0), (x(Corner[2]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
O = (0, 0)
m = Segment(O, C)