createOscillators: Creates Set of Differential Equations

In surmann/ODEnetwork: Network of Differential Equations

Description

Creates the set of differential equations of order one from the ODEnetwork.

Usage

createOscillators(odenet)

Arguments

odenet

[ODEnetwork] List of class ODEnetwork.

Value

a function with a set of differential equations of order one to use in a numerical step

Examples

if (interactive()) {
  masses <- c(1, 2)
  dampers <- diag(c(0.1, 0.5))
  dampers[1, 2] <- 0.05
  springs <- diag(c(4, 10))
  springs[1, 2] <- 6
  odenet <- ODEnetwork(masses, dampers, springs)
  createOscillators(odenet)
}

surmann/ODEnetwork documentation built on April 6, 2020, 8:53 p.m.