日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

C语言实现矩阵的秩求解分析

發(fā)布時(shí)間:2024/3/13 编程问答 42 豆豆
生活随笔 收集整理的這篇文章主要介紹了 C语言实现矩阵的秩求解分析 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

求解一個(gè) m × n m \times n m×n階實(shí)矩陣 A A A的秩。從數(shù)學(xué)角度來說矩陣的秩就是矩陣中線性無關(guān)的行向量的最大個(gè)數(shù),并且初等行變換和列變換均不會影響矩陣的秩的大小,為了實(shí)現(xiàn)這一過程常使用全選的高斯消去法將矩陣變?yōu)樯先蔷仃?#xff0c;則其中非零的行向量個(gè)數(shù)就是矩陣的秩。

#include "stdio.h" #include "stdlib.h" #include "math.h"double mat[100], eps; int m,n; int r_mrank(double *mat,int m, int n,double eps){int i,j,k,p,is,js,l,v,rank;double tmp, pivot;double *cpmat;if(mat == NULL){printf("matrix pointer is Null.\n");return(0);}cpmat = (double*)malloc(m*n*sizeof(double)); for(i=0; i<m*n; i++)cpmat[i] = mat[i];p = m<n?m:n;rank = 0;for(k=0; k<p; k++){pivot = 0.0;for(i=k; i<m; i++)for(j=k; j<n; j++){tmp = fabs(cpmat[i*n+j]);if(tmp > pivot){pivot = tmp;is = i;js = j;}}if(pivot < eps) return(rank);rank++; if(is != k)for(j=k; j<n; j++){l = k*n + j;v = is*n + j;tmp = cpmat[l];cpmat[l] = cpmat[v];cpmat[v] = tmp;}if(js != k)for(i=k; i<m; i++){l = i*n + k;v = i*n + js;tmp = cpmat[l];cpmat[l] = cpmat[v];cpmat[v] = tmp;}for(i=k+1; i<m; i++)tmp = cpmat[i*n+k]/cpmat[k*n+k];for(j=k+1; j<n; j++)cpmat[i*n+j] -= tmp*cpmat[k*n+j];}}free(cpmat);return(rank); }int main(){int count, rank, i ,j;scanf("%d %d %lf",&m,&n,&eps);printf("Input the matric please: \n");for(count=0;count<m*n;count++){scanf("%lf", mat+count);}printf("The matrix you input is \n");for(i=0;i<m;i++){for(j=0;j<n;j++)printf("%lf ", *(mat+i*n + j));printf("\n");}rank = r_mrank(mat,m,n,eps);printf("the rank of the matrix is: %d", rank);return 0; }

總結(jié)

以上是生活随笔為你收集整理的C语言实现矩阵的秩求解分析的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。