MapIterator:

Usage Arguments Examples

Usage

1
MapIterator(syst, start.time, end.time, dt, start.x, parms = NULL, runge.kutta = F)

Arguments

syst
start.time
end.time
dt
start.x
parms
runge.kutta

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (syst, start.time, end.time, dt, start.x, parms = NULL, 
    runge.kutta = F) 
{
    times <- seq(start.time, end.time, by = dt)
    y <- start.x
    ret <- NULL
    for (t in times) {
        ret <- rbind(ret, y)
        if (runge.kutta) {
            y <- RK4(t, syst, y, dt, parms)[[1]]
        }
        else {
            y <- syst(t, y, parms)[[1]] * dt
        }
    }
    ret
  }

faustogc/streamChaos documentation built on May 8, 2019, 9:22 a.m.