RosettaCodeData/Task/QR-decomposition/Maple/qr-decomposition.maple
2014-04-02 16:56:35 +00:00

6 lines
101 B
Text

with(LinearAlgebra):
Q,R := QRDecomposition( evalf( <<12|-51|4>,<6|167|-68>,<-4|24|-41>>) ):
Q;
R;