θ

mit Ellipse

t

Booth-Lemnis

Ha 2017

c = 5 (slider from 0 to 5, step 0.25)
s = 1.6 (slider from 0 to 6, step 0.1)
θ = 7 (slider from 0 to 7, step 0.1)
O = (0, 0)
p = Circle(O, s)
q = Circle(O, c)
r(x) = sqrt((c^(2) * cos(x)^(2)) + (s^(2) * sin(x)^(2)))
P: (r(θ); θ)
l = Ray(O, P)
D = Intersect(p, l)
C = Intersect(q, l)
K: (θ, r(θ))
a = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, (2 * π))
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(θ)))
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
β = Angle(A, O, B)
m = false
u = Vector(C, B)
v = Vector(D, B)
E = Point(e)
t = Line(C, yAxis)
n = Line(D, xAxis)
G = Intersect(t, n)
c_1 = Circle(O, G)
H = Intersect(d, c_1, 1)
I = Intersect(d, c_1)
J = Intersect(c_1, l)
Ortslinie1 = Locus(J, θ)
w = Vector(D, P)
Ortslinie2 = Locus(P, θ)