LOGOland - sequences

Below are two diagrams concerned with a sequence of squares

Image   Part 1

Image Part 2

Both are based on the following procedure:

TO SQUARE :S :N

IF :S < 2 [ STOP]

REPEAT 2 [ REPEAT :N [ FD :S RT 90 FD :S LT 90] LT 180]

SQUARE :S/3 :N * 3

END

try SQUARE 120 3

Why not experiment with the procedure? Vary the value of S or N. Why not create a sequence of embedding hexagons? Pentagons? Pentagrams?

Alternatively:

Why not create your own fractals using recursion?

Explore further these well known procedures:

TO FIB :X :Y

PR :Y WAIT 60

FIB :Y :X + :Y

END

try FIB 1 1 or FIB 2 4 or FIB 3 5..............

or this:

TO SQ :X :A

PR :A

WAIT 60

SQ :X + 1 :A + 2 * :X - 1

END

try SQ 1 -2 or SQ -2 -2 or SQ 1 0....................

Devise your own procedures for generating sequences