欢迎来到天天文库
浏览记录
ID:56394058
大小:18.00 KB
页数:3页
时间:2020-06-23
《共轭梯度法C语言(西安交大).doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、#include#include#defineN10/*定义矩阵阶数*/voidmain(){inti,j,m,A[N][N],B[N];doubleX[N],akv[N],dka[N],rk[N],dk[N],pk,pkk,ak,bk;for(i=0;i2、3、i==N-1)B[i]=-14、;elseB[i]=0;}printf("");/*输出系数矩阵A*/printf("theMaxtrAis");for(i=0;i5、f("Xchushi:");for(i=0;i6、j++)pk+=A[i][j]*dk[j];dka[i]=pk;}pk=0.0;pkk=0.0;for(i=0;i7、[i]-akv[i];pk=0.0;for(i=0;i
2、
3、i==N-1)B[i]=-1
4、;elseB[i]=0;}printf("");/*输出系数矩阵A*/printf("theMaxtrAis");for(i=0;i5、f("Xchushi:");for(i=0;i6、j++)pk+=A[i][j]*dk[j];dka[i]=pk;}pk=0.0;pkk=0.0;for(i=0;i7、[i]-akv[i];pk=0.0;for(i=0;i
5、f("Xchushi:");for(i=0;i6、j++)pk+=A[i][j]*dk[j];dka[i]=pk;}pk=0.0;pkk=0.0;for(i=0;i7、[i]-akv[i];pk=0.0;for(i=0;i
6、j++)pk+=A[i][j]*dk[j];dka[i]=pk;}pk=0.0;pkk=0.0;for(i=0;i7、[i]-akv[i];pk=0.0;for(i=0;i
7、[i]-akv[i];pk=0.0;for(i=0;i
此文档下载收益归作者所有