facat
/
pes2014-wronglowervoltagebound
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
pes2014-wronglowervoltagebound/openfile2.m

86 lines
3.8 KiB
Mathematica
Raw Normal View History

将openfile2.m修改为可以读取中调的格式 Signed-off-by: unknown <dmy@dmy-PC.(none)>
2012-07-30 15:57:40 +08:00
function [Busnum,Balance,PQstandard,Precision,Linei,Linej,Liner,Linex,Lineb,kmax,Transfori ,...
修复一个bug。潮流形成导纳矩阵的时候忘记加节点电导（G）了，所以老是不对。现在修复了。 Signed-off-by: facat <dugg@21cn.com>
2012-12-25 12:03:27 +08:00
Transforj,Transforr,Transforx,Transfork0,Branchi,Branchg,Branchb,Pointpoweri,PG,QG,PD,QD,PVi,PVu,GenU,GenL,GenC,CenterA,PGi,PVQU,PVQL] = openfile2(FileName)
将openfile2.m修改为可以读取中调的格式 Signed-off-by: unknown <dmy@dmy-PC.(none)>
2012-07-30 15:57:40 +08:00
%**************************************************************************
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> : <EFBFBD>Ӻ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
% <EFBFBD><EFBFBD> <EFBFBD>ߣ<EFBFBD>
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>2010.12
%**************************************************************************
data = dlmread(FileName); % һ<EFBFBD>ζ<EFBFBD><EFBFBD><EFBFBD>ȫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
zeroRow = find(data(:,1)==0);
Busnum= data(1,1); % <EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>
PQstandard = data(1,3); % <EFBFBD><EFBFBD>׼<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
kmax = 60;%data(1,4); %<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Precision = data(1,4); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%Balance = data(3,2);
Balance=data(3:zeroRow(2)-1,2);% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><EFBFBD>ŵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
CenterA=0.1;%data(1,5); %<EFBFBD><EFBFBD><EFBFBD>IJ<EFBFBD><EFBFBD><EFBFBD>
LineNum=data(1,2); %֧·<EFBFBD><EFBFBD>
Base=data(1,3);
%% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>
line = data(zeroRow(2)+1:zeroRow(3)-1,:); % <EFBFBD>γ<EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ground = data(zeroRow(5)+1:zeroRow(6)-1,:); % <EFBFBD>γɶԵ<EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
tran = data(zeroRow(3)+1:zeroRow(4)-1,:); % <EFBFBD>γɱ<EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
buspq = data(zeroRow(8)+1:zeroRow(9)-1,:); % <EFBFBD>γɽڵ㹦<EFBFBD>ʲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PV = data(zeroRow(11)+1:zeroRow(12)-1,:); % <EFBFBD>γ<EFBFBD>pv<EFBFBD>ڵ㹦<EFBFBD>ʲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
GenP=data(zeroRow(9)+1:zeroRow(10)-1,:);
GenQ=data(zeroRow(11)+1:zeroRow(12)-1,:);
%% <EFBFBD><EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>
Linei = line(:,2); % <EFBFBD>ڵ<EFBFBD>i
Linej= line(:,3); % <EFBFBD>ڵ<EFBFBD>j
Liner = line(:,4); % <EFBFBD><EFBFBD>·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Linex = line(:,5); % <EFBFBD><EFBFBD>·<EFBFBD>翹
Lineb = line(:,6); % b/2
%% <EFBFBD>Ե<EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Branchi = ground(:,2); % <EFBFBD>Ե<EFBFBD>֧·<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>
Branchb = ground(:,4); % <EFBFBD>Ե<EFBFBD>֧·<EFBFBD>ĵ<EFBFBD><EFBFBD><EFBFBD>
修复一个bug。潮流形成导纳矩阵的时候忘记加节点电导（G）了，所以老是不对。现在修复了。 Signed-off-by: facat <dugg@21cn.com>
2012-12-25 12:03:27 +08:00
Branchg = ground(:,3); % <EFBFBD>Ե<EFBFBD>֧·<EFBFBD>ĵ<EFBFBD><EFBFBD><EFBFBD>
将openfile2.m修改为可以读取中调的格式 Signed-off-by: unknown <dmy@dmy-PC.(none)>
2012-07-30 15:57:40 +08:00
%% <EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Transfori = tran(:,3); % <EFBFBD>ڵ<EFBFBD>i
Transforj= tran(:,4); % <EFBFBD>ڵ<EFBFBD>j
Transforr = tran(:,5); % <EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Transforx= tran(:,6); % <EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD>翹
Transfork0 = tran(:,7); % <EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%% <EFBFBD>ڵ㹦<EFBFBD>ʲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Pointpoweri = buspq(:,3);
PG=buspq(:,5); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>й<EFBFBD>
QG=buspq(:,6); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޹<EFBFBD>
PD=buspq(:,7); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>й<EFBFBD>
QD=buspq(:,8); % <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޹<EFBFBD>
%%<EFBFBD><EFBFBD><EFBFBD>Ի<EFBFBD>ֵ
PG=PG/Base;
QG=QG/Base;
PD=PD/Base;
QD=QD/Base;
%%
PD=sparse(PD);
QD=sparse(QD);
修复一个bug。潮流形成导纳矩阵的时候忘记加节点电导（G）了，所以老是不对。现在修复了。 Signed-off-by: facat <dugg@21cn.com>
2012-12-25 12:03:27 +08:00
%QD=PD*sqrt(1-.85^2)/.85;
将openfile2.m修改为可以读取中调的格式 Signed-off-by: unknown <dmy@dmy-PC.(none)>
2012-07-30 15:57:40 +08:00
PG=sparse(PG);
QG=sparse(QG);
%% pv<EFBFBD>ڵ㹦<EFBFBD>ʲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PVi = PV(:,3); % PV<EFBFBD>ڵ<EFBFBD><EFBFBD>Ľڵ<EFBFBD><EFBFBD><EFBFBD>
PVu = PV(:,5); % PV<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>ѹ
PVQL=PV(:,6);%PV<EFBFBD>ڵ<EFBFBD><EFBFBD>޹<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PVQL=PVQL/Base;
PVQU=PV(:,7); %PV<EFBFBD>ڵ<EFBFBD><EFBFBD>޹<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PVQU=PVQU/Base;
%% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
%GenU=Gen(:,[1 5 6]);
%GenL=Gen(:,[1 7 8]);
GenC=GenP(:,[3 7:9]);
t=GenC(:,2);
GenC(:,2)=GenC(:,4);
GenC(:,4)=t;
%%%%%%%%%%%%%%%%%%%%
%GenC(:,2:4)=100*GenC(:,2:4);
t=GenP(:,[3 5]);
%GenL=[t,PVQL(PVi)];
GenL=t;%<EFBFBD>й<EFBFBD><EFBFBD>½<EFBFBD>
GenL(:,2)=GenL(:,2)/Base;
t=GenP(:,[3 6]);
%GenU=[t,PVQU(PVi)];
GenU=t;%<EFBFBD>й<EFBFBD><EFBFBD>Ͻ<EFBFBD>
GenU(:,2)=GenU(:,2)/Base;
PGi=GenP(:,3);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>
end