ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
leaf = {0.167,       0.167,       0.167,       0.167,       0.117,       0.150,       0.117,       0.133,       0.167,       0.150,       0.100,       0.133,       0.133,       0.167,       0.167,       0.167,       0.150,       0.100,       0.117,       0.083,       0.133,       0.167,       0.167,       0.150,       0.183,       0.167,       0.167,       0.133,       0.150,       0.167,       0.133,       0.200,       0.200,       0.150,       0.117,       0.167,       0.133,       0.117,       0.067,       0.133,       0.133,       0.117,       0.117,       0.150,       0.150,       0.133,       0.133,       0.150,       0.133,       0.167,       0.133,       0.183,       0.100,       0.100,       0.167,       0.167,       0.167,       0.117,       0.150,       0.150,       0.167,       0.100,       0.150,       0.133,       0.133,       0.117,       0.133,       0.150,       0.133,       0.133,       0.167,       0.150,       0.150,       0.150,       0.133,       0.167,       0.167,       0.150,       0.150,       0.133,       0.150,       0.167,       0.133,       0.150,       0.117,       0.133,       0.117,       0.167,       0.150,       0.167,       0.117,       0.133,       0.167,       0.133,       0.133,       0.133,       0.167,       0.150,       0.100,       0.133,       0.133,       0.150,       0.167,       0.167,       0.133,       0.133,       0.117,       0.133,       0.117,       0.133,       0.167,       0.183,       0.200,       0.167,       0.067,       0.150,       0.100,       0.167,       0.133,       0.133,       0.133,       0.100,       0.067,       0.100,       0.150,       0.150,       0.150,       0.167,       0.133,       0.167,       0.150,       0.167,       0.150,       0.150,       0.167,       0.167,       0.133,       0.133,       0.167,       0.167,       0.183,       0.150,       0.133,       0.167,       0.167,       0.150,       0.133,       0.200,       0.150,       0.167,       0.133,       0.150,       0.150,       0.167,       0.117,       0.133,       0.133,       0.100,       0.167,       0.133,       0.150,       0.150,       0.167,       0.133,       0.150,       0.167,       0.133,       0.150,       0.150,       0.117,       0.167,       0.133,       0.133,       0.133,       0.150,       0.150,       0.100,       0.150,       0.133,       0.133,       0.167,       0.150,       0.133,       0.133,       0.200,       0.133,       0.133,       0.133,       0.133,       0.133,       0.133,       0.100,       0.150,       0.117,       0.167,       0.167,       0.117,       0.133,       0.133,       0.083,       0.133,       0.133,       0.133,       0.167,       0.133,       0.067,       0.133,       0.117,       0.133,       0.133,       0.133,       0.133,       0.150,       0.117,       0.117,       0.067,       0.133,       0.133,       0.117,       0.100,       0.067,       0.167,       0.167,       0.150,       0.133,       0.133,       0.150,       0.150,       0.133,       0.167,       0.133,       0.133,       0.133,       0.167,       0.083,       0.133,       0.117,       0.133,       0.117,       0.133,       0.150,       0.150,       0.133,       0.133,       0.167,       0.133,       0.100,       0.167,       0.133,       0.183,       0.150,       0.167,       0.133,       0.167,       0.117,       0.100,       0.117,       0.133,       0.150,       0.133,       0.133,       0.133,       0.117,       0.167,       0.133,       0.133,       0.167,       0.133,       0.150,       0.100,       0.117,       0.133,       0.133,       0.167,       0.133,       0.133,       0.100,       0.150,       0.167,       0.133,       0.167,       0.150,       0.133,       0.133,       0.133,       0.100,       0.167,       0.167,       0.150,       0.167,       0.167,       0.150,       0.100,       0.167,       0.167,       0.133,       0.133,       0.117,       0.133,       0.183,       0.133,       0.133,       0.183,       0.150,       0.133,       0.167,       0.150,       0.117,       0.167,       0.133,       0.167,       0.150,       0.200,       0.167,       0.100,       0.133,       0.167,       0.150,       0.183,       0.167,       0.117,       0.167,       0.133,       0.150,       0.150,       0.167,       0.167,       0.167,       0.133,       0.117,       0.150,       0.167,       0.133,       0.133,       0.133,       0.233,       0.133,       0.183,       0.150,       0.200,       0.167,       0.200,       0.250,       0.183,       0.183,       0.133,       0.167,       0.167,       0.083,       0.150,       0.200,       0.133,       0.133,       0.150,       0.150,       0.133,       0.167,       0.133,       0.167,       0.167,       0.250,       0.167,       0.133,       0.167,       0.100,       0.133,       0.183,       0.133,       0.167,       0.150,       0.133,       0.150,       0.167,       0.167,       0.167,       0.183,       0.167,       0.150,       0.133,       0.150,       0.183,       0.133,       0.133,       0.167,       0.167,       0.167,       0.167,       0.167,       0.150,       0.133,       0.167,       0.167,       0.117,       0.167,       0.133,       0.133,       0.150,       0.117,       0.183,       0.100,       0.150,       0.133,       0.117,       0.150,       0.167,       0.117,       0.133,       0.150,       0.133,       0.117,       0.167,       0.133,       0.083,       0.167,       0.167,       0.117,       0.133,       0.117,       0.100,       0.133,       0.133,       0.167,       0.117,       0.167,       0.100,       0.150,       0.117,       0.067,       0.150,       0.133,       0.117,       0.133,       0.133,       0.117,       0.133,       0.067,       0.133,       0.167,       0.133,       0.150,       0.167,       0.167,       0.183,       0.133,       0.100,       0.133,       0.150,       0.133,       0.100,       0.133,       0.133,       0.133,       0.150,       0.067,       0.167,       0.133,       0.167,       0.167,       0.167,       0.133,       0.150,       0.100,       0.133,       0.133,       0.133,       0.100,       0.117,       0.133,       0.133,       0.150,       0.150,       0.133,       0.133,       0.167,       0.150,       0.133,       0.133,       0.183,       0.150,       0.117,       0.150,       0.167,       0.133,       0.133,       0.133,       0.150,       0.167,       0.133,       0.133};
plotseq = ListPlot[Join[Join[Table[{i,0},{i,3}],{{13,0}}],
					Map[RotateLeft,Frequencies[Round[60 leaf]]]],
					AxesLabel->{"k","f"},
					Ticks -> {Table[2i+1,{i,0,7}],Automatic},
					PlotRange -> {{0,16},{-5,180}},
					AxesOrigin->{0,-10},
PlotLabel->"Leaf Thickness Frequency"];
Show[GraphicsArray[{{plotseq}}],PlotLabel->"Figure 5.1"]