Update codelines.R

hydrocodes · Jun 1, 2022 · 944855e · 944855e
1 parent 25d2770
commit 944855e
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tutorial/codelines.R b/tutorial/codelines.R
@@ -47,6 +47,18 @@ init <- 0    #m3/s
 output <- "D:/.../output2.txt"
 mcunge(inflow, Qo, To, Vo, L, m, dt, init)
 
+library(hydRopUrban)
+data <- read.table(file.choose(), header=TRUE)
+inflow <- data$Discharge
+Qo <- 0 #m3/s
+B <- 20 #m
+L <- 2500 #m
+S <- 0.0005 #slope
+n <- 0.05 #rugosity
+dt <- 0.1 #hr
+output <- "D:/.../output_convex.txt"
+convex(inflow, Qo, B, L, S, n, dt)
+
 library(hydRopUrban)
 data <- read.table(file.choose(), header=T)
 inflow <- data$Discharge