电力系统分析大作业matlab三机九节点潮流计算报告

电力系统分析大作业一、设计题目本次设计题目选自课本第五章例5-8,美国西部联合电网WSCC系统简化三机九节点系统，例题中已经给出了潮流成果，计算成果可以与之对照。取ε=0.00001。二、计算环节第一步，为了以便编程，修改节点序号，将平衡节点放在最后。如下图：992132745683第二步，这样得出系统参数如下表所示：第三步，形成节点导纳矩阵。第四步，设定初值：；，。第五步，计算失配功率=0，=-1.25，=-0.9，=0，=-1，=0，=1.63，=0.85；=0.8614，=-0.2590，=-0.0420，=0.6275，=-0.1710，=0.7101。显然，。第六步，形成雅克比矩阵（阶数为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。然后转入下一次迭代。经三次迭代后。迭代过程中失配功率变化状况如下表：k0123Δ=P10-0.01060.00010.Δ=P2-1.250.03790.00050.Δ=P3-0.90.04390.00050.Δ=P40-0.0421-0.0012-0.Δ=P5-10.0610.00090.Δ=P60-0.0269-0.0007-0.Δ=P71.63-0.0579-0.0004-0.Δ=P80.85-0.0336-0.0002-0.Δ=Q10.8614-0.0501-0.0004-0.Δ=Q2-0.259-0.0714-0.0012-0.Δ=Q3-0.042-0.0424-0.0006-0.Δ=Q40.6275-0.1875-0.0021-0.Δ=Q5-0.171-0.0241-0.0004-0.Δ=Q60.7101-0.0828-0.0007-0.max1.630.0610.00090.迭代过程中节点电压变化状况如下表：kU1U2U3U4U5U6011111111.03341.00841.02231.03721.02661.040021.02590.99581.01281.02591.01601.032431.02580.99561.01271.02581.01591.0324迭代收敛后各节点电压和功率：kUθPQ11.0258-2.21680.00000.000020.9956-3.9888-1.2500-0.500031.0127-3.6874-0.9000-0.300041.02583.71970.00000.000051.01590.7275-1.0000-0.350061.03241.96670.00000.000071.02509.28001.63000.066581.02504.66480.8500-0.108691.04000.00000.71640.2705同课本上给出潮流相比较，成果完全一致，证明计算过程与程序编写对的。最后得出迭代收敛后各支路功率和功率损耗：ijPijQijIijPjiQjiIjiPLQL120.40940.22890.4572-0.4068-0.38690.56390.0026-0.1579130.30700.01030.2995-0.3054-0.16540.34300.0017-0.155124-0.8432-0.11310.85450.8662-0.08380.84840.0230-0.196936-0.5946-0.13460.60200.6082-0.18070.61460.0135-0.3153450.7638-0.00800.7447-0.7590-0.10700.75460.0048-0.115056-0.2410-0.24300.33680.24180.03120.23620.0009-0.2118910.71640.27050.7363-0.7164-0.23920.73630.00000.0312741.63000.06651.5916-1.63000.09181.59160.00000.1583860.8500-0.10860.8360-0.85000.14960.83600.00000.0410三、源程序及注释由于计算流程比较简朴，因此编写程序过程中没有采用模块化形式，直接按顺序一步步进行。disp('【节点数:】');[n1]=xlsread('input.xls','A3:A3')%节点数disp('【支路数:】');[n]=xlsread('input.xls','B3:B3')%支路数disp('【精度:】');Accuracy=xlsread('input.xls','B4:B4')%精度[branch]=xlsread('input.xls','E4:K12');[node]=xlsread('input.xls','M4:S12');Data_B1=branch;%支路参数Data_B2=node;%节点参数T1=zeros(n,2);T2=zeros(n1,3);i=sqrt(-1);formatshortforj=1:nT1(j,1)=Data_B1(j,3)+Data_B1(j,4)*1i;T1(j,2)=Data_B1(j,5)*1i;endforj=1:n1T2(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);forj=1:nB1(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);endforj=1:n1B2(j,1)=T2(j,1);B2(j,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('【支路参数矩阵:】');B1%显示支路参数矩阵disp('【节点参数矩阵:】');B2%显示节点参数矩阵%以上为从excel中导入初值程序Y=zeros(n1);fori=1:nifB1(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/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;fori=1:n1ifB2(i,5)==2m=m+1;endendm%PQ节点个数l=0;fori=1:n1ifB2(i,5)==1l=l+1;endendl%PV节点个数Mismatch_power=zeros(l+m*2,1);fori=1:n1-1Pj=0;forj=1:n1Pj=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))));endMismatch_power(i,1)=real(B2(i,1))-real(B2(i,2))-Pj;endfork=n1:(l+m*2)Qj=0;forj=1:n1Qj=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)));endMismatch_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)fori=1:(n1-1)Pj=0;forj=1:n1Pj=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)));endMismatch_power(i,1)=real(B2(i,1))-real(B2(i,2))-Pj;endfork=n1:(l+m*2)Qj=0;forj=1:n1Qj=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)));endMismatch_power(k,1)=imag(B2((k-n1+1),1))-imag(B2((k-n1+1),2))-Qj;enddisp('【当前迭代次数:】');timesdisp('【失配功率:】');Mismatch_powerJacobian=zeros(l+m*2);%雅克比矩阵7*7%————————————————————————————————————Hfori=1:(n1-1)forj=1:(n1-1)ifi==jP_H=0;fork=1:n1P_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)));endJacobian(i,i)=P_H-B2(i,3)*B2(i,3)*(0-imag(Y(i,i)));elseJacobian(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)));endendend%————————————————————————————————————Nfori=1:(n1-1)forj=1:mifi==jP_N=0;fork=1:n1P_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)));endJacobian(i,n1-1+i)=0-B2(i,3)*real(Y(i,i))-P_N;elseJacobian(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)));endendend%————————————————————————————————————Kfori=1:mforj=1:(n1-1)ifi==jP_K=0;fork=1:n1P_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(k,4)));endJacobian(n1-1+i,i)=0+B2(i,3)*B2(i,3)*real(Y(i,i))-P_K;elseJacobian(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)));endendend%————————————————————————————————————Lfori=1:mforj=1:mifi==jP_L=0;fork=1:n1P_L=P_L+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)));endJacobian(n1-1+i,n1-1+i)=0-P_L+B2(i,3)*imag(Y(i,i));elseJacobian(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)));endendendS=zeros(l+m*2,1)；%初始化电压角度变化量S=inv(Jacobian)*(0-Mismatch_power)；%求解修正方程S=(Jacobian)\(0-Mismatch_power)；%求解修正方程fori=1:(n1-1)%角度初值加变化量B2(i,4)=B2(i,4)+S(i,1);endfori=1:m%电压初值加变化量B2(i,3)=B2(i,3)+S(n1-1+i,1);enddisp('【雅克比矩阵:】');Jacobian%显示雅克比矩阵%S=inv(Jacobian)times=times+1;endtimes=times-1;disp('【共计迭代次数:】');times%显示迭代次数U_It=zeros(n1,1)；%初始化电压向量fori=1:n1U_It(i,1)=B2(i,3)*cos(B2(i,4))+B2(i,3)*sin(B2(i,4))*1j;endangle_It=zeros(n1,1)；%将电压角度弧度值转为角度值fori=1:n1angle_It(i,1)=B2(i,4)*180/pi;endNode_S_It=U_It.*(conj(Y)*conj(U_It))；%求解节点功率disp('【迭代收敛后各节点电压幅值:】');Node_U_It=abs(U_It)%显示迭代收敛后各节点电压幅值disp('【迭代收敛后各节点电压角度:】');angle_It%显示迭代收敛后各节点电压角度disp('【迭代收敛后各节点功率:】');Node_S_It%显示迭代收敛后各节点功率Branch_It=zeros(n,10);fori=1:n;ifB1(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)；%显示PijBranch_It(i,4)=imag(a)；%显示Qijb=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)；%显示Iijc=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)；%显示PjiBranch_It(i,7)=imag(c)；%显示Qjid=U_It(n,1)*B1(i,4)*0.5+(U_It(n,1)-U_It(m,1))/B1(i,3);Branch_It(i,8)=sqrt(real(d)^2+imag(d)^2)；%显示Ijie=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,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