ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
c1 = 0.29; c2 = 0.32; c3 = 0.34;
K = 0.07; L1 = 1.07; r1 = K/(L1 GoldenRatio);
L2 = 80; r2 = K/(L2 GoldenRatio);
V[t_]:= 5 (8779 + 70560 t - 924000 t^2 + 3136000 t^3 - 3360000 t^4)/432;
v[t_]:= 350(10 t - 3)(20 t - 1)(7 - 20 t)/9;
plV = Plot[V[t],{t,0.28,0.35}];
plv = Plot[v[t],{t,0.28,0.35}];
opt = FindMinimum[-v[t],{t,0.32,0.33}];
topt = t/.opt[[2]];
a = -opt[[1]];
circ = Graphics[Disk[{topt,a},0.0005{1,1/r2}],
	AspectRatio->Automatic];
ucirc = Graphics[Disk[{topt,V[topt]},0.0005{1,1/r1}],
	AspectRatio->Automatic];

xticksua = Graphics[{Thickness[0.0012],Table[Line[{{0.28 + 0.01i,48.95},
	{0.28 + 0.01i,48.975}}],{i,0,7}]}];
xticksub = Graphics[Table[Text[0.28 + 0.01i,{0.28 + 0.01i,48.91}],{i,0,7}]];
xticksla = Graphics[{Thickness[0.0012],Table[Line[{{0.28 + 0.01i,0},
	{0.28 + 0.01i,0.85}}],{i,0,1}]}];
xtickslb = Graphics[{Thickness[0.0012],Table[Line[{{0.28 + 0.01i,0},
	{0.28 + 0.01i,0.85}}],{i,3,6}]}];
xticksu = Join[Table[0.28 + 0.01i,{i,0,7}],{{topt,"s"}}];
yticksu = Join[{49,50},Table[{49+0.1i," "},{i,9}]];
yticksl = {-50,-25,0,25};
line1 = Graphics[{Dashing[{0.01,0.01}],Line[{{c1,0},{c1,V[c1]}}]}];
line2 = Graphics[{Dashing[{0.01,0.01}],Line[{{c2,0},{c2,V[c2]}}]}];
line3 = Graphics[{Dashing[{0.01,0.01}],Line[{{c3,0},{c3,V[c3]}}]}];
line4 = Graphics[{Dashing[{0.01,0.01}],Line[{{c1,0},{c1,v[c1]}}]}];
line5 = Graphics[{Dashing[{0.01,0.01}],Line[{{c2,0},{c2,v[c2]}}]}];
line6 = Graphics[{Dashing[{0.01,0.01}],Line[{{c3,0},{c3,v[c3]}}]}];

upper = Show[plV, ucirc,line1, line2, line3, xticksua,xticksub,
			Graphics[{Thickness[0.0012],Line[{{0.28,48.95},{0.35,48.95}}]}],
			AxesLabel->{"t","y"},
			AxesOrigin->{0.275,48.95},
			Ticks->{xticksu,yticksu},Axes->{False,True},
			PlotRange -> {{0.28,0.35},{48.95,50.02}},
			PlotLabel->FontForm["(a) y = V(t)",{"Courier",10}]];
lower = Show[plv, circ,line4, line5, line6, xticksla,xtickslb,
			Graphics[{Thickness[0.0012],Line[{{0.28,0},{0.35,0}}]}],
			Graphics[Text["s",{topt,-2}]],
			AxesLabel->{"t","y"},
			AxesOrigin->{0.275,-1},Axes->{False,True},
			Ticks->{None,yticksl},
			PlotRange -> {{0.28,0.35},{-51,29}},
			PlotLabel->FontForm["(b) y = v(t) = V'(t)",{"Courier",10}]];
Show[GraphicsArray[{{upper},{lower}},PlotLabel->"Figure 13.1"]]