Message Boards Message Boards

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

POSTED BY: Gerald Bilodeau
Answer
3 months ago

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.

POSTED BY: Kyle Martin
Answer
3 months ago

Group Abstract Group Abstract