β

a\, r

r

Ha 2016

a = 0.05 (slider from -5 to 5, step 0.05)
r(x) = exp((a * x))
b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, -25, 40)
c_N: (a * exp(((-a) * π / 2)))
ω = 1.0471975511965974
r_d(x) = r(x - ω)
k: c_N
r_k(x) = (k * r(x))
c = CurveCartesian((r_d(t) * cos(t)), (r_d(t) * sin(t)), t, -10, 7)
d = CurveCartesian((r_k(t) * cos(t)), (r_k(t) * sin(t)), t, -10, 7)
P = Point(b)
O: (0, 0)
e = Circle(O, P)
f = Ray(O, P)
g = OrthogonalLine(O, f)
r_p = Segment(P, O)
h = Circle(O, (a * r_p))
A, N = Intersect(h, g)
Vieleck1, n, p, o = Polygon(P, O, N)
i = OrthogonalLine(P, o)
σ_N: ((-log(c_N))) / a / °
P_d = Rotate(P, σ_N°, O)
S = Intersect(i, g)
j = Segment(P, S)
l = Segment(O, P_d)
q = CircleArc(O, P, P_d)
s = Circle(N, P)
α = Angle(O, P, S)
β = Angle(S, N, P)
m = Segment(N, P)
B = Point(i)
γ = Angle(B, P, N)
C = (-3.5, -0.9)
D: (5, 0)
t = Ray(O, D)