R语言编程题求帮助

Question

如题所述

Answer 1

e

Answer 2

R语言学习的人不多。
第二题：
td<-function(fx,a,b,r){ #(fx:是表达式，方程是fx=0,变量是x；a，b，区间[a,b],r是精度。
c<-(a+b)/2;
x<-c;

if(abs(eval(fx))<r) x else
{
x<-a;da<-eval(fx);
x<-b;db<-eval(fx);
x<-c;dc<-eval(fx);
if(da*db<0) td(fx,a,c,r) else td(fx,c,d,r);
}
}

调用函数：
fx<-expression(x*x-x-1);
a<-1;b<-2;r<-1e-5;
td(fx,a,b,r);本回答被网友采纳