ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
plot1 = Plot[1/Exp[x],{x,-1.75,1.75},AxesLabel->{"t",None},
		AxesOrigin->{0,0}, PlotRange->{{-1.75,1.75},{0,5.05}},
		Ticks->{{{-0.73,"-x"},{0.73,"x"}},None},
		PlotLabel->"DASHED: y = exp(t)\nSOLID:    y = 1/exp(t)"];
plot2 = Plot[Exp[x],{x,-1.75,1.75},
		AxesOrigin->{0,0}, PlotRange->{{-1.75,1.75},{0,5.05}},
		PlotStyle->Dashing[{0.01,0.01}]];
plot3 = Graphics[{Dashing[{0.001,0.01}],Line[{{0.73,0},{0.73,1/Exp[0.73]}}]}];
plot4 = Graphics[{Dashing[{0.001,0.01}],Line[{{-0.73,0},{-0.73,Exp[-0.73]}}]}];
plot = Show[plot1,plot2,plot3,plot4];

Show[GraphicsArray[{{plot}}],PlotLabel->"Figure 22.3"]