Message Boards Message Boards

[?] Combine these plots in a single Manipulate?

Muhammad Afzal
Posted 7 years ago

How can i combine these plots in a single manipulate. I'll be very much thankful of your help please.

Clear[x, t, n];
h[x_] := x;
a = 0;
b = 1;
startpos[k_] := a + (k - 1) 0.01;
a1 = Plot[{1, -1, t, -t}, {t, 0, 1}, AspectRatio -> 1];
Manipulate[
 b = Graphics[
   Table[{Red, Opacity[0.5], Disk[{x, 0}, {0.01, 1}], Green, 
     EdgeForm[Black], Disk[{x, 0}, {0.01, h[x]}]}, {x, 0, r, 0.1}]];
 aa = Table[
   Graphics3D[{{Opacity[2/5], Sphere[{1, 0, 0}, 1]}, {Opacity[1/5], 
      Cylinder[{{i, 0, 0}, {i + 0.02, 0, 0}}, i]}}, 
    Boxed -> False], {i, 0, r, 0.1}];
 Show[a1, b, aa], {r, 0, 1}]
Attachments:
POSTED BY: Muhammad Afzal
1 Reply
Sort By:

Hi Muhammad,

of course it still needs fine tuning, but as a first guess: Use Grid (or Row, or Column) instead of Show:

Clear[x, t, n];
h[x_] := x;
a = 0;
b = 1;
startpos[k_] := a + (k - 1) 0.01;
a1 = Plot[{1, -1, t, -t}, {t, 0, 1}, AspectRatio -> 1];
Manipulate[
 b = Graphics[
   Table[{Red, Opacity[0.5], Disk[{x, 0}, {0.01, 1}], Green, 
     EdgeForm[Black], Disk[{x, 0}, {0.01, h[x]}]}, {x, 0, r, 0.1}]];
 aa = Table[
   Graphics3D[{{Opacity[2/5], Sphere[{1, 0, 0}, 1]}, {Opacity[1/5], 
      Cylinder[{{i, 0, 0}, {i + 0.02, 0, 0}}, i]}}, 
    Boxed -> False], {i, 0, r, 0.1}];
 Grid[{{a1, b}, aa}], {r, 0, 1}]

Regards -- Henrik
POSTED BY: Henrik Schachner
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract