,(方法)给定初始值x0,ε为根的容许误差,η为|f(x)|的容许误差,N为迭代次数的容许值。如果f′(x0)=0或迭代次数大于N,则算法失败,结束;否则执行②计算x1=x0-f(x0)/f′(x0)。若|x1-x0|<ε或|f(x1)|<η,则输出x1,程序结束;否则执行④令x0=x1,转向①:打开电脑,打开VB程序,(N-S图和程序)开始f(x)=x³+x²-3x-3输入初始值X。,ε是f′(X。)=0或迭代次数大于N否X₁=X。-f(X。)/f′(X。)否X。=X₁∣X₁-X。∣<ε或∣f(x₁)∣<η是输出X₁mand1_Click()Dimx0,x!,eps!,kx0=Val(InputBox("x=0","ÊäÈë³õÖµ",))eps=Val(InputBox("eps=","ÊäÈëepsµÄÖµ",))x=x0-f(x0)/p(x0)k=1PrintDoWhileAbs(x-x0)>=epsPrint"k="&k,"x="&x,"f(x)"&f(x)x0=xk=k+1x=x0-f(x0)/p(x0)LoopEndSubFunctionf(ByValx!)AsSinglef=x^3+x^2-3*x-3EndFunctionFunctionp(ByValx!)AsSinglep=3*x^2+2*x-(算例及结果)
牛顿迭代法实验报告 来自淘豆网m.daumloan.com转载请标明出处.
