ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
plot:= Plot[Erf[z],{z,0,3.01},PlotPoints->100,AxesLabel->{"x","y"}];
	
Show[plot,PlotRange->{{0,3.01},{0,1.01}},
		PlotLabel->" Figure 28.2\n
		y  =  erf(x)"]