# Legendre polynomial of degree 5
lp5 <- c(63, 0, -70, 0, 15, 0)/8
f <- function(x) polyval(lp5, x)
bisect(f, 0.6, 1) # 0.9061798453 correct to 9 decimals
regulaFalsi(f, 0.6, 1) # 0.9061798459 correct to 10 decimals
Run the code above in your browser using DataLab