コッホ曲線は正三角形がとびでるフラクタルだが、正方形、正ｎ角形がとびだしてもいいじゃないか。 つまり、正方形なら↓の図形が対象のフラクタルを作る。 すると・・・ 左から正方形、正五角形、正六角形だ。これを眺めているとn->無限大の極限を考えたくな…

PostScriptとSchemeでコッホ雪片を書いた。 (define (Koch n) (if (= n 0) '(F L F L F) (fold-right (lambda (x y) (cond ((eq? x 'F) (append '(F R F L F R F) y)) (else (cons x y)))) '() (Koch (- n 1))))) こんな感じで再帰的にコッホ曲線を表現する…

Sierpinskiのtriangle load 'viewmat' xor=.(+.(*.-.)*.) f =. 3 : 0 if.y=0 do.1 else.t=.f[y-1 (t,0)xor(0,t) end. ) viewmat f"0 i.256 Sierpinskiのgasket load 'viewmat' quo =. 4 : 0