3

Determine the fractal dimension of the fractal generated as indicated below.

Input := 

Clear[level]
level[0]=Graphics[
	Rectangle[{0,0},{1,1}],
	AspectRatio->1,
	Axes->True,
	DisplayFunction->Identity];
level[1]=Graphics[{
	Rectangle[{0,0},{1/3,1}],
	Rectangle[{2/3,0},{1,1}],
	Rectangle[{1/3,2/3},{2/3,1}],
	Rectangle[{1/3,0},{2/3,1/3}]},
	AspectRatio->1,
	Axes->True,
	DisplayFunction->Identity]	
Show[GraphicsArray[{level[0],level[1]}],
	DisplayFunction->$DisplayFunction]

Output =

-Graphics-

Output =

-GraphicsArray-

Answer: