Skizzieren Sie einen passenden Graphen und geben Sie einen Funktionsterm von \(f\) an.
Um diese Aufgaben zu lösen, betrachten wir die Ableitungen: * \(f'(x)\) beschreibt die Steigung (positiv = steigend, negativ = fallend). * \(f''(x)\) beschreibt die Krümmung (positiv = linkskurve, negativ = rechtskurve).
Bedingung: Rechtsgekrümmt bedeutet, dass die zweite Ableitung überall negativ sein muss (\(f''(x) < 0\)). Da es keinen Wendepunkt gibt, darf \(f''(x)\) niemals Null werden oder das Vorzeichen wechseln.
ggplot(data.frame(x = c(-3, 3)), aes(x = x)) +
stat_function(fun = function(x) -x^2, color = "blue", size = 1) +
ggtitle("a) f(x) = -x^2") +
theme_minimal() +
geom_hline(yintercept = 0, linetype = "dashed")
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
Bedingung: Zwei Wendepunkte bedeuten, dass die Krümmung zweimal wechseln muss. Zudem muss der gesamte Graph über der x-Achse liegen (\(f(x) > 0\)).
ggplot(data.frame(x = c(-4, 4)), aes(x = x)) +
stat_function(fun = function(x) 4/(x^2 + 1), color = "darkgreen", size = 1) +
ggtitle("b) f(x) = 4 / (x^2 + 1)") +
theme_minimal() +
ylim(0, 5)
Bedingung: Ein Wendepunkt bei \((0|0)\) bedeutet \(f(0)=0\) und \(f''(0)=0\). Hoch- und Tiefpunkte erfordern eine Funktion höheren Grades, meist Grad 3.
ggplot(data.frame(x = c(-2.5, 2.5)), aes(x = x)) +
stat_function(fun = function(x) x^3 - 3*x, color = "red", size = 1) +
geom_point(aes(x = 0, y = 0), color = "black", size = 3) + # Wendepunkt
ggtitle("c) f(x) = x^3 - 3x") +
theme_minimal() +
geom_vline(xintercept = 0, alpha = 0.3) +
geom_hline(yintercept = 0, alpha = 0.3)
## Warning in geom_point(aes(x = 0, y = 0), color = "black", size = 3): All aesthetics have length 1, but the data has 2 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing
## a single row.
Bedingung: 1. \(f'(x) < 0\): Die Funktion muss streng monoton fallend sein. 2. \(f''(x) < 0\): Die Funktion muss rechtsgekrümmt sein.
ggplot(data.frame(x = c(-2, 2)), aes(x = x)) +
stat_function(fun = function(x) -exp(x), color = "purple", size = 1) +
ggtitle("d) f(x) = -e^x") +
theme_minimal()