CPUへ負荷をかけるスクリプト

概要 †

性能試験などでCPU負荷をかける必要がある場合に使用するスクリプト。
シングルスレッドで動作するため、複数CPU（コア）の環境では、個数分の多重起動が必要となる。

• cpubusy.vbs

  Dim goal
  Dim before
  Dim x
  Dim y
  Dim i
  
  goal = 1000000
  
  Do While True
  before = Timer
  For i = 0 to goal
  x = 0.000001
  y = sin(x)
  y = y + 0.00001
  Next 
  
  y = y + 0.01 
  
  Loop