# Constructing the following figure using mathematica

How do I construct the figure in the image using the formulae in Mathematica? I defined the following functions for the 4 cases. Can you also explain the significance of these in relation to the Fibonacci Sequence.

SF[m_] := Sum [FF [n], {n,1,m}]
OSF[m_] := Sum [FF [2n-1], {n,1,m}]
ESF[m_] := Sum [FF [2n], {n,1,m}]
SSF[m_] := Sum [FF [n]^2 , {n,1,m}].

• So, this is what you were trying to ask here mathematica.stackexchange.com/q/183624/46583 – J42161217 Oct 12 '18 at 8:11
• Yes this was the actual question. I was having trouble with uploading the figure and didn't describe the problem properly. Sorry and thanks. – user60670 Oct 12 '18 at 9:44

ok, here it is

FF = Fibonacci;
f1 = Table[FF[2 n], {n, 0, 10}];
f2 = Table[FF[2 n + 1], {n, 0, 10}];

final = Table[{Rectangle[{0, f1[[m]]}, {f2[[m]], f1[[m + 1]]}],
Rectangle[{f2[[m]], 0}, {f2[[m + 1]], f1[[m + 1]]}]}, {m, 10}];


the above table has the coordinates of 20 squares

now we peak as many squares we want using one more table + graphics

Table[Graphics[
Join[{EdgeForm[Thick], Red}, Flatten[final, 1][[;; k]]]], {k, 6}]