@greenFlagが押されたとき
x座標を(0)、y座標を(0)にする
(90)度に向ける
全部消す
[再帰回数を入力してください。]と聞いて待つ
[回数 v]を(答え)にする
[長さ v]を((-330)/((((2)+((2)の[平方根 v]::operators))*(((回数)*((2)の[log v]::operators))の[10^ v]::operators))-(2)))にする
[描画開始x座標 v]を(-165)にする
[描画開始y座標 v]を((-165)+((長さ)/((2)の[平方根 v]::operators)))にする
x座標を(描画開始x座標)、y座標を(描画開始y座標)にする
↺(45)度回す
(4)回繰り返す
シェルピンスキー曲線(回数)((向き)+(45))(長さ)::custom
↻(90)度回す
直線描画(長さ)::custom
end

定義 シェルピンスキー曲線(回数)(向き)(長さ)
もし<(回数::custom)>(0)>なら
シェルピンスキー曲線((回数)-(1))(向き)(長さ)
((向き)+(45))度に向ける
直線描画(長さ)::custom
シェルピンスキー曲線((回数)-(1))((向き)+(90))(長さ)
(向き)度に向ける
直線描画((2)*(長さ))::custom
シェルピンスキー曲線((回数)-(1))((向き)-(90))(長さ)
((向き)-(45))度に向ける
直線描画(長さ)::custom
シェルピンスキー曲線((回数)-(1))(向き)(長さ)
end

定義 直線描画(長さ)
ペンを下ろす
(長さ::custom)歩動かす
ペンを上げる

@greenFlagが押されたとき

緑みどりの旗はたが押おされたとき、スすクくリりプぷトとを開かい始しする

x座標を(0)、y座標を(0)にする
(90)度に向ける

スすプぷラらイいトとを、原げん点てんに移い動どうして、右みぎに向むける

全部消す

白はく紙し状じょう態たいにする

[再帰回数を入力してください。]と聞いて待つ
[回数 v]を(答え)にする

キきーーボぼーードどから入にゅう力りょくした数すう値ちを変へん数すう「回かい数すう」に格かく納のうする

[長さ v]を((-330)/((((2)+((2)の[平方根 v]::operators))*(((回数)*((2)の[log v]::operators))の[10^ v]::operators))-(2)))にする
[描画開始x座標 v]を(-165)にする
[描画開始y座標 v]を((-165)+((長さ)/((2)の[平方根 v]::operators)))にする

変へん数すうの初しょ期き設せっ定てい

x座標を(描画開始x座標)、y座標を(描画開始y座標)にする
↺(45)度回す
(4)回繰り返す
シェルピンスキー曲線(回数)((向き)+(45))(長さ)::custom
↻(90)度回す
直線描画(長さ)::custom

描びょう画がを開かい始し位い置ちに移い動どうして定てい義ぎ「シしェぇルるピぴンんスすキきーー曲きょく線せん」を実じっ行こうする

定義 ヒルベルトシェルピンスキー曲線(回数)(長さ)(符号)

定てい義ぎ「シしェぇルるピぴンんスすキきーー曲きょく線せん」が呼よび出だされたとき、スすクくリりプぷトとを開かい始しする

もし<(回数::custom)>(0)>なら
end

引ひき数すう「回かい数すう」が0になるまで再さい帰きを実じっ行こうする

シェルピンスキー曲線((回数)-(1))(向き)(長さ)::custom
((向き)+(45))度に向ける
直線描画(長さ)::custom
シェルピンスキー曲線((回数)-(1))((向き)+(90))(長さ)::custom
(向き)度に向ける
直線描画((2)*(長さ))::custom
シェルピンスキー曲線((回数)-(1))((向き)-(90))(長さ)::custom
((向き)-(45))度に向ける
直線描画(長さ)::custom
シェルピンスキー曲線((回数)-(1))(向き)(長さ)::custom

方ほう向こう転てん換かん、直ちょく線せん描びょう画がをして、引ひき数すう「回かい数すう」を減へらして定てい義ぎ「シしェぇルるピぴンんスすキきーー曲きょく線せん」を実じっ行こうさせる

定義 直線描画(長さ)

定てい義ぎ「直ちょく線せん描びょう画が」が呼よび出だされたとき、スすクくリりプぷトとを開かい始しする

ペンを下ろす
(長さ::custom)歩動かす
ペンを上げる

直ちょく線せんを描びょう画が