function result=fitness(x,D,n,m)



sum=[0];

for k=1:m
    for i=1:n
        sum(i)=sum(i)+TC(i)*S(i,k)/PA(k);
    end
end

min = sum(1);

for i=1:n;
    if(min>sum(i))
        min=sum(i);
    end
end

result=min;