欢迎来到天天文库
浏览记录
ID:40637751
大小:64.00 KB
页数:10页
时间:2019-08-05
《后方交会程序实现(c语言版)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、#include#include#include#include#include#defineN4#defineT1.41421voidturn(double*A,doubleA2[],intm,intn)//计算矩阵的转置{inti,j;for(i=0;i2、,u;if(an!=bm){printf("error!cannotdothemultiplication.");return;}for(i=0;i3、)malloc(n*sizeof(int));for(k=0;k<=n-1;k++){d=0.0;for(i=k;id){d=p;is[k]=i;js[k]=j;}}if(d+1.0==1.0){free(is);free(js);printf("errornotinv");returnNULL;}if(is[k]!=k)for(j=0;j4、=0;k--){if(js[k]!=k)for(5、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;i6、0[N]={0},y0[N]={0},X[N]={0},Y[N]={0},Z[N]={0},Xs0,Ys0,Zs0;doublea[3],b[3],c[3],A[2*N*6],AT[6*2*N],ATA[6*6],*ATA_=NULL,l[2*N],ATl[6],V[6]={0};doubleF[6],Qx[6][6],Mi[6][6];if((fp=fopen("e:\shuju.txt","r"))==NULL)//使fp指向被打开的shuju.txt文件{//并判断文件是否打开成功printf("erroronopenshuju.txt");getch();exit(1)7、;}for(i=0;i
2、,u;if(an!=bm){printf("error!cannotdothemultiplication.");return;}for(i=0;i3、)malloc(n*sizeof(int));for(k=0;k<=n-1;k++){d=0.0;for(i=k;id){d=p;is[k]=i;js[k]=j;}}if(d+1.0==1.0){free(is);free(js);printf("errornotinv");returnNULL;}if(is[k]!=k)for(j=0;j4、=0;k--){if(js[k]!=k)for(5、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;i6、0[N]={0},y0[N]={0},X[N]={0},Y[N]={0},Z[N]={0},Xs0,Ys0,Zs0;doublea[3],b[3],c[3],A[2*N*6],AT[6*2*N],ATA[6*6],*ATA_=NULL,l[2*N],ATl[6],V[6]={0};doubleF[6],Qx[6][6],Mi[6][6];if((fp=fopen("e:\shuju.txt","r"))==NULL)//使fp指向被打开的shuju.txt文件{//并判断文件是否打开成功printf("erroronopenshuju.txt");getch();exit(1)7、;}for(i=0;i
3、)malloc(n*sizeof(int));for(k=0;k<=n-1;k++){d=0.0;for(i=k;id){d=p;is[k]=i;js[k]=j;}}if(d+1.0==1.0){free(is);free(js);printf("errornotinv");returnNULL;}if(is[k]!=k)for(j=0;j4、=0;k--){if(js[k]!=k)for(5、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;i6、0[N]={0},y0[N]={0},X[N]={0},Y[N]={0},Z[N]={0},Xs0,Ys0,Zs0;doublea[3],b[3],c[3],A[2*N*6],AT[6*2*N],ATA[6*6],*ATA_=NULL,l[2*N],ATl[6],V[6]={0};doubleF[6],Qx[6][6],Mi[6][6];if((fp=fopen("e:\shuju.txt","r"))==NULL)//使fp指向被打开的shuju.txt文件{//并判断文件是否打开成功printf("erroronopenshuju.txt");getch();exit(1)7、;}for(i=0;i
4、=0;k--){if(js[k]!=k)for(
5、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;i6、0[N]={0},y0[N]={0},X[N]={0},Y[N]={0},Z[N]={0},Xs0,Ys0,Zs0;doublea[3],b[3],c[3],A[2*N*6],AT[6*2*N],ATA[6*6],*ATA_=NULL,l[2*N],ATl[6],V[6]={0};doubleF[6],Qx[6][6],Mi[6][6];if((fp=fopen("e:\shuju.txt","r"))==NULL)//使fp指向被打开的shuju.txt文件{//并判断文件是否打开成功printf("erroronopenshuju.txt");getch();exit(1)7、;}for(i=0;i
6、0[N]={0},y0[N]={0},X[N]={0},Y[N]={0},Z[N]={0},Xs0,Ys0,Zs0;doublea[3],b[3],c[3],A[2*N*6],AT[6*2*N],ATA[6*6],*ATA_=NULL,l[2*N],ATl[6],V[6]={0};doubleF[6],Qx[6][6],Mi[6][6];if((fp=fopen("e:\shuju.txt","r"))==NULL)//使fp指向被打开的shuju.txt文件{//并判断文件是否打开成功printf("erroronopenshuju.txt");getch();exit(1)
7、;}for(i=0;i
此文档下载收益归作者所有