教你利用R语言测试电脑的性能

利用R语言测试电脑的性能如何

同事新配了一个电脑，想用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)
})

代码解释

首先把R中的变量清空
设计随机种子数，生成的随机数就是一样的
然后生成10000*10000的矩阵
测试1：矩阵求逆
测试2：矩阵相乘
测试结果是运行时间。

个人电脑

我的个人电脑是这个样子滴：

矩阵求逆运行了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的天梯，我看了自己所在的位置，默默的关上了电脑：