Analyse des Baumwachstums

Lösung zur Aufgabe 15 (Übung 21)

# Definition der Stammfunktion in R
V <- function(t) (2/30) * (t + 4)^(3/2)

ergebnis_b <- V(50) - V(10)
print(paste("Der Höhenzuwachs beträgt ca.:", round(ergebnis_b, 2), "Meter"))

## [1] "Der Höhenzuwachs beträgt ca.: 22.96 Meter"

hoehe_10 = 15
zuwachs_10_20 = V(20) - V(10)
hoehe_20 = hoehe_10 + zuwachs_10_20

print(paste("Die Höhe nach 20 Jahren beträgt ca.:", round(hoehe_20, 2), "Meter"))

## [1] "Die Höhe nach 20 Jahren beträgt ca.: 19.35 Meter"

v <- function(t) 0.1 * sqrt(t + 4)
curve(v, from = 10, to = 50, 
      main = "Wachstumsgeschwindigkeit v(t)",
      xlab = "Zeit t (Jahre)", 
      ylab = "v(t) (m/Jahr)", 
      col = "darkgreen", lwd = 2)
grid()