24小时热门版块排行榜

返回列表

yan0415

木虫 (正式写手)

应助: 0 (幼儿园)
金币: 1439.4
散金: 25
帖子: 591
在线: 99.4小时
虫号: 1378778
注册: 2011-08-24
专业: 泛函分析

[求助] 线性方程组列主元高斯消去法的程序出错求助

线性方程组列主元高斯消去法的程序如下：
function x=nagauss2(a,b,f)
n=length(b);
c=[a,b];
if f==1
disp('交换次序');
end
for k=1:n-1
[ap,p]=max(abs(c(k:n,k)));
p=p+k-1;
if p>k
t=c(k,

;
c(k,

=c(p,

;
c(p,

=t;
end
c((k+1):n,(k+1)

n+1))=c((k+1):n,(k+1)

n+1))-c((k+1):n,k)/c(k,k)*c(k,(k+1)

n+1));
c((k+1:n,k)=zeros(n-k,1);
if f==1
c
end
end
x=zeros(n,1);
x(n)=c(n,(n+1))/c(n,n);
for k=n-1:-1:1
x(k)=(c(k,n+1)-c(k,(k+1):n):n)*x(k+1:n))/c(k,k);
end
disp('解向量');x
disp('矩阵行列式');det(a)
但metlab提示黑体处有错：??? Error: File: D:\work\nagauss2.m Line: 16 Column: 13Incomplete or misformed expression or statement.
不知怎么错的，求帮忙解决。谢谢

回复此楼