|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
各位大牛,求助啊~~# W2 U. C* T" x" t- G
我毕设的题目是交直流混联系统的潮流计算,自己编了交替迭代法的的PQ分解法程序,计算结果与书上算例结果误差最大有12%。
$ P% S x( y1 s: G; i4 R于是测试了纯交流部分的程序,也就是一般的PQ法,对照着现代电力系统分析P86上的例子,发现自己程序B1矩阵算到的结果跟书上的有差,致使第一次迭代时相角的修正量跟标准值就差了4%左右。但是查到我程序生成的B1矩阵跟自己手算的结果是一样的啊……' F! M6 y' i+ Q% y5 p1 D3 n
9 q7 N% F- E1 n% _& u) P& z1 ~附上相关部分代码 Ps 我得到的节点导纳矩阵和B2矩阵都是和书上的一样的,真心搞不懂了,求解答啊~~~/ G$ V" B4 M6 y5 G o; l) s1 O
5 c! I3 u' Y/ l+ F) S
. i. J, T; F t4 H, Vfunction [Bp, Bpp] = makeB(Node,Branch)
; X5 K8 L, U$ G: _* f* `* ]5 U5 D- }2 y: P' y/ a
%% define named indices into node, branch matrices0 v- K1 h& i9 N% l
[PQ, PV, REF, ...
4 e# x3 I |+ A' {9 B1 R' T/ t TRANS, CAPAC, LINE,...
6 N0 u8 [( L) X9 t5 \ NODE_I, BUS_TYPE,PG,QG, PL, QL, V, THETA, ...$ Z D% Y/ f! S( |3 G
BRANCHNUM, NODE1, NODE2, R, X, BORK, BRANCH_TYPE, STATUS, P1, Q1, P2, Q2] = index;5 p5 p6 ?) r8 ?* s c+ b
$ ?: R3 ]7 n1 w4 x1 e1 y7 W. G
%% form index lists for slack, PV, and PQ buses
3 j; Q2 N" r, ~2 Kref = find(Node(:, 2) == 3); %% reference bus index- X1 a0 C; y/ ?8 j
pv = find(Node(:, BUS_TYPE) == PV); %% PV bus indices
3 N$ P& D+ d+ w1 vpq = find(Node(:, BUS_TYPE) == PQ); %% PQ bus indices5 s# }8 N F7 \& b0 N) Q2 x% H
" D5 Y( s9 Q; V) h8 I1 w- {2 D0 E
%*************************************************************************%$ n! B3 A* |3 t. N3 M
% form Bp
% M+ i$ _. j/ L: J6 p5 ~%*************************************************************************%
7 b2 |; h# |9 b8 `$ x* K8 `% J# g2 M+ s7 y' z. a% g. p
%找出非接地支路
! S* b4 ?- o( U) vtemp = find( Branch(:,NODE2)~=0 );, P; H+ w$ o/ ~1 r' m. ~$ l
NongroundingBranch = Branch(temp,:); Z1 H5 [* \0 i) A0 P
8 k5 w. d- H: \9 W
%忽略线路充电电容
8 s6 |! W5 q& @& d$ j l: MNongroundingBranch(:,BORK) = 0;
- H3 E" A+ ^ M
4 J' _* K. o6 w3 |4 ?/ @! U6 i) H& z%不考虑变压器非标准变比$ v! s: W0 ^ J4 J
temp = find( NongroundingBranch(:,BRANCH_TYPE)==TRANS );
2 X: y7 ]( N% |; V. x2 _NongroundingBranch(temp,BORK) = 1;
/ j( g) ~) u6 n- v$ eY = makeY(Node,NongroundingBranch);
" U4 r/ {& \: f( s" HBp = imag( Y );
, ? S7 x1 w( BBp = Bp([pq; pv], [pq; pv]) ; % reduce Bp matrices
& E& e3 H* ]! C# v, D
& T1 g( \: o+ ?* L%*************************************************************************%1 I- \/ K! [) x5 {5 F" u
% form Bpp
6 w7 ~! E; \; Q+ `%*************************************************************************%
( m- ?3 }6 T7 d/ M5 sBranch(:,4)=0;%忽略输电线路电阻
+ d' f! q# @9 YY = makeY(Node,Branch);
) J) X1 D# j, E( YBpp = imag( Y );
9 r- N7 L9 p& Q; \* X( t% l8 p3 YBpp = Bpp(pq, pq); % reduce Bp matrices
' K+ J$ P6 [& o% s( D( p
3 o* ]9 ^* ?5 R) U+ g$ \7 l# Breturn; |
|