File:Hermite.svg
Summary
| Description |
Deutsch: Tangente in x=0.5 zweier Polynominterpolationen, die sich in x=0.5 treffen Erstellt in Maple mit dem Befehl: with(Statistics); with(plots); Xs := `<,>`(VectorCalculus[`-`](2), VectorCalculus[`-`](1), .5, 1, 2); Ys := `<,>`(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(`<,>`(.5, .5), `<,>`(VectorCalculus[`-`](10), 10), color = black, linestyle = dot), plot(`<,>`(1, 1), `<,>`(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)); |
| Date | |
| Source | Own work |
| Author | Pberndt at de.wikipedia |
| Other versions | Datei:Function tangent and vert line non continuous.gif |
Licensing
 |
I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |
Original upload log
The original description page was here. All following user names refer to de.wikipedia.
- 2011-02-21 19:44 Pberndt 694×694× (58237 bytes) {{Information |Beschreibung = Tangente in x=0.5 zweier Polynominterpolationen, die sich in x=0.5 treffen |Quelle = Selbst erstellt |Urheber = ~~~ |Datum = 21.02.2011 |Genehmigung = {{Bild-frei}} |Andere Versionen = [[:Datei:Function tangent and vert line non continuous.gif]] |Anmerkungen = }}
- 2011-02-21 19:41 Pberndt 744×1053× (54878 bytes) Neue Version von [[:Datei:Function tangent and vert line non continuous.gif]], als svg und mit Kurve im Vordergrund. with(Statistics); with(plots); Xs := `<,>`(VectorCalculus[`-`](2), VectorCalculus[`-`](1), .5, 1, 2); Ys := `<,>`(VectorCalculus[`-`](1)