![數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第1頁](http://file4.renrendoc.com/view/0bedca9bbb1622defdb026b5a9d42c6c/0bedca9bbb1622defdb026b5a9d42c6c1.gif)
![數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第2頁](http://file4.renrendoc.com/view/0bedca9bbb1622defdb026b5a9d42c6c/0bedca9bbb1622defdb026b5a9d42c6c2.gif)
![數(shù)值分析實(shí)驗(yàn)報告程序?qū)嶒?yàn)_第3頁](http://file4.renrendoc.com/view/0bedca9bbb1622defdb026b5a9d42c6c/0bedca9bbb1622defdb026b5a9d42c6c3.gif)
版權(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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 水資源管理服務(wù)行業(yè)智能化水資源開發(fā)利用方案
- 2025年重慶貨運(yùn)從業(yè)資格證試題
- 2024年領(lǐng)軍高考物理一輪復(fù)習(xí)專題11.3機(jī)械能提高訓(xùn)練含解析
- 2024年新教材高中生物單元素養(yǎng)評價二含解析新人教版必修2
- 2024-2025學(xué)年高中歷史課下能力提升二十五工業(yè)革命時代的浪漫情懷含解析人民版必修3
- 湘師大版道德與法治九年級上冊5.2.2《公平正義促和諧》聽課評課記錄
- 多人合伙經(jīng)營合同范本
- 電子商務(wù)半年工作總結(jié)
- 委托出租鋪面協(xié)議
- 特種設(shè)備委托檢驗(yàn)檢測協(xié)議書范本
- 2024-2030年中國免疫細(xì)胞存儲行業(yè)發(fā)展模式及投資戰(zhàn)略分析報告
- 湖南財政經(jīng)濟(jì)學(xué)院《常微分方程》2023-2024學(xué)年第一學(xué)期期末試卷
- 游戲賬號借用合同模板
- 2022年中考英語語法-專題練習(xí)-名詞(含答案)
- 2011年公務(wù)員國考《申論》真題卷及答案(地市級)
- 《籃球體前變向運(yùn)球技術(shù)》教案(共三篇)
- 多元化評價體系構(gòu)建
- 部編版六年級下冊道德與法治全冊教案教學(xué)設(shè)計
- 商業(yè)模式的設(shè)計與創(chuàng)新課件
- DBJ04∕T 290-2012 袖閥管注漿加固地基技術(shù)規(guī)程
- GB/T 17775-2024旅游景區(qū)質(zhì)量等級劃分
評論
0/150
提交評論