王者★孤傲

摘要： #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[... 阅读全文