θ

θ

Ha 2016

a = 2
k = 3
rho(x) = a / sin(x)
r_p(x) = rho(x) + k
θ = 2.1 (slider from 0 to 6.28318531, step 0.1)
r(x) = (a * (1 / cos(x) - (2 * cos(x))))
b = CurveCartesian((r_p(θ) * cos(θ)), (r_p(θ) * sin(θ)), θ, 0, 6.283185307179586)
d = CurveCartesian((r(θ) * cos(θ)), (r(θ) * sin(θ)), θ, 0, 6.283185307179586)
P_1: (r(θ); θ)
P_4: (r(θ); θ)
t: θ
P: (r(t); t)
P_2: ((-r(θ)); θ)
P_3: ((-r(θ)); θ)
K: (t, r(t))
K_1: (θ, r(θ))
K_4: (θ, r(θ))
O = (0, 0)
P': ((-r(t)); t)
e = Segment(O, P')
f = Segment(O, P)
Q_k: (t, rho(t))
T: (t, 0)
A = Point(xAxis)
α = Angle(A, O, P')
Q: (rho(t); t)
j = Segment(P, Q)
g = Segment(T, K)
h = Segment(Q_k, K)
Text1: "r(x)=" + (LaTeX[r]) + ""