diff options
author | Prashant S | 2019-10-04 12:27:32 +0530 |
---|---|---|
committer | GitHub | 2019-10-04 12:27:32 +0530 |
commit | ac2986488a9731cff5cbb517d8f0ef98e2561d64 (patch) | |
tree | 7bb3f64824627ef179d5f341266a664fd0b69011 /Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c | |
parent | cbb2770fb2f88246175add29623103a56ba338b8 (diff) | |
parent | b3f3a8ecd454359a2e992161844f2fb599f8238a (diff) | |
download | R_TBC_Uploads-master.tar.gz R_TBC_Uploads-master.tar.bz2 R_TBC_Uploads-master.zip |
Added R TBC
Diffstat (limited to 'Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c')
-rw-r--r-- | Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c/Ex2_2.3C.R | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c/Ex2_2.3C.R b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c/Ex2_2.3C.R new file mode 100644 index 00000000..2531ce7f --- /dev/null +++ b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c/Ex2_2.3C.R @@ -0,0 +1,18 @@ +# Example : 2.3C Chapter : 2.3 Pageno : 62 +# Multiplying Matrices in two different ways +A<-matrix(c(3,1,2,4,5,0),ncol=2) +B<-matrix(c(2,1,4,1),ncol=2) +AB<-A%*%B +print(AB) +#Multiplying matrices A and B as Rows of A times columns of B as dot product +for(r in 1:dim(A)[1]){ + for(c in 1:dim(B)[2]){ + AB[r,c]<-sum(A[r,]*B[,c]) + } +} +print(AB) +#Multiplying Matrices A and B as Columns of A times rows of B +AB1<-matrix(A[,1],ncol=1)%*%matrix(B[1,],nrow=1) +AB2<-matrix(A[,2],ncol=1)%*%matrix(B[2,],nrow=1) +AB<-AB1+AB2 +print(AB)
\ No newline at end of file |