RosettaCodeData/Task/QR-decomposition/Maple/qr-decomposition.maple

7 lines
101 B
Plaintext

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