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