0
|
4025 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
GROUPS:

# 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] 
2 Replies
Sort By:
Posted 10 years ago
 The simple solution is Show[%,%%].
Posted 10 years ago
 Thanks.