Nothing
##
## Trefethen-Wagon Test Functions
##
fnTrefethen <- function(p2) {
x <- p2[1]; y <- p2[2]
return(exp(sin(50*x)) + sin(60*exp(y)) + sin(70*sin(x)) +
sin(sin(80*y)) - sin(10*(x+y)) + (x^2 + y^2)/4)
}
fnWagon <- function(p3) {
x <- p3[1]; y <- p3[2]; z <- p3[3]
return(exp(sin(50*x)) + sin(60*exp(y))*sin(60*z) + sin(70*sin(x))*cos(10*z) +
sin(sin(80*y)) - sin(10*(x+z)) + (x^2 + y^2 + z^2)/4)
}
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.