电力系统分析P-Q分解法潮流计算

..专业课程P-Q分解法潮流计算系别电气工程系专业班级09级电气4班学生姓名钟剑帆学号200930084778指导教师房大中提交日期2011年11月12日目录TOC\o"1-3"\h\z\uHYPERLINK\l"_Toc308975105"P-Q分解法潮流计算PAGEREF_Toc308975105\h1HYPERLINK\l"_Toc308975106"一、原理PAGEREF_Toc308975106\h1HYPERLINK\l"_Toc308975107"二、程序流程PAGEREF_Toc308975107\h1HYPERLINK\l"_Toc308975108"三、设计内容PAGEREF_Toc308975108\h2HYPERLINK\l"_Toc308975109"3.1程序设计PAGEREF_Toc308975109\h2HYPERLINK\l"_Toc308975110"3.2.1输入数据PAGEREF_Toc308975110\h7HYPERLINK\l"_Toc308975111"3.2.2输出数据PAGEREF_Toc308975111\h8HYPERLINK\l"_Toc308975112"3.2.3结果分析PAGEREF_Toc308975112\h11HYPERLINK\l"_Toc308975113"四、心得PAGEREF_Toc308975113\h12一、原理分析从潮流计算的基本方程出发，采用PQ分解法并通过建立矩阵的修正方程来依次迭代，逐步逼近真值来计算电网的电压和功率分布。二、程序流程三、设计内容3.1程序设计主函数Sbase_MVA=100.fid=fopen('Nodedata.txt');N=textscan(fid,'%s%u%d%f%f%f%f%f%f')fclose(fid);busnumber=size(N{1},1)fori=1:busnumberBus(i).name=N{1}(i);Bus(i).type=N{2}(i);Bus(i).no=i;Bus(i).Base_KV=N{3}(i);Bus(i).PG=N{4}(i);Bus(i).QG=N{5}(i);Bus(i).PL=N{6}(i);Bus(i).QL=N{7}(i);Bus(i).pb=N{8}(i);Bus(i).V=1.0;Bus(i).angle=0;endfid=fopen('Aclinedata.txt');A=textscan(fid,'%s%s%f%f%f%f')fclose(fid);aclinenumber=size(A{1},1)fori=1:aclinenumberAcline(i).fbname=A{1}(i);Acline(i).tbname=A{2}(i);Acline(i).Base_KV=A{3}(i);Acline(i).R=A{4}(i);Acline(i).X=A{5}(i);Acline(i).hB=A{6}(i);fork=1:busnumberifstrcmp(Acline(i).fbname,Bus(k).name)Acline(i).fbno=Bus(k).no;endifstrcmp(Acline(i).tbname,Bus(k).name)Acline(i).tbno=Bus(k).no;endendendfid=fopen('Transdata.txt');T=textscan(fid,'%s%f%f%s%f%f%f%f')fclose(fid);tansnumber=size(T{1},1)fori=1:tansnumberTrans(i).fbname=T{1}(i);Trans(i).fbBase_KV=T{2}(i);Trans(i).fbrated_KV=T{3}(i);Trans(i).tbname=T{4}(i);Trans(i).tbBase_KV=T{5}(i);Trans(i).tbrated_KV=T{6}(i);Trans(i).R=T{7}(i);Trans(i).X=T{8}(i);fork=1:busnumberifstrcmp(Trans(i).fbname,Bus(k).name)Trans(i).fbno=Bus(k).no;endifstrcmp(Trans(i).tbname,Bus(k).name)Trans(i).tbno=Bus(k).no;endendTrans(i).k=Trans(i).tbrated_KV*Trans(i).fbBase_KV/Trans(i).fbrated_KV/Trans(i).tbBase_KV;tempx=Trans(i).fbrated_KV^2/Trans(i).fbBase_KV^2;Trans(i).X=tempx*Trans(i).X;Trans(i).R=tempx*Trans(i).R;end%N=0%Trans(1)%Trans(2)%forY=G+jBmatrix[G,B,B2]=FormYmatrix(Bus,busnumber,Acline,aclinenumber,Trans,tansnumber);%B:=B';B2:=B"dlmwrite('Gmatrix.txt',G,'delimiter','\t','precision',6);dlmwrite('Bmatrix.txt',B,'delimiter','\t','precision',6);GBB2pause[JP,JQ]=FormJPQmatrix(Bus,B,B2,busnumber);JPiJP=-inv(JP)JQiJQ=-inv(JQ)pause%maxiteration=0fori=1:busnumberNodeV(i)=Bus(i).V;Nodea(i)=Bus(i).angle;VX(i)=Bus(i).V*cos(Bus(i).angle);VY(i)=Bus(i).V*sin(Bus(i).angle);dQGQL(i)=Bus(i).QG-Bus(i).QL;dPGPL(i)=Bus(i).PG-Bus(i).PL;endNodeV=NodeV'Nodea=Nodea'%VX=VX'%VY=VY'dQGQL=dQGQL'dPGPL=dPGPL'pause%fornointer=1:10maxdP=1.;maxdQ=1.;epsilon=0.000001;noiteration=0;while(maxdP>epsilon)&(maxdP>epsilon)[deltaP,deltaQ,maxdP,maxdQ]=FormdPQvector(Bus,NodeV,Nodea,dQGQL,dPGPL,B,G,busnumber);deltaP;deltaQ;maxdP;maxdQ;da=iJP*deltaP;dV=iJQ*deltaQ;Nodea=Nodea+da;NodeV=NodeV+dV;noiteration=noiteration+1;ifnoiteration>20breakendendfori=1:busnumberBus(i).V=NodeV(i);NodeV(i)=NodeV(i)*Bus(i).Base_KV;Bus(i).angle=Nodea(i);Nodea(i)=Nodea(i)*180/pi;endnoiterationNodea=Nodea'NodeV=NodeV'Clear子函数%生成G、B矩阵function[G,B,X]=FormYmatrix(Bus,busnumber,Acline,aclinenumber,Trans,tansnumber)Y=zeros(busnumber);X=zeros(busnumber);fori=1:busnumberY(i,i)=Y(i,i)+Bus(i).pb*j;endfori=1:aclinenumberf=Acline(i).fbno;t=Acline(i).tbno;Y(f,f)=Y(f,f)+Acline(i).hB*j+1/(Acline(i).R+Acline(i).X*j);Y(t,t)=Y(t,t)+Acline(i).hB*j+1/(Acline(i).R+Acline(i).X*j);Y(f,t)=Y(f,t)-1/(Acline(i).R+Acline(i).X*j);Y(t,f)=Y(t,f)-1/(Acline(i).R+Acline(i).X*j);X(f,f)=X(f,f)-1/Acline(i).X;X(t,t)=X(t,t)-1/Acline(i).X;X(f,t)=1/Acline(i).X;X(t,f)=1/Acline(i).X;endfori=1:tansnumberf=Trans(i).fbno;t=Trans(i).tbno;Y(f,f)=Y(f,f)+1/(Trans(i).R+Trans(i).X*j);Y(t,t)=Y(t,t)+1/(Trans(i).R+Trans(i).X*j)/Trans(i).k^2;Y(f,t)=Y(f,t)-1/(Trans(i).R+Trans(i).X*j)/Trans(i).k;Y(t,f)=Y(t,f)-1/(Trans(i).R+Trans(i).X*j)/Trans(i).k;X(f,f)=X(f,f)-1/Trans(i).X;X(t,t)=X(t,t)-1/Trans(i).X;X(f,t)=1/Trans(i).X;X(t,f)=1/Trans(i).X;endG=real(Y);B=imag(Y);end%生成JP、JQ矩阵function[JP,JQ]=FormJPQmatrix(Bus,B,B2,busnumber)JP=B;JQ=B2;fori=1:busnumberifBus(i).type==1fork=1:busnumberJQ(i,k)=0.;JQ(k,i)=0.;JP(i,k)=0.;JP(k,i)=0.;endJQ(i,i)=1.;JP(i,i)=1.;endifBus(i).type==3fork=1:busnumberJQ(i,k)=0.;JQ(k,i)=0.;endJQ(i,i)=1.;endendend%计算偏节点PQ差量function[deltaP,deltaQ,maxdP,maxdQ]=FormdPQvector(Bus,NodeV,Nodea,dQGQL,dPGPL,B,G,busnumber)deltaQ=dQGQL;deltaP=dPGPL;maxdP=0.;maxdQ=0.;fori=1:busnumberifBus(i).type==1deltaQ(i)=0.;deltaP(i)=0.;endifBus(i).type==3deltaQ(i)=0.;%y1=0;%y2=0;y3=0;fork=1:busnumberif(B(i,k)~=0|G(i,k)~=0)%y1=y1+(G(i,k)*VX(k)-B(i,k)*VY(k));%y2=y2+(G(i,k)*VY(k)+B(i,k)*VX(k));y3=y3+NodeV(k)*(G(i,k)*cos(Nodea(i)-Nodea(k))+B(i,k)*sin(Nodea(i)-Nodea(k)));endenddeltaP(i)=deltaP(i)-y3*NodeV(i);%deltaP2(i)=(deltaP2(i)-(y1*VX(i)+y2*VY(i)))/Bus(i).V;endifBus(i).type==2%y1=0;%y2=0;y3=0;y4=0;fork=1:busnumberif(B(i,k)~=0|G(i,k)~=0)%y1=y1+(G(i,k)*VX(k)-B(i,k)*VY(k));%y2=y2+(G(i,k)*VY(k)+B(i,k)*VX(k));y3=y3+NodeV(k)*(G(i,k)*cos(Nodea(i)-Nodea(k))+B(i,k)*sin(Nodea(i)-Nodea(k)));y4=y4+NodeV(k)*(G(i,k)*sin(Nodea(i)-Nodea(k))-B(i,k)*cos(Nodea(i)-Nodea(k)));endenddeltaP(i)=deltaP(i)-y3*NodeV(i);%deltaP2(i)=(deltaP2(i)-(y1*VX(i)+y2*VY(i)))/Bus(i).V;deltaQ(i)=deltaQ(i)-y4*NodeV(i);%deltaQ2(i)=(deltaQ2(i)-(y1*VY(i)-y2*VX(i)))/Bus(i).V;endifmaxdP表

关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf