powered by
neville(x, y, xs)
xs
x,y
newtonInterp
barylag
p <- Poly(c(1, 2, 3)) fp <- function(x) polyval(p, x) x <- 0:4; y <- fp(x) xx <- linspace(0, 4, 51) yy <- numeric(51) for (i in 1:51) yy[i] <- neville(x, y, xx[i]) ezplot(fp, 0, 4) points(xx, yy)
Run the code above in your browser using DataLab