请教潮流问题！急！

lskai

%本程序的功能是用牛顿-拉夫逊法进行潮流计算
n=input('请输入节点数:n=');
5 A7 v5 g) P  h! t6 x. o  qnl=input('请输入支路数:nl=');
B1=input('请输入由支路参数形成的矩阵:B1=');%变压器侧为1，否则为0
X=input('请输入由节点号及其对地阻抗形成的矩阵:X=');
Y=zeros(n);
% U* x) E% x" d# D3 g" kfor i=1:n
    if X(i,2)~=0;
6 K2 a  e- Q. i$ t8 h; W        p=X(i,1);
        Y(p,p)=X(i,2);
' p8 m+ D/ [8 D. w1 _; [    end
end
- y4 f+ i  v8 }4 T* S( ^9 bfor i=1:nl
    if B1(i,6)==0
        p=B1(i,1);q=B1(i,2);
& G8 ]' i; l: Y3 O1 q3 B3 l* j    else p=B1(i,2);q=B1(i,1);
/ j7 S: ]5 c% ?! ]; Z+ f    end
    Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));
. B% M7 I5 I8 m9 G    Y(q,p)=Y(p,q);
    Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;
# R& T2 |2 k: a# z    Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;
& v0 U% t6 S, L- i4 ~7 ~5 Uend %求导纳矩阵
0 R" A; M0 _0 G' l  l, N我在求导纳矩阵时，关于变压器的处理方面老是弄不清楚怎么折算，请问谁研究过这个程序？导纳矩阵的程序是不是有问题

lskai

我已经吧我的程序发到你邮箱里去了
  ]8 j+ k" A$ R( \& Q9 W希望你能帮我看看
6 W$ c& X& q5 i0 m4 Y谢谢你的指导

rocketsun

楼主的程序我是见过的，好像有点问题

cool

这段程序不完善！！！
6 E. p  V4 J2 M. e/ g% c0 l, D0 z只适合于变压器线路的阻抗归算在标准端，且标准端又在输入的线路信息的起始节点号，也就是p的情况；