Message Boards

WOLFRAM COMMUNITY

3393 Views

1 Reply

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Delete braces in a demonstration pane?

Gerald Bilodeau

Posted 7 years ago

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

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

1 Reply

Sort By:

Kyle Martin

Kyle Martin, WOLFRAM

Posted 7 years 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.

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

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback