diff options
Diffstat (limited to 'Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.5.3')
| -rw-r--r-- | Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.5.3/Ex2.5_3.r | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.5.3/Ex2.5_3.r b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.5.3/Ex2.5_3.r new file mode 100644 index 00000000..905de16e --- /dev/null +++ b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.5.3/Ex2.5_3.r @@ -0,0 +1,14 @@ +# Example : 3 Chapter : 2.5 Pageno : 83 +# Inverse of product of matrices +E<-matrix(c(1,-5,0,0,1,0,0,0,1),ncol=3) +E1<-solve(E) +F<-matrix(c(1,0,0,0,1,-4,0,0,1),ncol=3) +F1<-solve(F) +print(F1) +FE<-F%*%E +print(FE) +print("Inverse of FE ") +FE1<-solve(FE) +print(FE1) +print("Inverse of FE can also be E-1*F-1 ") +print(E1%*%F1) |