Tangente

Sekante

Tangente

Sekantensteigung

Sekante

q = 2 (slider from -5 to 5, step 0.05)
f(x) = x^(2)
P = Point(f)
Q: (x(P) + q, f(x(P) + q))
a = Line(P, xAxis)
b = Line(Q, yAxis)
C = Intersect(a, b)
abstandAC = Distance(P, C)
TextAC: "\overline{" + (Name[P]) + (Name[C]) + "} \, = \, " + abstandAC
abstandBC = Distance(Q, C)
TextBC: "\overline{" + (Name[Q]) + (Name[C]) + "} \, = \, " + abstandBC
c = Line(Q, P)
g = Tangent(P, f)
h = Segment(Q, C)
i = Segment(P, C)
Text2: "m=" + (Slope[g])
e = false
d = false
j = false
Text1: "m= \frac{  \overline{ BC }  }{ \overline{ AC }  } =  \frac{ Δy }{ Δx} = \frac{ f(b)-f(a) }{b-a } =" + (LaTeX[Slope[c]]) + ""