search for: wendepunkt

...gernasr.clv.continuous.f1 <- function(t, h, v, ret, d) { (h*t^2 + v) * (ret / ( 1 + d ))^t } bergernasr.clv.continuous.f2 <- function (t, g,h, v, ret, N, d) { (h*g^2 + v + N*(1-exp(-t+g))) * (ret / ( 1 + d ))^t } bergernasr.clv.continuous <- function(t) { g <- 5 # Wendepunkt v <- 20 # Sockelbetrag h <- 4 # Umsatzwachstum N <- 80 # Wachstum ab Wendepunkt r <- .9 # Retention rate d <- .2 # Discount rate i1 <- integrate(bergernasr.clv.continuous.f1, h=h,v=v,ret=r,d=d, lower=0, upper=5) i2...