MATLAB潮流計(jì)算仿真

1、附錄AMATL%本程序的功能是用牛頓一一拉夫遜法進(jìn)行潮流計(jì)算%B1矩陣：1、支路首端號；2、末端號；3、支路阻抗；4、支路對地電納%5、支路的變比；6、支路首端處于K側(cè)為1,1側(cè)為0%B2矩陣：1、該節(jié)點(diǎn)發(fā)電機(jī)功率；2、該節(jié)點(diǎn)負(fù)荷功率；3、節(jié)點(diǎn)電壓初始值%4、PV節(jié)點(diǎn)電壓V的給定值；5、節(jié)點(diǎn)所接的無功補(bǔ)償設(shè)備的容量%6、節(jié)點(diǎn)分類標(biāo)號clear;n=10;%input(請輸入節(jié)點(diǎn)數(shù)：n=);nl=11;%input(請輸入支路數(shù):nl=);isb=1;%input(請輸入平衡母線節(jié)點(diǎn)號：isb=);pr=0.00001;%input(請輸入誤差精度：pr=);B1=121.755e-2+4.15

2、5e-2i0.26i10;143.159e-2+7.479e-2i0.1215i10;1 63.159e-2+7.479e-2i0.1215i10;2 33.68e-3+0.11135i00.9091;453.68e-3+0.11135i00.9091;462.808e-2+6.648e-2i0.108i10;673.0865e-3+0.0833i00.9091;683.159e-2+7.479e-2i0.1215i10;6102.457e-2+5.817e-2i0.0945i10;893.0865e-3+0.0833i00.9091;8102.808e-2+6.648e-2i0.108i10

3、;%input(請輸入由支路參數(shù)形成的矩陣：B1=);B2=001.051.0501;001002;00.6+0.3718i1002;001002;00.4+0.247i1002;001002;00.35+0.2169i1002;001002;00.5+0.3099i1002;0.801.051.0503;%input(請輸入各節(jié)點(diǎn)參數(shù)形成的矩陣：B2=);Y=zeros(n);e=zeros(1,n);f=zeros(1,n);V=zeros(1,n);sida=zeros(1,n);S1=zeros(nl);%修改部分ym=0;SB=100;UB=220;%ym=input(您輸入的參數(shù)是

4、標(biāo)么值？(若不是則輸入一個不為零的數(shù)值);ifym=0%SB=input(請輸入功率基準(zhǔn)值：SB=);%UB=input(請輸入電壓基準(zhǔn)值:UB=);YB=SB./UB./UB;BB1=B1;BB2=B2;fori=1:nlB1(i,3)=B1(i,3)*YB;B1(i,4)=B1(i,4)./YB;enddisp(B1矩陣B1=);disp(B1)fori=1:nB2(i,1)=B2(i,1)./SB;B2(i,2)=B2(i,2)./SB;B2(i,3)=B2(i,3)./UB;B2(i,4)=B2(i,4)./UB;B2(i,5)=B2(i,5)./SB;enddisp(B2矩陣B2=)

5、;disp(B2)end%fori=1:nl%ifB1(i,6)=0%p=B1(i,1);q=B1(i,2);elsep=B1(i,2);q=B1(i,1);endY(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5);%Y(q,p)=Y(p,q);Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)A2)+B1(i,4)./2;%Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;%end%求導(dǎo)納矩陣disp(導(dǎo)納矩陣Y=);disp(Y)%支路數(shù)左節(jié)點(diǎn)處于低壓側(cè)非對角元對角元K側(cè)對角元1側(cè)G=real(Y);B=imag(Y);%fori=1:

6、n%e(i)=real(B2(i,3);f(i)=imag(B2(i,3);V(i)=B2(i,4);%PVendfori=1:n%分解出導(dǎo)納陣的實(shí)部和虛部給定各節(jié)點(diǎn)初始電壓的實(shí)部和虛部節(jié)點(diǎn)電壓給定模值給定各節(jié)點(diǎn)注入功率節(jié)點(diǎn)注入功率SG-SL節(jié)點(diǎn)無功補(bǔ)償量S(i)=B2(i,1)-B2(i,2);%iB(i,i)=B(i,i)+B2(i,5);%iend%=P=real(S);Q=imag(S);ICT1=0;IT2=1;N0=2*n;N=N0+1;a=0;whileIT2=0以下針對非PV節(jié)點(diǎn)來求取功率差及%以上為除平衡節(jié)點(diǎn)外其它節(jié)點(diǎn)的功率計(jì)算非平衡節(jié)點(diǎn)IT2=0;a=a+1;fori=1:

7、nifi=isb%C(i)=0;D(i)=0;forj1=1:nC(i)=C(i)+G(i,j1)*e(j1)-B(i,j1)*f(j1);%(Gij*ej-Bij*fj)D(i)=D(i)+G(i,j1)*f(j1)+B(i,j1)*e(j1);%(Gij*fj+Bij*ej)endP1=C(i)*e(i)+f(i)*D(i);%(Gij*ej-Bij*fj)+fi2(Gij*fj+Bij*ej)Q1=C(i)*f(i)-e(i)*D(i);%(Gij*ej-Bij*fj)-ei2(Gij*fj+Bij*ej)球P,QV2=e(i)A2+f(i)A2;%=ifB2(i,6)=3DP=P(i)

8、-P1;DQ=Q(i)-Q1;%=節(jié)點(diǎn)功率P計(jì)算ei2節(jié)點(diǎn)功率Q計(jì)算fi2電壓模平方Jacobi矩陣元素=非PV節(jié)點(diǎn)節(jié)點(diǎn)有功功率差節(jié)點(diǎn)無功功率差%=求取Jacobi矩陣=forj1=1:nifj1=isb&j1=i%非平衡節(jié)點(diǎn)&非對角元X1=-G(i,j1)*e(i)-B(i,j1)*f(i);dP/de=-dQ/dfX2=B(i,j1)*e(i)-G(i,j1)*f(i);dP/df=dQ/deX3=X2;%X2=dp/dfX3=dQ/deX4=-X1;%X1=dP/deX4=dQ/dfp=2*i-1;q=2*j1-1;J(p,q)=X3;J(p,N)=DQ;m=p+1;J(m,q)=X1;

9、J(m,N)=DP;q=q+1;J(p,q)=X4;J(m,q)=X2;elseifj1=i&j1=isb%非平衡節(jié)點(diǎn)&對角元X1=-C(i)-G(i,i)*e(i)-B(i,i)*f(i);%dP/deX2=-D(i)+B(i,i)*e(i)-G(i,i)*f(i);%dP/dfX3=D(i)+B(i,i)*e(i)-G(i,i)*f(i);%dQ/deX4=-C(i)+G(i,i)*e(i)+B(i,i)*f(i);%dQ/dfp=2*i-1;q=2*j1-1;J(p,q)=X3;J(p,N)=DQ;%擴(kuò)展列Qm=p+1;J(m,q)=X1;q=q+1;J(p,q)=X4;J(m,N)=D

10、P;%擴(kuò)展列PJ(m,q)=X2;endendelse%=下面是針對PV節(jié)點(diǎn)來求取Jacobi矩陣的元素DP=P(i)-P1;%PV節(jié)點(diǎn)有功誤差DV=V(i)A2-V2;%PV節(jié)點(diǎn)電壓誤差forj1=1:nifj1=isb&j1=i%非平衡節(jié)點(diǎn)&非對角元X1=-G(i,j1)*e(i)-B(i,j1)*f(i);%dP/deX2=B(i,j1)*e(i)-G(i,j1)*f(i);%dP/dfX5=0;X6=0;p=2*i-1;q=2*j1-1;J(p,q)=X5;J(p,N)=DV;m=p+1;J(m,q)=X1;J(m,N)=DP;q=q+1;J(p,q)=X6;J(m,q)=X2;els

11、eifj1=i&j1=isb%非平衡節(jié)點(diǎn)&對角元X1=-C(i)-G(i,i)*e(i)-B(i,i)*f(i);%dP/deX2=-D(i)+B(i,i)*e(i)-G(i,i)*f(i);%dP/dfX5=-2*e(i);X6=-2*f(i);p=2*i-1;q=2*j1-1;J(p,q)=X5;J(p,N)=DV;m=p+1;J(m,q)=X1;J(m,N)=DP;q=q+1;J(p,q)=X6;J(m,q)=X2;endendendendend%=以上為求雅可比矩陣的各個元素=fork=3:N0是平衡節(jié)點(diǎn)）N0=2*n（從第三行開始，第一、二行k1=k+1;N1=N;%fork2=k1

12、:N1%J(k,k2)=J(k,k2)./J(k,k);%endJ(k,k)=1;%ifk=3%N=N0+1即N=2*n+1擴(kuò)展列P、Q擴(kuò)展列P、Q非對角元規(guī)格化對角元規(guī)格化不是第三行%=k4=k-1;用k3行從第三行開始到當(dāng)前行前的k4fork3=3:k4%行消去fork2=k1:N1%k3行后各行下三角元素J(k3,k2)=J(k3,k2)-J(k3,k)*J(k,k2);%消去運(yùn)算endJ(k3,k)=0;endifk=N0break;end%=fork3=k1:N0fork2=k1:N1J(k3,k2)=J(k3,k2)-J(k3,k)*J(k,k2);%消去運(yùn)算endJ(k3,k)=

13、0;endelsefork3=k1:N0fork2=k1:N1J(k3,k2)=J(k3,k2)-J(k3,k)*J(k,k2);%消去運(yùn)算endJ(k3,k)=0;endendend%=上面是用線性變換方式將Jacobi矩陣化成單位矩陣fork=3:2:N0-1L=(k+1)./2;修改節(jié)點(diǎn)電壓實(shí)部修改節(jié)點(diǎn)電壓虛部e(L)=e(L)-J(k,N);%k1=k+1;f(L)=f(L)-J(k1,N);%end%fork=3:N0修改節(jié)點(diǎn)電壓DET=abs(J(k,N);ifDET=pr%電壓偏差量是否滿足要求IT2=IT2+1;%不滿足要求的節(jié)點(diǎn)數(shù)加1endendICT2(a)=IT2;ICT

14、1=ICT1+1;end%用高斯消去法解w=-J*Vdisp(迭代次數(shù)：);disp(ICT1);disp(沒有達(dá)到精度要求的個數(shù)：);disp(ICT2);fork=1:nV(k)=sqrt(e(k)A2+f(k)A2);sida(k)=atan(f(k)./e(k)*180./pi;E(k)=e(k)+f(k)*j;end%=計(jì)算各輸出量=disp(各節(jié)點(diǎn)的實(shí)際電壓標(biāo)幺值E為(節(jié)點(diǎn)號從小到大排列)：)；disp(E);EE=E*UB;disp(EE);disp();disp(各節(jié)點(diǎn)的電壓大小V為(節(jié)點(diǎn)號從小到大排列)：)；disp(V);VV=V*UB;disp(VV);disp();di

15、sp(各節(jié)點(diǎn)的電壓相角sida為(節(jié)點(diǎn)號從小到大排列)：)；disp(sida);forp=1:nC(p)=0;forq=1:nC(p)=C(p)+conj(Y(p,q)*conj(E(q);endS(p)=E(p)*C(p);enddisp(各節(jié)點(diǎn)的功率S為(節(jié)點(diǎn)號從小到大排列)：)；disp(S);disp();SS=S*SB;disp(SS);disp()；disp(各條支路的首端功率Si為(順序同您輸入B1時一致)：);fori=1:nlp=B1(i,1);q=B1(i,2);ifB1(i,6)=0Si(p,q)=E(p)*(conj(E(p)*conj(B1(i,4)./2)+(co

16、nj(E(p)*B1(i,5)-conj(E(q)*conj(1./(B1(i,3)*B1(i,5);Siz(i)=Si(p,q);elseSi(p,q)=E(p)*(conj(E(p)*conj(B1(i,4)./2)+(conj(E(p)./B1(i,5)-conj(E(q)*conj(1./(B1(i,3)*B1(i,5);Siz(i)=Si(p,q);enddisp(Si(p,q);SSi(p,q)=Si(p,q)*SB;ZF=S(,num2str(p),num2str(q),)=,num2str(SSi(p,q);disp(ZF);%disp(SSi(p,q);disp();endd

17、isp(各條支路的末端功率Sj為(順序同您輸入B1時一致)：);fori=1:nlp=B1(i,1);q=B1(i,2);ifB1(i,6)=0Sj(q,p)=E(q)*(conj(E(q)*conj(B1(i,4)./2)+(conj(E(q)./B1(i,5)-conj(E(p)*conj(1./(B1(i,3)*B1(i,5);Sjy(i)=Sj(q,p);elseSj(q,p)=E(q)*(conj(E(q)*conj(B1(i,4)./2)+(conj(E(q)*B1(i,5)-conj(E(p)*conj(1./(B1(i,3)*B1(i,5);Sjy(i)=Sj(q,p);enddisp(Sj(q,p);SSj(q,p)=Sj(q,p)*SB;ZF=S(,num2str(q),num2str(p),)=,num2str(SSj(q,p);disp(ZF);%disp(SSj(q,p);disp()；enddisp(各條支路的功率損耗DS為(順序同您輸入B1時一致)：);fori=1:nlp=B1(i,1);q=B1(i,2);DS(i)=Si(p,q)+Sj(q,p);disp(DS(i);DDS(i)=DS(i)*SB;ZF=DS(,num2str(p)