Message Boards

WOLFRAM COMMUNITY

4537 Views

2 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Image Processing Physics Graphics and Visualization

How to place two RevolutionPlot3D in one plot?

Peter Parfenov

Peter Parfenov, NRNU MEPhI

Posted 11 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]

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