From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3293/CH5/EX5.5/Ex5_5.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 3293/CH5/EX5.5/Ex5_5.sce

(limited to '3293/CH5/EX5.5')

diff --git a/3293/CH5/EX5.5/Ex5_5.sce b/3293/CH5/EX5.5/Ex5_5.sce
new file mode 100755
index 000000000..f2238a7fa
--- /dev/null
+++ b/3293/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,28 @@
+//page 147
+//Example 5.5
+clc;
+clear;
+close;
+function [E1 , E2 , E3] = determinant(A)
+    E1 = A(1,1)*det([A(2,2) A(2,3);A(3,2) A(3,3)]) - A(2,1)*det([A(1,2) A(1,3);A(3,2) A(3,3)]) + A(3,1)*det([A(1,2) A(1,3);A(2,2) A(2,3)]);
+    E2 = -A(1,2)*det([A(2,1) A(2,3);A(3,1) A(3,3)]) + A(2,2)*det([A(1,1) A(1,3);A(3,1) A(3,3)]) + A(3,2)*det([A(1,1) A(1,3);A(2,1) A(2,3)]);
+    E3 = A(1,3)*det([A(2,1) A(2,2);A(3,1) A(3,2)]) - A(2,3)*det([A(1,1) A(1,2);A(3,1) A(3,2)]) + A(3,3)*det([A(1,1) A(1,2);A(2,1) A(2,2)]);
+endfunction
+
+//part a
+x = poly(0,"x");
+A = [x-1 x^2 x^3;0 x-2 1;0 0 x-3];
+disp(A,'A = ');
+[E1, E2, E3] = determinant(A);
+disp(E1,'E1(A) = ');
+disp(E2,'E2(A) = ');
+disp(E3,'E3(A) = ');
+disp('--------------------------------------');
+//part b
+A = [0 1 0;0 0 1;1 0 0];
+disp(A,'A = ');
+[E1, E2, E3] = determinant(A);
+disp(E1,'E1(A) = ');
+disp(E2,'E2(A) = ');
+disp(E3,'E3(A) = ');
+//end
-- 
cgit