《电力系统程序》由会员分享，可在线阅读，更多相关《电力系统程序（9页珍藏版）》请在金锄头文库上搜索。
1、 %本程序的功能是用牛顿拉夫逊法进行潮流计算% B1矩阵：1、支路首端号；2、末端号；3、支路阻抗；4、支路对地电纳% 5、支路的变比；6、支路首端处于K侧为1，1侧为0% B2矩阵：1、该节点发电机功率；2、该节点负荷功率；3、节点电压初始值% 4、PV节点电压V的给定值；5、节点所接的无功补偿设备的容量% 6、节点分类标号clear;n=11;%input(请输入节点数：n=);nl=11;%input(请输入支路数：nl=);isb=1;%input(请输入平衡母线节点号：isb=);pr=0.00001;%input(请输入误差精度：pr=);B1=1 2 17+40.2i 0.000
2、278i 1 0; 1 4 13.6+32.16i 0.0002224i 1 0; 1 6 15.3+36.18i 0.0002502i 1 0; 1 8 17+40.2i 0.000278i 1 0; 2 3 1.78+53.885i 0 0.909 1; 2 4 11.9+28.14i 0.0001946i 1 1; 4 5 1.49+40.334i 0 0.909 1; 6 7 1.781+53.885i 0 0.909 1; 6 8 13.6+32.16i 0.0002224i 1 0; 8 9 1.494+40.339i 0 0.909 1; 8 10 8.5+20.1i 0.000
3、278 1 0;%input(请输入由支路参数形成的矩阵： B1=);B2=0 0 231 231 0 1; 0 0 220 0 0 2; 0 60+37.184i 220 0 0 2; 0 0 220 0 0 2; 0 40+24.789i 220 0 0 2; 0 0 220 0 0 2; 0 60+37.184i 220 0 0 2; 0 0 220 0 0 2; 0 40+24.789i 220 0 0 2; 150 0 231 231 0 3;%input(请输入各节点参数形成的矩阵： B2=);Y=zeros(n);e=zeros(1,n);f=zeros(1,n);V=zeros
4、(1,n);sida=zeros(1,n);S1=zeros(nl);%修改部分ym=1;SB=100;UB=220;%ym=input(您输入的参数是标么值？（若不是则输入一个不为零的数值）);if ym=0 %SB=input(请输入功率基准值:SB=); %UB=input(请输入电压基准值:UB=); YB=SB./UB./UB; BB1=B1; BB2=B2; for i=1:nl B1(i,3)=B1(i,3)*YB; B1(i,4)=B1(i,4)./YB; end disp(B1矩阵B1=); disp(B1) for i=1:n B2(i,1)=B2(i,1)./SB; B2
5、(i,2)=B2(i,2)./SB; B2(i,3)=B2(i,3)./UB; B2(i,4)=B2(i,4)./UB; B2(i,5)=B2(i,5)./SB; end disp(B2矩阵B2=); disp(B2)end% % %-for i=1:nl %支路数 if B1(i,6)=0 %左节点处于低压侧 p=B1(i,1);q=B1(i,2); else p=B1(i,2);q=B1(i,1); end Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5); %非对角元 Y(q,p)=Y(p,q); Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)2)+
6、B1(i,4)./2; %对角元K侧 Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2; %对角元1侧 end%求导纳矩阵disp(导纳矩阵 Y=);disp(Y)%-G=real(Y);B=imag(Y); %分解出导纳阵的实部和虚部 for i=1:n %给定各节点初始电压的实部和虚部 e(i)=real(B2(i,3); f(i)=imag(B2(i,3); V(i)=B2(i,4); %PV节点电压给定模值 endfor i=1:n %给定各节点注入功率 S(i)=B2(i,1)-B2(i,2); %i节点注入功率SG-SL B(i,i)=B(i,i)+B2(i,
7、5); %i节点无功补偿量 end%=P=real(S);Q=imag(S);ICT1=0;IT2=1;N0=2*n;N=N0+1;a=0;while IT2=0 IT2=0;a=a+1; for i=1:n if i=isb %非平衡节点 C(i)=0;D(i)=0; for j1=1:n C(i)=C(i)+G(i,j1)*e(j1)-B(i,j1)*f(j1);%(Gij*ej-Bij*fj) D(i)=D(i)+G(i,j1)*f(j1)+B(i,j1)*e(j1);%(Gij*fj+Bij*ej) end P1=C(i)*e(i)+f(i)*D(i);%节点功率P计算ei(Gij*e
8、j-Bij*fj)+fi(Gij*fj+Bij*ej) Q1=C(i)*f(i)-e(i)*D(i);%节点功率Q计算fi(Gij*ej-Bij*fj)-ei(Gij*fj+Bij*ej)%求P,Q V2=e(i)2+f(i)2; %电压模平方 %= 以下针对非PV节点来求取功率差及Jacobi矩阵元素 = if B2(i,6)=3 %非PV节点 DP=P(i)-P1; %节点有功功率差 DQ=Q(i)-Q1; %节点无功功率差 %= 以上为除平衡节点外其它节点的功率计算 =%= 求取Jacobi矩阵 = for j1=1:n if j1=isb&j1=i %非平衡节点&非对角元 X1=-G(
9、i,j1)*e(i)-B(i,j1)*f(i); % dP/de=-dQ/df X2=B(i,j1)*e(i)-G(i,j1)*f(i); % dP/df=dQ/de X3=X2; % X2=dp/df X3=dQ/de X4=-X1; % X1=dP/de X4=dQ/df p=2*i-1;q=2*j1-1; J(p,q)=X3;J(p,N)=DQ;m=p+1; J(m,q)=X1;J(m,N)=DP;q=q+1; J(p,q)=X4;J(m,q)=X2; elseif j1=i&j1=isb %非平衡节点&对角元 X1=-C(i)-G(i,i)*e(i)-B(i,i)*f(i);% dP/
10、de X2=-D(i)+B(i,i)*e(i)-G(i,i)*f(i);% dP/df X3=D(i)+B(i,i)*e(i)-G(i,i)*f(i); % dQ/de X4=-C(i)+G(i,i)*e(i)+B(i,i)*f(i);% dQ/df p=2*i-1;q=2*j1-1;J(p,q)=X3;J(p,N)=DQ;%扩展列Q m=p+1; J(m,q)=X1;q=q+1;J(p,q)=X4;J(m,N)=DP;%扩展列P J(m,q)=X2; end end else %= 下面是针对PV节点来求取Jacobi矩阵的元素 = DP=P(i)-P1; % PV节点有功误差 DV=V(i)2-V2; % PV节点电压误差 for j1=1:n if j1=isb&j1=i %非平衡节点&非对角元 X1=-G(i,j1)*e(i)-B(i,j1)*f(i); % dP/de
