1 files changed, 10 insertions, 0 deletions
diff --git a/26/CH6/EX6.4.13/6_4_13.sce b/26/CH6/EX6.4.13/6_4_13.sce
new file mode 100755
index 000000000..a9834939f
--- /dev/null
+++ b/26/CH6/EX6.4.13/6_4_13.sce
@@ -0,0 +1,10 @@
+disp('QR decomposition of a matrix')
+disp('given matrix A=')
+a=[5 9;1 7;-3 -5;1 5]
+disp(a)
+disp('given matrix Q=')
+q=(1/6)*[5 -1;1 5;-3 1;1 3]
+disp(q)
+disp('Therefore, R=')
+s=q'*a
+disp(s)
+\ No newline at end of file