|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
各位大牛,求助啊~~' b" u) v. f/ N1 h5 F
我毕设的题目是交直流混联系统的潮流计算,自己编了交替迭代法的的PQ分解法程序,计算结果与书上算例结果误差最大有12%。
6 M+ X; Y! w8 q, |& Q于是测试了纯交流部分的程序,也就是一般的PQ法,对照着现代电力系统分析P86上的例子,发现自己程序B1矩阵算到的结果跟书上的有差,致使第一次迭代时相角的修正量跟标准值就差了4%左右。但是查到我程序生成的B1矩阵跟自己手算的结果是一样的啊……4 j4 O" O, \% W6 U6 b/ B" d
4 O3 G/ ?+ _" t, {8 W6 G7 E: n: p
附上相关部分代码 Ps 我得到的节点导纳矩阵和B2矩阵都是和书上的一样的,真心搞不懂了,求解答啊~~~
- b) m+ D1 q% R, p, \; n) P- O+ {2 C; b' b+ a& z
) V( f7 f g* D P: J. n3 N
function [Bp, Bpp] = makeB(Node,Branch)7 ^3 n$ T9 |( B; k y j; X2 \
2 j5 E, l e1 k/ l d. a/ F; a
%% define named indices into node, branch matrices$ B3 ^! T3 g6 S
[PQ, PV, REF, ...; E* \9 r4 q0 t$ e3 m
TRANS, CAPAC, LINE,...
1 a6 C& t$ _5 [ NODE_I, BUS_TYPE,PG,QG, PL, QL, V, THETA, ...
6 C3 S. W. j3 A- l7 O BRANCHNUM, NODE1, NODE2, R, X, BORK, BRANCH_TYPE, STATUS, P1, Q1, P2, Q2] = index;
! B$ M, c" f* O$ e
& h) g# g! N, J# n0 j%% form index lists for slack, PV, and PQ buses
0 Q6 M3 H* v6 u! X9 Cref = find(Node(:, 2) == 3); %% reference bus index/ e2 t% z; \- v, |" y5 M8 n s
pv = find(Node(:, BUS_TYPE) == PV); %% PV bus indices7 q6 w% S8 h: K3 p7 D' I# B
pq = find(Node(:, BUS_TYPE) == PQ); %% PQ bus indices
( E0 l5 |& z' T( m0 P9 K
) u& s* C/ |- y# t( }3 r1 i%*************************************************************************%
9 Q w5 X1 v5 K7 ~% form Bp
$ g" p- z. Z/ t: d1 _7 P0 ^' X' a%*************************************************************************%
9 \# \ _- C% c' [- d( Z C1 o2 G/ O& m$ q
%找出非接地支路. L& W8 j) u3 O: A: M. M7 q4 }
temp = find( Branch(:,NODE2)~=0 );
& l9 A% ^9 _( H. bNongroundingBranch = Branch(temp,:);2 e0 v; @! q( ~9 o0 x. ?$ V
6 ^1 x, x1 `7 p$ W%忽略线路充电电容
! K5 H$ o5 V5 T+ ?+ g' I+ aNongroundingBranch(:,BORK) = 0;( S, u6 g8 `) z6 ]6 R4 q, w/ ]! L/ q0 G
" C" U# X& c- b( U% S%不考虑变压器非标准变比& _% r( b1 t1 \6 N, V2 |
temp = find( NongroundingBranch(:,BRANCH_TYPE)==TRANS );2 B0 p: l4 J+ o$ q( e9 v' H
NongroundingBranch(temp,BORK) = 1;
- p% {$ `/ s; `, P6 y: u JY = makeY(Node,NongroundingBranch);
, g5 e% S& x+ j/ ^! ZBp = imag( Y );4 S2 M, _' W1 @* E6 t x
Bp = Bp([pq; pv], [pq; pv]) ; % reduce Bp matrices+ f0 F& a+ `: ?# o2 Q
- H- w# q6 W$ y3 q, |& P8 j%*************************************************************************%
6 L+ X N4 n# ^1 J8 ]- F4 `" _$ ^% form Bpp6 G2 }- A) D6 N0 R2 R# [
%*************************************************************************%
0 n0 a) W% d- U/ A3 G6 B: |$ e* dBranch(:,4)=0;%忽略输电线路电阻5 p# X' ]! f: l+ @' N
Y = makeY(Node,Branch);
[& Q0 ?" A' G3 l& T. sBpp = imag( Y );4 i: i0 l1 D2 o: n% @1 B
Bpp = Bpp(pq, pq); % reduce Bp matrices/ z2 g( h0 ~& g* H! `8 ^0 l- m
& R* C9 u$ [, o* R, u, O% c$ Zreturn; |
|