|
|
1.1 ! root 1: for k = 1:n, s = norm(x(k,:)), x(k,:) = x(k,:)/s; ... ! 2: for j = k+1:n, d = x(j,:)*x(k,:)'; x(j,:) = x(j,:) - d*x(k,:);
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.