第８話 時間計測マクロ
最小値・最大値排除繰り返し法
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(10000) As Integer, b(10000) As Integer, c(10000) As Integer
Call f(a(), b(), c()) 'データ発生
Call h(a(), 4) 'データ表示
hj = Timer
Call g1(b()) '昇順並び換え
ow = Timer
Call h(b(), 55) 'データ表示
Cells(2, 10) = "昇順の並び換えにかかった時間は"
Cells(2, 14) = ow - hj
hj = Timer
Call g2(c()) '昇順並び換え
ow = Timer
Call h(c(), 106) 'データ表示
Cells(3, 10) = "降順の並び換えにかかった時間は"
Cells(3, 14) = ow - hj
End Sub
Sub f(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer
For i = 0 To 9999
a(i) = Int(10000 * Rnd)
b(i) = a(i)
c(i) = a(i)
Next
End Sub
Sub g1(a() As Integer)
Dim i As Integer, j As Integer, min As Integer, jk As Integer, w As Integer
For i = 0 To 9998
min = 100
For j = i To 9999
If min > a(j) Then
min = a(j)
jk = j
End If
Next
w = a(i)
a(i) = a(jk)
a(jk) = w
Next
End Sub
Sub g2(a() As Integer)
Dim i As Integer, j As Integer, max As Integer, jk As Integer, w As Integer
For i = 0 To 9998
max = 0
For j = i To 9999
If max < a(j) Then
max = a(j)
jk = j
End If
Next
w = a(i)
a(i) = a(jk)
a(jk) = w
Next
End Sub
Sub h(a() As Integer, n As Integer)
Dim i As Integer, ia As Integer, s As Integer
For i = 0 To 9999
ia = i Mod 200
s = Int(i / 200)
Cells(n + s, 1 + ia) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Range("J2:N3").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
隣項交換繰り返し法の場合
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim a(10000) As Integer, b(10000) As Integer, c(10000) As Integer
Call f(a(), b(), c()) 'データ発生
Call h(a(), 4) 'データ表示
hj = Timer
Call g1(b()) '昇順並び換え
ow = Timer
Call h(b(), 55) 'データ表示
Cells(2, 10) = "昇順の並び換えにかかった時間は"
Cells(2, 14) = ow - hj
hj = Timer
Call g2(c()) '昇順並び換え
ow = Timer
Call h(c(), 106) 'データ表示
Cells(3, 10) = "降順の並び換えにかかった時間は"
Cells(3, 14) = ow - hj
End Sub
Sub f(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer
For i = 0 To 9999
a(i) = Int(10000 * Rnd)
b(i) = a(i)
c(i) = a(i)
Next
End Sub
Sub g1(a() As Integer)
Dim i As Integer, cn As Integer, w As Integer
Do While 1
cn = 0
For i = 0 To 9998
If a(i) > a(i + 1) Then
w = a(i)
a(i) = a(i + 1)
a(i + 1) = w
cn = cn + 1
End If
Next
If cn = 0 Then Exit Do
Loop
End Sub
Sub g2(a() As Integer)
Dim i As Integer, cn As Integer, w As Integer
Do While 1
cn = 0
For i = 0 To 9998
If a(i) < a(i + 1) Then
w = a(i)
a(i) = a(i + 1)
a(i + 1) = w
cn = cn + 1
End If
Next
If cn = 0 Then Exit Do
Loop
End Sub
Sub h(a() As Integer, n As Integer)
Dim i As Integer, ia As Integer, s As Integer
For i = 0 To 9999
ia = i Mod 200
s = Int(i / 200)
Cells(n + s, 1 + ia) = a(i)
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Range("J2:N3").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
実験結果
最小値・最大値排除繰り返し法
隣項交換繰り返し法
なんと、隣項交換繰り返し法の大敗です。
私の記憶では、隣項交換繰り返し法の圧勝だったはずなのですが。
記憶違いでしょうか。
釈然としませんが、
一応並び換えはこれで終わりにします。
もっとすばらしい方法＝高速な方法を発見された方は、
メールで連絡が頂けるとありがたいです。
第16講では、10進数をｎ進数に翻訳するマクロを考えます。
