ab.com コミュニティ

Dim a[5] As String

イグトランス (egtra) さんありがとうございます。
「Rnd() * wx、Rnd() * wy」にするとうまくいきました。

1.3 と 1.5 では計算が全然違うんですね。
参考になりました。


これとは関係ないのですが、
AB 5 (CP4) で
[code]Dim a[5] As String[/code]などのコードが、
内部エラーになるのですが、
以前のようにこれを使うには、
これをどのように変えれば良いのですか？

Rnd関数を使ってください。これは0以上1未満の実数を返すので，wxやwyをRndの戻り値に掛け算すれば希望の範囲の乱数が得られます。

現在ABは，擬似乱数生成に線形合同法と呼ばれる方法を用いています。この方法は式が単純で広く使われていますが，下のほうの桁がランダムにならないという欠点を抱えています。そのため，そもそもrandの戻り値に剰余算を行うのは良くないとされています。

AB4までも線形合同法だったことに変わりはないのですが，乱数を生成した後除算で下の桁を捨てた値を返していたため，randの戻り値に剰余算した結果を使用しても問題になりませんでした（ランダムな値になりました）。この処理は線形合同法の欠点の埋め合わせとしてそれなりに知られている（あるいは容易に発想できる）方法です。

しかし，ABのrandは裏方で，Rndが公開されている関数であるということから，Rndの改良の際にこの処理をほとんど削除してしまいました。そのため，randの戻り値は下位の桁がランダムでないという線形合同法の特徴が現れるものになったのです。

これがrand/Rndの改良前後の差分表示です。
http://cvs.sourceforge.jp/cgi-bin/viewcvs.cgi/ablib/ver5lib/Include/basic/function.sbp?r1=1.5&r2=1.3

> 上記のコードを AB 4.24.00 と AB 5 (CP4) でコンパイルして実行してみると、
> 円の描画され方が違うのですが、
> 何故なのでしょうか？
実行してないので分からないのですが、Randomize命令を実行してみてはどうでしょう。
[quote="ActiveBasic ライブラリ"]乱数は 0 以上、1 未満の実数で表されます。
疑似乱数の系列を初期化するにはRandomize命令語を使用して下さい。[/quote]

Sub Paint(hDC As HDC)
	Dim rc As RECT
	Dim wx As Long, wy As Long, x As Long, y As Long
	Dim i As Long
	
	Do
		i++

		hDC=GetDC(hMainWnd)
		GetClientRect(hMainWnd,rc)
		
		wx=rc.right-rc.left
		wy=rc.bottom-rc.top
		
		If wx=0 Then
			wx=1
		End If
		
		If wy=0 Then
			wy=1
		End If
		
		x=rand() mod wx
		y=rand() mod wy
		
		Ellipse(hDC,x,y,x+30,y+30)
		
		ReleaseDC(hMainWnd,hDC)

		If i=50000 Then Exit Do
	Loop
End Sub

[hide][code]Sub Paint(hDC As HDC)
Dim rc As RECT
Dim wx As Long, wy As Long, x As Long, y As Long
Dim i As Long

Do
i++

hDC=GetDC(hMainWnd)
GetClientRect(hMainWnd,rc)

wx=rc.right-rc.left
wy=rc.bottom-rc.top

If wx=0 Then
wx=1
End If

If wy=0 Then
wy=1
End If

x=rand() mod wx
y=rand() mod wy

Ellipse(hDC,x,y,x+30,y+30)

ReleaseDC(hMainWnd,hDC)

If i=50000 Then Exit Do
Loop
End Sub[/code][/hide]
上記のコードを AB 4.24.00 と AB 5 (CP4) でコンパイルして実行してみると、
円の描画され方が違うのですが、
何故なのでしょうか？

厳密に言えば、
[quote]AB 4.24.00: 画面全体にまばらに描画
AB 5 (CP4): 画面全体に斜めに描画[/quote]です。

AB 5 でも AB 4.24 のようにまばらに描画したいのですが、
可能なのでしょうか？