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"]