《潮流计算matlab程序》由会员分享，可在线阅读，更多相关《潮流计算matlab程序(3页珍藏版)》请在人人文库网上搜索。

1、clear;%各节点参数：节点编号，类型，电压幅值，电压相位，注入有功，注入无功 %类型：1PQ节点，2PV节点，3平衡节点%本程序中将最后一个节点设为平衡节点R_1=1 1 1.0 0 0.2 0.2j;2 1 1.0 0 -0.45 -0.15j;3 1 1.0 0 -0.45 -0.05j;4 1 1.0 0 -0.6 -0.1j;5 3 1.0 0 0 0;%支路号 首端节点 末端节点 支路导纳R_2=1 5 2 1.25-3.75j;2 2 3 10.00-30.00j;3 3 4 1.25-3.75j;4 1 4 2.50-7.50j;5 1 5 5.00-15.00j;6 1 2。

2、 1.667-5.00j;n=5;L=6;%需要改变的到此为止i=0;j=0;a=0;precision=1;k=0;Y=zeros(n,n);u=zeros(1,n);delt=zeros(1,n);P=zeros(1,n);Q=zeros(1,n);G=;B=;PP=;uu=;U=;dp=;dq=;for a=1:Li=R_2(a,2);j=R_2(a,3);Y(i,j)=-R_2(a,4);Y(j,i)=Y(i,j);endfor a=1:nfor b=1:nif a=bY(a,a)=Y(a,a)+Y(a,b);endendendfor i=1:nfor j=1:nif i=jY(i,j。

3、)=-Y(i,j);endendendY %形成导纳矩阵for i=1:nfor j=1:nG(i,j)=real(Y(i,j);B(i,j)=imag(Y(i,j);endendfor a=1:nu(a)=R_1(a,3);P(a)=R_1(a,5);Q(a)=R_1(a,6);delt(a)=R_1(a,4);endwhile precision0.0001 %判断是否满足精度要求for a=1:n-1for b=1:npt(b)=u(a)*u(b)*(G(a,b)*cos(delt(a)-delt(b)+B(a,b)*sin(delt(a)-delt(b);qt(b)=u(a)*u(b)。

4、*(G(a,b)*sin(delt(a)-delt(b)-B(a,b)*cos(delt(a)-delt(b);endpt,qtpi(a)=sum(pt);qi(a)=sum(qt); %计算PQ节点的注入功率dp(a)=P(a)-pi(a);dq(a)=Q(a)-qi(a); %计算PQ节点的功率不平衡量endfor a=1:n-1for b=1:n-1if a=bH(a,a)=-qi(a)-u(a)2*B(a,a); N(a,a)=pi(a)+u(a)2*G(a,a);J(a,a)=pi(a)-u(a)2*G(a,a); L(a,a)=qi(a)-u(a)2*B(a,a);JJ(2*a-1。

5、,2*a-1)=H(a,a); JJ(2*a-1,2*a)=N(a,a); JJ(2*a,2*a-1)=J(a,a); JJ(2*a,2*a)=L(a,a);else H(a,b)=u(a)*u(b)*(G(a,b)*sin(delt(a)-delt(b)-B(a,b)*cos(delt(a)-delt(b);J(a,b)=-u(a)*u(b)*(G(a,b)*cos(delt(a)-delt(b)+B(a,b)*sin(delt(a)-delt(b);N(a,b)=-J(a,b);L(a,b)=H(a,b);JJ(2*a-1,2*b-1)=H(a,b);JJ(2*a-1,2*b)=N(a,b。

6、);JJ(2*a,2*b-1)=J(a,b); JJ(2*a,2*b)=L(a,b);endendend %计算jocbi各项,并放入统一矩阵JJ中，对JJ下标统一编号JJfor a=1:n-1PP(2*a-1)=dp(a);PP(2*a)=dq(a);end %按统一矩阵形成功率不平衡uu=inv(JJ)*PP;precision=max(abs(uu); %判断是否收敛for b=1:n-1delt(b)=delt(b)+uu(2*b-1); u(b)=u(b)+uu(2*b)*u(b); %将结果分解为电压幅值和角度end %求解修正方程，得电压幅值变化量(标幺值)和角度变化量k=k+1;endfor a=1:nU(a)=u(a)*(cos(delt(a)+j*sin(delt(a);endfor b=1:nI(b)=Y(n,b)*U(b);%求平衡节点的注入电流 endS5=U(n)*sum(conj(I)%求平衡节点的注入功率 for a=1:nfor b=1:nS(a,b)=U(a)*(conj(U(a)-conj(U(b)*conj(-Y(a,b);endend %求节点i,j节点之间的功率，方向为由i指向j, S %显示支路功率。