home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
WINDOWS
/
DIVERSEN
/
MATHS171
/
QR.M
< prev
next >
Wrap
Text File
|
1994-01-23
|
311b
|
17 lines
function [Q,R,E]=qr(x)
% [Q,R,E]=qr(x)
% qr decomposition
% S.Halevy 7/31/92
% Copyright (c) 1992 by the MathWizards
if nargout > 2
%disp('WARNING: MathViews QR is only partially implemented')
%pause
[Q,R,E]= _qr(x);
R=triu(R);
else
[Q,R]= _qr(x);
R=triu(R);
end