4 added 50 characters in body

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458NKS, page 439.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

Except for rotation, which is simple since there are only 4 directions.

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

Except for rotation, which is simple since there are only 4 directions.

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 439.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

Except for rotation, which is simple since there are only 4 directions.

3 added 64 characters in body

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps at least automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

Except for rotation, which is simple since there are only 4 directions.

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps at least automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

Except for rotation, which is simple since there are only 4 directions.

2 added 4 characters in body; edited title

# Creating I would like to create a fractal by copying, scaling and rotating the initial element

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps at least automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

# Creating a fractal by copying, scaling and rotating the initial element

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps at least automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

# I would like to create a fractal by copying, scaling and rotating the initial element

I want to create a fractal, which looks like this: This is rule 150R, which can be found in NKS, page 458.

However, instead of using a cellular automaton, I want to create this fractal from a single element like this (here the first three steps are shown): Is it possible to do it for 5-10 steps at least automatically? How can I do that?

It's easier to rotate the element, then it can be displayed like this:

Elm=Graphics[{Rectangle[{1,0},{3,1}],Rectangle[{0,1},{1,3}],Rectangle[{3,1},{4,2}],Rectangle[{1,3},{2,4}],Rectangle[{2.5,2},{3,2.5}],Rectangle[{2,2.5},{2.5,3}]}]; Print[Elm] Then I need to make several scaled down copies, rotate them and place then in the correct positions.

But I don't know how to do that efficiently (I don't know how to do that at all).

1