Would Row help you? Consider this, notice the Row function I've added to the first line:
Manipulate[Row@{Show[
Plot[0, {x, 0, s2}, AspectRatio -> 1, PlotRange -> {-h2, h2}],
Plot[{h2 - Abs[h2 - x], Abs[h2 - x] - h2}, {x, 0, k},
Filling -> {1 -> {{2}, Red}}, AspectRatio -> 1,
PlotRange -> {-h2, h2}]],
Show[Plot[0, {x, 0, s2}, AspectRatio -> 1, PlotRange -> {0, 1}],
Plot[f[x], {x, 0, k}, Exclusions -> None]],
Show[Plot[0, {x, 0, s2}, AspectRatio -> 1, PlotRange -> {0, s2}],
Plot[fp[x], {x, 0, k}]],
Show[Plot[0, {x, 0, s2}, AspectRatio -> 1,
PlotRange -> {-2.2, 2.2}],
Plot[fpp[x], {x, 0, k}, Exclusions -> True]]}, {k, 0.001`, s2}]
I can't test this myself as I don't know the values of s2
, h2
, fpp
, etc.., but I'd guess it should be what you're after. It might also be worth looking into Grid and GraphicsGrid.