Diplomska naloga (.pdf)

53
end
end
t=round(rand)+1;
P(1,k,j)=pop(1,k,s(t));
P(1,k,j+1)=pop(1,k,s(3-t));
%Glede na naključno št. med 0 in 1 izberemo
%novo debelino posamezne plasti.
for n=1:st_plasti
r=rand;
P(2,n,j)=r*pop(2,n,s(1))+(1-r)*pop(2,n,s(2));
P(2,n,j+1)=(1-r)*pop(2,n,s(1))+r*pop(2,n,s(2));
%Plasti debeline manjše od 0.1 mm ne moremo narediti.
if P(2,n,j)delne_vsote(l)
k=l;
else
j=l;
end
end
y(n)=j;
clear p
clear k
clear j
end
s=[y(1) y(2)];
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%