潮流计算matlab程序.docx

潮流计算matlab程序.docx

ID:57286453

大小:11.03 KB

页数:3页

时间:2020-08-09

潮流计算matlab程序.docx_第1页
潮流计算matlab程序.docx_第2页
潮流计算matlab程序.docx_第3页
资源描述:

《潮流计算matlab程序.docx》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、clear;%各节点参数:节点编号,类型,电压幅值,电压相位,注入有功,注入无功%类型:1=PQ节点,2=PV节点,3=平衡节点%本程序中将最后一个节点设为平衡节点R_1=[111.000.20.2j;211.00-0.45-0.15j;311.00-0.45-0.05j;411.00-0.6-0.1j;531.0000];%支路号首端节点末端节点支路导纳R_2=[1521.25-3.75j;22310.00-30.00j;3341.25-3.75j;4142.50-7.50j;5155.00-15.00j;6121.667-5.00j

2、];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=[];fora=1:Li=R_2(a,2);j=R_2(a,3);Y(i,j)=-R_2(a,4);Y(j,i)=Y(i,j);endfora=1:nforb=1:nifa~=bY(a,a)=Y(a,a)+Y(a,b);endendend

3、fori=1:nforj=1:nifi==jY(i,j)=-Y(i,j);endendendY%形成导纳矩阵fori=1:nforj=1:nG(i,j)=real(Y(i,j));B(i,j)=imag(Y(i,j));endendfora=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);endwhileprecision>0.0001%判断是否满足精度要求fora=1:n-1forb=1:npt(b)=u(a)*u(b)*(G(a,b)*cos(delt(a)

4、-delt(b))+B(a,b)*sin(delt(a)-delt(b)));qt(b)=u(a)*u(b)*(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节点的功率不平衡量endfora=1:n-1forb=1:n-1ifa==bH(a,a)=-qi(a)-u(a)^2*B(a,a);N(a,a

5、)=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,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);elseH(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(de

6、lt(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);JJ(2*a,2*b-1)=J(a,b);JJ(2*a,2*b)=L(a,b);endendend%计算jocbi各项,并放入统一矩阵JJ中,对JJ下标统一编号JJfora=1:n-1PP(2*a-1)=dp(a);PP(2*a)=dq(a);end%按统一矩阵形成功率不平衡uu=inv(JJ)*PP';p

7、recision=max(abs(uu));%判断是否收敛forb=1:n-1delt(b)=delt(b)+uu(2*b-1);u(b)=u(b)+uu(2*b)*u(b);%将结果分解为电压幅值和角度end%求解修正方程,得电压幅值变化量(标幺值)和角度变化量k=k+1;endfora=1:nU(a)=u(a)*(cos(delt(a))+j*sin(delt(a)));endforb=1:nI(b)=Y(n,b)*U(b);%求平衡节点的注入电流endS5=U(n)*sum(conj(I))%求平衡节点的注入功率fora=1:nf

8、orb=1:nS(a,b)=U(a)*(conj(U(a))-conj(U(b)))*conj(-Y(a,b));endend%求节点i,j节点之间的功率,方向为由i指向j,S%显示支路功率

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。