CPUへ負荷をかけるスクリプト の変更点
http://extstrg.asabiya.net/pukiwiki/index.php?CPU%A4%D8%C9%E9%B2%D9%A4%F2%A4%AB%A4%B1%A4%EB%A5%B9%A5%AF%A5%EA%A5%D7%A5%C8- 追加された行はこの色です。
- 削除された行はこの色です。
- CPUへ負荷をかけるスクリプト へ行く。
- CPUへ負荷をかけるスクリプト の差分を削除
**概要 [#wea69293]
性能試験などで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