1 files changed, 11 insertions, 0 deletions
diff --git a/70/CH5/EX5.2.1/5_2_1.sci b/70/CH5/EX5.2.1/5_2_1.sci
new file mode 100755
index 000000000..62388df91
--- /dev/null
+++ b/70/CH5/EX5.2.1/5_2_1.sci
@@ -0,0 +1,11 @@
+//page 238
+clear;
+close;
+clc;
+A=[1/2 1/2;1/2 1/2];
+[V,Val]=spec(A);
+disp(Val,'Eigenvalue matrix:');
+disp(V,'S=');
+disp(A*V,'AS=S*eigenvaluematrix')
+disp('Therefore inv(S)*A*S=eigenvalue matrix')
+//end
+\ No newline at end of file