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