[问答] 二分法求解方程的根遇到的问题 [推广有奖]

repeat那段程序有问题。
repeat{
     if(abs(b-a)<eps) break
     x<-(a+b)/2
     if(f(a)*f(b)<0) b<-x else a<-x
   }
list(root=(a+b)/2,fun=f(x))
}

第四行   if(f(a)*f(b)<0)，应该改为   if(f(a)*f(x)<)
上一行已经给x赋值，所以这里要用f(x)

你再试一下