版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
PAGEPAGE5第二步:求L和U矩陣的逆,(1)求U矩陣的逆由式(9)可得矩陣U的逆的各元素計算如下:(2)求L矩陣的逆由(8)式可得L矩陣的逆的各元素計算如下所以得到L和U的逆矩陣為:(3)求A的逆矩陣由式(10)可計算得到矩陣A的逆,如下:由程序計算出的結(jié)果如下:2、C語言程序設(shè)計及測試2.1算法c程序?qū)崿F(xiàn)#include<stdio.h>#include<string.h>#defineN4voidmain(){floata[N][N];floatL[N][N],U[N][N],out[N][N],out1[N][N];floatr[N][N],u[N][N];memset(a,0,sizeof(a));memset(L,0,sizeof(L));memset(U,0,sizeof(U));memset(r,0,sizeof(r));memset(u,0,sizeof(u));intn=N;intk,i,j;intflag=1;floats,t;////////////////////inputamatrix////printf("\ninputA=");for(i=0;i<n;i++)for(j=0;j<n;j++)scanf("%f",&a[i][j]);//////////////////figuretheinputmatrix//////////////////////////printf("輸入矩陣:\n");for(i=0;i<n;i++){ for(j=0;j<n;j++) { printf("%lf",a[i][j]); } printf("\n");}for(j=0;j<n;j++)a[0][j]=a[0][j];//計算U矩陣的第一行for(i=1;i<n;i++)a[i][0]=a[i][0]/a[0][0];//計算L矩陣的第1列for(k=1;k<n;k++){for(j=k;j<n;j++){s=0;for(i=0;i<k;i++)s=s+a[k][i]*a[i][j];//累加a[k][j]=a[k][j]-s;//計算U矩陣的其他元素}for(i=k+1;i<n;i++){t=0;for(j=0;j<k;j++)t=t+a[i][j]*a[j][k];//累加a[i][k]=(a[i][k]-t)/a[k][k];//計算L矩陣的其他元素}}for(i=0;i<n;i++)for(j=0;j<n;j++){if(i>j){L[i][j]=a[i][j];U[i][j]=0;}//如果i>j,說明行大于列,計算矩陣的下三角部分,得出L的值,U的//為0else{U[i][j]=a[i][j];if(i==j)L[i][j]=1;//否則如果i<j,說明行小于列,計算矩陣的上三角部分,得出U的//值,L的為0elseL[i][j]=0;}}if(U[1][1]*U[2][2]*U[3][3]*U[4][4]==0){ flag=0;printf("\n逆矩陣不存在");}if(flag==1){/////////////////////求L和U矩陣的逆for(i=0;i<n;i++)/*求矩陣U的逆*/{u[i][i]=1/U[i][i];//對角元素的值,直接取倒數(shù)for(k=i-1;k>=0;k--){s=0;for(j=k+1;j<=i;j++)s=s+U[k][j]*u[j][i];u[k][i]=-s/U[k][k];//迭代計算,按列倒序依次得到每一個值,}}for(i=0;i<n;i++)//求矩陣L的逆{r[i][i]=1;//對角元素的值,直接取倒數(shù),這里為1for(k=i+1;k<n;k++){for(j=i;j<=k-1;j++)r[k][i]=r[k][i]-L[k][j]*r[j][i];//迭代計算,按列順序依次得到每一個值}}/////////////////繪制矩陣LU分解后的L和U矩陣///////////////////////printf("\nLU分解后L矩陣:");for(i=0;i<n;i++){printf("\n");for(j=0;j<n;j++)printf("%lf",L[i][j]);}printf("\nLU分解后U矩陣:");for(i=0;i<n;i++){printf("\n");for(j=0;j<n;j++)printf("%lf",U[i][j]);}printf("\n");////////繪制L和U矩陣的逆矩陣printf("\nL矩陣的逆矩陣:");for(i=0;i<n;i++){printf("\n");for(j=0;j<n;j++)printf("%lf",r[i][j]);}printf("\nU矩陣的逆矩陣:");for(i=0;i<n;i++){printf("\n");for(j=0;j<n;j++)printf("%lf",u[i][j]);}printf("\n");//驗證將L和U相乘,得到原矩陣printf("\nL矩陣和U矩陣乘積\n");for(i=0;i<n;i++) { for(j=0;j<n;j++) {out[i][j]=0;}}for(i=0;i<n;i++) { for(j=0;j<n;j++) { for(k=0;k<n;k++) {out[i][j]+=L[i][k]*U[k][j];} }}for(i=0;i<n;i++){ for(j=0;j<n;j++) { printf("%lf\t",out[i][j]); }printf("\r\n");}//////////將r和u相乘,得到逆矩陣printf("\n原矩陣的逆矩陣:\n");for(i=0;i<n;i++) { for(j=0;j<n;j++) {out1[i][j]=0;}}for(i=0;i<n;i++) { for(j=0;j<n;j++) { for(k=0;k<n;k++) {out1[i][j]+=u[i][k]*r[k][j];} }}fo
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 單位人力資源管理制度精彩大全
- 醫(yī)療合作項目合同管理準則
- 高層住宅外墻清洗項目招投標
- 網(wǎng)絡(luò)營銷企業(yè)薪酬管理
- 居民區(qū)通風設(shè)備安裝合同
- 天津市養(yǎng)老社區(qū)物業(yè)醫(yī)療服務(wù)規(guī)范
- 紡織服裝弱電施工合同
- 廣東省廣州市天河區(qū)2023-2024學年高一上學期期末考試數(shù)學試卷(解析版)
- 羅定職業(yè)技術(shù)學院《田徑AⅡ》2023-2024學年第一學期期末試卷
- 酒店工程塔吊施工協(xié)議
- 國際金融課后習題答案(吳志明第五版)第1-9章
- 《WPS演示制作與設(shè)計》計算機應(yīng)用基礎(chǔ)高職專科一等獎(含課件制作試題及答案)
- 大英縣“互聯(lián)網(wǎng)+智慧教育”建設(shè)項目 ?招標文件(采購)
- GB/T 7533-1993有機化工產(chǎn)品結(jié)晶點的測定方法
- GB/T 6728-2017結(jié)構(gòu)用冷彎空心型鋼
- 紅色喜慶新年快樂企業(yè)年會PPT
- 智慧港口信息化平臺建設(shè)方案
- 水土保持工程學課程設(shè)計
- 《牛常見病防治技術(shù)》課件
- 腰椎骨折的圍手術(shù)期護理詳解演示文稿
- 變壓器變比測試課件
評論
0/150
提交評論