summaryrefslogtreecommitdiff
path: root/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c
diff options
context:
space:
mode:
authorPrashant S2019-10-04 12:27:32 +0530
committerGitHub2019-10-04 12:27:32 +0530
commitac2986488a9731cff5cbb517d8f0ef98e2561d64 (patch)
tree7bb3f64824627ef179d5f341266a664fd0b69011 /Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.3.c
parentcbb2770fb2f88246175add29623103a56ba338b8 (diff)
parentb3f3a8ecd454359a2e992161844f2fb599f8238a (diff)
downloadR_TBC_Uploads-master.tar.gz
R_TBC_Uploads-master.tar.bz2
R_TBC_Uploads-master.zip
Merge pull request #1 from prashantsinalkar/masterHEADmaster
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.R18
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