function R=comp_pca24(x),

len=size(x,1);

[U,S,V] = svd(x);
val = diag(S)
Evec = U./sqrt(repmat(val',len,1));
R = Evec;

