ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
V1[t_]:= 5 (8779 + 70560 t - 924000 t^2 + 3136000 t^3 - 3360000 t^4)/432;
V2[t_]:= 2(810447 - 5630400 t + 14463600 t^2 - 15640000 t^3 + 6120000 t^4)/1127;
V3[t_]:= 4(661257 - 3118500 t + 5512500 t^2 - 4312000 t^3 + 1260000 t^4)/99;
vmin = V1[0.3];
flat1 = Graphics[Line[{{0,120},{1/20,120}}]];
flat2 = Graphics[{Dashing[{0.01,0.01}],Line[{{7/20,50},{2/5,50}}]}];
vol1 = Plot[V1[t],{t,3/10,7/20}, 
	PlotStyle -> Dashing[{0.01,0.01}]];
vol2 = Plot[V2[t],{t,2/5,3/4}, 
	PlotStyle -> Dashing[{0.01,0.01}]];
vol3 = Plot[V3[t],{t,3/4,9/10}, 
	PlotStyle -> Dashing[{0.01,0.01}]];
vol = Show[vol1,flat2,vol2,vol3, 
	PlotRange->{{0,9/10},{0,125}}, 
	AxesLabel->{"t"," "}];
flat3 = Graphics[Line[{{3/10,vmin},{9/10,vmin}}]];
minvol1 = Plot[V1[t],{t,1/20,3/10}];
minvol = Show[minvol1,flat1,flat3, PlotRange->{{0,9/10},{0,125}}];
pict = Show[vol, minvol, 
		AxesLabel->{"t"," "},
		PlotLabel->"Least Ventricular Volume So Far"];
Show[GraphicsArray[{{pict}},
	PlotLabel->"Figure 9.1"]]