Tangente in x=0.5 zweier Polynominterpolationen, die sich in x=0.5 treffenErstellt in Maple mit dem Befehl:

 with(Statistics); with(plots); Xs := `&lt;,&gt;`(VectorCalculus[`-`](2), VectorCalculus[`-`](1), .5, 1, 2); Ys := `&lt;,&gt;`(VectorCalculus[`-`](1), 3, 0, 
 VectorCalculus[`-`](3), VectorCalculus[`-`](3)); f := Fit(VectorCalculus[`+`](VectorCalculus[`+`](VectorCalculus[`*`](c, x^2), VectorCalculus[`*`](d, 
 x)), e), Xs[1 .. 3], Ys[1 .. 3], x); g := Fit(VectorCalculus[`+`](VectorCalculus[`+`](VectorCalculus[`*`](c, x^2), VectorCalculus[`*`](d, x)), e), Xs[3 
 .. 5], Ys[3 .. 5], x); display(plot(Xs, Ys, style = point), plot(VectorCalculus[`*`](eval(diff(f, x), x = .5), VectorCalculus[`+`](x, VectorCalculus[`-
 `](.5))), x = VectorCalculus[`-`](2) .. 2, linestyle = dash, color = red), plot(VectorCalculus[`*`](eval(diff(g, x), x = .5), VectorCalculus[`+`](x, 
 VectorCalculus[`-`](.5))), x = VectorCalculus[`-`](2) .. 2, linestyle = dash, color = blue), plot(`&lt;,&gt;`(.5, .5), `&lt;,&gt;`(VectorCalculus[`-`](10), 10), 
 color = black, linestyle = dot), plot(`&lt;,&gt;`(1, 1), `&lt;,&gt;`(VectorCalculus[`-`](10), 10), color = black, linestyle = dot), gridlines, view = 
 [VectorCalculus[`-`](1) .. 2, VectorCalculus[`-`](5) .. 5], plot(f, x = VectorCalculus[`-`](2) .. .5, color = black, numpoints = 2000), plot(g, x = .5 
 .. 2, color = black, numpoints = 2000));
Own work
Pberndt at de.wikipedia