マンデルブロ集合の描画 by Dr.K
コンピューターで描く図形といえばおなじみ、マンデルブロ集合をプチコンで再現したプログラムだ。
マンデルブロ集合についてある程度理解しているとして解説すると、計算するガウス平面の実軸範囲を変数ＲＳとＳＥ、虚軸範囲をＩＳとＩＥで定義している。これらの数値を狭めていけば、描画されるパターンが変化するのがわかるだろう。
３行目の変数ＫＳは画面上の描画サイズ。６行目で図形を画面中央に描く調整をしている。
私が作りました
Dr.K
マンデルブロ集合を描くプログラムです。GOTO文を使ったのは何年ぶりだろう……
CHECK POiNT 
マンデ……ブ……？
フラ……？
ボクにもこれは難しい……。
まあピンときづらい話ではあるかのう。これこそ検索してみるのが一番かもしれん。
インテリ君の言う通り、こんなシンプルなプログラムでこんな複雑な図形が描かれる、というところが神秘的でロマンチックなところじゃ。
インテリ君の言う通り、こんなシンプルなプログラムでこんな複雑な図形が描かれる、というところが神秘的でロマンチックなところじゃ。
ロマンチックだと……？
それは違う意味でハカセの言うことが分からないってことだね。
プログラムリスト
- ＣＬＥＡＲ：ＣＬＳ：ＧＣＬＳ：ＢＧＭＰＬＡＹ １５
- ＶＩＳＩＢＬＥ １，１，０，０，０，１
- ＫＬ＝１００：ＫＳ＝１００
- ＲＳ＝－２．１：ＲＥ＝０．５
- ＩＳ＝－１．３：ＩＥ＝１．３
- ＢＸ＝（２５５－ＫＳ）／２：ＢＹ＝（１９１－ＫＳ）／２
- ＤＲ＝（ＲＥ－ＲＳ）／ＫＳ：ＤＩ＝（ＩＥ－ＩＳ）／ＫＳ
- ＦＯＲ ＣＩ＝ＩＳ ＴＯ ＩＥ ＳＴＥＰ ＤＩ
- ＦＯＲ ＣＲ＝ＲＳ ＴＯ ＲＥ ＳＴＥＰ ＤＲ
- ＺＲ＝０：ＺＩ＝０：Ｋ＝１
- ＠ＣＡＬ
- ＩＦ Ｋ＞ＫＬ ＧＯＴＯ ＠ＥＸＩＴ
- Ｒ＝ＺＲ＊ＺＲ－ＺＩ＊ＺＩ＋ＣＲ
- Ｉ＝２＊ＺＲ＊ＺＩ＋ＣＩ
- ＩＦ （Ｒ＊Ｒ＋Ｉ＊Ｉ）＞４ ＧＯＴＯ ＠ＤＲＡＷ
- ＺＲ＝Ｒ：ＺＩ＝Ｉ：Ｋ＝Ｋ＋１：ＧＯＴＯ ＠ＣＡＬ
- ＠ＤＲＡＷ
- ＰＸ＝ＢＸ＋（ＣＲ－ＲＳ）／ＤＲ
- ＰＹ＝ＢＹ＋（ＣＩ－ＩＳ）／ＤＩ
- ＧＰＳＥＴ ＰＸ， ＰＹ， Ｋ％１６
- ＠ＥＸＩＴ
- ＮＥＸＴ ＣＲ
- ＮＥＸＴ ＣＩ
- ＢＧＭＰＬＡＹ ６
