|
|
楼主 |
发表于 2009-4-5 10:19:06
|
显示全部楼层
clc V- A' A4 D$ S; v) G( _
clear1 a5 ^8 {- q6 i' I* W
n=input('请输入节点数:n=');! q p7 d% l& l( Y; w* b& C
nl=input('请输入支路数:nl=');
7 V# O, {! v) O8 M5 e/ z3 v# a9 n* S9 Cisb=input('请输入平衡母线节点号:isb=');2 Z( a n9 C1 g% I0 D- p
pr=input('请输入误差精度:pr=');. y! y8 G1 }. |1 N
B1=input('请输入由各支路参数形成的矩阵:B1=');
! U I4 s' ]2 O4 M" C" HB2=input('请输入各节点参数形成的矩阵:B2=');
2 I( o! \* a: _* J9 D" F2 `0 sY=zeros(n); e=zeros(1,n);f=zeros(1,n);V=zeros(1,n);
& Y# B9 I* I3 T( @& vO=zeros(1,n);S1=zeros(nl);) t- p/ X0 O% I
%求导纳矩阵
$ W' m9 [) t/ ` e. k6 ?) F1 @for i=1:nl
! ?# T" S$ Q6 p: r: @7 O if B1(i,6)==0 %NO.6
/ e6 a+ S0 M- n8 } p=B1(i,1);q=B1(i,2);6 m4 m+ N" J9 G- H! x
else p=B1(i,2);q=B1(i,1);& z, b* C0 j% R' J2 i
end
/ n# _) \6 [# } Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));%非对角元素
3 Z* [3 G& b: J Y(q,p)=Y(p,q);%非对角元素
+ H/ N8 [" w# ^0 ?* v5 W% x5 c Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;%变压器支路 NO.5变比
% t5 p6 e( F c& {) Z! @ Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;8 Q7 o0 a7 l5 F% U
end
2 k% F. F) v9 y+ I0 w- vdisp('导纳矩阵Y=');
# ]6 ?% C2 W3 T5 ^5 a1 J Sdisp(Y);
9 L1 P: r; `( d( cG=real(Y);B=imag(Y);( N v$ H5 _& c9 h7 Q! w* _
for i=1:n%n=节点数
- I8 C6 W5 ~* j8 @' Y8 U e(i)=real(B2(i,3));%NO.3节点电压初值5 i) i/ R0 {% Z- S
f(i)=imag(B2(i,3)); m0 y5 g& m: w
V(i)=B2(i,4);%?9 q' b/ J8 a0 A' V( m/ Z+ E4 n
end
$ b* r7 ?3 G1 j% ifor i=1:n
/ }' n, `+ p1 X S(i)=B2(i,1)-B2(i,2);% NO.1节点发出的功率,NO.2节点负荷大小,S(i)负荷数据
0 G' Z/ y) @+ b% I1 x) p: b. A B(i,i)=B(i,i)+B2(i,5);% B=imag(Y),NO.5?
; x4 U! T$ b9 k, R5 e _end9 |* L$ I$ C _
P=real(S);Q=imag(S); |
|