curva de Gosper

La curva de Gosper, nombrada así en honor a Bill Gosper, es una curva de Peano. Es un fractal similar en su construcción a la curva del dragón o a la de Hilbert. Aquí se muestra un programa en Logo para dibujar la curva de Gosper mediante gráficos de tortuga: to rg :st :lnmake "st :st - 1make "ln :ln / 2.6457if :st > 0 [rg :st :ln rt 60 gl :st :ln rt 120 gl :st :ln lt 60 rg :st :ln lt 120 rg :st :ln rg :st :ln lt 60 gl :st :ln rt 60]if :st = 0 [fd :ln rt 60 fd :ln rt 120 fd :ln lt 60 fd :ln lt 120 fd :ln fd :ln lt 60 fd :ln rt 60]end to gl :st :lnmake "st :st - 1make "ln :ln / 2.6457if :st > 0 [lt 60 rg :st :ln rt 60 gl :st :ln gl :st :ln rt 120 gl :st :ln rt 60 rg :st :ln lt 120 rg :st :ln lt 60 gl :st :ln]if :st = 0 [lt 60 fd :ln rt 60 fd :ln fd :ln rt 120 fd :ln rt 60 fd :ln lt 120 fd :ln lt 60 fd :ln]end El programa puede ser llamado, por ejemplo, con rg 4 300, o, alternativamente gl 4 300. La constante 2,6457 utilizada en el código del programa es una aproximación de √7.