R语言两自定义矩阵的基本运算-实例

#sink("matrix_history.txt")
cat("请输入矩阵的行和列数，“，”号隔开,建议行 等于列 数：")
number<-scan(what="character",sep=",")
number<-matrix(number,,,TRUE)
number=apply(number,,as.numeric)
 
row<-number[,]
clo<-number[,]
#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,,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,,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")