原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
LU分解法(C语言)
LU分解法求解线性方程：
#includestdio.h
void solve(float l[][100],float u[][100],float b[],float x[],int n)
{int i,j;
float t,s1,s2;
float y[100];
for(i=1;i=n;i++) /* 第一次回代过程开始 */
{s1=0;
for(j=1;ji;j++)
{
t=-l[i][j];
s1=s1+t*y[j];
}
y[i]=(b[i]+s1)/l[i][i]; }
for(i=n;i=1;i--) /* 第二次回代过程开始 */
{
s2=0;
for(j=n;ji;j--)
{
t=-u[i][j];
s2=s2+t*x[j];
}
x[i]=(y[i]+s2)/u[i][i];
}
}
void main()
{float a[100][100],l[100][100],u[100][100],x[100],b[100];
int i,j,n,r,k;
float s1,s2;
for(i=1;i=99;i++)/*将所有的数组置零，同时将L矩阵的对角值设为1*/
for(j=1;j=99;j++)
{
l[i][j]=0,u[i][j]=0;
if(j==i) l[i][j]=1;
}
printf (input n:\n);/*输入方程组的个数*/
scanf(%d,n);
printf (input array A:\n);/*读取原矩阵A*/
for(i=1;i=n;i++)
for(j=1;j=n;j++)
scanf(%f,a[i][j]);
printf (input array B:\n);/*读取列矩阵B*/
for(i=1;i=n;i++)
scanf(%f,b[i]);
for(r=1;r=n;r++)/*求解矩阵L和U*/
{
for(i=r;i=n;i++)
{
s1=0;
for(k=1;k=r-1;k++)
s1=s1+l[r][k]*u[k][i];
u[r][i]=a[r][i]-s1;
}
for(i=r+1;i=n;i++)
{s2=0;
for(k=1;k=r-1;k++)
s2=s2+l[i][k]*u[k][r];
l[i][r]=(a[i][r]-s2)/u[r][r];
}
}
printf(array L:\n);/*输出矩阵L*/
for(i=1;i=n;i++)
{
for(j=1;j=n;j++)
printf(%7.3f ,l[i][j]);
printf(\n);
}
printf(array U:\n);/*输出矩阵U*/
for(i=1;i=n;i++)
{
for(j=1;j=n;j++)
printf(%7.3f ,u[i][j]);
printf(\n);
}
solve(l,u,b,x,n);
printf(解为:\n);
for(i=1;i=n;i++)
printf(x%d=%f\n,i,x[i]);
}
运行结果：
input n:
3
input array A:
2 2 3
4 7 7
-2 4 5
input array B:
3 1 -7
array L:
1.000 0.000 0.000
2.000 1.000 0.000
-1.000 2.000 1.000
array U:
2.000 2.000 3.000
0.000 3.000 1.000
0.000 0.000 6.000
解为:
x1=2.000000
x2=-2.000000
x3=1.000000
Press any key to continue
文档评论（0）