下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、求解逆矩阵源代码:#include<stdio.h>#include<stdlib.h>#include<math.h>#defineTINY1.0e-20voidinverse(double*,int);voidludcmp(double*,int,int*,double*);voidlubksb(double*,int,int*,double*);double*matrix(int,int,int,int);double*vector(int,int);voidfree_matrix(double*,int,int,int,int);voidfree_v
2、ector(double*,int,int);voidinverse(double*mat,intdim)inti,j,*indx;double*y,d,*col;y=matrix(0,dim-1,0,dim-1);indx=(int*)malloc(unsigned)(dim*sizeof(int);col=vector(0,dim-1);ludcmp(mat,dim,indx,&d);for(j=0;j<dim;j+)for(i=0;i<dim;i+)coli=0.0;colj=1.0;lubksb(mat,dim,indx,col);for(i=0;i<dim;
3、i+)yij=coli;for(i=0;i<dim;i+)for(j=0;j<dim;j+)matij=yij;free_matrix(y,0,dim-1,0,dim-1);free_vector(col,0,dim-1);free(indx);voidludcmp(double*a,intn,int*indx,double*d)inti,imax,j,k;doublebig,dum,sum,temp;double*vv;vv=(double*)malloc(unsigned)(n*sizeof(double);if(!vv)fprintf(stderr,"ErrorAl
4、locatingVectorMemoryn");exit(1);*d=1.0;for(i=0;i<n;i+)big=0.0;for(j=0;j<n;j+)if(temp=fabs(aij)>big)big=temp;if(big=0.0)fprintf(stderr,"SingularMatrixinRoutineLUDCMPn");for(j=0;j<n;j+)printf("%f",aij);printf("/n");exit(1);vvi=1.0/big;for(j=0;j<n;j+)fo
5、r(i=0;i<j;i+)sum=aij;for(k=0;k<i;k+)sum-=aik*akj;aij=sum;big=0.0;for(i=j;i<n;i+)sum=aij;for(k=0;k<j;k+)sum-=aik*akj;aij=sum;if(dum=vvi*fabs(sum)>=big)big=dum;imax=i;if(j!=imax)for(k=0;k<n;k+)dum=aimaxk;aimaxk=ajk;ajk=dum;*d=-(*d);vvimax=vvj;indxj=imax;if(ajj=0.0)ajj=TINY;if(j!=n-1)dum=1.0/ajj;for(i=j+1;i<n;i+)aij*=dum;free(vv);voidlubksb(double*a,intn,int*indx,double*b)inti,ip,j,ii=-1;doublesum;for(i=0;i<n;i+)ip=indxi;sum=bip;bip=bi;if(ii>=0)for(j=ii;j<i;j+)sum-=aij*bj;elsei
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024图书赠与合同范本协议
- 2024大学场地租赁合同(商业活动)
- 2024国际计算机软件许可合同范本
- 2024大型货车租赁合同
- 2024年广安货运资格证模拟考试题
- Unit 8 综合阅读提升2024-2025学年九年级上册英语配套教学设计(人教新目标Go For It!)
- 14《要的是葫芦》教学设计-2024-2025学年二年级上册语文统编版
- 8《匆匆》(教学设计)2023-2024学年统编版语文六年级下册
- Unit 2 Exploring English Using Language 构词法与英美式英语差别 教学设计-2023-2024学年高中英语外研版(2019)必修第一册
- 日语基础培训合同
- 安全用电知识培训PPT通用通用课件
- Q∕GDW 12178-2021 三相智能物联电能表技术规范
- 生物显微技术染色和组织化学课件
- 小学五年级上册劳动教案课程最新
- 小猪唏哩呼噜阅读指导(课堂PPT)
- 手拉葫芦安全作业培训课件
- 第九章铸造低合金钢
- 3l_看听学11-12
- 物流公司员工绩效考核管理制度
- 特种作业人员“四证合一”信息表
- 蜗轮蜗杆测绘、设计计算及图纸标注
评论
0/150
提交评论