R語言兩自定義矩陣的基本運算-實例

#sink("matrix_history.txt")
cat("請輸入矩陣的行和列數，「，」號隔開,建議行 等於列 數：")
number<-scan(what="character",sep=",")
number<-matrix(number,2,2,TRUE)
number=apply(number,2,as.numeric)

row<-number[1,1]
clo<-number[1,2]
#print(row)
#print(clo)




cat("請輸入第一個",row,"*",clo,"矩陣的",row*clo,"個元素：")
a<-scan(what="character",sep=",")
b<-matrix(a,row,clo,TRUE)
cat("\n")
print(b)
print("進行類型轉換成功！  字符類型矩陣轉爲數字類型")
b=apply(b,2,as.numeric)
print("類型轉換後輸出：")
print(b)
cat("\n")
cat("請輸入第二個",row,"*",clo,"矩陣的",row*clo,"個元素：")
c<-scan(what="character",sep=",")
d<-matrix(c,row,clo,TRUE)
cat("\n")
print(d)
print("進行類型轉換成功！  字符類型矩陣轉爲數字類型")
d=apply(d,2,as.numeric)
print("類型轉換後輸出：")
print(d)
cat("\n")



cat("如今自動進行兩矩陣的加法運算：\n",b+d)
cat("\n")
cat("\n")
print(b+d)
cat("\n")
cat("如今自動進行兩矩陣的減法運算：\n",b-d)
cat("\n")
cat("\n")
print(b-d)
cat("\n")
cat("如今自動進行兩矩陣的乘法運算：\n",b*d)
cat("\n")
cat("\n")
print(b*d)
cat("\n")
cat("如今自動進行兩矩陣的除法運算：\n",b/d)
cat("\n")
cat("\n")
print(b/d)
cat("\n")
cat("如今自動進行兩矩陣的求餘運算：\n",b%%d)
cat("\n")
cat("\n")
print(b%%d)
cat("\n")
cat("如今自動進行兩矩陣的％/％運算：\n",b%/%d)
cat("\n")
cat("\n")
print(b%/%d)
cat("\n")
try(cat("如今自動進行兩矩陣的％*％運算：\n",b%*%d))
cat("\n")
cat("\n")
try(print(b%*%d))
cat("\n")