请教潮流问题！急！

lskai

%本程序的功能是用牛顿-拉夫逊法进行潮流计算
n=input('请输入节点数:n=');
. u0 R" l% f& L7 Z( mnl=input('请输入支路数:nl=');
' h; |+ D, d% ?6 @# p$ XB1=input('请输入由支路参数形成的矩阵:B1=');%变压器侧为1，否则为0
X=input('请输入由节点号及其对地阻抗形成的矩阵:X=');
Y=zeros(n);
7 Y# R% Q# x- p& x4 c; Wfor i=1:n
% b  ~. O* B6 \8 Z! x1 w2 `, e    if X(i,2)~=0;
        p=X(i,1);
4 F+ Z+ Q# o' W: D2 F        Y(p,p)=X(i,2);
+ r7 Q3 |- ~2 z; [8 w7 ?( J9 [* }    end
$ E& `6 l' T# H: U# cend
( b$ P& {( l' B. g1 W# Gfor i=1:nl
    if B1(i,6)==0
% P5 \+ X. G2 f+ @* ^3 [4 k: y3 K/ Z; Z        p=B1(i,1);q=B1(i,2);
    else p=B1(i,2);q=B1(i,1);
    end
    Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));
    Y(q,p)=Y(p,q);
' p3 [& m1 }( X6 F# ?4 }    Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;
/ L; h" m6 M$ C" K1 X+ U    Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;
end %求导纳矩阵
我在求导纳矩阵时，关于变压器的处理方面老是弄不清楚怎么折算，请问谁研究过这个程序？导纳矩阵的程序是不是有问题

lskai

我已经吧我的程序发到你邮箱里去了
希望你能帮我看看
谢谢你的指导

rocketsun

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

cool

这段程序不完善！！！
; m* h% K6 O; b. x, |6 E只适合于变压器线路的阻抗归算在标准端，且标准端又在输入的线路信息的起始节点号，也就是p的情况；