【老生谈算法】matlab实现三相短路电流计算.doc
版权申诉
5星 · 超过95%的资源 17 浏览量
2023-05-11
21:03:40
上传
评论 1
收藏 36KB DOC 举报 
NF=1;
n=4;
nl=6;
Sb=100;
D=[4,0];
vb=[10.5 115 6.3 37];
V0=[1;1;1;1];
B=[0 1 0.15i 0 1 0 70 1 1;
0 2 6.67i 0 1 0 0 0 2;
0 3 0.71i 0 1 0 15 1 1;
1 2 0.26i 0 1 0 0 0 2;
2 3 1.11i 0 1 1 0 0 2;
3 4 0.53i 0 1 1 0 0 2];
N=2;
m=0;Z=zeros(n);sq3=sqrt(3);s=zeros(N,1);
for k1=1:nl
p=B(k1,1);q=B(k1,2);
if B(k1,6)==0
k=1./B(k1,5);
else k=B(k1,5);
end
if p==0
if q>m %追加接地树支 1
Z(q,q)=B(k1,3);m=m+1;
else %追加接地连支
for i1=1:m
Z(i1,m+1)=-Z(i1,q); Z(m+1,i1)=- Z(q,i1);
end
Z(m+1,m+1)=Z(q,q)+B(k1,3);
for i1=1:m
for j=1:m
Z(i1,j)=Z(i1,j)-Z(i1,m+1)*Z(m+1,j)./Z(m+1,m+1);
end
Z(i1,m+1)=0;
end
for i1=1:m+1
Z(m+1,i1)=0;
end
end
else if q>m %追加不接地树支
for i1=1:m
Z(i1,q)=Z(i1,p)*k;Z(q,i1)=Z(p,i1)*k;
end
Z(q,q)=k^2*Z(p,p)+k^2*B(k1,3);
资源评论
weixin_751128912023-11-28这个资源对我启发很大，受益匪浅，学到了很多，谢谢分享~- m0_751081912023-12-11总算找到了自己想要的资源，对自己的启发很大，感谢分享~
- 局道2023-07-11实在是宝藏资源、宝藏分享者！感谢大佬~
- 2301_776396772024-05-13内容与描述一致，超赞的资源，值得借鉴的内容很多，支持！
