ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
f[t_]:= Which[t<=1/20,0,t<=7/20,350(3 - 10 t)(20 t - 1)(7 - 20 t)/9];
F[t_]:= Which[t<=1/20,0,t<=7/20,
		120 - 5(8779 + 70560 t - 924000 t^2 + 3136000 t^3 - 3360000 t^4)/432];

njags = 100;
poly[a_,b_,f_]:= Join[Table[{a+i(b-a)/njags,f[a+i(b-a)/njags]},
				  {i,0,njags}],{{b,0},{a,0}}];
shade[a_,b_,c_,f_]:= Graphics[{GrayLevel[c],Polygon[poly[a,b,f]]}];
oshading = Show[shade[0.05,0.22,0.65,f],
			   Ticks->{{{0.05,"0.05"},{0.22,"t"}},Automatic},
			   Axes->True,AxesLabel->{"x","y"}];
fplot = Plot[f[t],{t,0,3/10},PlotRange->{{0,0.305},{0,480}}];
Fplot = Plot[F[t],{t,0,3/10},PlotRange->{{0,0.305},{0,75}},
		AxesLabel->{"t","y"},
		PlotLabel->"(b) Arterial discharge during [0,t]  (ml)\n\n                      y = F(t)"];
oflow = Show[oshading,fplot,
	PlotLabel->"(a) Ventricular Outflow (ml/s)\n\n                 y = f(x)"];
Show[GraphicsArray[{{oflow},{Fplot}}],
		PlotLabel->"Figure 11.1"]