Tangenten anzeigen

Gerade anzeigen

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