diff options
Diffstat (limited to 'Linear_Algebra_by_Jim_Hefferon/CH4/EX3.4')
| -rw-r--r-- | Linear_Algebra_by_Jim_Hefferon/CH4/EX3.4/Ex4_3_4.R | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Linear_Algebra_by_Jim_Hefferon/CH4/EX3.4/Ex4_3_4.R b/Linear_Algebra_by_Jim_Hefferon/CH4/EX3.4/Ex4_3_4.R new file mode 100644 index 00000000..29df6c40 --- /dev/null +++ b/Linear_Algebra_by_Jim_Hefferon/CH4/EX3.4/Ex4_3_4.R @@ -0,0 +1,11 @@ +#Example3.4,chapter 4,page 330
+A <- matrix(c(2,4,1,3),ncol = 2)
+#using multinlinearity property to break up the matrix
+a <- matrix(c(2,4,0,0),ncol = 2)
+b <- matrix(c(2,0,0,3),ncol = 2)
+c <- matrix(c(0,4,1,0),ncol = 2)
+d <- matrix(c(0,0,1,3),ncol = 2)
+#verifying the property
+x <- det(A)
+y <- det(a)+det(b)+det(c)+det(d)
+all.equal(x,y)
|