|
|
马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!
您需要 登录 才可以下载或查看,没有账号?立即加入
×
各位大牛,求助啊~~
' h4 D0 L2 g0 o9 S: J9 N! i2 c我毕设的题目是交直流混联系统的潮流计算,自己编了交替迭代法的的PQ分解法程序,计算结果与书上算例结果误差最大有12%。/ A, g# {' [2 X
于是测试了纯交流部分的程序,也就是一般的PQ法,对照着现代电力系统分析P86上的例子,发现自己程序B1矩阵算到的结果跟书上的有差,致使第一次迭代时相角的修正量跟标准值就差了4%左右。但是查到我程序生成的B1矩阵跟自己手算的结果是一样的啊……3 T) Z3 B( Y% C* B& u, ?; M3 p& c
2 j' a8 v8 U+ r6 H0 G2 X3 J7 q
附上相关部分代码 Ps 我得到的节点导纳矩阵和B2矩阵都是和书上的一样的,真心搞不懂了,求解答啊~~~2 ?+ L% g4 g; W! t' v: d# s
8 C# x% j4 ^9 n! L
A; s$ w! W: J+ C& h5 _function [Bp, Bpp] = makeB(Node,Branch)
; F, E, p# }: ]* i P
8 }; q" I% x2 i% H) k9 @- ?0 G%% define named indices into node, branch matrices
( N: S8 e7 z; P1 s# c[PQ, PV, REF, ...
& o$ S6 [; ^4 y& t: d" S TRANS, CAPAC, LINE,...
v9 [2 @2 m \- K) ?; ~ NODE_I, BUS_TYPE,PG,QG, PL, QL, V, THETA, ...
9 Z9 u. @3 Z- H BRANCHNUM, NODE1, NODE2, R, X, BORK, BRANCH_TYPE, STATUS, P1, Q1, P2, Q2] = index;- s% i. W# j8 K/ o7 z
7 Z( R* l2 q% D! v. e/ Z- p
%% form index lists for slack, PV, and PQ buses
; @$ A( h9 J5 z) v' jref = find(Node(:, 2) == 3); %% reference bus index
$ P$ W* z* H |+ qpv = find(Node(:, BUS_TYPE) == PV); %% PV bus indices
9 U* P" `, O' W, b/ f/ J; ypq = find(Node(:, BUS_TYPE) == PQ); %% PQ bus indices4 }) @( f6 O6 k5 t5 o4 n; B3 V
4 r2 V1 k' n3 w* i7 V* U/ f% C
%*************************************************************************%
) J" c& a) @. \9 ?( |) ?% form Bp" p' \5 N `1 [7 j l) B
%*************************************************************************%
j9 _! _# b$ P% u9 S
5 M' ~7 Q1 j" D" m( P%找出非接地支路
5 j1 Y/ c( a- S4 U! J5 y) o/ L$ C y7 Wtemp = find( Branch(:,NODE2)~=0 );3 Y* E$ P% S' p
NongroundingBranch = Branch(temp,:);
# v- I9 [* V @5 i* \( V
& ? O1 ?/ T- l; L! w%忽略线路充电电容. l1 q6 N4 i3 w! t
NongroundingBranch(:,BORK) = 0;
( n4 W; y# a9 R K8 j! s) x
: R. u* c# E3 B! a& g% `7 b% j%不考虑变压器非标准变比
7 k0 r# r* j: `* H5 n) btemp = find( NongroundingBranch(:,BRANCH_TYPE)==TRANS );
- |6 s) H8 z6 o# k/ Y$ T& s. b7 }, ENongroundingBranch(temp,BORK) = 1;
3 A4 W" p, u9 _, |2 J7 [' V( I( HY = makeY(Node,NongroundingBranch);
5 |- D/ A ~: M) P0 _8 B. E# ABp = imag( Y );
5 p$ x1 \; T6 q) C! pBp = Bp([pq; pv], [pq; pv]) ; % reduce Bp matrices
3 C* B* ~: j0 F, ?! U3 b- Q
: j. Y/ N& ~) W) }; }. e%*************************************************************************%
& A6 S0 E' ^2 F5 H. l: U% form Bpp
- e) y# n5 V; }%*************************************************************************%6 ~4 O! J k# H, k0 Q- S
Branch(:,4)=0;%忽略输电线路电阻' ~4 M0 z5 ^' i1 b$ [% k9 k5 s
Y = makeY(Node,Branch);# K4 o9 O4 z$ t8 ?* r% n
Bpp = imag( Y );
0 D: d- ~; H6 E4 kBpp = Bpp(pq, pq); % reduce Bp matrices/ p. ?# \% j' X# s
Y! F1 b" _; ~# F. I& j! D% W! ? Ireturn; |
|