IEEE14节点潮流程序

luojinwen

clear
r(14,10)=0.01938;x(14,10)=0.05917;r(10,11)=0.04699;x(10,11)=0.19797;r(10,1)=0.05811;x(10,1)=0.17632;r(14,2)=0.05403;x(14,2)=0.22304;r(10,2)=0.05695;x(10,2)=0.17388;
r(10,14)=0.01938;x(10,14)=0.05917;r(11,10)=0.04699;x(11,10)=0.19797;r(1,10)=0.05811;x(1,10)=0.17632;r(2,14)=0.05403;x(2,14)=0.22304;r(2,10)=0.05695;x(2,10)=0.17388;
4 s( j+ i* `9 ^3 y2 x8 }; F" ?r(11,1)=0.06701;x(11,1)=0.17103;r(1,2)=0.01335;x(1,2)=0.04211;r(2,12)=0.00000;x(2,12)=0.23488;r(1,3)=0.00000;x(1,3)=0.20452;r(3,13)=0.00000;x(3,13)=0.17615;
% |7 o% A% ~* p5 j6 ^0 mr(1,11)=0.06701;x(1,11)=0.17103;r(2,1)=0.01335;x(2,1)=0.04211;r(12,2)=0.00000;x(12,2)=0.23488;r(3,1)=0.00000;x(3,1)=0.20452;r(13,3)=0.00000;x(13,3)=0.17615;
  A2 L! ?, U! S; b0 x% a3 s/ Mr(1,4)=0.00000;x(1,4)=0.53894;r(3,4)=0.00000;x(3,4)=0.11001;r(4,5)=0.03181;x(4,5)=0.08450;r(12,6)=0.09498;x(12,6)=0.19890;r(12,7)=0.12291;x(12,7)=0.25581;
1 J% e" q, s5 p! P, S/ ?r(4,1)=0.00000;x(4,1)=0.53894;r(4,3)=0.00000;x(4,3)=0.11001;r(5,4)=0.03181;x(5,4)=0.08450;r(6,12)=0.09498;x(6,12)=0.19890;r(7,12)=0.12291;x(7,12)=0.25581;
r(12,8)=0.06615;x(12,8)=0.13027;r(4,9)=0.12711;x(4,9)=0.27038;r(5,6)=0.08205;x(5,6)=0.19207;r(7,8)=0.22092;x(7,8)=0.19988;r(8,9)=0.17093;x(8,9)=0.34802;
r(8,12)=0.06615;x(8,12)=0.13027;r(9,4)=0.12711;x(9,4)=0.27038;r(6,5)=0.08205;x(6,5)=0.19207;r(8,7)=0.22092;x(8,7)=0.19988;r(9,8)=0.17093;x(9,8)=0.34802;

5 g! f' y) S7 y' Y1 h0 y5 o/ Ky(14,10)=0.02640;y(10,11)=0.02190;y(10,1)=0.01870;y(14,2)=0.02460;y(10,2)=0.01700;y(11,1)=0.01730;y(1,2)=0.00640;y(2,12)=-0.31063;y(1,3)=-0.10999;y(1,4)=-0.05936;
y(10,14)=0.02640;y(11,10)=0.02190;y(1,10)=0.01870;y(2,14)=0.02460;y(2,10)=0.01700;y(1,11)=0.01730;y(2,1)=0.00640;y(12,2)=0.28951;y(3,1)=0.10757;y(4,1)=0.05752;

5 _+ Z5 ~' p7 d$ \  K. |- Rfor m=1:14
- e4 N! `. f- b2 [" F. [5 b* @6 N0 [    t(m)=0;
    for n=1:14
2 i8 K( l* j1 u5 a$ Y. e, G        t(m)=t(m)+y(m,n);
- c4 A; N  i, Z& f/ r  a$ Y    end
    if m==4
        t(m)=t(m)+0.190;
    end
end
for m=1:14
    d(m)=0;
    for n=1:14
$ c; ~+ E  B( }& ~        if m==n
            
( |0 L7 N# O$ I8 N$ U  l$ y+ u        elseif (r(m,n)==0)&(x(m,n)==0)
* l" r+ h4 z+ {5 c           d(m)=d(m)+0;
9 e0 T2 ]8 N' W6 |        else
) x" ]9 k2 w) Z% r+ O! ^  w           d(m)=d(m)+1/(r(m,n)+j*x(m,n));   
' Q" {5 B1 Y/ Z5 S6 u' }        end
/ R1 _. V! Z: e6 ?, a    end
" ^4 l" g0 J8 U- V( L0 @3 M0 cend
; w6 B6 J$ v. b5 p. `* [6 n# Q+ ufor m=1:14
9 |6 C! }/ h, F& _) R/ A5 m    for n=1:14
, @! T0 ?/ w( ~/ d, l: @4 P1 A3 [        if m==n
+ ]! k; H) c8 h: l" f) A           Y(m,n)=j*t(m)+d(m);
1 W4 N0 P/ u: A+ l0 k! k' @+ N; q        elseif (r(m,n)==0)&(x(m,n)==0)
           Y(m,n)=0;
' O9 U" ?" q4 G5 {+ Y' b! D        else
           Y(m,n)=-1/(r(m,n)+j*x(m,n));
        end
+ q; }* Q" ]  h( }, Y$ S6 S    end
end
Y;
/ O% ]# [, T( j( _$ WG=real(Y);B=imag(Y);
%给定节点电压初值和循环次数k=0
& m' G# }4 I; D6 E  }delt(10)=0;delt(11)=0;u(1)=1.0;delt(1)=0;u(2)=1.0;delt(2)=0;delt(12)=0;u(3)=1.0;delt(3)=0;delt(13)=0;u(4)=1.0;delt(4)=0;u(5)=1.0;delt(5)=0;u(6)=1.0;delt(6)=0;u(7)=1.0;delt(7)=0;u(8)=1.0;delt(8)=0;u(9)=1.0;delt(9)=0;
1 M' k" F& W5 |  H, m! ~9 g( }p(10)=0.183;p(11)=-0.942;p(1)=-0.478;q(1)=0.039;p(2)=-0.076;q(2)=-0.016;p(12)=-0.112;p(3)=0;q(3)=0;p(13)=0;p(4)=-0.295;p(5)=-0.09;q(5)=-0.058;p(6)=-0.035;q(6)=-0.018;p(7)=-0.061;q(7)=-0.016;p(8)=-0.135;q(8)=-0.058;p(9)=-0.149;q(9)=-0.05;
k=0;precision=1;N1=13;
* C5 S) h9 Z1 J6 G# e  d%求节点功率的不平衡量�6�2P和�6�2Q
) _& T0 a+ h- w( bwhile precision>0.00001
4 B& y2 F$ \: W: _1 @2 n4 ]% o$ Iu(10)=1.0450;u(11)=1.01;u(12)=1.07;u(13)=1.09;u(14)=1.06;delt(14)=0;q(4)=-0.166+(u(4))^2*0.190;
3 d8 |! B# D! Z     for m=1:N1     
         if m<=9
             for n=1:N1+1
" ]& c. U0 ^" F2 [pt(n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
2 O9 D# K0 r1 |8 A7 e  A% Kqt(n)=u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));     
             end
             pp(m)=p(m)-sum(pt);qq(m)=q(m)-sum(qt);
0 k" F6 s9 N* A# f         else
             for n=1:N1+1
f(n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
# ~, @6 w7 l1 o; h: H7 t% s             end
: A, H# f0 k/ f# M0 H) a" L             pp(m)=p(m)-sum(f);qq(m)=0;
( N" P- ~5 P: W8 G4 X+ D. k- V         end      
     end
%计算雅克比矩阵各元素
0 M3 W0 z3 v3 F5 [* n: y- Qfor m=1:N1
5 h' l3 h! b( y# l3 R- G, p/ k    for n=1:N1+1
+ t/ o; \2 [  e' @. K         h0(n)=u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
6 q1 c9 C- g6 c7 h! ^         n0(n)=-u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
         j0(n)=-u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
         L0(n)=-u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
5 J8 O) k) p7 d( n    end
$ w& Z. K1 L/ s8 d1 K* a    if m<=9
H(m,m)=sum(h0)- u(m)*u(m)*(G(m,m)*sin(delt(m)-delt(m))-B(m,m)*cos(delt(m)-delt(m)));
3 l9 B5 s# ?7 G0 T) X4 \# KN(m,m)=sum(n0)-2*u(m)^2*G(m,m)+u(m)*u(m)*(G(m,m)*cos(delt(m)-delt(m))+B(m,m)*sin(delt(m)-delt(m)));
6 j3 g: G+ \* ]3 PJ(m,m)=sum(j0)+u(m)*u(m)*(G(m,m)*cos(delt(m)-delt(m))+B(m,m)*sin(delt(m)-delt(m)));
- _* Q* H7 N+ r; ^* GL(m,m)=sum(L0)+2*u(m)^2*B(m,m)+u(m)*u(m)*(G(m,m)*sin(delt(m)-delt(m))-B(m,m)*cos(delt(m)-delt(m)));
6 \: Y7 ]) h2 u2 i6 w    else
H(m,m)=sum(h0)- u(m)*u(m)*(G(m,m)*sin(delt(m)-delt(m))-B(m,m)*cos(delt(m)-delt(m)));
. e: N, W2 _0 M& ON(m,m)=0;
$ n! D: w9 Q$ ^$ }; m1 I3 l) ZJ(m,m)=0;
L(m,m)=0;
    end
end
- s! R; Q7 e: _1 q  V7 K0 b8 r( mfor m=1:N1
! r& l3 k" Z1 I4 Y  |    JJ(2*m-1,2*m-1)=H(m,m);JJ(2*m-1,2*m)=N(m,m);
    JJ(2*m,2*m-1)=J(m,m);JJ(2*m,2*m)=L(m,m);
end

for m=1:N1
    for n=1:N1   
        if     (m<=9)&(n<=9)&(m~=n)                       
6 t" q) t1 s7 i2 \3 Y) e: R4 N! y! FH(m,n)= -u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
J(m,n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
% U' X* r% [3 ], X) ?( ~N(m,n)=-J(m,n);L(m,n)=H(m,n);
JJ(2*m-1,2*n-1)=H(m,n);JJ(2*m-1,2*n)=N(m,n);
JJ(2*m,2*n-1)=J(m,n);JJ(2*m,2*n)=L(m,n);
        elseif ((m==10)&(n<10))|((m==11)&(n<10))|((m==12)&(n<10))|((m==13)&(n<10))
H(m,n)= -u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
% o+ ~5 g# V1 [8 N3 C  o3 g+ w- IJ(m,n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
N(m,n)=-J(m,n);
JJ(2*m-1,2*n-1)=H(m,n);JJ(2*m-1,2*n)=N(m,n);
JJ(2*m,2*n-1)=0;JJ(2*m,2*n)=0;
& S1 M' ?* n" n" T        elseif ((n==10)&(m<10))|((n==11)&(m<10))|((n==12)&(m<10))|((n==13)&(m<10))
6 G& B+ t% K0 X. O5 AH(m,n)= -u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
J(m,n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n)));
( B0 v' |# V3 r* M. FJJ(2*m-1,2*n-1)=H(m,n);JJ(2*m-1,2*n)=0;
2 V1 l. K! |; AJJ(2*m,2*n-1)=J(m,n);JJ(2*m,2*n)=0;
+ p$ `3 }( F, k' Q- p1 W) \        elseif (m>=10)&(n>=10)&(m~=n)
H(m,n)= -u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n)));
% ?$ _& q3 s) ]. s" j) w& ]5 |; n. PJJ(2*m-1,2*n-1)=H(m,n);JJ(2*m-1,2*n)=0;
JJ(2*m,2*n-1)=0;JJ(2*m,2*n)=0;
+ w4 l7 ~1 L8 `, X2 H' f$ B0 t5 y        end
    end
- g4 D+ R0 W6 G4 b* Uend
- O- G$ u. T. _  D" S( s5 ?% 对雅克比矩阵进行修正，使之变成非奇异阵，以便后续求逆计算
b=0;
for m=1:22
    for n=1:22
  `* e3 S# m( F4 I, u/ ^6 e        if (m<=18)&(n<=18)
  H. {( U% }( D+ x/ i& k3 D        A(m,n)=JJ(m,n);
        elseif (m>18)&(n<=18)
4 m) W: v% u+ d' J5 c) j7 V        A(m,n)=JJ(m+b,n);
        end   
    end
+ f9 l; e5 q' O- ~) s) u! [) ^9 Q7 p    if m>18
        b=b+1;
    end
2 x" b, w! y: o) Xend
5 Q+ q2 n/ `/ j4 r3 A2 [
- F- E6 l5 ?$ ~' fb=0;
" z& j  s+ J+ v, r1 `. Zfor n=1:22
! M% b8 e( L6 E* k    for m=1:22
6 }/ o- o0 T8 v" m        if n<=18
/ N: g' ?5 H5 T  ?0 ]: e        A(m,n)=A(m,n);
        elseif (m<=18)&(n>18)
        A(m,n)=JJ(m,n+b);
/ j/ t) ^! D$ q* |3 ~        end
    end
    if n>18
        b=b+1;
9 H& T' G7 w# g- D) e- {    end
6 G. C$ O# d% ^- G. G1 }end

/ U; [$ u, M* w5 }/ L: sb=0;
' E5 O$ |: B2 ?- [/ F3 |4 vfor m=1:22
4 G$ y7 ]% }- x# s% L) m: e3 Z; s  G    for n=1:26
% `6 i( M, n. p" C0 R% p        if (m>=19)&(n>=19)
1 u& |9 v$ h5 f" Y# i        D(m,n)=JJ(m+b,n);
8 ^$ v( g' s& z% @/ L        end
    end
    if m>18
" s9 g5 [1 d9 y0 Q        b=b+1;
    end
7 F/ R4 I+ ^  \& _end

b=0;
for n=1:22
/ H, P1 P9 V! E. M1 y+ e* @    for m=1:22
        if (m>=19)&(n>=19)
  @9 B( A. i# D2 j3 W5 G        D(m,n)=D(m,n+b);
        end
5 X4 r, J  n: C  Q    end
    if n>18
        b=b+1;
    end
7 s7 c) S) {$ w( b/ d% Tend
: }( P: ?2 J) P* N
$ u- k$ W7 j. B3 K  kfor m=1:22
% e3 k9 I: F/ i% L    for n=1:22
- J+ q$ Y; k) V) x( i, i# n% C4 [! |        if (m>=19)&(n>=19)
8 p* h$ C7 c9 ^& v4 Q" D5 u        A(m,n)=D(m,n);
        else
! K1 T) S& [, U7 }! E+ e        A(m,n)=A(m,n);
& J7 R% N  q; y. v: V; B8 f4 }        end
    end
end
4 {- y6 D6 I! Q7 o2 |% 形成不平衡量的列矩阵
for m=1:N1
5 P' r* @% c- X9 l7 @( U    PP(2*m-1)=pp(m);PP(2*m)=qq(m);
6 b7 Q' \$ m" E$ B4 t4 C# send
C=PP(1:1:18);
; _) W3 A+ `! M: g, L: Tb=0;
( t  G/ m" m% ~$ L5 Sfor m=1:22
    if m<=18
1 S5 ?1 \0 v; V! {4 m% ?3 I, R3 o/ @6 u    C=C;
    else
- @% H* a9 ~9 s$ a" i1 e- i( v3 ]    C(m)=PP(m+b);
: |2 j% b7 ?, o/ t    b=b+1;
    end
end
% 解修正方程式，得到修正量
uu=-inv(A)*C';
precision=max(abs(uu));
# A! V, b6 O3 H& X( [/ t  ]% 计算个节点电压新值，即修正后值
. v" V8 ^" r3 `  O: s6 mfor n=1:N1
3 T  u8 R  j/ _; i& z; n    if n<=9
    delt(n)=delt(n)+uu(2*n-1);
    u(n)=u(n)+uu(2*n);
* L2 r$ R7 N# C% ^6 [    else
, K# B" u1 u! f( f, w5 U8 O! a    delt(n)=delt(n)+uu(n+9);
( t$ G& I! A0 k1 J& ^- u* [    u(n)=u(n);
    end
end
4 j: ], `. `" m3 `% 循环次数k加一，带入新值进入下一次迭代
, b9 J, `0 @+ mk=k+1;
end
. n. C) j; S& u, S% 迭代完成后，求迭代次数、节点母线电压幅值与相角
k-1,(delt*180/pi)',u'
3 _9 w# J3 b, {8 z) n6 H% 计算各节点的功率和线路功率
, j$ y3 Y  n& p! p& |for n=1:N1+1
3 f5 w3 i3 c8 Q, g. i  k1 K  e    U(n)=u(n)*(cos(delt(n))+j*sin(delt(n)));
end
for m=1:N1+1
    for n=1:N1+1
    I(n)=Y(m,n)*U(n);
- b7 O( b# ?& [8 r$ r- r& w    end
    S(m)=U(m)*sum(conj(I));
end
5 |5 U( X  P/ t) {8 J4 o" D" DS
for m=1:N1+1
    for n=1:N1+1
  G1 I7 Q& T, G7 {9 N# q, {        T(m,n)=U(m)*conj((U(m)-U(n))*(-Y(m,n)))+U(m)*conj(U(m)*j*y(m,n));
" H: n% L, V1 h; u& v% C! y; K+ t    end
end
T

原随风

多谢楼主分享。。。。。。。。。

luojinwen

这个好像算的结果不是很准确，但能学习下思想

lotus_cao

楼主的分享精神不错。

wangwangmoon

现在我们编程的缺点是不能用矩阵的思想全局的看待系统问题，会用很多for循环去实现功能

heming007

太复杂了，看不懂、有14节点编的算节点导纳矩阵的程序么

color

牛人啊，佩服佩服

liulina_1013

这个程序matlab论坛里就有

姗姗来迟156

多谢楼主，可以借鉴来学习啦