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")