修改了线路功率计算代码

Signed-off-by: facat <facat@facat.cn>
This commit is contained in:
facat 2013-08-15 21:39:34 +08:00
parent af0c97dd46
commit 982c834815
1 changed files with 6 additions and 6 deletions

12
run.m
View File

@ -37,14 +37,14 @@ cmpBranchI=(cmpV(lineI)-cmpV(lineJ))./(lineR+1j*lineX);%
rBranchI=abs(cmpBranchI);% <EFBFBD><EFBFBD> rBranchI=abs(cmpBranchI);% <EFBFBD><EFBFBD>
mBranchI=rBranchI.*(normrnd(0,sigma,length(rBranchI),1)+1);%<EFBFBD>ソソ mBranchI=rBranchI.*(normrnd(0,sigma,length(rBranchI),1)+1);%<EFBFBD>ソソ
%% %%
rBranchP=real((cmpV(lineI)-cmpV(lineJ)).*conj(cmpBranchI))+real(cmpV(lineI) .*conj(1j*lineB2.*cmpV(lineI) ) ); rBranchP=real((cmpV(lineI)).*conj(cmpBranchI))+real(cmpV(lineI) .*conj(1j*lineB2.*cmpV(lineI) ) );
rV=abs(cmpV); % rV=abs(cmpV);
rA=angle(cmpV); % rA=angle(cmpV);
a=rV(lineI).^2.*(lineG)-rV(lineI).*rV(lineJ).*(lineG.*cos(rA(lineI)-rA(lineJ) )+lineB.*sin(rA(lineI)-rA(lineJ) ) ); % a=rV(lineI).^2.*(lineG)-rV(lineI).*rV(lineJ).*(lineG.*cos(rA(lineI)-rA(lineJ) )+lineB.*sin(rA(lineI)-rA(lineJ) ) );
b=-rV(lineI).^2.*(lineB+lineB2)-rV(lineI).*rV(lineJ).*(lineG.*sin(rA(lineI)-rA(lineJ) )-lineB.*cos(rA(lineI)-rA(lineJ) ) ); % b=-rV(lineI).^2.*(lineB+lineB2)-rV(lineI).*rV(lineJ).*(lineG.*sin(rA(lineI)-rA(lineJ) )-lineB.*cos(rA(lineI)-rA(lineJ) ) );
% rBranchP=rBranchP(abs(rBranchP)>1e-5); % rBranchP=rBranchP(abs(rBranchP)>1e-5);
mBranchP=rBranchP.*(normrnd(0,sigma,length(rBranchP),1)+1);%ソソ mBranchP=rBranchP.*(normrnd(0,sigma,length(rBranchP),1)+1);%ソソ
rBranchQ=imag((cmpV(lineI)-cmpV(lineJ)).*conj(cmpBranchI))+imag(cmpV(lineI) .*conj(1j*lineB2.*cmpV(lineI) ) ); rBranchQ=imag((cmpV(lineI)).*conj(cmpBranchI))+imag(cmpV(lineI) .*conj(1j*lineB2.*cmpV(lineI) ) );
% rBranchQ=rBranchQ(abs(rBranchQ)>1e-5); % rBranchQ=rBranchQ(abs(rBranchQ)>1e-5);
mBranchQ=rBranchQ.*(normrnd(0,sigma,length(rBranchQ),1)+1);%ソソ mBranchQ=rBranchQ.*(normrnd(0,sigma,length(rBranchQ),1)+1);%ソソ
%% <EFBFBD> %% <EFBFBD>