電力系統(tǒng)分析大作業(yè)matlab三機九節(jié)點潮流計算報告

1、電力系統(tǒng)分析大作業(yè) 一、設計題目本次設計題目選自課本第五章例5-8,美國西部聯(lián)合電網(wǎng)WSCC系統(tǒng)的簡化三機九節(jié)點系統(tǒng)，例題中已經(jīng)給出了潮流結果，計算結果可以與之對照。取=0.00001 。二、計算步驟 第一步，為了方便編程，修改節(jié)點的序號，將平衡節(jié)點放在最后。如下圖： 92132745683 第二步，這樣得出的系統(tǒng)參數(shù)如下表所示： 第三步，形成節(jié)點導納矩陣。 第四步，設定初值： ； ，。 第五步，計算失配功率 =0，=-1.25，=-0.9，=0，=-1，=0，=1.63， =0.85； =0.8614，=-0.2590，=-0.0420，=0.6275，=-0.1710，=0.7101。 顯

2、然，。 第六步，形成雅克比矩陣（階數(shù)為14×14）第七步，解修正方程，得到：-0.0371，-0.0668，-0.0628，0.0732，0.0191，0.0422，0.1726，0.0908；0.0334，0.0084，0.0223，0.0372，0.0266，0.0400。從而-0.0371，-0.0668，-0.0628，0.0732，0.0191，0.0422，0.1726，0.0908； 1.0334，1.0084，1.0223，1.0372，1.0266，1.0400。然后轉入下一次迭代。經(jīng)三次迭代后。迭代過程中失配功率的變化情況如下表：k0123=P10-0.01060

3、.00010.0000000845=P2-1.250.03790.00050.0000000896=P3-0.90.04390.00050.0000000778=P40-0.0421-0.0012-0.0000003421=P5-10.0610.00090.0000001845=P60-0.0269-0.0007-0.0000001631=P71.63-0.0579-0.0004-0.0000000278=P80.85-0.0336-0.0002-0.0000000103=Q10.8614-0.0501-0.0004-0.0000000561=Q2-0.259-0.0714-0.0012-0.

4、0000002774=Q3-0.042-0.0424-0.0006-0.0000001236=Q40.6275-0.1875-0.0021-0.0000003279=Q5-0.171-0.0241-0.0004-0.0000000805=Q60.7101-0.0828-0.0007-0.0000000799max1.630.0610.00090.0000001845迭代過程中節(jié)點電壓變化情況如下表：kU1U2U3U4U5U6011111111.0334 1.0084 1.0223 1.0372 1.0266 1.0400 21.0259 0.9958 1.0128 1.0259 1.0160

5、1.0324 31.0258 0.9956 1.0127 1.0258 1.0159 1.0324 迭代收斂后各節(jié)點的電壓和功率：kUPQ11.0258 -2.2168 0.0000 0.0000 20.9956 -3.9888 -1.2500 -0.5000 31.0127 -3.6874 -0.9000 -0.3000 41.0258 3.7197 0.0000 0.0000 51.0159 0.7275 -1.0000 -0.3500 61.0324 1.9667 0.0000 0.0000 71.0250 9.2800 1.6300 0.0665 81.0250 4.6648 0.85

6、00 -0.1086 91.0400 0.0000 0.7164 0.2705 同課本上給出的潮流相比較，結果完全一致，證明計算過程與程序編寫正確。 最后得出迭代收斂后各支路的功率和功率損耗：ijPijQijIijPjiQjiIjiPLQL120.4094 0.2289 0.4572 -0.4068 -0.3869 0.5639 0.0026 -0.1579 130.3070 0.0103 0.2995 -0.3054 -0.1654 0.3430 0.0017 -0.1551 24-0.8432 -0.1131 0.8545 0.8662 -0.0838 0.8484 0.0230 -0.1

7、969 36-0.5946 -0.1346 0.6020 0.6082 -0.1807 0.6146 0.0135 -0.3153 450.7638 -0.0080 0.7447 -0.7590 -0.1070 0.7546 0.0048 -0.1150 56-0.2410 -0.2430 0.3368 0.2418 0.0312 0.2362 0.0009 -0.2118 910.7164 0.2705 0.7363 -0.7164 -0.2392 0.7363 0.0000 0.0312 741.6300 0.0665 1.5916 -1.6300 0.0918 1.5916 0.0000

8、 0.1583 860.8500 -0.1086 0.8360 -0.8500 0.1496 0.8360 0.0000 0.0410 三、源程序及注釋由于計算流程比較簡單，所以編寫程序過程中沒有采用模塊化的形式，直接按順序一步步進行。disp('【 節(jié)點數(shù):】');n1=xlsread('input.xls','A3:A3')%節(jié)點數(shù)disp('【 支路數(shù):】');n=xlsread('input.xls','B3:B3')%支路數(shù)disp('【 精度:】');Accuracy=x

9、lsread('input.xls','B4:B4')%精度branch=xlsread('input.xls','E4:K12');node=xlsread('input.xls','M4:S12');Data_B1=branch;%支路參數(shù)Data_B2=node;%節(jié)點參數(shù)T1=zeros(n,2);T2=zeros(n1,3);i=sqrt(-1);format shortfor j=1:n T1(j,1)=Data_B1(j,3)+Data_B1(j,4)*1i; T1(j,2)=Data

10、_B1(j,5)*1i;endfor j=1:n1 T2(j,1)=Data_B2(j,1)+Data_B2(j,2)*1i; T2(j,2)=Data_B2(j,3)+Data_B2(j,4)*1i;endB1=zeros(n,6);B2=zeros(n1,5);for j=1:n B1(j,1)=Data_B1(j,1); B1(j,2)=Data_B1(j,2); B1(j,3)=T1(j,1); B1(j,4)=T1(j,2); B1(j,5)=Data_B1(j,6); B1(j,6)=Data_B1(j,7);endfor j=1:n1 B2(j,1)=T2(j,1); B2(j,

11、2)=T2(j,2); B2(j,3)=Data_B2(j,5); B2(j,4)=Data_B2(j,6); B2(j,5)=Data_B2(j,7);enddisp('【 支路參數(shù)矩陣:】');B1 %顯示支路參數(shù)矩陣disp('【 節(jié)點參數(shù)矩陣:】');B2 %顯示節(jié)點參數(shù)矩陣% 以上為從excel中導入初值的程序Y=zeros(n1);for i=1:n if B1(i,6)=0 %不含變壓器的支路 p=B1(i,1); q=B1(i,2); Y(p,q)=Y(p,q)-1/B1(i,3); Y(q,p)=Y(p,q); Y(p,p)=Y(p,p)+1/

12、B1(i,3)+0.5*B1(i,4); Y(q,q)=Y(q,q)+1/B1(i,3)+0.5*B1(i,4); else %含有變壓器的支路 p=B1(i,1); q=B1(i,2); Y(p,q)=Y(p,q)-1/(B1(i,3)*B1(i,5); Y(q,p)=Y(p,q); Y(p,p)=Y(p,p)+1/B1(i,3); Y(q,q)=Y(q,q)+1/(B1(i,5)2*B1(i,3); endenddisp('【 導納矩陣:】');Y %顯示導納矩陣m=0;for i=1:n1 if B2(i,5)=2 m=m+1; endendm %PQ節(jié)點個數(shù)l=0;fo

13、r i=1:n1 if B2(i,5)=1 l=l+1; endendl %PV節(jié)點個數(shù)Mismatch_power=zeros(l+m*2,1);for i=1:n1-1 Pj=0; for j=1:n1 Pj=Pj+(B2(i,3)*B2(j,3)*(real(Y(i,j)*cos(B2(i,4)-B2(j,4)+imag(Y(i,j)*sin(B2(i,4)-B2(j,4); end Mismatch_power(i,1)=real(B2(i,1)-real(B2(i,2)-Pj; end for k=n1:(l+m*2) Qj=0; for j=1:n1 Qj=Qj+B2(k-n1+1

14、),3)*B2(j,3)*(real(Y(k-n1+1),j)*sin(B2(k-n1+1),4)-B2(j,4)-imag(Y(k-n1+1),j)*cos(B2(k-n1+1),4)-B2(j,4); end Mismatch_power(k,1)=imag(B2(k-n1+1),1)-imag(B2(k-n1+1),2)-Qj; end% Mismatch_power %計算失配功率times=0;while(max(Mismatch_power)>Accuracy) for i=1:(n1-1) Pj=0; for j=1:n1 Pj=Pj+B2(i,3)*B2(j,3)*(re

15、al(Y(i,j)*cos(B2(i,4)-B2(j,4)+imag(Y(i,j)*sin(B2(i,4)-B2(j,4); end Mismatch_power(i,1)=real(B2(i,1)-real(B2(i,2)-Pj; end for k=n1:(l+m*2) Qj=0; for j=1:n1 Qj=Qj+B2(k-n1+1),3)*B2(j,3)*(real(Y(k-n1+1),j)*sin(B2(k-n1+1),4)-B2(j,4)-imag(Y(k-n1+1),j)*cos(B2(k-n1+1),4)-B2(j,4); end Mismatch_power(k,1)=ima

16、g(B2(k-n1+1),1)-imag(B2(k-n1+1),2)-Qj; end disp('【 當前迭代次數(shù):】'); times disp('【 失配功率:】'); Mismatch_power Jacobian=zeros(l+m*2);%雅克比矩陣7*7 %H for i=1:(n1-1) for j=1:(n1-1) if i=j P_H=0; for k=1:n1 P_H=P_H+B2(i,3)*B2(k,3)*(real(Y(i,k)*sin(B2(i,4)-B2(k,4)-imag(Y(i,k)*cos(B2(i,4)-B2(k,4); en

17、d Jacobian(i,i)=P_H-B2(i,3)*B2(i,3)*(0-imag(Y(i,i); else Jacobian(i,j)=0-B2(i,3)*B2(j,3)*(real(Y(i,j)*sin(B2(i,4)-B2(j,4)-imag(Y(i,j)*cos(B2(i,4)-B2(j,4); end end end %N for i=1:(n1-1) for j=1:m if i=j P_N=0; for k=1:n1 P_N=P_N+B2(k,3)*(real(Y(i,k)*cos(B2(i,4)-B2(k,4)+imag(Y(i,k)*sin(B2(i,4)-B2(k,4)

18、; end Jacobian(i,n1-1+i)=0-B2(i,3)*real(Y(i,i)-P_N; else Jacobian(i,n1-1+j)=0-B2(i,3)*(real(Y(i,j)*cos(B2(i,4)-B2(j,4)+imag(Y(i,j)*sin(B2(i,4)-B2(j,4); end end end %K for i=1:m for j=1:(n1-1) if i=j P_K=0; for k=1:n1 P_K=P_K+B2(i,3)*B2(k,3)*(real(Y(i,k)*cos(B2(i,4)-B2(k,4)+imag(Y(i,k)*sin(B2(i,4)-B2

19、(k,4); end Jacobian(n1-1+i,i)=0+B2(i,3)*B2(i,3)*real(Y(i,i)-P_K; else Jacobian(n1-1+i,j)=B2(i,3)*B2(j,3)*(real(Y(i,j)*cos(B2(i,4)-B2(j,4)+imag(Y(i,j)*sin(B2(i,4)-B2(j,4); end end end %L for i=1:m for j=1:m if i=j P_L=0; for k=1:n1 P_L=P_L+B2(k,3)*(real(Y(i,k)*sin(B2(i,4)-B2(k,4)-imag(Y(i,k)*cos(B2(i

20、,4)-B2(k,4); end Jacobian(n1-1+i,n1-1+i)=0-P_L+B2(i,3)*imag(Y(i,i); else Jacobian(n1-1+i,n1-1+j)=0-B2(i,3)*(real(Y(i,j)*sin(B2(i,4)-B2(j,4)-imag(Y(i,j)*cos(B2(i,4)-B2(j,4); end end end S=zeros(l+m*2,1); %初始化電壓角度變化量 S=inv(Jacobian)*(0-Mismatch_power); %求解修正方程 S=(Jacobian)(0-Mismatch_power); %求解修正方程 f

21、or i=1:(n1-1) %角度初值加變化量 B2(i,4)=B2(i,4)+S(i,1); end for i=1:m %電壓初值加變化量 B2(i,3)=B2(i,3)+S(n1-1+i,1); end disp('【 雅克比矩陣:】'); Jacobian %顯示雅克比矩陣% S=inv(Jacobian) times=times+1;endtimes=times-1;disp('【 共計迭代次數(shù):】');times %顯示迭代次數(shù)U_It=zeros(n1,1); %初始化電壓向量for i=1:n1 U_It(i,1)=B2(i,3)*cos(B2(

22、i,4)+B2(i,3)*sin(B2(i,4)*1j;endangle_It=zeros(n1,1); %將電壓角度的弧度值轉為角度值for i=1:n1 angle_It(i,1)=B2(i,4)*180/pi;endNode_S_It=U_It.*(conj(Y)*conj(U_It); %求解節(jié)點功率disp('【 迭代收斂后各節(jié)點的電壓幅值:】');Node_U_It=abs(U_It) %顯示迭代收斂后各節(jié)點的電壓幅值disp('【 迭代收斂后各節(jié)點的電壓角度:】');angle_It %顯示迭代收斂后各節(jié)點的電壓角度disp('【 迭代收斂

23、后各節(jié)點的功率:】');Node_S_It %顯示迭代收斂后各節(jié)點的功率Branch_It=zeros(n,10);for i=1:n; if B1(i,6)=0; %不帶變壓器支路 m=B1(i,1); %得到支路號 n=B1(i,2); Branch_It(i,1)=m; %顯示支路號 Branch_It(i,2)=n; a=U_It(m,1)*(conj(U_It(m,1)*conj(B1(i,4)*0.5+(conj(U_It(m,1)-conj(U_It(n,1)/conj(B1(i,3); Branch_It(i,3)=real(a); %顯示Pij Branch_It(i

24、,4)=imag(a); %顯示Qij b=U_It(m,1)*B1(i,4)*0.5+(U_It(m,1)-U_It(n,1)/B1(i,3); Branch_It(i,5)=sqrt(real(b)2+imag(b)2); %顯示Iij c=U_It(n,1)*(conj(U_It(n,1)*conj(B1(i,4)*0.5+(conj(U_It(n,1)-conj(U_It(m,1)/conj(B1(i,3); Branch_It(i,6)=real(c); %顯示Pji Branch_It(i,7)=imag(c); %顯示Qji d=U_It(n,1)*B1(i,4)*0.5+(U_

25、It(n,1)-U_It(m,1)/B1(i,3); Branch_It(i,8)=sqrt(real(d)2+imag(d)2); %顯示Iji e=a+c; Branch_It(i,9)=real(e); %顯示線路損耗有功分量 Branch_It(i,10)=imag(e); %顯示線路損耗無功分量 else %帶變壓器支路(同以上內容) m=B1(i,1); n=B1(i,2); Branch_It(i,1)=m; Branch_It(i,2)=n; a=U_It(m,1)*(conj(U_It(m,1)/conj(B1(i,3)-conj(U_It(n,1)*conj(1/(B1(i

26、,5)*B1(i,3); Branch_It(i,3)=real(a); Branch_It(i,4)=imag(a); b=U_It(m,1)*(B1(i,5)-1)/B1(i,3)/B1(i,5)+(U_It(m,1)-U_It(n,1)/(B1(i,5)*B1(i,3); Branch_It(i,5)=sqrt(real(b)2+imag(b)2); c=U_It(n,1)*(conj(U_It(n,1)/(conj(B1(i,5)*B1(i,5)*B1(i,3)-conj(U_It(m,1)*conj(1/(B1(i,5)*B1(i,3); Branch_It(i,6)=real(c); Branch_It(i,7)=imag(c); d=U_It(n,1)*(1-B1(i,5)/B1(