＃コラッツステップを逆に進んで、対数で割って表示するプログラムです。 ＃いろいろ数字を入れると、なにか規則的に進んでいることが分かります。 ＃３の倍数が入ると、数字が増えるだけで面白みがないので、スイッチで除外してます。 ＃🌼－－－🌼－－－🌼　モジュール　🌼－－－🌼－－－🌼 ！「https://n3s.nadesi.com/plain/1026.nako3」を取込。 ＃🌼－－－🌼－－－🌼　環境変数　🌼－－－🌼－－－🌼 変数　角度＝０ 変数　Ｘ＝０ 変数　Ｙ＝０ ＃定数 ゲーム画面＝描画中キャンバス。 定数　中心＝１５０ 定数　半径＝１００ ＃コラッツ変数 変数　倍数三除外スイッチは、オン　　＃　冗長省略（３の倍数は分岐しません） 変数　ハイカット＝２０４８　　　　　＃　最大計算数：上がなくなると下もパターンが崩壊します（不思議） 変数　コラッツステップ＝３０　　　　＃　実行ステップ数 変数　コラッツ遅延＝０．００２　　　＃　スピード ●（Ｌで）コラッツ画面表示とは 「#10101020」に線色設定。「#00000020」に塗り色設定。３に線太さ設定。 [０、０、３００、３００]に四角描画。 「#DD334480」に線色設定。空に塗り色設定。３に線太さ設定。 　　［中心、中心］に半径の円描画。 　　Ｉ＝０ 　　コラッツ集合＝Ｌ 　　配列長は、コラッツ集合の配列要素数。 　　もし、配列長＞０ならば、 　　 コラッツ最大値＝コラッツ集合［０］の自然対数 　　ここまで。 　　Ｉ＜配列長の間、 　　 Ｘ＝２＊ＰＩ＊（（コラッツ集合［Ｉ］の自然対数）／コラッツ最大値） 　　Ｙ＝（（ＸのＳＩＮ）＊半径）＋中心 　　　　Ｘ＝（（ＸのＣＯＳ）＊半径）＋中心 　　　　＃「｛Ｘ｝、｛Ｙ｝」を表示。 　　　　もし、コラッツ集合［Ｉ］％３＝０ならば、 　　　　 コラッツ円は、１０。コラッツ色は「#eeeeaaf0」。 　　　　違えば、もし、（Ｉ＜ハイカット）＆＆（配列長＞ハイカット）ならば、 　　　　 コラッツ円は、８。コラッツ色は「#eeaa77f0」。 　　　　違えば、 　　　　 コラッツ円は、５。コラッツ色は「#6633ffa0」。 　　　　ここまで。 　　　　「#88888880」に線色設定。コラッツ色に塗り色設定。２に線太さ設定。 　　　　［Ｘ、Ｙ］にコラッツ円の円描画。 　　　　Ｉ＝Ｉ＋１ 　　　　「#10101008」に線色設定。「#00000002」に塗り色設定。３に線太さ設定。 　　　　[０、０、３００、３００]に四角描画。 　　　　「#DD334402」に線色設定。空に塗り色設定。３に線太さ設定。 　　　　［中心、中心］に半径の円描画 　　　　（コラッツ遅延）秒待つ。 　　ここまで。 ここまで。 ●（Ｌで）重複チェックとは 判定は、偽。 Ｉは０。 配列長は、Ｌの配列要素数。 （Ｉ＜配列長－１）の間、 Ｊは、Ｉ＋１ （Ｊ＜配列長）の間、 もし、Ｌ＠Ｉ＝Ｌ＠Ｊならば 判定は、真。 ここまで。 Ｊ＝Ｊ＋１ ここまで。 Ｉ＝Ｉ＋１ ここまで。 もし、判定が真ならば、 「重複しています」と表示。 ここまで。 ここまで。 ●（Ｌで返却リストに）集合前コラッツとは 　　●（ＮでＲに）単体前コラッツとは 　　ＲにＮ＊２を配列追加。 　　もし、（（Ｎ－１）％３＝０）＆＆（（（Ｎ－１）／３）％２＝１）ならば 　　Ｒに（（Ｎ－１）／３）を配列追加。 　　ここまで。 　　ここまで。 　　配列長は、Ｌの配列要素数。 　　もし、配列長＞ハイカットならば、 　　　　判定長＝配列長－ハイカット 　　違えば、 　　 判定長＝０ 　　ここまで。 　　Ｌを反復、 　　 ＃３の倍数は分岐せず面白みに欠けるので、除外スイッチがある。 　　　　もし、！（（（倍数三除外スイッチ＝オン）＆＆（対象％３＝０））｜｜対象キー＜判定長）ならば、 　　　　　　Ｒは、［］ 　　　　　　対象でＲに単体前コラッツ 　　　　　　返却リストにＲ＠０を配列追加。 　　　　　　もし、Ｒ＠１ならば、 　　　　　　　　返却リストにＲ＠１を配列追加。 　　　　　　ここまで。 　　　　ここまで。 　　ここまで。 　　返却リストを配列数値ソート。 　　返却リストを配列逆順。 ここまで。 ●（Ａで）逆コラッツセットとは 回転数＝コラッツステップ 逆コラッツリストＸは、［］ 逆コラッツリストＹは、［］ 開始数は０。 開始数＜５の間、 開始数＝「この始まりの数は？（５以上）｛改行｝＜おすすめ＞｛改行｝６で割って余りが１、２、５の数（例：１１）」と尋ねる。 ここまで。 逆コラッツリストＹに開始数を配列追加。 回転数回、 逆コラッツリストＸは、逆コラッツリストＹ。 逆コラッツリストＹは、［］ 逆コラッツリストＸで逆コラッツリストＹに集合前コラッツ。 逆コラッツリストＹでコラッツ画面表示。 ここまで。 逆コラッツリストＹで重複チェック。 ここまで。 「仮」で逆コラッツセット。 「おしまい」と言う。