ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
v[t_]:= -350(3 - 10 t)(20 t - 1)(7 - 20 t)/9;
flow = Plot[v[t],{t,0.28,0.35}];
flowplot = Show[flow,AxesLabel->{"t","y"},
	PlotLabel->"Ventricular Inflow (ml/s) on [0.28,0.35]\n
	                          y = v(t)",
	AxesOrigin -> {0.275,0},
	Ticks ->{{0.28,0.295,0.31,0.325,0.34},{-50,-25,0,25}},
	PlotRange->{{0.275,0.35},{-52,29}}];
Show[GraphicsArray[{{flowplot}}],PlotLabel->"Figure 12.1"]