r

x

Tangensimasin \; \left [0;2π  \right ] \Lohista \; punkti  \; P_1

r=1

tan(x)

tan(x)

x

eq1: (x + 2)^(2) + y^(2) = 1
P_1 = Point(eq1)
B = Intersect(eq1, xAxis, 2)
P = Point(xAxis)
f = Segment(P, P_1)
g = OrthogonalLine(P_1, xAxis)
O = Intersect(xAxis, yAxis)
c = CircleArc(P, B, P_1)
α = Angle(B, P, P_1)
text3: "α=" + (LaTeX[α]) + ""
j = OrthogonalLine(B, xAxis)
n = Line(P, P_1)
C = Intersect(n, j)
k = Segment(P_1, C)
l = Segment(C, B)
Y: (α, tan(α))
h = Segment(C, Y)
i = OrthogonalLine(Y, xAxis)
A = Intersect(i, xAxis)
m = Segment(Y, A)
p = Segment(O, A)