用牛顿切线法求cosx=x的根

再问：谢谢姐姐！

#includefloatsolution(floatx){floatx1,y,k;do{k=6*x*x-8*x+3;y=2*x*x*x-4*x*x+3*x-6;x1=x-y/k;x=x1;}whil

是这个题目吧编写程序,用Newton迭代法求方程f(x)=2x+cosx-2.6=0在区间[0,4]上的近似实根r,迭代初值自选,精确到0.0001.牛顿切线法的计算公式为x=x-f(x)/f’(x)

求导,求导数=0的大约点,分析曲线f(x)=e^x-3*x^2的曲线分布情况,可以知道这几个区间,这几个区间是大概的,不是算出来的.

y=cosx的导数为y'=-sinx,则y=cosx在点x=π/2处的切线的斜率为y'=-sin(π/2)=-1,y(π/2)=cos(π/2)=0,则切线过点(π/2,0),则切线方程为(y-0)/

用VBA编的,应该和VB差不多吧.如果有用请采纳.o(∩_∩)oSubCalcFuncResult()DimFx,dFx,x1,x2x1=0:x2=1WhileAbs(x1-x2)>0.0001x1=

x=π/6y=π/12-√3/2所以切点(π/6,π/12-√3/2)y'=1/2+sinx则k=y'=1/2+1/2=1所以切线是x-y-π/12-√3/2=0

'程序可以继续完善的：'1、如果指定区间无解,怎么办'2、迭代过程跳出了指定区间,怎么办'3、如何使用界面直接输入方程式PrivateSubCommand1_Click()Dim上限AsSingle,

1.f(x)=x-cosxf'(x)=1+sinxX(n+1)=Xn-(Xn-cosXn)/(1+sinXn)2.g(x)=x-f(x),g'(x)=1-f'(x)X(n+1)=Xn-g(Xn)/g'

qq发给你!

y导=[cosx(sinx+cosx)-(cosx-sinx)sinx]/(sinx+cosx)²=1/(sinx+cosx)²在x=π/4外的切线的斜率为k=1/2所以在x=π/

functionx=NewRaph(x0,f,fprime,tol)x(1)=x0;i=1;gx=x(i)-f(x(i))/fprime(x(i));while(abs(x(i)-gx)>tol)gx

#include#includeintmain(){doublex=1,x2;do{x2=x;x-=(2*x*x*x-4*x*x+3*x-6)/(6*x*x-8*x+3);}while(fabs(x-

结果x=0.567143290401再问：有C语言呢程序吗？再答：不好意思,本人不会C语言。

#include#includefloatf(floatx){floaty;y=x*x*x+2*x+10;return(y);}floatf1(floatx){floaty;y=3*x*x+2;ret

#include#includevoidmain(){voidfunction1();//搜索法voidfunction2();//二分法voidfunction4();//牛顿法intchoice;

世界上有鬼的证据（1）在美国科学家们做过一个实验.他们找来一个人,将他催眠,他竟能说出自己的前生的情况和今生死时的模样（2）我的一个朋友就这么不幸死去.她有一次在家无聊地用自己家电话拨通自己家电话,很

程序：clcclearx=zeros(1,25);x(1)=2;formatlongfori=1:24;x(i+1)=x(i)-(x(i)^3-3*x(i)+2)/(3*x(i)^2-3);enddi

是不是计算机化学呀?通常这种题不会用手算的,需要使用Matlab软件中的牛顿法.如果是的话,需要将方程求导,然后在软件中写基本程序.建议你到Matlab吧去看看

f15z再问：在？