function sk=svdbipart(a)
%
% funkcija svdbipart(a) raèuna singularne vektore  
% rijeèi x dokumenti matrice a(1:m,1:n), formira drugi svojstveni vektor
% z(1:m+n) matrice susjedstva grafa, i na izlazu 
% daje vektor sk(1:m+n), sk(i)=1 ako je z(i)<0, sk(i)=2 ako je
% z(i)>=0.
%
d1=1./sqrt(sum(a'));
d2=1./sqrt(sum(a));
an=a.*(d1'*d2);
[u,s,v]=svds(an,2);
z=[d1'.*u(:,2);d2'.*v(:,2)];
sk(find(z<0))=1;
sk(find(z>=0))=2;



