%function2
function amount = amount_of_c(adj, len);
  for k=1:len
        for i=1:len
        for j=1:len
        if i ~= j && adj(i,k) + adj(k,j) == 2
            adj(i,j) = 1;
        end
      end
    end
    end


  flag = false(len);
  amount = 0;
  for i=1:len
    if flag(i) == 0
        amount += 1;
      flag(i) = 1;
      for j=1:len
        if adj(i,j) == 1 && flag(j) == 0
            flag(j) = 1;
        end
      end
    end
    end