La aplicacion https://rdrr.io permite ejecutar casi cualquier codigo en lenguaje R de forma online. Esto es posible gracias a los mas de 19 mil paquetes pre-instalados. Por ejemplo, simulemos un hidrograma triangular aplicando la formula racional para una cuenca de 0.1 km², con un coeficiente de escorrentia de 0.8 y con un evento de lluvia de intensidad de 10 mm/hr con una duracion equivalente al tiempo de concentracion de 0.4 horas.
Copia y pega las siguientes lineas de codigo en el espacio superior y dale click a "Run"
# Simulando un hidrograma triangularlibrary(ggplot2)A <- 0.1 # ingresar el area en km²i <- 10 # ingresar la intensidad de lluvia en mm/hrc <- 0.8 # ingresar el coeficiente de escorrentiaTc <- 0.4 # ingresar el tiempo de concentracion en horasQmax <- c*i*A/3.6Qt <- c(0, Qmax, 0)t <- c(0, Tc, 2*Tc)data <- data.frame(t,Qt)ggplot(data=data, aes(x=t, y=Qt)) + geom_line(color="blue",size=3) + ggtitle(paste("Caudal max =", round(Qmax,2), "m3/s","\n","Volumen =", Tc*Qmax*60*60,"m3")) + xlab("Horas") + ylab("Caudal (m3/s)")
No hay comentarios. :
Publicar un comentario