Displaying 2 results from an estimated 2 matches for "t_start2".
Did you mean:
t_start
2018 Apr 18
2
Event-triggered change in value with a time-delay
...ment the change if there was no time delay
# m <- ifelse(D>=D_T, m*.68, m)
# Option 1: nested if statements with time delay
# if (D >= D_T) {
# t_start1 <- t + delay
# if (t >= t_start1){
# m <- 6.8
# }
# }
# if (D < D_T) {
# t_start2<- t + delay
# if (t >= t_start2){
# m <- 10
# }
# }
dD <- D_0 * (R_1 / (R_1 - R_2)) * (-R_2 * exp(-R_2 * t) + R_1 *
exp(-R_1 * t))
dY <- Y + m;
res <- c(dD, dY)
list(res, m = m)
})
}
# Solve model
library(deSolve)
out <- ode(y = y_0...
2018 Apr 18
0
Event-triggered change in value with a time-delay
...t; # m <- ifelse(D>=D_T, m*.68, m)
>
> # Option 1: nested if statements with time delay
> # if (D >= D_T) {
> # t_start1 <- t + delay
> # if (t >= t_start1){
> # m <- 6.8
> # }
> # }
> # if (D < D_T) {
> # t_start2<- t + delay
> # if (t >= t_start2){
> # m <- 10
> # }
> # }
>
>
> dD <- D_0 * (R_1 / (R_1 - R_2)) * (-R_2 * exp(-R_2 * t) + R_1 *
> exp(-R_1 * t))
> dY <- Y + m;
> res <- c(dD, dY)
> list(res, m = m)
> })
>...