Hans Walser, [20100120a]
KrŸmmung der KrŸmmung
Zu einer Funktion sei , die KrŸmmung des
Funktionsgrafen von , und allgemein die KrŸmmung des
Funktionsgrafen von . Wir iterieren also die KrŸmmung. Ob das mathematische oder
sonstwie sinnvoll ist, bleibe dahingestellt. Lustig ist es allemal.
MuPAD-Programm, am
Beispiel fŸr .
f:=x->x^2:
// Funktion
N:=2:
// Obergrenze
a:=-3:
// untere Intervallgrenze
b:=3:
// obere Intervallgrenze
k[0]:=f:
for n from 1 to N do
k[n]:=k[n-1]''/((1+(k[n-1]')^2)^(3/2)):
end_for:
kurve:=n->plot::Curve2d([x, float(k[n](x))], x=a..b,
LineWidth=1/2, LineColor=[1-n/N,0,n/N], Mesh=100*n+100):
plot(kurve(n)$n=0..N,
Scaling=Constrained, TicksDistance=1, TicksBetween=0,
ViewingBox=[a..b,-3..3], AxesLineWidth=0.5,
AxesTitleFont=["Times", 12, Italic],
TicksLabelFont=["Times", 12],
Width=140, Height=140)
Die Obergrenze gibt an, dass wir die Ÿbliche KrŸmmung () und die KrŸmmung des Diagramms der Ÿblichen KrŸmmung bearbeiten
und plotten.
Der Farbcode geht nach
ãje blauer desto krummÒ. Rot ist die Ausgangsfunktion, blau die letzte der
berechneten KrŸmmungsfunktionen.
Im Beispiel des
Programms erhalten wir:
Quadratfunktion,
KrŸmmung, KrŸmmung der KrŸmmung
Bildergalerie mit
einigen Beispielen
Exponentialfunktion
Oberer Halbkreis
Nun ja, das war zu
erwarten.
Glockenkurve
Arcustangens