gascenarioreduction/main.m

38 lines
1.1 KiB
Mathematica
Raw Normal View History

clear
clc
data=dlmread('<EFBFBD><EFBFBD><EFBFBD><EFBFBD>.csv');
%% <EFBFBD><EFBFBD><EFBFBD>ݴ<EFBFBD><EFBFBD><EFBFBD>
%<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>T<EFBFBD><EFBFBD>ÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ó<EFBFBD><EFBFBD><EFBFBD>
snWind=data(:,1:3:end);
snSolar=data(:,2:3:end);
snP=data(:,3:3:end);
snP(snP==-100)=1;
%% <EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD>
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD>³<EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
randSNCount=100; %ҪС<EFBFBD><EFBFBD>16^288
selectedIndex=round(1+(16-1)*rand(randSNCount,96));
selectedWind=zeros(randSNCount,96);
selectedSolar=zeros(randSNCount,96);
selectedP=zeros(randSNCount,96);
for I=1:randSNCount
onesIndex=sparse(selectedIndex(I,:),1:96,1,16,96);
selectedWind(I,:)=sum(snWind.*onesIndex);
selectedSolar(I,:)=sum(snSolar.*onesIndex);
selectedP(I,:)=sum(snP.*onesIndex);
end
candidateP=prod(selectedP,2);
candidateP=candidateP./sum(candidateP);
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶȺ<EFBFBD><EFBFBD><EFBFBD>
fitness=0;
for I=1:randSNCount
for J=1:randSNCount
fitness=fitness+candidateP(I)*( abs( sum(selectedWind(I,:)-selectedWind(J,:)) )+abs( sum(selectedSolar(I)-selectedSolar(J)) ) );
end
end
fitness=fitness/randSNCount/randSNCount;
%<EFBFBD>޸<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
changeN=5;%ѡ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>ν<EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ġ<EFBFBD>
changedIndex=1:96;
changedIndex=changedIndex( round(1+(96-1)*rand(changeN,1)) );
selectedIndex(:,changedIndex)=round(1+(16-1)*rand(randSNCount,changeN));%<EFBFBD><EFBFBD><EFBFBD>Ǹı<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ