# Flaeche aus Saettigung
im<- 1.0            # maximale Speicherung, 0 bis 1
i <- seq(0.0,im,0.05)# Flaeche zwischen 0 und 1
b <- 0.5             # Formfaktor
io<- 0.5             # aktuelle Feuchte
A <- 1 - (1-(i/im))^b
plot(i,A,xlim=c(0:im),ylim=(0:1))
curve(1-(1-(x/im))^b,0,im,
        add = TRUE, col = "gray")
curve(1-(1-(x/im))¹,0,im,
        add = TRUE, col = "red")
curve(1-(1-(x/im))¹.5,0,im,
        add = TRUE, col = "blue")