Tangenten anzeigen

Gerade anzeigen

f(x) = 2 + cos(x)
g(x) = sin(x)^(2)
h(x) = If[0 ≤ x ≤ 3.141592653589793, f(x)]
p(x) = If[0 ≤ x ≤ 3.141592653589793, g(x)]
a = 1 (slider from 0 to 3.14, step 0.05)
i: x = a
P = Intersect(h, i, (1, 2.5403023058681398))
Q = Intersect(p, i, (1, 0.7080734182735712))
j = Segment(P, Q)
Text1: "Länge der Strecke [PQ]=" + j + ""
k = Tangent(P, h)
l = Tangent(Q, p)
b = false
c = false