コンテンツにスキップ
メインメニュー
メインメニュー
サイドバーに移動
非表示
案内
メインページ
最近の更新
未作成ページ
おまかせ表示
ヘルプ
MonoBook
検索
検索
ログイン
個人用ツール
ログイン
ログアウトした編集者のページ
もっと詳しく
投稿記録
トーク
「
多次元疎密乱数
」を編集中 (節単位)
ページ
議論
日本語
閲覧
編集
ソースを編集
履歴表示
ツール
ツール
サイドバーに移動
非表示
操作
閲覧
編集
ソースを編集
履歴表示
全般
リンク元
関連ページの更新状況
特別ページ
ページ情報
警告:
ログインしていません。編集を行うと、あなたの IP アドレスが公開されます。
ログイン
または
アカウントを作成
すれば、あなたの編集はその利用者名とともに表示されるほか、その他の利点もあります。
スパム攻撃防止用のチェックです。 けっして、ここには、値の入力は
しない
でください!
== 実装例: Z80 == 下位8bit(Lレジスタ)の値をそのまま大当たりの判定に使うと、「特定の数が出たあと、数回後にまた同じ数が極端に出やすくなる」という周期的な偏り(格子構造の欠陥)が発生します。1990年代の保留玉連チャン機(数珠連機)のロジックに一番近い実装です。 <source lang=asm> ;--------------------------------------------------- ; 16bit 線形合同法 (X = X * 5 + 1) ; 入力: なし ; 出力: HLレジスタ = 16bit乱数 (下位8bitのLレジスタを抽選に使用) ;--------------------------------------------------- NEXT_LCG: LD HL, (RAND_SEED_16) ; HL = 前回値 X LD D, H LD E, L ; DE = X ; HL = X * 5 を乗算命令なしで計算 (X * 4 + X) ADD HL, HL ; HL = X * 2 ADD HL, HL ; HL = X * 4 ADD HL, DE ; HL = X * 4 + X (つまり X * 5) ; + 1 を行う INC HL ; HL = X * 5 + 1 LD (RAND_SEED_16), HL ; 次回のために保存 LD A, L ; 下位8bitをAレジスタに取り出す RET </source>
編集内容の要約:
MonoBookへの投稿はすべて、他の投稿者によって編集、変更、除去される場合があります。 自分が書いたものが他の人に容赦なく編集されるのを望まない場合は、ここに投稿しないでください。
また、投稿するのは、自分で書いたものか、パブリック ドメインまたはそれに類するフリーな資料からの複製であることを約束してください(詳細は
MonoBook:著作権
を参照)。
著作権保護されている作品は、許諾なしに投稿しないでください!
このページを編集するには、下記の確認用の質問に回答してください (
詳細
):
1たす1は?(全角で入力してください)
キャンセル
編集の仕方
(新しいウィンドウで開きます)
本文の横幅制限を有効化/無効化