1樓:
#include
#include
#define eps 1e-8
void main()
printf("用newton切線法得:%12.10lf\n",t);
}結果為:
t0=1.2065843621,t=0.9809945654t0=0.
9809945654,t=0.8207881793t0=0.8207881793,t=0.
7300742137t0=0.7300742137,t=0.7013898132t0=0.
7013898132,t=0.6988457773t0=0.6988457773,t=0.
6988271198t0=0.6988271198,t=0.6988271188用newton切線法得:
0.6988271188press any key to continue
2樓:匿名使用者
#define _crt_secure_no_warnings#include "stdio.h"
#include "math.h"
#define e0 1e-8
void main()
while(fabs(x1-x0)>=e0);
printf("方程的根是%f\n",x1);}
3樓:匿名使用者
//牛頓法的迭代序列:x(n+1)=x(n)-f(x(n))/f'(x(n))。
//f(x)=x^6-x-1;
//f'(x)=6*x^5-1;
#include
#include
void main()
printf("x=%f\n",x); //x=1.134724138}
用matlab程式設計,採用不動點迭代法,求f(x)=x3+4x2-10在區間[1,2]上的 一個根
4樓:天綺蘭羊壁
地球可是真小啊,
看來老師佈置作業都一樣啊!
前段時間剛做過這道題!
給你個正確的程式!
採用不動點迭代法計算非線性方程x3+4x2-10=0,在區間[1,2]上的一個根。
不動點迭代法程式:
function
[y,n]=bdd(x,eps)
ifnargin==1
eps=1.0e-6;
elseif
nargin<1
error
return
endx1=gg(x);
n=1;
while
(norm(x1-x)>=1e-6)&&(n<=10000)x=x1;
x1=gg(x);
n=n+1;
endy=x;
m函式:
function
f=gg(x)
f(1)=sqrt(2.5-(x^3)/4);
結果如下:
>>bdd(1)n=
21ans
=1.3652
ps不會一個學校的吧?哈哈!
5樓:匿名使用者
function [y,n]=bdd(x,eps)%該函式用來通過不動點迭代法求解非線性方程組的近似解%x0為迭代初始值,eps為允許的誤差,n記錄迭代的次數if nargin==2
eps=1.0e-6;
elseif nargin<2
error
return
endx1=gg(x);
n=1;
while (norm(x1-x)>=1e-6)&(n<=10000)
x=x1;
x1=gg(x);
n=n+1;
endy=x;
然後再編一個m檔案
function y=gg(x)
y=x^3+4*x^2-10;
關於使用matlab寫牛頓迭代法計算方程 f (x) = x^3 + 2x^2 +10x - 20 = 0 在區間[1,2]內的一個根的問題。
6樓:匿名使用者
x=x0-(x0.^3+2*x0.^2+10*x0-20)/(3*x0*x0+4*x0+10);
最後應該是10,不是x0
7樓:匿名使用者
這是pascal嗎,
貌似迴圈不太對
VB牛頓迭代法解方程,求助 用vb寫牛頓迭代法程式解方程
常映寒黃彥 設f x 2x 3 4x 2 3x 6,對它求導的f x 6x 2 8x 3 根據牛頓迭代公式令x k 1 x k f x k f x k 然後將x 0 1.5代入方程 xf x f x 1.5 3.75 4.52.33333333 2.2963 17.0000 2.19826 方程的根...
迭代法求根問題,牛頓迭代法求根。
牛頓迭代法 newton s method 又稱為牛頓 拉夫遜方法 newton raphson method 它是牛頓在17世紀提出的一種在實數域和複數域上近似求解方程的方法。多數方程不存在求根公式,因此求精確根非常困難,甚至不可能,從而尋找方程的近似根就顯得特別重要。方法使用函式f x 的泰勒級...
用matlab做牛頓迭代法,用matlab如何編寫牛頓迭代法問題,謝謝
sky不用太多 function a cal a,b,v a,b表示區間,v是精度 i 1 x a b 2 a i x t x x 3 x 1 3 x 2 1 迭代函式 while abs t x v i i 1 x t a a i x t x x 3 x 1 3 x 2 1 迭代函式 enda a...