2010-10-31

VSuite Ramdisk

Romex Software - VSuite Ramdisk, Speed Up Your Computer
RAMディスクを作成するソフトです。NTFSを使えて、32bitOS範囲外のメモリを利用できます。
日本語での解説
RAM DISKソフト機能比較
32bitOS範囲外のメモリをRAMディスクにして仮想記憶ファイルを置くことも出来るはずですが、再起動すると消えてしまいC:ドライブに実装メモリと同じファイルのpagefileが置かれます。RAMディスクの容量ぎりぎりの仮想メモリサイズにするとそうなるという情報を見たので256MBほど少なくしたのですが症状が変わりません。どうしても仮想記憶として使いたいなら、起動後に設定するスクリプトを書いて自動実行するしかなさそうです。
[RAMディスク]Gavotte Ramdiskを導入してみた。 - KUMA TYPE

SlySoft Virtual CloneDriveBlu-rayにも対応しています。

関係ないですが
google chrome最新安定版
http://dl.google.com/chrome/install/517.43/chrome_installer.exe
悪いアフィリエイトサイトを、具体的にたくさん見せます。

2010-10-26

さまざまなデータ型

浮動小数点型とその誤差の要因、文字型について説明しました。

2010-10-12

整数の扱い方

符号付整数、符号なし整数、ビットのシフトによる掛け算割り算、およびそれらと代数学で習う剰余環との関係を講義しました。

2010-10-07

環境数理学演習

今日は班分けをしました。班分けに使ったプログラムを公開します。

Sub くじ引き()
Dim くじ(25) As Integer
Dim 組(5) As Integer
Randomize
組(1) = 5
組(2) = 4
組(3) = 4
組(4) = 4
組(5) = 4
i = 1
For j = 1 To 5
  For k = 1 To 組(j)
    くじ(i) = j
    i = i + 1
  Next k
Next j
総数 = i - 1
残数 = 総数
くじ(i) = -1
For i = 1 To 総数
  MsgBox ("班分けをします。メモの準備が出来たらOKをクリックしてください")
  乱数 = Application.RoundDown((Rnd() * 残数), 0) + 1
  MsgBox (i & "番目のあなたは" & くじ(乱数) & "班です。")
  Cells(i, 1) = i
  Cells(i, 2) = くじ(乱数)
  For j = 乱数 To 残数
    くじ(j) = くじ(j + 1)
  Next j
  残数 = 残数 - 1
Next i
End Sub