RHMS (version 1.2)

transform: Transforms a rainfall event to runoff

Description

This function transforms an excess rainfall event to a direct runoff hydorgraph.

Usage

transform(rainfall,
          transformParams=list(Tlag=NULL,
                               Cp  =NULL,
                               Ct  =NULL,
                               L   =NULL,
                               Lc  =NULL),
          Area,simulation=c(interval=3600*1,period=NA),UH,
          transformMethod)

Arguments

rainfall

an object inherited from loss function

transformParams

a list: list of parameters associated to the selcted type of transformMethod:Tlag for "SCS" and Ct, Cp, L, and Lc other for "snyder"

Area

the area of drainage basin (Km^2)

simulation

a vector of simulation interval (in second) and time steps (an integer)

UH

a data.frame: must be provided when transformMethod is set to "user". UH is the ordinates of a user defined UH by the which its first collumn is time (Hr) and the second collumn includes flow rates (cms)

transformMethod

a string: the type of transformation method. available types: "SCS", "snyder", and "user"

Value

Hydrogaph of direct runoff

See Also

sim

Examples

Run this code
# NOT RUN {
Area=200
lossMethod<-"SCS"
lossParams<-list(CN=65)
transformMethod<-c("snyder","SCS","user")
simulation<-c(interval=3600,period=100)
precipitation<-sin(seq(0.1,pi-0.1,length.out=10))*20
transformParams=list(Tlag=4,Cp=0.15,Ct=2,L=100,Lc=15)
UH<-data.frame(t=1:20,q=sin(seq(0,pi,length.out=20))*1)

SCS_loss<-loss(precipitation,lossParams,simulation,lossMethod)

snyder_transformation<-transform(rainfall=SCS_loss,
                                 transformParams,
                                 Area,
                                 simulation,
                                 transformMethod=transformMethod[1])
SCS_transformation<-transform(rainfall=SCS_loss,
                                 transformParams,
                                 Area,
                                 simulation,
                                 transformMethod=transformMethod[2])
user_transformation<-transform(rainfall=SCS_loss,
                                 transformParams,
                                 Area,
                                 simulation,
                                 UH,
                                 transformMethod=transformMethod[3])

# }

Run the code above in your browser using DataCamp Workspace