HSPTV!掲示板

乱数を作りたいのですが、rnd命令だと32768までしか作れません。
100000までの乱数の出し方を考えても思い浮かびません。
ただ乱数を3つ足すだけでは正確ではないので0〜99999まで均等に分かれるやり方を教えてください。

hspdaのrndf_getiという命令なら99999も可能ですよ。
rndとはアルゴリズムが違うらしく、精度も増すようです。

こちらのrand48でも可能でした。
http://hsp.tv/play/pforum.php?mode=pastwch&num=76666#76697

インクルードするだけで何も変えずに使えるようになってるのでこっちの方が楽ではありますね。

2年前のソースコードを発掘したので展示
http://hsp.tv/play/pforum.php?mode=pastwch&num=72960#75302

なんというか、適当モジュール感があって名前空間ぶっ壊してくる（initとか絶対つけちゃいけない命名規則）
……　修正依頼するなら今のうち。

ありがとうございます。
なんとなく標準命令だけで作りたいんですよね〜。
その後ずっと考えていたらrnd(40)*32768+rnd(32768)で0~1310719までいけるんじゃね？となり、それを使いました。
でも精度が上がるのならそっちもありかな？と思います。
ご回答ありがとうございました。

既に解決済みとのことですが、なたで様のページに標準命令のみを使った乱数生成の記事があります。
ページをそのまま張り付けてよかったのかわからなかったため検索用のワードだけ。
"指定した範囲の乱数を作成したい（実戦編）"
これで出てくるのでとても参考になるかと思います

こんな感じだとどうでしょうか？
まず0〜2147483647の乱数を求め、それを任意の範囲(たとえば100000)で割るという方法で
無理矢理やってみましたが。

#define ctype rnd_ex(%1) (rnd(32768)*65536+rnd(2)*32768+rnd(32768))\(%1)

//実行例
randomize
repeat 25
	mes rnd_ex(100000)
loop

おまけ：「xorshiftとかいう方法使ったら行けるんじゃ？」と思って作ってみたやつ。
後になって別にxorshiftじゃなくても問題ないことに気付いたが、せっかくなので投稿。
（参考）
https://blog.visvirial.com/articles/575
https://ja.wikipedia.org/wiki/Xorshift
http://www.jstatsoft.org/v08/i14/paper

#module
#deffunc randomize_xor int seed
	flag=1
	x=123456789
	y=362436069
	z=521288629
	w=seed
	return

#defcfunc rnd_xor int r_max
	if flag=0 : randomize_xor 0
	t=x^(x<<11)
	x=y : y=z : z=w
	w=(w^(w>>19))^(t^(t>>8))
	return (w&0x7FFFFFFF)\r_max
#global

//以下、例
randomize_xor 654187
repeat 25
	mes rnd_xor(100000)
loop

あ、追記です。
85891の一行目は、以下に置き換えてください。(全体をカッコでくくるの忘れてた)

#define ctype rnd_ex(%1) ((rnd(32768)*65536+rnd(2)*32768+rnd(32768))\(%1))