请教潮流问题！急！

lskai

%本程序的功能是用牛顿-拉夫逊法进行潮流计算
( T2 m5 S6 S# jn=input('请输入节点数:n=');
, B: O- |# e4 ^# g, hnl=input('请输入支路数:nl=');
) `* r3 E9 U2 _+ Z6 X% @6 hB1=input('请输入由支路参数形成的矩阵:B1=');%变压器侧为1，否则为0
% k/ }* L6 g5 V* XX=input('请输入由节点号及其对地阻抗形成的矩阵:X=');
& j. @8 H% t: Y) c8 M' {3 `7 T/ RY=zeros(n);
for i=1:n
    if X(i,2)~=0;
" u/ p4 G* R  Y$ H        p=X(i,1);
7 q3 }* U/ n% U/ u6 `& r        Y(p,p)=X(i,2);
' h0 |/ @* D+ c; H3 I    end
end
% T' |# }+ _: w: g5 G0 R% R! l* kfor i=1:nl
* S; H" j$ e( F& l4 ?/ `8 g    if B1(i,6)==0
9 M; M- T- \. a/ F3 Z/ B; X        p=B1(i,1);q=B1(i,2);
: @) c9 m$ P+ {$ j4 k9 t; [7 J, q    else p=B1(i,2);q=B1(i,1);
    end
/ N- q! O  m5 Q6 _    Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));
4 s% j2 J; G" b! v  n$ V    Y(q,p)=Y(p,q);
: l. e* @, O+ j: _    Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;
# k+ j4 [/ o1 ^    Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;
end %求导纳矩阵
我在求导纳矩阵时，关于变压器的处理方面老是弄不清楚怎么折算，请问谁研究过这个程序？导纳矩阵的程序是不是有问题

lskai

我已经吧我的程序发到你邮箱里去了
希望你能帮我看看
3 O& v, q6 W9 M: T& Z6 Y谢谢你的指导

rocketsun

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

cool

这段程序不完善！！！
9 H- u. F3 ^& }& u( P" T只适合于变压器线路的阻抗归算在标准端，且标准端又在输入的线路信息的起始节点号，也就是p的情况；