====== Sättigungsdampfdruck ======

Der Sättigungsdampfdruck wird mit der Formel von Clasius Clapeyron berechnet.

$$ e_s = 6.11*10^{(7.48*T/(237+T))} [hPa] $$

dabei bedeuten:

^ Symbol ^ Bedeutung und Einheit                 ^
| $e_s$  | maximal möglicher Dampfdruck $[hPa]$  |
| $e_a$  | aktueller Dampfdruck $[hPa]$          |
| $T$    | Temperatur in ${ }^\circ$ Celsius     |

In R kann $e_s$ berechnet werden:

<code rsplus |Clasius.r>
T<-seq(0,35,0.5)
es<-6.11*10^((7.48*T/(237+T)))
plot(T,es,xlab="Temperatur in Celsius", ylab="Dampfdruck in hPa",
  xlim=c(0, 35),ylim=c(0, 35), pch=1, lty=1, col="blue", axes=FALSE)

axis(1, seq(0,35,5))
axis(2, seq(0,35,5))
grid (NULL,NULL, lty = 3, col = "grey")
curve(6.11*10^((7.48*x/(237+x))), add = TRUE)
</code>

Eine Funktion zur Berechnung des Sättigungsdampfdruckes in R:

<code rsplus |Clasius.r>
es <- function(temp_dC) {
   temp_dC
   es<-6.11*10^((7.48*temp_dC/(237+temp_dC)))
   Einheit <- "hPa"
   res <- data.frame(es,Einheit)
   return(res)
}
res <- es(15)
res
esv <- res[1]
esu <- res[2]
esv
esu
</code>