User Portlet
Discussions |
---|
Would [Row][1] 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,... |