θ

mit Ellipse

t

Booth-Lemnis

Ha 2017

c = 5 (slider from 0 to 5, step 0.25)
s = 2 (slider from 0 to 3, step 0.1)
r(x) = sqrt((c^(2) * cos(x)^(2)) + (s^(2) * sin(x)^(2)))
θ = 0.7 (slider from 0 to 7, step 0.1)
K: (θ, r(θ))
a = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, (2 * π))
P: (r(θ); θ)
f(x) = sqrt((c^(2) * cos(x)^(2)) - (s^(2) * sin(x)^(2)))
F: (θ, f(θ))
L: (f(θ); θ)
b = CurveCartesian((f(t) * cos(t)), (f(t) * sin(t)), t, 0, (2 * π))
A: ((c * cos(θ)), 0)
B: ((c * cos(θ)), (s * sin(θ)))
O: (0, 0)
g = Line(O, P)
α = Angle(A, O, P)
d = Circle(O, B)
θ_g: (θ / π * 180)
Ellipse = Locus(B, θ)
h = Segment(O, B)
i = Segment(B, A)
e = CircleArc(O, B, P)
k = CircleArc(O, P, B)
j = true
l = Ray(O, P)
β = Angle(A, O, B)
m = false