Message Boards Message Boards

0
|
4157 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:

How to place two RevolutionPlot3D in one plot?

Posted 10 years ago

Hello everyone. Here's my code. All I need is to place them into one plot. Is it possible?

R = 7.28;
RevolutionPlot3D[
 If[t <= R, 1/(\[Pi] R^2), 0], {t, 0, 2 6.28}, {\[Theta], 0, 
  3/2 \[Pi]}, 
 PlotStyle -> Directive[Orange, Specularity[White, 4], Opacity[0.99]],
  PlotPoints -> 100, Mesh -> 20, 
 MeshStyle -> Directive[AbsoluteThickness[2.], Opacity[0.99]], 
 MaxRecursion -> 0, AxesLabel -> {"x", "", "\[Rho](x)"}, 
 LabelStyle -> Large, ViewPoint -> {1.3, -3.4, 1.}, ImageSize -> Full]

R = 6.28;
    a = 0.535;
    RevolutionPlot3D[
     1/(\[Pi] R^2) 1/(1 + E^((t - R)/a)), {t, 0, 2 R}, {\[Theta], 0, 
      3/2 \[Pi]}, 
     PlotStyle -> Directive[Orange, Specularity[White, 4], Opacity[0.99]],
      PlotPoints -> 100, Mesh -> 20, 
     MeshStyle -> Directive[AbsoluteThickness[2.0], Opacity[0.6]], 
     MaxRecursion -> 0, AxesLabel -> {"x", "", "\[Rho](x)"}, 
     LabelStyle -> Large, ViewPoint -> {1.3, -3.4, 1.}, ImageSize -> Full]
POSTED BY: Peter Parfenov
2 Replies

Thanks.

POSTED BY: Peter Parfenov

The simple solution is Show[%,%%].

POSTED BY: S M Blinder
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract