(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";
MacintoshStandardFontEncoding;
fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times";
fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times";
fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times";
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times";
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times";
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times";
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier";
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier";
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier";
fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva";
fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = leftheader, inactive, L2, 12, "Times";
fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times";
fontset = leftfooter, inactive, L2, 12, "Times";
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
paletteColors = 128; automaticGrouping; currentKernel;
]
:[font = input; preserveAspect]
ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
f[t_] = Which[t<=1/20,0,
t<=1/10,465(20 t - 1),
t<=3/20,465,
t<=3/10,310(3 - 10t)];
F[t_] = Which[t<=1/20,0,
t<=1/10,93/8 - 465t + 4650t^2,
t<=3/20,465t - 279/8,
t<=3/10,930t - 1550t^2 - 279/4];
tri1[t_]:= Graphics[{GrayLevel[0.65],Polygon[{{0.05,0},{t,0},{t,465(20 t - 1)}}]}];
rect[t_]:= Graphics[{GrayLevel[0.35],Rectangle[{0.1,0},{t,465}]}];
tri2[t_]:= Graphics[{GrayLevel[0.65],Polygon[{{0.15,0},{0.15,465},{t,310(3 - 10t)},{t,0}}]}];
shade1 = Show[tri1[0.08],
AxesLabel->{"x","y"},Axes->True,
Ticks->{{{0.08,"t"}},Automatic},
PlotLabel->"(a) Ventricular outflow (ml/s)\n\n y = f(x)"];
shade2 = Show[tri1[0.1],rect[0.13],
AxesLabel->{"x","y"},Axes->True,
Ticks->{{{0.13,"t"}},Automatic},
PlotLabel->"(b) Ventricular outflow (ml/s)\n\n y = f(x)"];
shade3 = Show[tri1[0.1],rect[0.15],tri2[0.22],
AxesLabel->{"x","y"},Axes->True,
Ticks->{{{0.22,"t"}},Automatic},
PlotLabel->"(c) Ventricular outflow (ml/s)\n\n y = f(x)"];
plot1 = Show[shade1,Plot[f[t],{t,0,0.3}]];
plot2 = Show[shade2,Plot[f[t],{t,0,0.3}]];
plot3 = Show[shade3,Plot[f[t],{t,0,0.3}]];
plot4 = Show[Plot[F[t],{t,0,0.3}],AxesLabel->{"t","y"},Axes->True,
PlotLabel->"(d) Blood discharged by time t (ml)\n\n y = F(t)"];
Show[GraphicsArray[{{plot1,plot2},{plot3,plot4}}],
PlotLabel->"Figure 9.2"]
^*)