Diplomska naloga (.pdf)

50
%Uredimo populacijo po kakovosti osebkov.
clear Q
clear index
clear q
Q=P;
if opt==1
[q,index]=sort(-f’);
f=(-q)’;
else
[q,index]=sort(f’);
f=(q)’;
end
for j=1:st_osebkov
P(:,:,j)=Q(:,:,index(j));
end
end
%Zanima nas dejanska širina frekvenčnega pasu.
for j=1:st_osebkov
%Nedopustne osebke (oz. osebke, ki zadostijo zgolj pri frekvenci, okoli
%katere optimiziramo), pustimo označene z ’0Hz’ (oz. z ’1Hz’).
if f(j)>1
f(j)=((f(j)-1)/(natancnost-1))*(interval(size(interval,1))-interval(1));
end
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%KRITERIJSKA FUNKCIJA
function Kriterijska(t)
%t - faktor, ki pove, ali ocenjujemo prvo populacijo ali neko kasnejšo.
%t = 1 Pri ocenjevanju 1. populacije ocenimo vse osebke.
%t = 0 Pri ocenjevanju 2.,3.,... populacije, osebkom, ki smo jih prenesli
% z elitizmom, kakovosti le prepišemo.
%Definiramo vse potrebne globalne spremenljivke.
... (E, mi, ni1, ni, pogoj, elitizem, st_osebkov, st_plasti, P, f, opt)
int=size(interval,1);
if t==1
zacetek=1;
else
zacetek=round(st_osebkov*elitizem);
if (st_osebkov-zacetek)/2-fix((st_osebkov-zacetek)/2)==0
zacetek=zacetek+1;
end
end
for k=zacetek:st_osebkov