RosettaCodeData/Task/QR-decomposition/Maple/qr-decomposition.maple
2023-07-01 13:44:08 -04:00

5 lines
87 B
Text

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