12345678910111213141516171819202122 |
- function C = spm_atranspa(A)
- % Multiplies the transpose of a matrix by itself
- % FORMAT C = spm_atranspa(A)
- % A - real matrix
- % C - real symmetric matrix resulting from A'A
- %_______________________________________________________________________
- %
- % This compiled routine was written to save both memory and CPU time but
- % is now deprecated. Use A'*A directly instead.
- %_______________________________________________________________________
- % Copyright (C) 2008 Wellcome Trust Centre for Neuroimaging
- % John Ashburner
- % $Id: spm_atranspa.m 4418 2011-08-03 12:00:13Z guillaume $
- persistent runonce
- if isempty(runonce)
- warning('spm_atranspa is deprecated. Use A''*A instead.');
- runonce = 1;
- end
- C = A'*A;
|