コンテンツにスキップ
メインメニュー
メインメニュー
サイドバーに移動
非表示
案内
メインページ
最近の更新
未作成ページ
おまかせ表示
ヘルプ
MonoBook
検索
検索
ログイン
個人用ツール
ログイン
ログアウトした編集者のページ
もっと詳しく
投稿記録
トーク
「
カオス写像乱数
」を編集中 (節単位)
ページ
議論
日本語
閲覧
編集
ソースを編集
履歴表示
ツール
ツール
サイドバーに移動
非表示
操作
閲覧
編集
ソースを編集
履歴表示
全般
リンク元
関連ページの更新状況
特別ページ
ページ情報
警告:
ログインしていません。編集を行うと、あなたの IP アドレスが公開されます。
ログイン
または
アカウントを作成
すれば、あなたの編集はその利用者名とともに表示されるほか、その他の利点もあります。
スパム攻撃防止用のチェックです。 けっして、ここには、値の入力は
しない
でください!
== 実装例: Z80 == この乱数は、一度「32〜64」あたりの値に入ると、数回転の間、連続してその周辺の値を出力し続ける特性(カオスの局所性)を持ちます。大当たり値を「40」などに設定しておけば、状態変数なしで数珠連チャンが発生します。 <source lang=asm> ;--------------------------------------------------- ; カオス乱数生成 (ロジスティック写像 8bit) ; 入力: なし (前回の値をRAMの [RAND_SEED] から読み込む) ; 出力: Aレジスタ = 生成された乱数 (0〜255) ;--------------------------------------------------- NEXT_CHAOS: LD A, (RAND_SEED) ; A = X_n LD B, A ; B = X_n CPL ; A = ~X_n (255 - X_n と等価) LD C, A ; C = (255 - X_n) ; ここから 8bit × 8bit の簡易乗算 (B * C) ; 結果の上位8bitをAレジスタに残すことで、自動的に「>> 8」の処理になる ; 最後に「<< 2」をすることで「>> 6」を再現する LD HL, 0 ; HLをクリア LD D, 0 ; Dをクリア LD E, C ; DE = C LD M, 8 ; ループカウンタ (8回) MULT_LOOP: SRL B ; Bの最下位ビットをキャリーへ JR NC, NO_ADD ADD HL, DE ; キャリーがあれば HL に DE を足す NO_ADD: SLA E ; DEを左シフト (16bit) RL D DJNZ MULT_LOOP ; 8回繰り返す ; この時点で Hレジスタ = (B * C) >> 8 ; これを4倍 (左に2回シフト) して「4 * X * (1-X)」を完成させる LD A, H SLA A ; 2倍 SLA A ; 4倍 LD (RAND_SEED), A ; 次回のために保存 RET ; Aレジスタに乱数が入った状態で戻る </source>
編集内容の要約:
MonoBookへの投稿はすべて、他の投稿者によって編集、変更、除去される場合があります。 自分が書いたものが他の人に容赦なく編集されるのを望まない場合は、ここに投稿しないでください。
また、投稿するのは、自分で書いたものか、パブリック ドメインまたはそれに類するフリーな資料からの複製であることを約束してください(詳細は
MonoBook:著作権
を参照)。
著作権保護されている作品は、許諾なしに投稿しないでください!
このページを編集するには、下記の確認用の質問に回答してください (
詳細
):
1たす1は?(全角で入力してください)
キャンセル
編集の仕方
(新しいウィンドウで開きます)
本文の横幅制限を有効化/無効化