同事新配了一个电脑,想用R语言编写一个程序,看一下电脑性能如何,让我写个代码测试一下。
我能怎么样,我也不懂如何测试电脑啊,那就计算一下矩阵的运算吧。因为我理解的电脑运行性能就是矩阵计算了。
rm(list=ls()) set.seed(123) # 设置矩阵的行数 n = 10000 # 生成一个矩阵 value = rnorm(n*n, 10,3) mat = matrix(value,n,n) # 测试电脑性能 system.time({ # 矩阵求逆 ainv = solve(mat) }) # 测试电脑性能 system.time({ # 矩阵相乘 re = mat %*% t(mat) })
代码解释
我的个人电脑是这个样子滴:
1011
925
秒# 个人电脑,16G内存 # > # 测试电脑性能 # > system.time({ # + # 矩阵求逆 # + ainv = solve(mat) # + }) # 用户 系统 流逝 # 1007.69 0.62 1011.49 # > # > # > # > # 测试电脑性能 # > system.time({ # + # 矩阵相乘 # + re = mat %*% t(mat) # + }) # 用户 系统 流逝 # 915.02 0.75 925.86
6.4
3.32
秒# 公司服务器测试结果 # > # 测试电脑性能 # > system.time({ # + # 矩阵求逆 # + ainv = solve(mat) # + }) # 用户 系统 流逝 # 146.428 10.211 6.405 # > # 测试电脑性能 # > system.time({ # + # 矩阵相乘 # + re = mat %*% t(mat) # + }) # 用户 系统 流逝 # 79.945 10.179 3.323
1011s VS 4s!!!
货比货要扔……
补一刀
同事发过来一个CPU的天梯,我看了自己所在的位置,默默的关上了电脑: