Der Tangentensurfer
Author: M. Bischof
Date: 15 April 2013

$f^\prime  (x)$

Spurpunkte einschalten

Steigungsdreieck einzeichnen

f(x) = (-0.1 * x^(4)) + x^(2) - 3
A = Point(f)
a = Tangent(A, f)
m = Slope(a)
B: ((cos(atan(m)) * 0.75) + x(A), a((cos(atan(m)) * 0.75) + x(A)))
C: (x(A) - (cos(atan(m)) * 0.75), a(x(A) - (cos(atan(m)) * 0.75)))
D: (x(C), y(C))
F: (x(C), y(C))
G: (x(B), y(B))
b = Segment(C, B)
E: (x(A), m)
c = true
d = OrthogonalLine(E, xAxis)
H = Intersect(d, xAxis)
e = Segment(H, E)
g = Segment(A, E)
h = OrthogonalLine(B, xAxis)
i = OrthogonalLine(C, yAxis)
j = OrthogonalLine(B, xAxis)
k = OrthogonalLine(C, yAxis)
I = Intersect(k, j)
l = Segment(C, I)
p = Segment(I, B)
α = Angle(B, I, C)
n = OrthogonalLine(E, yAxis)
J = Intersect(n, yAxis)
q = Segment(J, E)
o = true
r = OrthogonalLine(C, xAxis)
s = OrthogonalLine(B, yAxis)
K = Intersect(r, s)
t = Segment(C, K)
a_1 = Segment(K, B)
β = Angle(B, K, C)
Text4: "m=" + m + ""
Text5: "" + m + ""
Text1: "k = " + m + ""
Text2: "f^\prime(" + (LaTeX[x(A)]) + ")=" + (LaTeX[m]) + ""