ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
p[a_]:= Exp[-10 a]/2;
L[a_]:= p[a]^13 (1-p[a])^28;
Q[a_]:= Log[L[a]];
upper = Plot[L[a],{a,0,0.19},
AxesLabel->{FontForm[a,{"Symbol",9}],L},
AxesOrigin->{-0.01,-0.000000000000000001},
PlotLabel->"(a) Toad likelihood function",
PlotRange->{{0,0.14},{0,0.0000000000076}},
Ticks->{{0,0.05,0.1},{0,{0.000000000005,OutputForm[0.5 10^(-11)]}}}];
lower = Plot[Q[a],{a,0,0.14},
AxesLabel->{FontForm[a,{"Symbol",9}],Q},
PlotLabel->"(b) Toad loglikelihood function",
PlotRange->{{0,0.14},Automatic},
AxesOrigin->{-0.008,-31.6},
AspectRatio->0.97/GoldenRatio,
Ticks->{{0,0.05,0.1,0.15},{-30,-28,-26}}];
Show[GraphicsArray[{{upper},{lower}}],
	PlotLabel->"Figure 31.1"]