概要

性能試験などで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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-05-19 (火) 21:41:17 (5399d)