




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、精選優(yōu)質(zhì)文檔-傾情為你奉上用C語言求解N階線性矩陣方程Ax=b的簡單解法一、描述問題:題目:求解線性方程組Ax=b,寫成函數(shù)。其中,A為n×n的N階矩陣,x為需要求解的n元未知數(shù)組成的未知矩陣,b為n個(gè)常數(shù)組成的常數(shù)矩陣。即運(yùn)行程序時(shí)的具體實(shí)例為:轉(zhuǎn)化為矩陣形式(為檢驗(yàn)程序的可靠性,特意選取初對角線元素為0的矩陣方程組)即為:二、分析問題并找出解決問題的步驟:由高等代數(shù)知識可知,解高階線性方程組有逆矩陣求解法、增廣矩陣求解法等,而在計(jì)算機(jī)C語言中,有高斯列主消元法、LU分解法、雅克比迭代法等解法。為了與所學(xué)的高等代數(shù)知識相一致,選擇使用“高斯簡單迭代消元法”,與高等代數(shù)中的“增廣矩陣
2、求解法”相一致。以下簡述高斯消元法的原理:算法基本原理:首先,為了能夠求解N階線性方程組(N由用戶輸入),所以需要定義一個(gè)大于N維的數(shù)組adim+1dim+1(dim為設(shè)定的最大維數(shù),防止計(jì)算量溢出),當(dāng)用戶輸入的階數(shù)N超過設(shè)定值時(shí)提示重啟程序重新輸入。進(jìn)而,要判斷方程組是否有解,無解提示重啟程序重新輸入,有解的話要判斷是有無數(shù)不定解還是只有唯一一組解,在計(jì)算中,只有當(dāng)原方程組有且只有一組解時(shí)算法才有意義,而運(yùn)用高等代數(shù)的知識,只有當(dāng)系數(shù)矩陣對應(yīng)的行列式 |A|0 時(shí),原方程組才有唯一解,所以輸入系數(shù)矩陣后要計(jì)算該系數(shù)矩陣的行列式 |A|(定義了getresult(n)函數(shù)計(jì)算),當(dāng)行列式 |
3、A|=0 時(shí)同樣應(yīng)提示重啟程序重新輸入, |A|0 時(shí)原方程組必然有且僅有唯一一組解。判斷出方程組有且僅有唯一一組解后,開始將系數(shù)矩陣和常數(shù)矩陣(合并即為增廣矩陣)進(jìn)行初等行變換(以 a11 為基元開始,將第j列上j行以下的所有元素化為0),使系數(shù)矩陣轉(zhuǎn)化為上三角矩陣。這里要考慮到一種特殊情況,即交換到第j-1列后,第j行第j列元素 ajj=0 ,那此時(shí)不能再以 ajj 為基元。當(dāng)變換到第j列時(shí),從j行j列的元素 ajj 以下的各元素中選取第一個(gè)不為0的元素,通過第三類初等行變換即交換兩行將其交換到 aj
4、j 的位置上,然后再進(jìn)行消元過程。交換系數(shù)矩陣中的兩行,相當(dāng)于兩個(gè)方程的位置交換了。再由高斯消元法,將第j列元素除 ajj 外第j行以下的其他元素通過第二種初等行變換化為0,這樣,就能使系數(shù)矩陣通過這樣的行變換化為一個(gè)上三角矩陣,即,當(dāng)系數(shù)矩陣A進(jìn)行初等行變換時(shí),常數(shù)矩陣也要進(jìn)行對應(yīng)的初等行變換,即此時(shí) 那么有接下來,進(jìn)行“反代”,由 可求出 ,再往上代入 即可求出 以此類推,即可從 xn推到 xn-1 ,再推到xn-2 直至 x
5、1 。至此,未知矩陣x的所有元素就全部求出,即求出了原方程組有且僅有的唯一一組解。基本原理示意圖:三、編寫程序1. #include<stdio.h>2. #include<stdlib.h>3. #include<math.h>4. #define dim 10 /定義最大的維數(shù)10,為防止計(jì)
6、算值溢出5. double adim+1dim+1,bdim+1,xdim+1; /定義雙精度數(shù)組6. double temp;7. double getarray(int n); /定義輸入矩陣元素的函數(shù)8. double showarray(int n);
7、60; /定義輸出化簡系數(shù)矩陣過程的函數(shù)9. int n,i,j,k,p,q;10. double main()11. 12. 13. printf("請輸入系數(shù)矩陣的階數(shù)n(n<10):");14. scanf("%d",&n);15. /*判斷矩陣階數(shù)是否超過界定值*/16. if(n>dim)17. 18. p
8、rintf("錯(cuò)誤:元數(shù)超過初設(shè)定的值%d,請重啟程序重新輸入n",dim);19. exit(0);20. 21.22. /*輸入系數(shù)矩陣和常數(shù)矩陣(即增廣矩陣)的元素*/23. getarray(n);24. 25. /*使對角線上的主元素不為0*/26. for(j=1;j<=n-1;j+)27.
9、 28. if(ajj=0)29. for(i=j+1;i<=n;i+)30. 31. if(aij!=0)32.
10、; 33. /*交換增廣矩陣的第i行與第j行的所有元素*/34. for(k=1;k<=n;k+)35.
11、; 36. aik+=ajk;37. ajk=aik-aj
12、k;38. aik-=ajk;39. 40.
13、; bi+=bj;41. bj=bi-bj;42. bi-=bj;43. 44. &
14、#160; continue; /找到第j列第一個(gè)不為0的元素即跳回第一層循環(huán)45. 46. 47. /*開始用高斯簡單迭代消元法進(jìn)行求解計(jì)算*/48. for(j=1;j<=n-1;j+)49. 50. &
15、#160; /*使系數(shù)矩陣轉(zhuǎn)化為上三角矩陣,常數(shù)矩陣相應(yīng)進(jìn)行變換*/51. for(i=j+1;i<=n;i+)52. 53. temp=aij/ajj;54. bi=bi-temp*b
16、j;55. for(k=1;k<=n;k+)56. aik=aik-temp*ajk;57. printf("n通過初等行變換增廣矩陣矩陣C化為:n");58.
17、60; /*輸出進(jìn)行初等行變換的過程*/59. printf("C=");60. for(p=1;p<=n;p+)61. 62.
18、160; for(q=1;q<=n;q+)63. printf("t%.3f",apq);64. printf("t%.3fn",bp);65.
19、160; 66. printf("n");67. 68. 69.70. /*輸出最終的增廣矩陣C*/71. showarray(n);72.73. /* 開始按順序反代求解xi(i=n,n-1,n-2,2,1)*/74. xn=bn/ann;75.
20、 for(j=n-1;j>=1;j-)76. 77. xj=bj;78. for(k=n;k>=j+1;k-)79. xj=xj-xk*ajk;80. xj=xj/ajj;81.
21、60; 82. printf("n原方程組的唯一一組實(shí)數(shù)解為:n");83. for(j=1;j<=n;j+)84. printf("x%d= %.3fn",j,xj);85. 86.87. /*定義矩陣輸入函數(shù)getarray(n)并打印以作檢查*/88. double getarray(int n)89. 90. printf("n請輸入該矩陣各行的實(shí)數(shù)(以空格隔開)n");91. for(i=
22、1;i<=n;i+)92. 93. printf("n第%d行:t",i);94. for(j=1;j<=n;j+)95. 96. scanf("%lf",&aij);97. printf("a%d%d= %.3f&q
23、uot;,i,j,aij);98. printf("n");99. 100. 101. printf("nA=");102. for(i=1;i<=n;i+)103. 104. for(j=1;j<=n;j+)105. printf("t%.3f",aij);10
24、6. printf("n");107. 108. printf("n");109. /*輸入常數(shù)矩陣的各個(gè)數(shù)*/110. for(i=1;i<=n;+i)111. 112. printf("請輸入常數(shù)b%d = ",i);113. scanf
25、("%lf",&bi);114. 115. 116.117. /*定義增廣矩陣C輸出函數(shù)showarray(n)*/118. double showarray(int n)119. 120. printf("n通過初等行變換最終增廣矩陣矩陣C化為:n");121. printf("C=");122. for(i=1;i<=n;i+)123. 124. for(j=1;j<=n;j+)125. printf("t%.3f",aij);126.
溫馨提示
- 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)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 工業(yè)互聯(lián)網(wǎng)平臺2025年網(wǎng)絡(luò)安全態(tài)勢感知技術(shù)安全防護(hù)體系優(yōu)化與升級報(bào)告
- 2025年金融租賃公司業(yè)務(wù)模式創(chuàng)新與風(fēng)險(xiǎn)管理策略實(shí)施路徑優(yōu)化報(bào)告
- 行政管理的經(jīng)濟(jì)法熱點(diǎn)問題試題及答案
- 2025年工程項(xiàng)目管理必考試題及答案
- 2025年食品行業(yè)食品安全追溯體系與食品安全溯源數(shù)據(jù)共享研究報(bào)告
- 水利水電工程熱點(diǎn)及難點(diǎn)試題及答案
- 水利水電工程的公共關(guān)系管理與試題及答案
- 城市公共交通系統(tǒng)的綜合管理試題及答案
- 2025年工程項(xiàng)目管理挑戰(zhàn)試題及答案
- 高效應(yīng)試技巧試題及答案分享
- 安徽省1號卷A10聯(lián)盟2025屆高三5月最后一卷物理試題及答案
- 2025租賃合同續(xù)簽協(xié)議書
- 《聚碳酸酯合成》課件
- 3.2基因工程的基本操作程序課件 高二下學(xué)期生物人教版(2019)選擇性必修3
- 中國文化概要智慧樹知到期末考試答案章節(jié)答案2024年溫州大學(xué)
- 民俗學(xué)概論全套精美課件
- 應(yīng)用文寫作概述課件
- 危重癥孕產(chǎn)婦交流課件:妊娠遇到主動脈夾層搶救成功病例分享
- 高中政治《增強(qiáng)“四個(gè)意識”做到“兩個(gè)維護(hù)”》教學(xué)設(shè)計(jì)
- 山東省醫(yī)院護(hù)理服務(wù)質(zhì)量評價(jià)細(xì)則簡介
- 自動控制原理全套ppt課件(完整版)
評論
0/150
提交評論