R/duffing.syst.R

In tseriesChaos: Analysis of Nonlinear Time Series

#Author: Antonio, Fabio Di Narzo. Last Modified $Date: 2005-12-02 17:15:39 +0100 (ven, 02 dic 2005) $
duffing.syst <- function(t, input, parms){
	x <- input[1]
	y <- input[2]
	z <- input[3]

	c <- parms[1]
	F <- parms[2]
	omega <- parms[3]

	dx <- y
	dy <- x * (1 - x^2) - c*y + F*cos(z)
	dz <- omega

	list(c(dx, dy, dz))
}