问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何用C语言表示:输入任意二维数组A,求A的逆

发布网友 发布时间:2023-07-26 17:33

我来回答

3个回答

热心网友 时间:2024-11-03 15:53

下面的代码是我从fengjian_net 的精彩回答中抄来的,源自《C常用算法程序集-徐士良》。只是他的代码在VC2010中要编译通过,需要修改好几个地方,增加强制转换,修改好的代码如下:

#include <stdlib.h>
#include <math.h>
#include <stdio.h>
int brinv(double a[], int n)
{
int *is,*js,i,j,k,l,u,v;
double d,p;
is=(int*)malloc(n*sizeof(int));
js=(int*)malloc(n*sizeof(int));
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)
for (i=0; i<=n-1; i++)
{
u=i*n+k; v=i*n+js[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
l=k*n+k;
a[l]=1.0/a[l];
for (j=0; j<=n-1; j++)
if (j!=k)
{ u=k*n+j; a[u]=a[u]*a[l];}
for (i=0; i<=n-1; i++)
if (i!=k)
for (j=0; j<=n-1; j++)
if (j!=k)
{
u=i*n+j;
a[u]=a[u]-a[i*n+k]*a[k*n+j];
}
for (i=0; i<=n-1; i++)
if (i!=k)
{ u=i*n+k; a[u]=-a[u]*a[l];}
}
for (k=n-1; k>=0; k--)
{
if (js[k]!=k)
for (j=0; j<=n-1; j++)
{
u=k*n+j; v=js[k]*n+j;
p=a[u]; a[u]=a[v]; a[v]=p;
}
if (is[k]!=k)
for (i=0; i<=n-1; i++)
{
u=i*n+k; v=i*n+is[k];
p=a[u]; a[u]=a[v]; a[v]=p;
}
}
free(is); free(js);
return(1);
}
void brmul(double a[], double b[],int m,int n,int k,double c[])
{
int i,j,l,u;
for (i=0; i<=m-1; i++)
for (j=0; j<=k-1; j++)
{
u=i*k+j; c[u]=0.0;
for (l=0; l<=n-1; l++)
c[u]=c[u]+a[i*n+l]*b[l*k+j];
}
return;
}
int main()
{
int i,j;
static double a[4][4]={ {0.2368,0.2471,0.2568,1.2671},
{1.1161,0.1254,0.1397,0.1490},
{0.1582,1.1675,0.1768,0.1871},
{0.1968,0.2071,1.2168,0.2271}};
static double b[4][4],c[4][4];
for (i=0; i<=3; i++)
for (j=0; j<=3; j++)
b[i][j]=a[i][j];
i=brinv((double*)a,4);
if (i!=0)
{
printf("MAT A IS:\n");
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",b[i][j]);
printf("\n");
}
printf("\n");
printf("MAT A- IS:\n");
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",a[i][j]);
printf("\n");
}
printf("\n");
printf("MAT AA- IS:\n");
brmul((double*)b,(double*)a,4,4,4,(double*)c);
for (i=0; i<=3; i++)
{
for (j=0; j<=3; j++)
printf("%13.7e ",c[i][j]);
printf("\n");
}
}
}

热心网友 时间:2024-11-03 15:54

参考数值计算方法 中国科学技术大学数学教育丛书 P140

热心网友 时间:2024-11-03 15:54

求A的逆是?楼主能给出输入输出案例吗?
好吧理解能力巨弱星人囧rz追问我也不知道具体怎么表示,我只知道公式:A的逆=|A|分之一 乘上 A的伴随矩阵。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
...有点像牙刷加大版 很久没用 毛毛里全是霉点 怎么去除呀。 是什么样的有机溶剂能把牙刷的毛除掉 如何让牙刷上的刷毛没了,我只想留牙刷柄 蛋仔派对2月兑换码有哪些-2月兑换码永久免费领取 ...因此导体串联后总电阻 ___;导体并联后相当于增加导体的... 两个定值电阻串联在一起的总电阻比任何一个分电阻都___,它的实质是相 ... 租房时需要哪些材料 苹果改密码时忘记了密码怎么办 点点卡通人物 求人给我找一个情侣头像,有图 求java实现C语言常用算法的程序(如各种排序算法),以及Java考题_百度... 无锡新洁能股份有限公司是上市公司吗? 邛崃到九寨沟多少公里 攀枝花怎样到九寨沟,自驾游路线 四川九塞沟与甘孜州泸定县相距多少公里? 远见为什么不能做定语?还有哪些词不能做定语 ...但为什么百度百科上说有的成语是不能作定语的呢?? 祟卅到九寨沟有多少公里 哪些成语是有特殊用法的,例如有些成语不能跟宾语,有些成语不能作定语... MY FAVORITE HOBBY 初中英文作文 惊!!!寄去英国的邮票被原封不动的退回来,不知道是什么原因,求大家帮 ... 明信片只要寄就一定盖邮戳吗 南充阆中市七里新区阆中教育局距阆中人民政府有多少公里 阆中市退役军人事务局在哪里? ...蓬安,仪陇,南部,西充,阆中分别有多少个乡镇? 痔疮手术后 需要注意哪些问题!请说有一个星期不能吃饭是吗!_百度知 ... 重庆市是长江上游重要的钢铁基地之一,简要分析其发展钢铁工业的区位条件... 什么是动力导向型工业? 市场导向性工业都有哪一些?越多越好 东鹏特饮价格 子有什么成语 中信银行积分不符合校验规则 word文档右侧标记区如何去除 龙的英语资料 中国龙文化小学五年级作文 我把对方删了,现在又加了,显示你们可以开始聊天了,他那边会有提示吗... 淮南盛和实业有限责任公司怎么样? 四川润京盛和实业集团有限公司怎么样? 人保健康相伴温暖版B款骗人的吗?重疾赔付次数是多少? 法定假日遇到法休息日(休息日不调休)的情况下 应该支付劳动者%多少的... 高等教育研究(华中科技大学期刊)详细资料大全 中国高等教育北大核心CSSCI是否是骗子 《刀剑2》高手格斗心得之天灵散仙攻略 义乌市翊嘉贸易有限公司怎么样? 太湖县百里二桥工程多宽 守护甜心中亚梦什么时候看见风彦(与风彦在一起的集数) 凪彦和谁在一起 守护甜心的亚梦最后和谁在一起啊 守护甜心:凪彦喜欢亚梦吗??有和她表白过吗??如果有,那在第几集? 地中海有什么特产?