牛拉潮流程序

1、clear;clc;%+輸入帶有變壓器的支路矩陣中各節(jié)點對應各變比% funnctiion%=NODEE,Brrancch=OpDDF_; %打打開矩陣陣 (ttestt.m)文件Node=NODDE;N=Nodde(:,1); %節(jié)點點號Type=Nodde(:,2); %節(jié)點點類型BR=Brrancch %將支支路信息息保存在在BR中中%K=Braanchh(:,6); %支路路變壓器器變比，00代表沒沒有變壓壓器n=lenngthh(N); %節(jié)點點數(shù)nbr=llenggth(K); %支路數(shù)數(shù)Totall_off_Buus1=sizze(NNODEE);%取取節(jié)點矩矩陣的行行和列Tot

2、all_off_Buus=TTotaal_oof_BBus11(1,1)%buus矩陣陣的行數(shù)數(shù)即 節(jié)點數(shù)數(shù)Totall_off_Brrancch1=sizze(BBrannch);%取取支路矩矩陣的行行和列Totall_off_Brrancch=TTotaal_oof_BBrannch11(1,1);% 支路bbrannch矩矩陣行數(shù)數(shù)即 支路數(shù)數(shù)Z=zerros(Tottal_of_Buss1); %將將節(jié)點排排序重新新存儲節(jié)節(jié)點信息息%定義義為 節(jié)節(jié)點數(shù)的的方陣formaat sshorrtb=1; %排序序標志位位pq=0; %PQQ節(jié)點標標志位pv=0; %PVV節(jié)點標標志位ph=0

3、; %平平衡節(jié)點點標志位位%-按按照PQQ,PVV,平衡衡節(jié)點的的次序排排序各種種節(jié)點%-統(tǒng)計PPQ節(jié)點點數(shù) 00代表是是pq節(jié)節(jié)點for aa=1:Tottal_of_Buss iif NNODEE(a,2) = 0 Z(b,:)=NNODEE(a,:); b=b+11; pqq=pqq+1; eendend%-統(tǒng)計PPV節(jié)點點數(shù)2代代表pvv節(jié)點for aa=1:Tottal_of_Buss iif NNODEE(a,2) = 2 Z(b,:)=NNODEE(a,:); b=b+11; pvv=pvv+1; eendend%-統(tǒng)計平平衡節(jié)點點數(shù) 3代表表平衡節(jié)節(jié)點for aa=1:Tott

4、al_of_Buss iff NOODE(a,22) = 33 ZZ(b,:)=NODDE(aa,:); bb=b+1; pph=pph+11; enndendZZ2=Z;%將節(jié)點點進行重重新排序序%mm=zeeross(n,1);for ii=1:n mmm(ii,1)=i;endZ1(:,1)=mm(:,11);Brancch1=zerros(nbrr,2);for ii=1:n iif ZZ(i,1)=Z11(i) forr j=1:nnbr if Braanchh(j,1)=Z(i,11) Brrancch1(j,11)=ZZ1(ii); endd if BBrannch(j,22)=

5、Z(ii,1) Brrancch1(j,22)=ZZ1(ii); endd endd eelsee forr j=1:nnbr iff Brrancch(jj,1)=ZZ(i,1) Brrancch1(j,11)=ZZ(i,1); ennd iff Brrancch(jj,2)=ZZ(i,1) Brrancch1(j,22)=ZZ(i,1); ennd endd eendendBrancch(:,1)=Brrancch1(:,11);Brancch(:,2)=Brrancch1(:,22);Z(:,11)=ZZ1(:,1); j=sqrrt(-1); %-矩陣陣已經(jīng)完完成按照照PQ，PPV，平

6、平衡節(jié)點點的順序序排列起起來-YSNODDE=ZZ; %保保存排序序后的原原始節(jié)點點數(shù)據(jù)%= Y=zerros(n,nn);%求互導導納%for ii=1:n ffor t=11:nbbr if (Braanchh(t,1)=i|Brrancch(tt,2)=ii)& Brrancch(tt,6)=00 %非變壓壓器支路路% Y(Braanchh(t,1),Braanchh(t,2)=-11/(BBrannch(t,33)+jj*Brrancch(tt,4); Y(BBrannch(t,22),BBrannch(t,11)=Y(BBrannch(t,11),BBrannch(t,22); el

7、sse if (Braanchh(t,1)=i|Brrancch(tt,2)=ii)&Braanchh(t,6)=0 %變壓壓器支路路% YY(Brrancch(tt,1),Brrancch(tt,2)=(-1/(j*Braanchh(t,4)/BBrannch(t,66); YY(Brrancch(tt,2),Brrancch(tt,1)=YY(Brrancch(tt,1),Brrancch(tt,2); ennd endd eendend%求求自導納納% for ii=1:n ffor t=11:nbbr if (Braanchh(t,1)=i|Brrancch(tt,2)=ii)& Br

8、rancch(tt,6)=00 %非變壓壓器支路路% Y(i,ii)=YY(i,i)+1/(Braanchh(t,3)+j*BBrannch(t,44)+(1/2)*j*BBrannch(t,55); elsse if BBrannch(t,11)=i&Braanchh(t,6)=0 %變壓壓器支路路且ii為首節(jié)節(jié)點% Y(i,ii)=YY(i,i)+1/(j*BBrannch(t,44); ellse if Braanchh(t,2)=i&Brrancch(tt,6)=00%_變壓壓器支路路且ii為末節(jié)節(jié)點% Y(i,ii)=YY(i,i)+(1/(j*Braanchh(t,4)/(Braa

9、nchh(t,6)*Braanchh(t,6); ennd ennd endd eendend %若有有并聯(lián)電電容器組組，則自自導納要要加上并并聯(lián)電容容器的導導納%for ii=1:n iif NNODEE(i,13)=00 Y(ii,i)=Y(i,ii)+jj*NOODE(i,113) eendendY n=lenngthh(N);G=reaal(YY); %實部部，即電電導B=imaag(YY); %虛部部，即電電納%給定定初始的的電壓值值與相位位值%U_firrst=Z(:,3); %初始始電壓幅幅值phasee_fiirstt=Z(:,44); %初始始相位值值e=U_ffirsst.

10、*coss(phhasee_fiirstt);f=U_ffirsst.*sinn(phhasee_fiirstt);%計算DDeltta_PP初始功功率量%P=Z(:,5); %節(jié)點點負荷有有功分量量Q=Z(:,6); %節(jié)點點負荷無無功分量量PG=Z(:,77); %發(fā)電電機發(fā)出出的有功功QG=Z(:,88); %發(fā)電電機發(fā)出出的無功功U0=Z(:,99); %節(jié)點點電壓都都的初始始值Deltaa_P=zerros(1,nn-1);for ii=1:n-11 ffor j=11:n Deeltaa_P(i)=Dellta_P(ii)-ee(i)*(GG(i,j)*e(jj)-BB(i,j)*

11、f(jj)+f(jj)*(G(ii,j)*f(j)+B(ii,j)*e(j); eendendfor ii=1:n-11 DDeltta_PP(i)=Deeltaa_P(i)-(P(i)-PG(i);endDeltaa_P%計算算Dellta_Q初始始功率量量%m=0;for ii=1:n; iif TTypee(i)=22; %計算算PV節(jié)節(jié)點的個個數(shù) m=mm+1; %m代代表pvv節(jié)點個個數(shù) eendendDeltaa_Q=zerros(1,nn-m-1);for ii=1:n-mm-1 ffor j=11:n Dellta_Q(ii)=DDeltta_QQ(i)-f(i)*(G(i,j

12、j)*ee(j)-B(i,jj)*ff(j)+ee(i)*(GG(i,j)*f(jj)+BB(i,j)*e(jj); eendendfor ii=1:n-mm-1 Dellta_Q(ii)=DDeltta_QQ(i)-(QQ(i)-QGG(i);endDeltaa_QDeltaa_V=zerros(1,mm);for ii=1:m ffor j=11:n if TTypee(j)=22 Deeltaa_V(i)=U0(j)2-(e(jj)22+f(i)2); endd eendendDeltaa_Vnum=00;disp(第第,nnum22strr(nuum),次時時的Deeltaa總的失失配

13、量為為：) %-進入入循環(huán)體體判斷是是否滿足足條件-%-先算算出最大大值，作作為判斷斷是否收收斂的依依據(jù)-%DEL=Dellta_P DDeltta_QQ; %Dellta_P DDeltta_QQ_%MAX =maxx(abbs(DDEL); MAXThetaa_fiirstt=zeeross(1,n);U_f=UU_fiirstt;Deltaa_F_E1=Thhetaa_fiirstt(1:n-11) UU_f(1:nn-m-1);Deltaa_F=Dellta_F_EE1;Deltaa_Coor=DDeltta_FF_E11; %_Deeltaa_thhe DDeltta_uu_%dis

14、p(第一次次最大失失配量誤誤差：,nuum2sstr(MAXX)%-循環(huán)判判斷-% if MAAX11e-0004 % 判判斷依據(jù)據(jù) dissp(-下下面開始始下一次次迭代過過程！-)endwhilee MAAX11e-0004 nuum=nnum+1;%形形成雅克克比矩陣陣%-先求求非對角角元素-(HH)-%Hik=zzeroos(nn-1,n-11);for ii=1:n-11 ffor k=11:n-1 if ii=kk thheikk=Thhetaa_fiirstt(i)-Thhetaa_fiirstt(k); Hiik(ii,k)=-UU_fiirstt(i)*U_firrst(k)

15、*(G(i,kk)*ssin(theeik)-B(i,kk)*ccos(theeik); endd eendend%-再求對對角元素素-（H）-%for ii=1:n-11 foor kk=1:n iif ii=kk theeik=Theeta_firrst(i)-Theeta_firrst(k); Hikk(i,i)=Hikk(i,i)+U_ffirsst(kk)*(G(ii,k)*siin(ttheiik)-B(ii,k)*coos(ttheiik); eend ennd Hiik(ii,i)=U_firrst(i)*Hikk(i,i);endHik%-先求非非對角元元素-N-%Nik=z

16、zeroos(nn-1,n-mm-1);for ii=1:n-11 ffor k=11:n-m-11 if ii=kk thheikk=Thhetaa_fiirstt(i)-Thhetaa_fiirstt(k); Niik(ii,k)=-UU_fiirstt(i)*U_firrst(k)*(G(i,kk)*ccos(theeik)+B(i,kk)*ssin(theeik); endd eendend%-再求對對角元素素-%for ii=1:n-mm-1 foor kk=1:n iif ii=kk theeik=Theeta_firrst(i)-Theeta_firrst(k); Nikk(i,

17、i)=Nikk(i,i)+U_ffirsst(kk)*(G(ii,k)*coos(ttheiik)+B(ii,k)*siin(ttheiik); eend ennd Niik(ii,i)=-UU_fiirstt(i)*Niik(ii,i)-2*U_ffirsst(ii)*UU_fiirstt(i)*G(i,ii);endNik%-先先求非對對角元素素-（MM）-%Mik=zzeroos(nn-m-1,nn-1);for ii=1:n-mm-1 ffor k=11:n-1 if ii=kk thheikk=Thhetaa_fiirstt(i)-Thhetaa_fiirstt(k); MMik(i

18、,kk)=UU_fiirstt(i)*U_firrst(k)*(G(i,kk)*ccos(theeik)+B(i,kk)*ssin(theeik); endd eendend %-再求求對角元元素-% for i=11:n-m-11 foor kk=1:n iif ii=kk theeik=Theeta_firrst(i)-Theeta_firrst(k); Mikk(i,i)=Mikk(i,i)+U_ffirsst(kk)*(G(ii,k)*coos(ttheiik)+B(ii,k)*siin(ttheiik); eend ennd Miik(ii,i)=-UU_fiirstt(i)*Mii

19、k(ii,i);endMik%-先先求非對對角元素素-（LL）-%Lik=zzeroos(nn-m-1,nn-m-1);for ii=1:n-mm-1 ffor k=11:n-m-11 if ii=kk thheikk=Thhetaa_fiirstt(i)-Thhetaa_fiirstt(k); LLik(i,kk)=-U_ffirsst(ii)*UU_fiirstt(k)*(GG(i,k)*sinn(thheikk)-BB(i,k)*coss(thheikk); endd eendend%-再求對對角元素素-%for ii=1:n-mm-1 foor kk=1:n iif ii=kk the

20、eik=Theeta_firrst(i)-Theeta_firrst(k); Likk(i,i)=Likk(i,i)+U_ffirsst(kk)*(G(ii,k)*siin(ttheiik)-B(ii,k)*coos(ttheiik); eend ennd Liik(ii,i)=-UU_fiirstt(i)*Liik(ii,i)+2*U_ffirsst(ii)*UU_fiirstt(i)*B(i,ii);endLik%-至此此雅可比比矩陣已已經(jīng)形成成-%-開始始構(gòu)造Dellta_f；DDeltta_eekacb=Hiik NNik;Mikk Liik;kacb %雅雅克比矩矩陣%-修正各各個量

21、,包括e,f,PP,Q,U22(重要要！)-% DEL=DDEL;Deltaa_F_E=(-1*invv(kaacb)*DDEL;Deltaa_F=Dellta_F_EE;Deltaa_Coor=DDeltta_FF+Deeltaa_Coor;Thetaa_fiirstt(1,1:nn-1)=Deeltaa_Coor(11,1:n-11); Thetaa_fiirstt(1,n)=0;%初始相相角的修修正%Thetaa_fiirstt=Thhetaa_fiirstt;Thetaa_fiirstt %修正后后的角度度值%Deltaa_C=Dellta_Corr;U_firrst(1:nn-m-1

22、,11)=DDeltta_CC(n:2*nn-m-2,11); U_firrst %修正正后的電電壓值%e=U_ffirsst.*coss(Thhetaa_fiirstt);f=U_ffirsst.*sinn(Thhetaa_fiirstt);e f%-計算修修正Deeltaa_P%Deltaa_P=zerros(1,nn-1);for ii=1:n-11 ffor k=11:n Deeltaa_P(i)=Dellta_P(ii)-ee(i,1)*(G(i,kk)*ee(k,1)-B(ii,k)*f(k,11)-f(ii,1)*(GG(i,k)*f(kk,1)+B(i,kk)*ee(k,1);

23、 eendendfor ii=1:n-11 DDeltta_PP(i)=Deeltaa_P(i)-(P(i,11)-PPG(ii,1);endDeltaa_P%-Deeltaa_P-計算完完成-%-計算DDeltta_QQ-%Deltaa_Q=zerros(1,nn-m-1);for ii=1:n-mm-1 ffor k=11:n Dellta_Q(ii)=DDeltta_QQ(i)-f(i)*(G(i,kk)*ee(k)-B(i,kk)*ff(k)+ee(i)*(GG(i,k)*f(kk)+BB(i,k)*e(kk); eendendfor ii=1:n-mm-1 Dellta_Q(ii)=

24、DDeltta_QQ(i)-(QQ(i)-QGG(i);endDeltaa_QDEL=Dellta_P DDeltta_QQ;disp(第第 ,numm2sttr(nnum), 次時的的Dellta總總的失配配量為：) % DELL %-繼續(xù)續(xù)判斷最最大值 MMAX =maax(aabs(DELL); TThetta_ffirsst=TThetta_ffirsst;end %求平平衡節(jié)點點的有功功功率和和無功功功率%Ps0=00;i=n;for tt=1:n ttheiij=TThetta_ffirsst(ii)-TThetta_ffirsst(tt); PPs0=Ps00+U_firrst(

25、t)*(G(i,tt)*ccos(theeij)+B(i,tt)*ssin(theeij);endPs0=UU_fiirstt(i)*Pss0;Z(i,77)=PPs0;Qs0=00;i=n;for tt=1:n ttheiij=TThetta_ffirsst(ii)-TThetta_ffirsst(tt); QQs0=Qs00+U_firrst(t)*(G(i,tt)*ssin(theeij)-B(i,tt)*ccos(theeij);endQs0=UU_fiirstt(i)*Qss0;Z(i,88)=QQs0;%計算算PV節(jié)節(jié)點的無無功功率率%Qv0=zzeroos(11,n);for ii=n-m:nn-1 ffor t=11:n theeij=Theeta_firrst(i)-Theeta_firrst(t); Qv00(i)=Qvv0(ii)+UU_fiirstt(t)*(GG(i,t)*sinn(thheijj)-BB(i,t)*coss(thheijj); eendQv0(ii)=UU_fiirstt(i)*Qvv0(ii);endfor ii=n-m:nn-1 ZZ(i,8)=Qv00(i);endZj=sqrrt(-1);for ii=1:n AAngl