CPUへ負荷をかけるスクリプト のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• CPUへ負荷をかけるスクリプト へ行く。
  • 1 (2009-05-19 (火) 21:40:56)

概要 †

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

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