# Delete braces in a demonstration pane?

GROUPS:
 Hello! In my Demonstration I output 4 Plots to the pane. Unfortunately I get them with braces. Here's my code: Manipulate[{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}] How can I suppress the braces? Thanks
 Kyle Martin 1 Vote 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.