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(コア)の環境では、個数分の多重起動が必要となる。
- 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
Last-modified: 2009-05-19 (火) 21:41:17 (5635d)