HILBERTVARIATION III
Wir gehen vor wie im Fall der Hilbertvariation I, ersetzen jedoch das dortige Grundmotiv durch einen Halbkreis:
Die nachfolgenden Abbildungen zeigen die Iterationsschritte 1 bis 6 sowie 7. Hier der KTurtle-Code für den 2. Schritt, der Teilungsfaktor \( 500 \) muss für höhere Iterationen verkleinert werden, z.B. zu \( 40 \) im 7. Schritt. Der Code ist nicht rekursiv, um die unterschiedlichen Drehungen in den einzelnen Iterationsschritten deutlich zu machen.
learn halbkreis $w,$h {
direction 0
repeat 500 {
forward $h/250
turnright $w/250
}
}
learn grundmotiv $w,$h {
repeat 500 {
forward $h/250
turnright 0-$w/250
}
forward $h/250
turnright $w
repeat 500 {
forward $h/250
turnright $w/250
}
forward $h/250
turnleft 2*$w
repeat 500 {
forward $h/250
turnright $w/250
}
forward $h/250
turnright $w
repeat 500 {
forward $h/250
turnright 0-$w/250
}
forward $h/20
}
learn motiv_3 $w,$h {
grundmotiv 0-$w,$h
turnright $w
grundmotiv $w,$h
grundmotiv $w,$h
turnright $w
grundmotiv 0-$w,$h
}
learn motiv_4 $w,$h {
motiv_3 0-$w,$h
turnright $w
motiv_3 $w,$h
turnleft 2*$w
motiv_3 $w,$h
turnright $w
motiv_3 0-$w,$h
}
learn motiv_5 $w,$h {
motiv_4 0-$w,$h
turnright $w
motiv_4 $w,$h
motiv_4 $w,$h
turnright $w
motiv_4 0-$w,$h
}
learn motiv_6 $w,$h {
motiv_5 0-$w,$h
turnright $w
motiv_5 $w,$h
turnleft 2*$w
motiv_5 $w,$h
turnright $w
motiv_5 0-$w,$h
}
learn motiv_7 $w,$h {
motiv_6 0-$w,$h
turnright $w
motiv_6 $w,$h
motiv_6 $w,$h
turnright $w
motiv_6 0-$w,$h
}
learn kurve $h,$lev {
if $lev == 1
{
halbkreis 90,$h
}
if $lev == 2
{
grundmotiv 90,$h
}
if $lev == 3
{
turnleft 90
motiv_3 90,$h
}
if $lev == 4
{
motiv_4 90,$h
}
if $lev == 5
{
turnleft 90
motiv_5 90,$h
}
if $lev == 6
{
motiv_6 90,$h
}
if $lev == 7
{
turnleft 90
motiv_7 90,$h
}
}
reset
canvassize 400,400
direction 90
penwidth 1.5
pencolor 220,50,20
go 10,390
$lev = 2
$h = 142/(2^($lev-1))*2.1
kurve $h,$lev
