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;
zero1 = Graphics[Line[{{0,0},{1/20,0}}]];
zero2 = Graphics[Line[{{7/20,0},{2/5,0}}]];
oflow1 = Plot[q1[t],{t,1/20,7/20}];
oflow2 = Plot[q2[t],{t,2/5,3/4}];
oflow3 = Plot[q3[t],{t,3/4,9/10}];
outflow = Show[oflow1,oflow2,oflow3,zero1,zero2,
	AxesLabel->{"t","O"},
	PlotLabel->"Ventricular Outflow (ml/s)\n              O = f(t)",
	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}}];
iflow1 = Plot[-q1[t],{t,1/20,7/20}];
iflow2 = Plot[-q2[t],{t,2/5,3/4}];
iflow3 = Plot[-q3[t],{t,3/4,9/10}];
inflow = Show[iflow1,iflow2,iflow3,zero1,zero2,
	AxesLabel->{"t","I"},
	PlotLabel->"Ventricular Inflow (ml/s)\n         I = v(t) = -f(t)",
	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[{{inflow},{outflow}}],PlotLabel->"Figure 1.4"]