summaryrefslogtreecommitdiff
path: root/Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1
diff options
context:
space:
mode:
Diffstat (limited to 'Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1')
-rw-r--r--Introduction_To_Linear_Algebra_by_Gilbert_Strang/CH2/EX2.1.1/Ex2.1_1.r27
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)
+
+
+
+