(*^
::[ 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;Clear[a];Clear[b];Clear[p];Clear[q];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
ff[t_]:= 350(3 - 10 t)(20 t - 1)(7 - 20 t)/9;
f1[t_]:= 20 t - 1;
f2[t_]:= 3 - 10 t;
f3[t_]:= 7 - 20 t;
f[t_]:= (350 f1[t] f2[t] f3[t])/9;
plot11 = Plot[f1[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = g(t)",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Table[{i,i},{i,0,6}]},
PlotRange->{{0,7/20},{0,6}}];
vert11 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.15,0},{0.15,f1[0.15]}}]}];
plottl = Show[plot11,vert11];
plot21 = Plot[f2[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = h(t)",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Table[{i-1,i-1},{i,0,4}]},
PlotRange->{{0,7/20},{-1,3}}];
vert21 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.15,0},{0.15,f2[0.15]}}]}];
plotml = Show[plot21,vert21];
plot31 = Plot[f1[t]f2[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = p(t) = g(t)h(t)",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Table[{i-3,i-3},{i,0,7}]},
PlotRange->{{0,7/20},{-3,4}}];
vert31 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.15,0},{0.15,f1[0.15]f2[0.15]}}]}];
plotbl = Show[plot31,vert31];
plot12 = Plot[f3[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = w(t)",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Table[{i,i},{i,0,6}]},
PlotRange->{{0,7/20},{0,6}}];
vert12 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.225,0},{0.225,f3[0.225]}}]}];
plottr = Show[plot12,vert12];
plot22 = Plot[f1[t]f2[t]f3[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = w(t)p(t)",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Table[{2 i-1,2 i-1},{i,0,7}]},
PlotRange->{{0,7/20},{-1,13}}];
vert22 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.225,0},{0.225,f1[0.225]f2[0.225]f3[0.225]}}]}];
plotmr = Show[plot22,vert22];
plot32 = Plot[f[t],{t,1/20,7/20},AxesLabel->{"t","y"},
PlotLabel -> "y = 350w(t)p(t)/9",
Ticks->{Join[{{0.1,0.1},{0.25,0.25}},
Table[{0.025i," "},{i,14}]],Automatic},
PlotRange->{{0,7/20},Automatic}];
vert32 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.225,0},{0.225,f[0.225]}}]}];
plotbr = Show[plot32,vert32];
Show[GraphicsArray[{{plottl,plottr},
{plotml,plotmr},{plotbl,plotbr}}],
PlotLabel->"Figure 2.5"]
^*)