Die Drachenkurve ist ein fraktales Objekt, das ähnlich wie die Koch-Kurve und die Hilbert-Kurve durch Ersetzung erzeugt wird:

Ein Programm zur Erzeugung der Drachenkurve in Logo:

 to dragon :stufe :laenge
 dcr :stufe :laenge
 end
 
 to dcr :stufe :laenge
 make "stufe :stufe - 1
 make "laenge :laenge / 1.41421
 if :stufe > 0 [rt 45 dcr :stufe :laenge lt 90 dcl :stufe :laenge rt 45]
 if :stufe = 0 [rt 45 fd :laenge lt 90 fd :laenge rt 45]
 end

 to dcl :stufe :laenge
 make "stufe :stufe - 1
 make "laenge :laenge / 1.41421
 if :stufe > 0 [lt 45 dcr :stufe :laenge rt 90 dcl :stufe :laenge lt 45]
 if :stufe = 0 [lt 45 fd :laenge rt 90 fd :laenge lt 45]
 end

Das Programm kann beispielsweise mit dcr 4 300 aufgerufen werden. Alternativ auch mit dcl 4 300.

Weblinks

• Bill Gosper zur Drachenkurve (http://www.tweedledum.com/rwg/dragon15.htm)