1 files changed, 16 insertions, 0 deletions
diff --git a/243/CH14/EX14.3/14_03.sce b/243/CH14/EX14.3/14_03.sce
new file mode 100755
index 000000000..020ed5ad9
--- /dev/null
+++ b/243/CH14/EX14.3/14_03.sce
@@ -0,0 +1,16 @@
+//Example No. 14_03
+//Eigen Vectors
+//Pg No. 473
+clear ; close ; clc ;
+
+A = [8 -4 ; 2 2 ] ;
+lamd = poly(0,'lamd')
+p = det(A - lamd*eye())
+root = roots(p)
+mprintf('\n The roots are \n lamda1 = %f \n lamda2 = %f \n ',root(1),root(2))
+A1 = A - root(1)*eye()
+X1 = [-1*A1(1,2)/A1(1,1) ; 1]
+disp(X1,'X1 = ')
+A2 = A - root(2)*eye()
+X2 = [-1*A2(1,2)/A2(1,1) ; 1]
+disp(X2,'X2 = ')
+\ No newline at end of file