數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第1頁
數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第2頁
數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第3頁
已閱讀5頁,還剩4頁未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

線性方程求while(R>5e-6);if

x=c【NewtonNewton 輸入函f=input('請輸入需要求解函數(shù)%%%求解f(x)的導(dǎo)%%%改進(jìn)常數(shù)或重根%%%初始值x0=input('inputinitialvaluex0>>');max=100;%最大迭代次R=eval(subs(f,'x0','x'));%求解f(x0),以確定初值x0while(abs(R)>1e-if(eval(subs(f,'x0','x'))<1e-10);

ifk>max;%如果迭代次數(shù)大于給定值,認(rèn)為迭代不收斂,重ss=input('mayberesultiserror,chooseanewx0,y/n?>>','s');ifx0=input('inputinitialvaluex0>>');

【結(jié)果與】1題:實(shí)驗(yàn)二Guass列主元消去A=[afork=1:n-1;%%%是否進(jìn)行主元選ifabs(A(k,k))<yibuseilou;%事先給定的認(rèn)為有必要選主元的小數(shù)

if%%%%選主forr=k+1:n;elsep=k;%%%交換元ifforq=k:n+1;%%%判斷系數(shù)矩陣是否奇異或非常嚴(yán) abs(A(k,k))<1e-forr=k+1:n;forq=k:n+1;

fork=n-1:-1:1;for【結(jié)果與】1題:Guassx--Guassx--x采用Gauss消去法時,如果在消元時對角線上的元素始終較大(假如大于8Runge現(xiàn)象的產(chǎn)生和克本實(shí)驗(yàn)采用的M文件編寫。其中待插值的方程寫成function的方式,functiony=f(x);Lagrange插值源程序n=input('將區(qū)間分為的等份數(shù)輸入s=[-1+2/n*[0:n]];%%%給定的定點(diǎn),Rf為給定的函x=-forfork=1:n+1;iff=f+Rf(s(q))*l;%求插值函gridonhold分段線性插值源n=input('將區(qū)間分為的等份數(shù)輸入s=[-1+2/n*[0:n]];%%%給定的定點(diǎn),Rf為給定的函forx=-1:hh:1;fork=1:n+1;%%%switchcaseifl=(x-s(2))./(s(1)-casen+1ififx>=s(k-elseifx>=s(k)&x<=s(k+1);

ff=ff+Rf(s(k))*l;%%求插值函數(shù)gridonhold三次樣條插值源程序(采用第一邊界條件n=input('將區(qū)間分為的等份數(shù)輸入%%%插值區(qū)hh=0.001;%s=[a+(b-a)/n*[0:n]];%%%給定的定點(diǎn),Rf為給定的函%%%%第一邊界條件Rf"(-1),Rf"(1)fork=1:n;%取出節(jié)點(diǎn)間距h(k)=s(k+1)-fork=1:n-1;%求出系數(shù)向量lamuda,miu%%%%賦值系數(shù)矩陣fork=1:n-forp=1:n-switchpcasekcasek-casek+1%%%%求出dfork=1:n-switchkcase1d(k)=6*f2c([s(k)s(k+1)s(k+2)])-miu(k)*v;casen-1d(k)=6*f2c([s(k)s(k+1)s(k+2)])-la(k)*v;d(k)=6*f2c([s(k)s(k+1)%%%%求解M陣forif

p=ceil((x-s(1))/((b-

ff1=1/h(p)*(s(p+1)-ff2=1/h(p)*(x- holdongrid【結(jié)果與】f(x)

125x

xj=-1+jh,h=0.1,j=0,…,n。下面分別給出Lagrange插值,三次樣條插值,其它曲線沒有標(biāo)出,從數(shù)據(jù)表中可以看出具體的誤差。表中,L10(x)為LagrangeS10(x)S40(x)n=1040X10(x),X40(x)分別代表n=10,40的線性分段插值函數(shù)。x-1000000-0010000-0010000-0000000-0000000-00-00000-00-00000-00-00000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000011111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000-0000000-0000000-0

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論