Learn R Programming

deTestSet (version 1.1.7.4)

beam: Motion of Inextensible Elastic Beam, ODE

Description

The beam modulator problem is a problem from mechanics, describing the motion of an elastic beam, supposed inextensible, of length 1 and thin.

It is an ordinary differential equation of dimension 80.

Usage

beam (times=seq(0, 5, by = 0.05), yini = NULL, 
      printmescd = TRUE, method = gamd, 
      atol = 1e-6, rtol = 1e-6, ...)

Value

A matrix of class deSolve with up to as many rows as elements in

times and as many columns as elements in yini, plus an additional column (the first) for the time value.

There will be one row for each element in times unless the solver returns with an unrecoverable error. If

yini has a names attribute, it will be used to label the columns of the output value.

Arguments

yini

the initial (state) values for the DE system. If y has a name attribute, the names will be used to label the output matrix.

times

time sequence for which output is wanted; the first value of times must be the initial time.

method

the solver to use

printmescd

if TRUE the mixed error significant digits computed using the reference solution at time 5 are printed

atol

absolute error tolerance, either a scalar or a vector, one value for each y.

rtol

relative error tolerance, either a scalar or a vector, one value for each y,

...

additional arguments passed to the solver .

Author

Karline Soetaert <karline.soetaert@nioz.nl>

Francesca Mazzia <mazzia@dm.uniba.it>

Details

There are no parameters

References

url : archimede.dm.uniba.it/~testset

Examples

Run this code
out <- beam()
plot(out, col = "darkblue", lwd = 2, which = 1:16)
mtext(side = 3, line = -1.5, "beam", cex = 1.25, outer = TRUE)

image(out[,-1])

# compare with reference solution
refsol <- reference("beam")
max(abs(out[nrow(out),-1] - refsol)/refsol)  

Run the code above in your browser using DataLab