قسم الرياضيات و الإعلام الإلي

function j = compute_score(data,ids)
   clear compute_score;
   inter = [];
   intra = [];
   for i=1:size(data,1)-1
      for ii=i+1:size(data,1)
         b1 = data(i,:);
         b2 = data(ii,:);
         d = sqrt(sum((b1-b2).^2));
         if ids(i) == ids(ii)
            intra = [intra;d];
         else
            inter = [inter;d];
         end
      end
   end
   j = mean(intra)/mean(inter);