Tangens aus dem Einheitskreis erzeugen
Author: Haftendorn
Date: Mrz 06

Ha 06

Ziehe Q

Tangens-Kurve mit dem Einheitskreis erzeugen

Tangensfunktion

O = (0, 0)
A = Point(xAxis)
c = Circle(A, 1)
Q = Point(c)
g = Line(Q, A)
T = Intersect(g, yAxis)
α = Angle(O, A, Q)
E: (x(Q), 0)
f(x) = sin(x)
P: (α, y(T))
a = Segment(T, P)
F: (α, 0)
b = Segment(P, F)
d = Segment(F, O)
Q_1, b_1, a_1, e = Polygon(A, E, Q)
T4: "α = " + α
PI = (3.141592653589793, 0)
h = Segment(T, O)
p(x) = tan(x)
i = false