powered by
newtonInterp(x, y, xs = c())lagrangeInterp(x, y, xs)
lagrangeInterp(x, y, xs)
xs
x,y
neville
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 <- lagrangeInterp(x, y, xx) yy <- newtonInterp(x, y, xx) ezplot(fp, 0, 4) points(xx, yy)
Run the code above in your browser using DataLab