ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
q1[t_]:= 350(3 - 10 t)(20 t - 1)(7 - 20 t)/9;
q2[t_]:= -1632000(1 - 30 t/23)(t - 2/5)(3/4 - t)/49;
q3[t_]:= -1120000(1 - 12 t/11)(t - 3/4)(9/10 - t)/6;
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;
flat1 = Graphics[Line[{{0,120},{1/20,120}}]];
flat2 = Graphics[Line[{{7/20,50},{2/5,50}}]];
zero1 = Graphics[Line[{{0,0},{1/20,0}}]];
zero2 = Graphics[Line[{{7/20,0},{2/5,0}}]];
vol1 = Plot[V1[t],{t,1/20,7/20}];
vol2 = Plot[V2[t],{t,2/5,3/4}];
vol3 = Plot[V3[t],{t,3/4,9/10}];
vol = Show[vol1,flat1,flat2, vol2,vol3,
	PlotRange->{{0,9/10},{0,125}}, AxesLabel->{"t"," "},
	PlotLabel->"Volume of Blood in Left Ventricle (ml)"];
flow1 = Plot[q1[t],{t,1/20,7/20}];
flow2 = Plot[q2[t],{t,2/5,3/4}];
flow3 = Plot[q3[t],{t,3/4,9/10}];
flow = Show[flow1,flow2,flow3,zero1,zero2,AxesLabel->{"t"," "},
	PlotLabel->"Ventricular Outflow (ml/s)",
	Ticks->{Join[{{0.2,0.2},{0.5,0.5},{0.8,0.8}},
	Table[{0.05i," "},{i,17}]],Automatic},
	PlotRange->{{0,9/10},{-500,500}}];
Show[GraphicsArray[{{vol},{flow}}],PlotLabel->"Figure 1.3"]