2018年 11月 1日
前回 HSPの rnd関数では 32768までの乱数しかでないので、どうやってそれ以上の乱数を出すかやりました、その続きです。
実数(小数)での乱数発生を試してみたら、こちらの方が分かりやすく簡単だったので、それを使う事にした。
#include "hspda.as" ; 実数乱数用 rndf_ini ; 乱数の初期化 randomize pos 10,10 : mes "乱数" pos 100,10 : mes "最終的な乱数" r=10000000 ; 出したい乱数 repeat 20 rndf_get f ; 0~1の乱数、0.000001ケタ pos 10,cnt*20+40 : mes f n=int(double(r)*f) ; 出したい乱数に%を掛ける pos 100,cnt*20+40 : mes n loop