R/sys.R

sys <- function () 
{
    f1 <- function(t, y, param) -param[1] * y[1]
    f2 <- function(t, y, param) param[1] * y[1] - param[2] * 
        y[2]
    c(f1, f2)
}

Try the nlsrk package in your browser

Any scripts or data that you put into this service are public.

nlsrk documentation built on May 1, 2019, 8:48 p.m.