请教潮流问题！急！

lskai

%本程序的功能是用牛顿-拉夫逊法进行潮流计算
4 }+ e: t, Q0 rn=input('请输入节点数:n=');
  a6 U% u9 P7 p0 |  I2 u% gnl=input('请输入支路数:nl=');
7 L1 q# T; O. n5 l5 E" SB1=input('请输入由支路参数形成的矩阵:B1=');%变压器侧为1，否则为0
X=input('请输入由节点号及其对地阻抗形成的矩阵:X=');
# L- _) E& p' g; Y) U+ _Y=zeros(n);
5 R+ v+ R& a4 ^! w: N1 c/ Sfor i=1:n
  j* g$ l6 k/ M# Z0 {. H) T; }7 p    if X(i,2)~=0;
; w& P: Y$ G7 U" W8 s/ I        p=X(i,1);
        Y(p,p)=X(i,2);
    end
  [1 x& z0 w* J7 uend
2 {! Y, R8 l% L1 Qfor i=1:nl
! [2 p( e/ G' e; l3 F    if B1(i,6)==0
        p=B1(i,1);q=B1(i,2);
5 k. k# n4 P# w    else p=B1(i,2);q=B1(i,1);
* T& L  y0 n3 k/ W    end
/ H+ U, c* ?% `& T0 U2 D& z    Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));
; V+ ?7 B! B* W6 }, w, K2 t: P    Y(q,p)=Y(p,q);
    Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;
& ]: s. ~9 W; k5 z2 z" p" C$ v1 Y    Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;
0 ?! N7 W! v8 ]  e8 f/ mend %求导纳矩阵
4 s- ~9 R( u* I4 Y# i我在求导纳矩阵时，关于变压器的处理方面老是弄不清楚怎么折算，请问谁研究过这个程序？导纳矩阵的程序是不是有问题

lskai

我已经吧我的程序发到你邮箱里去了
+ }% o2 n3 E; ^- q希望你能帮我看看
3 V3 l: B& Q& H7 F. i谢谢你的指导

rocketsun

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

cool

这段程序不完善！！！
只适合于变压器线路的阻抗归算在标准端，且标准端又在输入的线路信息的起始节点号，也就是p的情况；