File: MakeOrtho.m

package info (click to toggle)
psychtoolbox-3 3.0.14.20170103%2Bgit6-g605ff5c.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 103,044 kB
  • ctags: 69,483
  • sloc: ansic: 167,371; cpp: 11,232; objc: 4,708; sh: 1,875; python: 383; php: 344; makefile: 207; java: 113
file content (17 lines) | stat: -rw-r--r-- 428 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function out = MakeOrtho(in)
% function out = MakeOrtho(in)
%
% The column space of in and out should be the
% same.  But the columns of out are orthonormal.
% In addition the span of out(:,1:n) is the
% same as the span of in(:,1:n) for any n less
% than the column dimension of in.

[m,n] = size(in);
ortho = zeros(m,n);
work = in;
for i = 1:n
  ortho(:,i) = orth(work(:,i));
  work = work-ortho*ortho'*work;
end
out = ortho;