summaryrefslogtreecommitdiff
path: root/75/CH9/EX9.16/ex_16.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /75/CH9/EX9.16/ex_16.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '75/CH9/EX9.16/ex_16.sce')
-rwxr-xr-x75/CH9/EX9.16/ex_16.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/75/CH9/EX9.16/ex_16.sce b/75/CH9/EX9.16/ex_16.sce
new file mode 100755
index 000000000..7d2024183
--- /dev/null
+++ b/75/CH9/EX9.16/ex_16.sce
@@ -0,0 +1,23 @@
+ // PG (624)
+
+A1 = [2 1 0;1 3 1;0 1 4]
+lam = spec(A1)'
+[Q1,R1] = qr(A1);
+A2 = R1 * Q1
+[Q2,R2] = qr(A2);
+A3 = R2 * Q2
+[Q3,R3] = qr(A3);
+A4 = R3 * Q3
+[Q4,R4] = qr(A4);
+A5 = R4 * Q4
+[Q5,R5] = qr(A5);
+A6 = R5 * Q5
+[Q6,R6] = qr(A6);
+A7 = R6 * Q6
+[Q7,R7] = qr(A7);
+A8 = R7 * Q7
+[Q8,R8] = qr(A8);
+A9 = R8 * Q8
+[Q9,R9] = qr(A9);
+A10 = R9 * Q9
+[Q10,R10] = qr(A10); \ No newline at end of file