ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
u[0] = u[1] = 1; u[k_]:= u[k-1]+u[k-2];
fibonacci = Table[{k,u[k]},{k,0,10}];
golden = Table[{k,u[k]/u[k-1]},{k,1,10}];
plotfib  = ListPlot[fibonacci,
					AxesLabel->{"k","u"},
					Ticks -> {Table[2i,{i,0,5}],Table[20i,{i,0,5}]},
					PlotRange -> {{-0.2,11},{-1,101}},
					AxesOrigin->{-1,-10},
PlotLabel->"(a) Fibonacci Sequence"];
plotgold  = ListPlot[golden,
					AxesLabel->{"k",FontForm["f",{"Symbol",9}]},
					Ticks -> {Table[2i,{i,0,5}],{1,1.25,1.5,1.75,2}},
					PlotRange -> {{-0.2,11},{0.9,2.1}},
					AxesOrigin->{-1,0.8},
PlotLabel->"(b) Fibonacci Ratio"];
Show[GraphicsArray[{{plotfib},{plotgold}}],PlotLabel->"Figure 5.5"]