for k = 1:n, for j = 1:k-1, d = x(k,:)*x(j,:)'; x(k,:) = x(k,:) - d*x(j,:); ...
   end, s = norm(x(k,:)), x(k,:) = x(k,:)/s;
