## Generates an example with plot.
# Input:
# fun --- function that shall be 'approximated'
# a, b --- interval [a, b] to be used for the example
# n --- number of supporting nodes
# m --- number of interpolation points
# Output
# plot of function, interpolation, and nodes
# return value is NULL (invisible)
## Not run:
# barycentricExample <- function(fun, a, b, n, m)
# {
# xi <- seq(a, b, len=n)
# yi <- fun(xi)
# x <- seq(a, b, len=m)
#
# y <- barylag(xi, yi, x)
# plot(xi, yi, col="red", xlab="x", ylab="y",
# main="Example of barycentric interpolation")
#
# lines(x, fun(x), col="yellow", lwd=2)
# lines(x, y, col="darkred")
#
# grid()
# }
#
# barycentricExample(sin, -pi, pi, 11, 101) # good interpolation
# barycentricExample(runge, -1, 1, 21, 101) # bad interpolation
# ## End(Not run)
Run the code above in your browser using DataLab