Anonymous user
QR decomposition: Difference between revisions
adding sas
(→{{header|C}}: bugfix #2) |
(adding sas) |
||
Line 1,338:
}
See R in picture</pre>
=={{header|SAS}}==
<lang sas>proc iml;
a={12 -51 4,6 167 -68,-4 24 -41};
print(a);
call qr(q,r,p,d,a);
print(q);
print(r);
quit;
/*
a
12 -51 4
6 167 -68
-4 24 -41
q
-0.857143 0.3942857 -0.331429
-0.428571 -0.902857 0.0342857
0.2857143 -0.171429 -0.942857
r
-14 -21 14
0 -175 70
0 0 35
*/</lang>
=={{header|Tcl}}==
|