|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
各位~~我根据下图的一个系统用Matlab编写了一段程序,是电流型前推回代法的三相配电系统潮流计算,但是现在结果不是我想要的,不收敛。请各位帮我看一下,提提建议。图片见附件了。还有个问题:已知的线路都是三相对称线路的阻抗值,那么线路的阻抗矩阵中的互阻抗应该如何计算,是什么样的形式,应用怎样的公式?这里我不是很清楚。- %程序名:qiantuihuitui_I_3.m
% T9 I" V B; r0 \& S3 e - %功能:支路电流前推回推法求解潮流 ) }( A" O9 q% ?5 _9 y- L. T
- clc ) t; b! q/ l+ N, i; L
- clear all; 2 d2 |- f% |6 b& q% T2 r9 ?
- %--------------输入网络参数--------------
, y& B, P' ^7 V* B7 |: C - %1-支路编号,2-首节点,3-尾节点,4-自阻抗,5-尾节点复功率,6-支路性质(1-馈线段支路,2-变压器支路),7-尾节点是否带负荷& G! R y9 q Q- \* P
- DB=[1 1 2 0.000167+j*0.000208 0.42+j*0.31 1 1
$ ^( s0 Z* x7 R3 A& a - 2 2 3 0.000151+j*0.000188 6.15 1 00 J* A L% i* ]0 T6 s; n0 n
- 3 2 4 0.000066+j*0.000082 0.38+j*0.29 1 15 L) i' g6 a0 l# ]# }* B
- 4 2 5 0.000249+j*0.000310 0 1 0
, x5 _' f* a3 o - 5 2 6 0.000172+j*0.000215 0 1 0
/ n% Y H+ L- D, r% k - 6 4 7 0.000156+j*0.000195 6.06 1 0
% H4 r" i4 X3 h% o2 _6 C - 7 4 8 0.000162+j*0.000202 6.04 1 0
6 {& G% w) K3 q - 8 4 9 0.000345+j*0.000430 0 1 0
- g0 t2 }. f' A- C1 l7 K7 k - 9 4 10 0.000287+j*0.000358 0 1 0
* q7 d# r7 m. L K. O; _ - 10 5 11 0.020563+j*0.321594 0 2 0
. u" G# m3 ]. C, p- Z( x" k1 I - 11 6 12 0.020563+j*0.321594 0 2 0
- U* | X/ F: c/ _, w- D - 12 9 13 0.020563+j*0.321594 0 2 0
8 _& Z7 a% I8 R. l - 13 10 14 0.020563+j*0.321594 0 2 0 8 `: E I5 k0 K* |: ^
- 14 11 15 0.000237+j*0.000408 5.72+j*0.12 1 1
" N& W% i' Y& M3 G$ Y i - 15 12 16 0.000237+j*0.000408 5.76+j*0.09 1 1
4 I _& q; N2 N2 m- M. z* W - 16 13 17 0.000292+j*0.000502 5.86+j*0.11 1 1
' O5 |* k' T$ E0 I3 g/ V - 17 14 18 0.000274+j*0.000470 5.81+j*0.14 1 1]; # c. D |* d: z0 V5 @0 K
- [n,m]=size(DB); 6 h6 `. d* a1 ]0 Y
- B=[1 sin(2*pi/3)+j*cos(2*pi/3) sin(4*pi/3)+j*cos(4*pi/3)];
" n, j1 E% H g; f - C=[1.02 1 1.02 1 1 1 1.02 1.02 1 1 1 1 1 1 1 1 1 1];
5 ^' y9 f1 K$ t1 z6 J1 z6 a, ?. k# L - U(:,1)=B(1,1)*C';1 v1 u' @; i; o* q( @- P
- U(:,2)=B(1,2)*C';5 D1 ?$ P5 b' O& J( z: l8 ^
- U(:,3)=B(1,3)*C';" ]' d8 e9 T5 V3 p/ Y$ H
- %-------------------求解潮流----------------- : h" k) c" `2 [+ D9 Z" K
- for k=1:15 1 }/ m1 f$ Q$ m ^7 B
- % I(:,k)=((DB(:,5).')*(diag(1./U(:,k))))'; ! u/ |0 d& S* `+ j
- for i=n:-1:1 * K5 l4 {' Y: P, |/ }
- %如果尾节点带恒功率负荷,需计算节点上负荷注入的电流
' w+ M5 t" C3 Q: T* |6 I; @+ G8 i, } - if DB(i,7)==1
4 Z5 ?) v8 }! G9 f+ Z - c=DB(i,5)/3; ^- E* g3 M" u1 O. F
- d=c/U(i+1,(3*k-2));3 A. e5 R2 b$ M+ R/ f
- IL(i,3*k-2)=conj(d);7 K6 ]+ M/ `# G2 z6 B
- d=c/U(i+1,3*k-1);
- f7 ?* ^& X7 L - IL(i,3*k-1)=conj(d);
# e4 _, }- k* P* g! \ - d=c/U(i+1,3*k); u. A! y, m( u; w" `3 N# Q
- IL(i,3*k)=conj(d);
1 _0 O+ w w' t6 @1 H6 O - else
- s# w) }# k9 N6 M - IL(i,3*k-2)=0;
7 ^- a; o) W9 {$ B- C, b - IL(i,3*k-1)=0;/ p1 g5 l1 }6 F# w3 }% d$ V
- IL(i,3*k)=0;
`4 m! D3 |8 w" x - end7 Z* X3 \+ C# G" e" w/ T9 o
- %找出所有与尾节点相连的支路,计算进支电流(末端电流),存IKj
, Q- |2 P8 h3 Z+ G; x9 r - A=(find(DB(:,2)==(i+1)));
7 m( c9 D3 a0 y' X5 C - if isempty(A)~=1) z5 L# F" s V% y9 l
- IKj(i,3*k-2)=IL(i,3*k-2)-sum(IKj(A,3*k-2));
0 M/ f9 y7 X# C. }+ T - IKj(i,3*k-1)=IL(i,3*k-1)-sum(IKj(A,3*k-1));
) G$ P* ?0 r" x4 a! w: s - IKj(i,3*k)=IL(i,3*k)-sum(IKj(A,3*k));* ]5 o: T z$ Z$ F
- else' d/ ~0 u; b3 m; {9 B% y
- IKj(i,3*k-2)=IL(i,3*k-2);& \& w- u( p" y& {( F9 v8 X0 U
- IKj(i,3*k-1)=IL(i,3*k-1);
% w* R6 M/ y/ Y* P6 \! M! Q& Z9 b - IKj(i,3*k)=IL(i,3*k);: ?0 J5 N+ _- X6 J
- end
+ ?5 s; r) a& B% |' y- g A0 Z - %计算出支电流(始端电流),存IKi' t$ v$ r4 d- U8 s7 q; G0 j1 P/ N- l
- a=DB(i,2);
' o- F% y& A: w* X - b=DB(i,3);
& @0 m- e y7 n - Yi=1/DB(i,4)*eye(3);
, T1 o5 g9 g2 B C - if DB(A,6)==1
1 O; g2 g# q! M/ Z7 A4 R$ S( ^ - F=0.5*Yi*[(U(a,3*k-2)+U(b,3*k-2)) (U(a,3*k-1)+U(b,3*k-1)) (U(a,3*k)+U(b,3*k))]'+[IKj(i,3*k-2) IKj(i,3*k-1) IKj(i,3*k)]';
2 _: E* U) @* e! _! p - IKi(i,3*k-2)=F(1,1);2 t2 u( I+ G4 I% W1 C& Q! _
- IKi(i,3*k-1)=F(2,1);- f2 n% U( l4 [& Y
- IKi(i,3*k)=F(3,1);: n% A% n7 @0 x% c& u& f1 D
- else: p! ~6 n3 V" T7 h, @+ g; o
- YT=1/real(DB(i,4))+j*(1/imag(DB(i,4)));# o# x) s6 x$ R7 C
- YI=YT*eye(3);% m5 k" S2 M5 `) M; X( H0 h
- YII=YT*eye(3);5 S1 x. m! `5 ?; l5 y2 J
- YIII=-YT*eye(3);
! n4 `" l( ]9 x! J" p- | - D=inv(YIII)*(-[IKj(i,3*k-2) IKj(i,3*k-1) IKj(i,3*k)]'-YII*([U(b,3*k-2) U(b,3*k-1) U(b,3*k)]'));4 M' f+ m7 I7 U3 Y8 Q, Q
- U(a,3*k+1)=D(1,1);
& J3 _1 P9 l2 y9 _( e( \$ d, Y1 N, K' w - U(a,3*k+2)=D(2,1);! k- t' u- q0 a: b* z2 L
- U(a,3*k+3)=D(3,1);5 {6 h1 ^# g8 j# j4 v7 ]" H
- E=YI*[U(a,3*k+1) U(a,3*k+2) U(a,3*k+3)]'-YIII*[U(b,3*k-2) U(b,3*k-1) U(b,3*k)]';) m6 E( z5 W. A$ H2 X2 j3 V* d' C
- IKi(i,3*k-2)=E(1,1);# v9 ^" ?3 \7 t! }6 @) I
- IKi(i,3*k-1)=E(2,1);. l. ^7 c, j6 S" N j/ k5 C
- IKi(i,3*k)=E(3,1);
f& n9 u1 Z8 ~( U* K! i' l) q' G' } - end
# x- [$ k: B, J+ a/ d! l' s- a - end 5 ?& p- P! \' j0 w+ j1 c
- %前推电压 . J/ ~; ~# O C) q- X$ r# [
- for j=2:n c- B8 N: o4 l! x
- U(1,3*k-2)=1.02;
) i% d* G/ I4 r8 E( W) [: M+ a - U(1,3*k-1)=1.02*(sin(2*pi/3)+j*cos(2*pi/3));
6 b) r, a8 q2 g( O5 w$ d' w& K - U(1,3*k)=1.02*(sin(4*pi/3)+j*cos(4*pi/3));/ E+ S8 B* C. H1 }2 N; i: V
- a=DB(j-1,2);
4 A: _, m4 m) Q' Q7 A+ A9 q! A - if DB(j-1,6)==1
# |1 d d4 y* f. O- ] - Yi=1/DB(j-1,4)*eye(3);
3 q3 X" [* ~" c5 H - G1=[IKi(a,3*k-2) IKi(a,3*k-1) IKi(a,3*k)]';1 h8 a, s) J1 ]; A6 Z0 p
- G=[U(a,3*k-2) U(a,3*k-1) U(a,3*k)]'-DB(j-1,4)*eye(3)*(G1-0.5*Yi*[U(a,3*k-2) U(a,3*k-1) U(a,3*k)]');4 o; n$ N1 F- S, @$ M' h* Q
- U(j,3*k+1)=G(1,1); 5 ~/ b/ \& }4 o* w- e% n. g! Y% ^
- U(j,3*k+2)=G(2,1);$ p% k8 j+ T' W u
- U(j,3*k+3)=G(3,1);
$ \# I$ i3 D+ J6 | - else
* B u9 Q; o! B* b2 i - YT=1/real(DB(i,4))+j*(1/imag(DB(i,4)));; n) ^1 r! _$ R" S$ _, h/ ?
- YI=YT*eye(3);
0 J% U- `1 X2 p/ f8 |: H/ } - YII=YT*eye(3);
7 S$ \2 S. V+ Z+ e) _ - YIII=-YT*eye(3);( P ]. v H3 s, Z) B. S+ {
- H=inv(YIII)*([IKi(a,3*k-2) IKi(a,3*k-1) IKi(a,3*k)]'-YI*[U(a,3*k+1) U(a,3*k+2) U(a,3*k+3)]');0 \! l; A+ f2 W E0 W7 B
- U(j,3*k+1)=H(1,1);
2 }7 L. |, q/ Z% a - U(j,3*k+2)=H(2,1);! j; b/ p: C- H1 r, A1 Z
- U(j,3*k+3)=H(3,1);
o9 Y5 V, w0 X4 U; h4 R - end ; |: K) Z% w( M! B Z" O/ m
- end! I) S* ?! M# `# C$ [9 W
- dU1=U(:,3*k+3)-U(:,3*k); 8 D8 h. S) s, H4 ~! B, @
- dU2=U(:,3*k+2)-U(:,3*k-1);
) g$ |! C8 U: r/ E* G - dU3=U(:,3*k+1)-U(:,3*k-2);
" B0 ^( k8 x* r) v - if (max(abs(dU1))<0.001&&max(abs(dU2))<0.001&&max(abs(dU2))<0.001) " i/ R$ m% \4 u6 m: i) M
- break;
4 t, T3 X$ `' W2 L9 y% H( Q. N - else
0 A4 u& f% r& r0 `4 [ - k=k+1;
8 q: G7 A* D( Z, _, Y. L$ ? - end ( J. s! B9 o2 {! _( b$ Q
- end* _8 x9 l+ L6 ~, B
- U; k. T4 ?' n& W3 J% Q- ^( i7 p# k
- IL
# \; z# U5 k1 n/ c X - IKj
% [$ t" U, \- r* p% Y - IKi
% j; ^+ P _& U - k c4 H7 z& L& ?) C0 a: H0 u9 t# o9 Z! N
复制代码 |
|