欢迎来到天天文库
浏览记录
ID:42717072
大小:21.00 KB
页数:4页
时间:2019-09-21
《用牛顿迭代法求方程f》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、用牛顿迭代法求方程f(x)=x^3+x^2-3x-3=0在1.5附近的根。#include#include#defineN100#defineepsle-6#defineetale-8FloatNewton(float(*f)(float),float(*f1)(float),floatx0){Floatx1,d;Intk=0;Do{x1=x0-(*f)(x0)/(*f1)(x0);If(k++>N
2、
3、fabs((*f1)(x1))4、散”);Break;}D=fabs(x1)<1?X1-x0:(x1-x0)/x1;X0=x1;Printf(“x(%d)=%ft”,k,x0);}While(fabs(d)>eps&&fabs((*f)(x1))>eta);Returnx1;}Floatf(floatx){Returnx*x*x+x*x-3*x-3;}Floatf1(floatx){Return3.0*x*x+2*x-3;}Voidmain(){Floatx0,yo;Printf(“请输入迭代初值x0”);Scanf(“%f”,&x0);Pr5、intf(“x(0)=%f”,x0);y0=newton(f,f1,x0);Printf(“方程的根为%f”,y0);}Eps=5e-6;Delta=le-6;N=100;K=0;X0=1.0;While(1)X1=x0-fun2_2(x0)/fun2_2_1(x0);K=k+1;If(k>n6、abs(x1)7、ab8、s(fun2_2(x1))
4、散”);Break;}D=fabs(x1)<1?X1-x0:(x1-x0)/x1;X0=x1;Printf(“x(%d)=%ft”,k,x0);}While(fabs(d)>eps&&fabs((*f)(x1))>eta);Returnx1;}Floatf(floatx){Returnx*x*x+x*x-3*x-3;}Floatf1(floatx){Return3.0*x*x+2*x-3;}Voidmain(){Floatx0,yo;Printf(“请输入迭代初值x0”);Scanf(“%f”,&x0);Pr
5、intf(“x(0)=%f”,x0);y0=newton(f,f1,x0);Printf(“方程的根为%f”,y0);}Eps=5e-6;Delta=le-6;N=100;K=0;X0=1.0;While(1)X1=x0-fun2_2(x0)/fun2_2_1(x0);K=k+1;If(k>n
6、abs(x1)7、ab8、s(fun2_2(x1))
7、ab
8、s(fun2_2(x1))
此文档下载收益归作者所有