計算方法實驗三上機程序

《計算方法實驗三上機程序》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、實驗題二2.1簡單迭代法：#include#include#definexO3.0#defineMAXREPT1000#defineEPSIE-6#defineG(x)pow(12*x+sin(x)-lzl-0/3)voidmain(){inti;doublex_k=xO,x_kl=xO;printf("kxk");tor(i=0;i

2、%d,,/x_kl,i);return;}x_k=x_kl;}printf("AFTER%drepeate,nosolved.",MAXREPT);}-d("43?2.2牛頓迭代法：#include#include#definexO3.0#defineMAXREPT1000#defineEPSIE-6//defineG(x)x-(x*x*x-sin(x)-12*x+l)/(x*x*3-cos(x)-12)voidmain(){inti;doublex_k=xO,x_kl=xO;printfC'kxkH);for(i=0

3、;iH

4、>AN丄心口"4—C.-▲□..--oxi33.414013.410133.41013WROOTISs?14IOUkH*r?”anykeytocontinueim.e

5、Me?erriIftCai?iTEEKBwaldxltbutFXia皿―i>FWutFdt：>SQL/2.3埃特金迭代：#include#includettdefinexO3.0//defineMAXREPT1000//defineEPSIE-6#defineG(x)(pow(x,3)-sin(x)+l)/12.0)voidmain(){inti;doublex_k=xO,x_kl=xO;doubley,z;printf(nkxkH);for(i=0;i

6、);y=G(x_k);z=G(y);x_kl=z-((z-y)*(z-y))/(z-2*y+x_k);if(fabs(x_kl-x_k)#include#definexO1.5#defineMAXREPT1000#defineEPSIE-

7、6#defineG(x)x-(pow(xz3)+pow(xz2)-3*x-3)/(3*pow(x,2)+2*x-3)voidmain(){inti;doublex_k=xO,x_kl=xO;printf("kxk");for(i=0;i

8、.",MAXREPT);3?2蹲器snc-udecsidio.hv#inc-ude〈math.hv蕓efineMAXREPT1000//defineEPS1T6^definexo0/?definexl1.5甘defineF(x)pow(x、3)+pow(x、2)-3*x-3voidmain()intijdoub-exlTxo、xlklHxlxlk2HO.O;doub-ey、zjpz.nwkxk=jfor(li'l7-MAXREPTT+)printf=%d%g?「ixJ<2ry￡XJ<)；z耳(xlklrxlk2Hxlkl丄z*xlkl?xls、vy)；

9、if((f