createOscillators {ODEnetwork}

Creates Set 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)
}