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

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

• 追加された行はこの色です。
• 削除された行はこの色です。

**概要 [#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