Nothing
#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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.