C/C++语言实现矩阵求逆运算—高斯约化/消元法

在网站上搜索了一下,发现C语言代码可能是很原始的版本,编译的时候会报出诸多错误。

不过大致还是能看懂,就看你能不能转过弯来咯。

原文的代码是要存成矩阵形式,而实际代码写的着则是一维数组形式。

可以直接使用的代码如下:

#include <stdlib.h>
#include <math.h>
#include <stdio.h>

// 对矩阵求逆,结果保存在a中
int brinv(double a[], int n)
{
	int *is,*js,i,j,k,l,u,v;
	double d,p;
	is = new int[n];
	js = new int[n];
	for (k=0; k<=n-1; k++)
	{
		d=0.0;
		for (i=k; i<=n-1; i++)
		for (j=k; j<=n-1; j++)
		{
			l=i*n+j; p=fabs(a[l]);
			if (p>d) { d=p; is[k]=i; js[k]=j;}
		}
		if (d+1.0==1.0)
		{
			free(is); free(js); printf("err**not inv\n");
			return(0);
		}
		if (is[k]!=k)
			for (j=0; j<=n-1; j++)
			{
				u=k*n+j; v=is[k]*n+j;
				p=a[u]; a[u]=a[v]; a[v]=p;
			}
		if (js[k]!=k)
		
  • 2
    点赞
  • 31
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
要使用 MPI 实现多线程并行矩阵逆,可以按照以下步骤: 1. 将矩阵分配给不同的进程。每个进程将负责处理矩阵的一部分。 2. 在每个进程中使用线程来计算矩阵的逆。可以使用线性代数库,如 LAPACK 或 BLAS 来进行矩阵计算。 3. 将每个进程计算得到的逆矩阵发送回主进程。 4. 在主进程中组合所有的逆矩阵,得到完整的逆矩阵。 以下是一个简单的示例代码: ```c++ #include <mpi.h> #include <iostream> #include <cmath> #include <cstring> #include <cstdlib> #include <cstdio> #include <cstring> #include <ctime> #include "lapacke.h" using namespace std; int main(int argc, char *argv[]) { int rank, size; MPI_Status status; MPI_Init(&argc, &argv); MPI_Comm_rank(MPI_COMM_WORLD, &rank); MPI_Comm_size(MPI_COMM_WORLD, &size); int n = 4; // 矩阵维度 double *A = new double[n * n]; // 矩阵数据 double *Ainv = new double[n * n]; // 逆矩阵数据 // 初始矩阵 if (rank == 0) { for (int i = 0; i < n; ++i) { for (int j = 0; j < n; ++j) { A[i * n + j] = i + j; } } } // 广播矩阵数据到所有进程 MPI_Bcast(A, n * n, MPI_DOUBLE, 0, MPI_COMM_WORLD); // 每个进程计算矩阵逆 int m = n / size; double *Ainv_part = new double[m * n]; // 逆矩阵部分数据 memset(Ainv_part, 0, m * n * sizeof(double)); int info; int *ipiv = new int[n]; int lda = n, ldb = n, lwork = n * n; double *work = new double[lwork]; LAPACK_dgetrf(&n, &n, A, &lda, ipiv, &info); if (info == 0) { for (int i = 0; i < m; ++i) { LAPACK_dgetri(&n, A + rank * m * n + i * n, &lda, ipiv, work, &lwork, &info); memcpy(Ainv_part + i * n, A + rank * m * n + i * n, n * sizeof(double)); } } delete[] ipiv; delete[] work; // 收集每个进程的逆矩阵部分数据 MPI_Gather(Ainv_part, m * n, MPI_DOUBLE, Ainv, m * n, MPI_DOUBLE, 0, MPI_COMM_WORLD); // 在主进程中输出逆矩阵 if (rank == 0) { for (int i = 0; i < n; ++i) { for (int j = 0; j < n; ++j) { cout << Ainv[i * n + j] << " "; } cout << endl; } } delete[] A; delete[] Ainv; delete[] Ainv_part; MPI_Finalize(); return 0; } ``` 在此示例中,每个进程都计算矩阵的逆,并将其部分结果发送回主进程。主进程将所有部分结果组合成完整的逆矩阵,并输出到控制台。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值