##  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