资源描述：
《潮流计算报告.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、一、系统结构图：二、网络参数：1、支路参数：网络类型支路编号电压等级（kV）装机容量(MW)导线的技术参数（Ω）（Ω）（）环网1-222010013.6125.567.851-38.321130.552.243-510.2128.874.992-38.5105.428.361-47.579129.651.454-513.84125.312.78辐1-2——24——射网——2-3363-4482-5125-6442、节点参数：节点类型节点编号发电功率（MW）负荷视在功率环网10未知(平衡节点)21000（PV节点）3015+9.4
2、i4027+6i5035.5+25.5i辐射网10未知(平衡节点)204+2i306+3.2i403+1.44i504+3.2i602+1.1i三、潮流计算流程图:四、matlab程序：clear;Un=input('请输入Un:');%输入所需的额定电压PQ=[%节点电压有功无功Un00Un42Un63.2Un31.44Un43.2Un21.1];FT=[%首端末端4332655221];RX=[%RX4836441224];NN=size(PQ,1);%节点数NB=size(FT,1);%支路数数V=PQ(:,1);%V初始
3、电压相量maxd=1k=1whilemaxd>0.0001k=k+1;PQ2=PQ;%每一次迭代各节点的注入有功和无功相同PL=0.0;fori=1:NBkf=FT(i,1);%前推始节点号kt=FT(i,2);%前推终节点号x=(PQ2(kf,2)^2+PQ2(kf,3)^2)/V(kf)/V(kf);%计算沿线电流/平方Alosss(i,1)=RX(i,1)*x;%计算线路有功损耗/MWlosss(i,2)=RX(i,2)*x;%计算线路无功损耗/MWPQ1(i,1)=PQ2(kf,2)+RX(i,1)*x;%计算支路首端有
4、功/MWRX(i,1)*RPQ1(i,2)=PQ2(kf,3)+RX(i,2)*x;%计算沿支路的无功/MWRX(i,2)*XPQ2(kt,2)=PQ2(kt,2)+PQ1(i,1);%用PQ1去修正支路末端节点的有功P单位MWPQ2(kt,3)=PQ2(kt,3)+PQ1(i,2);%用PQ1去修正支路末端节点的有功Q单位Mvarendangle(1)=0.0;fori=NB:-1:1kf=FT(i,2);%回代始节点号kt=FT(i,1);%回代终节点号dv1=(PQ1(i,1)*RX(i,1)+PQ1(i,2)*RX(i,
5、2))/V(kf);%计算支路电压损耗的纵分量dv1dv2=(PQ1(i,1)*RX(i,2)-PQ1(i,2)*RX(i,1))/V(kf);%计算支路电压损耗的横分量dv2V2(kt)=sqrt((V(kf)-dv1)^2+dv2^2);%计算支路末端电压/kVangle(kt)=angle(kf)+atand(dv2/(V(kf)-dv1));%计算支路endmaxd=abs(V2(2)-V(2));V2(1)=V(1);fori=3:1:NNifabs(V2(i)-V(i))>maxd;maxd=abs(V2(i)-V(
6、i));endendfullloss(1,1)=0;%计算线路总损耗fullloss(1,2)=0;finalPQ=max(PQ1);fori=1:NBfullloss(1,1)=fullloss(1,1)+losss(i,1);fullloss(1,2)=fullloss(1,2)+losss(i,2);enddisp('辐射网迭代次数：')kdisp('辐射网系统电压差精度：')maxddisp('辐射网系统末端节点有功和无功：')finalPQ%潮流分布即支路首端潮流MVAdisp('辐射网系统总功率损耗：')fulllo
7、ss%线路总损耗MVAdisp('辐射网系统各支路功率损耗：')losss%各支路损耗MVAdisp('辐射网系统各节点电压幅值：')V=V2%节点电压模计算结果kVdisp('辐射网系统各节点电压相角：')angle%节点电压角度计算结果单位度endclcdisp('辐射网迭代次数：')kdisp('辐射网系统电压差精度：')maxddisp('辐射网系统末端节点有功和无功/MVA：')FinPQ=finalPQ(1,1)+finalPQ(1,2)*j%潮流分布即支路首端潮流MVAdisp('辐射网系统总功率损耗/MVA：')
8、Fulloss=fullloss(1,1)+fullloss(1,2)*j%线路总损耗MVAdisp('辐射网系统各支路功率损耗/MVA：')for(a=1:5)LOSS=losss(a,1)+losss(a,2)*j%各支路损耗MVAenddisp('辐射网系
