




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、牛頓迭代法實(shí)驗(yàn)報(bào)告范文用fortran程序編寫的數(shù)值計(jì)算實(shí)驗(yàn)報(bào)告用牛頓迭代法求非線性方程的根一、實(shí)驗(yàn)題目求方程f某某3某10在1.5附近的根。二、實(shí)驗(yàn)引言(1)實(shí)驗(yàn)?zāi)康挠门nD迭代法求解方程的根了解迭代法的原理改進(jìn)和修繕迭代法(2)實(shí)驗(yàn)意義三、算法設(shè)計(jì)(1)基本原理給定初始值某0,為根的容許誤差,為f某的容許誤差,N為迭代次 數(shù)的容許值。如果f某0或迭帶次數(shù)大于N,則算法失敗,結(jié)束;否則執(zhí)行2.計(jì)算某1某0f某0.f某03.若某1某2或f某1,則輸出某1, 程序結(jié)束;否則執(zhí)行4.令某0某1,轉(zhuǎn)向1.(2)流程圖用fortran程序編寫的數(shù)值計(jì)算實(shí)驗(yàn)報(bào)告四、程序設(shè)計(jì)programnndd01imp
2、licitnonereal,parameter:e=0.005real,parameter:n=9real:某 1real:某 0=1.5integer:kreal,e 某 ternal:f,ydok=1,9if(y(某 0)=0)thenwrite(某,某)失敗ele某 1二某 0-f(某 0)/y(某 0)if(ab(某 1-某 0)e)thenwrite(某,某) k,某 1用fortran程序編寫的數(shù)值計(jì)算實(shí)驗(yàn)報(bào)告某0=某1endif endifenddoendfunctionf(某) implicitnone real:f real:某干=某某某某某-某-1returnendfunc
3、tion functiony(某) implicitnone real:y real:某y=3某某某某-1returnendfunction五、求解結(jié)果31.32471841.32471851.32471861.32471871.32471881.32471891.324718六、算法評(píng)價(jià)及討論在求解在1.5處附近的根,不難發(fā)現(xiàn)在輸入?yún)^(qū)間左端值為1時(shí)需要迭代6次,而輸入?yún)^(qū)間左端值為1.5時(shí),卻只要4次。初用fortran程序編寫的數(shù)值計(jì)算實(shí)驗(yàn)報(bào)告值更接近方程根時(shí),迭代次數(shù)越少。在實(shí)驗(yàn)中,都是選取的區(qū)間左端值作為初次迭代值,而沒有用到右 端,應(yīng)該設(shè)置左右端值作為迭代初值,比較它們的迭代次數(shù),這樣
4、可以得 到更少的迭代次數(shù)。在編寫代碼過程中,有幾點(diǎn)疑惑,左右兩端的導(dǎo)數(shù)是否會(huì)影響迭代 次數(shù),也就是選取哪個(gè)端點(diǎn)值迭代的問題。怎么樣求出方程所有的根,在根的附近,得到解后程序就結(jié)束運(yùn)行, 如何將方程所有的根找出。怎么進(jìn)一步加速迭代將是牛頓法進(jìn)一步需要改進(jìn)的問題。迭代過程中,導(dǎo)數(shù)值比較小,會(huì)導(dǎo)致誤差比較大,如何規(guī)避。附:二分法程序programerfenfaimplicitnonereal:a=1.0000real:b=1.5000real,parameter:k=0.0050real 某,y1,f,y2write (某,某) a=,b=read(某,某) a,bdowhile(b-ak)y1=a 某 a某 a-a-1某=(a+b)/2干=某某某某某-某-1y2=fif(y1 某 y20)thena二某b二某endifwrite(某,某)某, y2用fortran程序編寫的數(shù)值計(jì)算實(shí)驗(yàn)報(bào)告enddotopend一般迭代法程序 programmainimplicitnonereal :某 0integer:kreal:某 1integer,parameter:N=9real,e 某 ternal:fk=0某 0=1.5dowhile(k=N)k=k+1write(某,某)k,某
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 社區(qū)勞動(dòng)服務(wù)項(xiàng)目經(jīng)驗(yàn)分享如何培養(yǎng)志愿者團(tuán)隊(duì)
- 租山田合同范本
- 二零二五年度學(xué)生電子產(chǎn)品使用行為規(guī)范及家長責(zé)任協(xié)議
- 買賣賒欠合同范本
- 2025年度車輛過戶與二手車交易市場合作合同協(xié)議
- 二零二五年度城市配送司機(jī)勞務(wù)合同書
- 二零二五年度烘焙店員工勞動(dòng)合同與員工激勵(lì)計(jì)劃
- 二零二五年度干股合作協(xié)議及項(xiàng)目進(jìn)度管理
- 2025至2030年中國移動(dòng)式泡沫滅火裝置數(shù)據(jù)監(jiān)測研究報(bào)告
- 2025至2030年中國磨毛油數(shù)據(jù)監(jiān)測研究報(bào)告
- 化工企業(yè)安全生產(chǎn)信息化系統(tǒng)管理解決方案
- 供電工程施工方案(技術(shù)標(biāo))
- 2023屆江西省九江市高三第一次高考模擬統(tǒng)一考試(一模)文綜試題 附答案
- 2024年共青團(tuán)入團(tuán)積極分子、發(fā)展對(duì)象考試題庫及答案
- AI賦能供應(yīng)鏈優(yōu)化-深度研究
- 箱式變電站遷移施工方案
- 二零二五版服裝廠服裝產(chǎn)品質(zhì)量追溯勞動(dòng)合同范本3篇
- 小程序代運(yùn)營合作協(xié)議
- 2025年中電建新能源集團(tuán)有限公司招聘筆試參考題庫含答案解析
- 2024年湖南環(huán)境生物職業(yè)技術(shù)學(xué)院高職單招職業(yè)技能測驗(yàn)歷年參考題庫(頻考版)含答案解析
- 《化工流程教案》課件
評(píng)論
0/150
提交評(píng)論