声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1026|回复: 8

[求助]帮忙看下程序

[复制链接]
发表于 2006-6-2 13:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
function x=gauss_eli(A,b)<br>A=[6 2 1 -1<br>   2 4 1 0<br>   1 1 4 -1<br>   -1 0 -1 3];<br>b=[6 1 5 -5]'; <br>n=length(b);p=1:n;LU=A;<br>for k=1:n<br>    [c,i]=max(abs(LU(k:n,k)));<br>    ik=i+k-1;<br>    if ik~=k<br>        m=p(k);p(k)=p(ik);p(ik)=m;<br>        ck=LU(k,:);LU(k,:)=LU(ik,:);LU(ik,:)=ck;<br>    end<br>    if k==n break;end<br>       LU(k+1:n,k)=LU(k+1:n,k)/LU(k,k);<br>       LU(k+1:n,k+1:n)=LU(k+1:n,k+1:n)-LU(k+1:n,k)*LU(k,k+1:n);<br>    end<br>    L=diag(ones(n,1))+tril(LU,-1);<br>    U=triu(LU);<br>    p;<br>    y(1)=b(p(1));<br>    for i=2:n<br>        y(i)=b(p(i))-L(i,1:i-1)*y(1:i,-1)';<br>    end<br>    x(n)=y(n)/U(n,n);<br>    for i=n-1:-1:1<br>        x(i)=(y(i)-U(i,i+1:n)*x(i+1:n)')/U(i,i);<br>    end   <br>
[此贴子已经被cdwxg于2006-6-2 23:51:40编辑过]

回复
分享到:

使用道具 举报

 楼主| 发表于 2006-6-2 14:00 | 显示全部楼层

错误信息

<P>??? Index exceeds matrix dimensions.</P>
<P>Error in ==&gt; D:\MATLAB6p5\work\file1.m<BR>On line 24  ==&gt;         y(i)=b(p(i))-L(i,1:i-1)*y(1:i,-1)';</P>
 楼主| 发表于 2006-6-2 15:23 | 显示全部楼层

ddddddddddddd

dddddddddddddddddddddddddd
发表于 2006-6-2 18:10 | 显示全部楼层
y(i)=b(p(i))-L(i,1:i-1)*y(1:i,-1)<FONT color=#ff0000>'</FONT>;<BR><BR>最后这个分号没什么作用啊
发表于 2006-6-2 21:00 | 显示全部楼层
你程序里面的y数组,应该是个一维的吧。那你调用y(1:i,<FONT color=#ee3d11>-1</FONT>),我觉得可能有问题,而且为什么是-1列呢?见红色的地方。
发表于 2006-6-2 23:45 | 显示全部楼层
矩阵维数不对
发表于 2006-6-3 08:36 | 显示全部楼层
y(i)=b(p(i))-L(i,1:i-1)*y(<FONT color=#f70909>1:i,-1</FONT>)';<BR>当时敲错了吧,你的意思可能是y(<FONT color=#f70909>1:i-1</FONT>)'
 楼主| 发表于 2006-6-3 13:06 | 显示全部楼层

谢谢大家 非常感谢

<FONT face=Verdana color=#61b713><B>nochance  同志说对了  问题解决了  我自己可是检查了N遍都查不出来 那是相当的郁闷 </B></FONT>
[此贴子已经被aspen于2006-6-3 13:55:20编辑过]

 楼主| 发表于 2006-6-3 13:08 | 显示全部楼层

谢谢大家 非常感谢

nochance  同志说对了  问题解决了  我自己可是检查了N遍都查不出来 那是相当的郁闷
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-14 08:45 , Processed in 0.065575 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表