Tangens_VPP

tg(α)

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
f = OrthogonalLine(B, xAxis)
α = 0.8726646259971648 rad (slider from 0° to 360°)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
g = Line(B', A)
C = Intersect(g, f)
tangens = Segment(C, B)
elojel: sgn(y(C))
elojelesTangens: (elojel * tangens)
text1: "tan(" + α + ") = " + elojelesTangens + ""