Merge pull request #1 from prashantsinalkar/masterHEADmaster

Added R TBC

1 files changed, 27 insertions, 0 deletions

diff --git a/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1/Ex2.1_1.r b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1/Ex2.1_1.r
new file mode 100644
index 00000000..9afb84ce
--- /dev/null
+++ b/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1/Ex2.1_1.r
@@ -0,0 +1,27 @@
+#Example : 1   Chapter : 2.1  Pageno : 37
+#Multiplication by rows and cols dotproduct.
+multiply<-function(A,x){
+  b<-c()
+  for(i in 1:3){
+    b<-c(b,sum(A[i,]*x[,1]))
+  }
+  b<-matrix(b,ncol=1)
+  print(paste("Multiplying matrices by dotproduct of rows and cols"))
+  print(A)
+  print("*")
+  print(x)
+  print("=")
+  print(b)
+}
+
+
+I<-matrix(c(1,0,0,0,1,0,0,0,1),ncol=3,byrow=T)
+x<-matrix(c(4,5,6),ncol=1)
+A=matrix(c(1,1,1,0,0,0,0,0,0),ncol=3)
+multiply(A,x)
+A<-matrix(c(1,0,0,0,1,0,0,0,1),nrow=3,ncol=3,byrow=T)
+multiply(A,x)
+
+
+
+