有没有哪位高手能帮我看一下这个MATLAB程序哪里错误了啊?运行不了,提示有错误!function[Y]=ybusl(zdata)nl=zdata(:,1);nr=zdata(:,2);R=zdata(:,3);X=zdata(:,4);nbr=length(zdata(:,1));nbus=max(max(nl),max(nr));Z=R+j*X;y=ones(nbr
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 07:44:57
有没有哪位高手能帮我看一下这个MATLAB程序哪里错误了啊?运行不了,提示有错误!function[Y]=ybusl(zdata)nl=zdata(:,1);nr=zdata(:,2);R=zdata(:,3);X=zdata(:,4);nbr=length(zdata(:,1));nbus=max(max(nl),max(nr));Z=R+j*X;y=ones(nbr
有没有哪位高手能帮我看一下这个MATLAB程序哪里错误了啊?运行不了,提示有错误!
function[Y]=ybusl(zdata)
nl=zdata(:,1);nr=zdata(:,2);R=zdata(:,3);X=zdata(:,4);
nbr=length(zdata(:,1));nbus=max(max(nl),max(nr));
Z=R+j*X;
y=ones(nbr,1)./Z;
Y=zeros(nbus,nbus);
For k=1:nbr;
ifnl(k)>0&nr(k)>0
Y(nl(k),nr(k))=Y(nl(k),nr(k))-y(k);
Y(nr(k),nl(k))=Y(nl(k),nr(k));
end
end
for n=1:nbus
fo k=l:nbr
ifnl(k)==n
Y(n,n)=Y(n,n)+y(k);
elseif nr(k)==n
Y(n,n)=Y(n,n)+y(k);
end
end
end
有没有哪位高手能帮我看一下这个MATLAB程序哪里错误了啊?运行不了,提示有错误!function[Y]=ybusl(zdata)nl=zdata(:,1);nr=zdata(:,2);R=zdata(:,3);X=zdata(:,4);nbr=length(zdata(:,1));nbus=max(max(nl),max(nr));Z=R+j*X;y=ones(nbr
你的程序从哪复制来的,错误太多了
如果参数矩阵zdata的元素都为正整数,还是可以运行的:
函数:(ybusl.m)
function Y=ybusl(zdata)
nl=zdata(:,1);
nr=zdata(:,2);
R=zdata(:,3);
X=zdata(:,4);
nbr=length(zdata(:,1));
nbus=max(max(nl),max(nr));
Z=R+j*X;
y=ones(nbr,1)./Z;
Y=zeros(nbus,nbus);
for k=1:nbr
if nl(k)>0&nr(k)>0
Y(nl(k),nr(k))=Y(nl(k),nr(k))-y(k);
Y(nr(k),nl(k))=Y(nl(k),nr(k));
end
end
for n=1:nbus
for k=1:nbr
if nl(k)==n
Y(n,n)=Y(n,n)+y(k);
elseif nr(k)==n
Y(n,n)=Y(n,n)+y(k);
end
end
end
-------------
主程序:
clear all;clc;
zdata=[1 2 3 4;2 4 6 7;4 6 9 3;2 5 8 9;1 4 5 7];
y=ybusl(zdata);