Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- hydro:clasius [2020/06/16 20:25] – ckuells
+++ hydro:clasius [2024/04/10 10:02] (aktuell) – Externe Bearbeitung 127.0.0.1
@@ Zeile 13: / Zeile 13: @@
 In R kann $e_s$ berechnet werden:
-In R kann die Verdunstung wie folgt berechnet werden.
 <code rsplus |Clasius.r>
 T<-seq(0,35,0.5)
-es<-0.6108*exp(17.27*T/(237.3+T))
+es<-6.11*10^((7.48*T/(237+T)))
-plot(T,es,xlab="Temperatur in Celsius", ylab="Dampfdruck in kPa",
+plot(T,es,xlab="Temperatur in Celsius", ylab="Dampfdruck in hPa",
-  xlim=c(0, 35), ylim=c(0,5),pch=1, lty=1, col="blue", axes=FALSE)
+  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,5,1))
+axis(2, seq(0,35,5))
 grid (NULL,NULL, lty = 3, col = "grey")
-curve(0.6108*exp(17.27*x/(237.3+x)), add = TRUE)
+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>