|
楼主 |
发表于 2009-4-5 10:19:06
|
显示全部楼层
clc
2 {* \. \6 n9 n" a+ E, oclear. `; u- T+ f. ^: F8 i/ E0 L
n=input('请输入节点数:n=');
2 x1 w. @+ R! j& Z n' w( ?9 q8 N- inl=input('请输入支路数:nl=');$ g- v! k2 c) g, ` X$ [$ P3 k5 ^
isb=input('请输入平衡母线节点号:isb=');
, a$ U8 c6 o. W8 u6 g) Ppr=input('请输入误差精度:pr=');
7 f) o: j Y9 c4 i- e& SB1=input('请输入由各支路参数形成的矩阵:B1=');; E; e D& N* A) T a L
B2=input('请输入各节点参数形成的矩阵:B2=');
K+ {" w% X3 N* a+ p7 h. S! PY=zeros(n); e=zeros(1,n);f=zeros(1,n);V=zeros(1,n);
$ E% _- N* R4 QO=zeros(1,n);S1=zeros(nl);& X/ A& X; G; H2 H4 w4 D2 [ C1 R
%求导纳矩阵, p8 H" k' r' T X. I& C& s5 z+ c
for i=1:nl6 G+ ^4 [. X o& m* n
if B1(i,6)==0 %NO.6
: q. d( w5 V7 b p=B1(i,1);q=B1(i,2);
# K1 L6 v- ?, }8 `- M! N* N7 S3 E! f else p=B1(i,2);q=B1(i,1);
, ]& }- Y* }; r6 `/ m$ L# Y( _ end4 Y2 \( y( o% a2 G% y- A
Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));%非对角元素) p1 g# P- K" L- d
Y(q,p)=Y(p,q);%非对角元素' o% P6 o1 n' t) H+ z
Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;%变压器支路 NO.5变比
2 T i0 Z" |7 Z" ~# G/ @8 v* y$ ? Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;" d; k7 v7 J2 Z( Z/ m
end7 d' b" m) m* R8 Z
disp('导纳矩阵Y=');+ h$ l, S4 q5 s2 Y3 r
disp(Y);
& o7 K% d7 t/ YG=real(Y);B=imag(Y);1 k/ t% O$ s/ F. H, \
for i=1:n%n=节点数" J1 w, @& F5 k0 H" M: ~9 a
e(i)=real(B2(i,3));%NO.3节点电压初值* s8 x& u! W% l$ E
f(i)=imag(B2(i,3));" n- V$ X6 @7 _5 \3 \4 k6 V9 [
V(i)=B2(i,4);%?7 w C, R4 M* ^: o4 U$ | q
end- B* r' }0 W- s( c& t, V" D
for i=1:n
$ X3 }; i( t2 G5 ?% { N S(i)=B2(i,1)-B2(i,2);% NO.1节点发出的功率,NO.2节点负荷大小,S(i)负荷数据0 v( P; z1 N4 l' ^( K- l, o
B(i,i)=B(i,i)+B2(i,5);% B=imag(Y),NO.5?; k4 @# K0 l8 u4 D2 P/ n) l
end/ M% W: J" ]7 `7 _
P=real(S);Q=imag(S); |
|