Diplomska naloga (.pdf)

52
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%FUNKCIJA, KI NAREDI NOVO POPULACIJO
function Nova
%Definiramo vse potrebne globalne spremenljivke.
... (elitizem, st_osebkov, st_plasti, P, f, opt)
pop=P;
f1=f;
%Če optimiziramo po debelini absorberja.
if opt==0
%Če osebek predstavlja nedopustno rešitev, mu damo utež
%(št_plasti_v_absorberju)*0.004.
for n=1:st_osebkov
if f1(n)==1
f1(n)=0.4e-2*st_plasti;
end
end
clear n
%Ker je osebek z manjšo vrednostjo kriterijske fn. boljši, za uteži
%uporabimo obratne vrednosti kriterijske fn.
f1=ones(size(f))./f;
%Če optimiziramo po širini frekvenčnega pasu absorberja.
elseif opt==1
%Če osebek predstavlja nedopustno rešitev, mu damo utež (vrednost_najboljšega)*0.1.
for n=1:st_osebkov
if f1(n)==0
f1(n)=f1(1)*0.1;
end
end
clear n
end
x=sum(f1);
delne_vsote(1)=f1(1);
for j=2:st_osebkov
delne_vsote(j)=delne_vsote(j-1)+f1(j);
end
%Upoštevamo elitizem.
j=round(st_osebkov*elitizem);
if (st_osebkov-j)/2-fix((st_osebkov-j)/2)==0
j=j+1;
end
while j