Hot answers tagged

7

Here is something to get you started, look at Cuboid Show[Graphics3D[{Directive[#1], Cuboid[{0, 0, 0}, #2]}] & @@@ { {Red, {1, 1, 1}}, {Blue, {1, -1, 1}}, {Green, {-1, -1, 1}}, {Gray, {-1, 1, -1}}, {Blue, {-1, 1, 1}}} , Boxed -> False]


5

This also works for me in 10.1.0 under Windows 7 x64. Take a look at your rendering settings; referencing Graphics3D: Opacity limitations this is affected by DepthPeelingLayers for example. plot = Graphics3D[{Opacity[0.1], Line[RandomVariate[ MultinormalDistribution[{0, 0, 0}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}], 1000]]}]; Table[ Show[plot, ...


3

Okay, so take some form for your function func[l_, t_] := { x = 3 t Sin[l t]; y = 3 t Cos[l t]; z = l t + l; {x, y, z}} Then one way to get what you are looking for is like this, Show[ Table[ ParametricPlot3D[ func[l, t][[1]], {t, 0, 5}, PlotStyle -> Hue[l/10], PlotLegends -> {"l = " <> IntegerString[l]}], {l, 1, 10}], ...


3

One way is to create a region using DiscretizeGraphics. g = ListContourPlot3D[list1, Contours -> {0.3}] Now DiscretizeGraphics[g] gets upset and refuses to work because of the GraphicsComplex inside of g. We can get rid of that using Normal, so let's try: surf = DiscretizeGraphics@Normal[g] It still gets upset because of some directives, but it ...


3

You have put the plot to the second argument of Manipulate, while there are some examples around with different things there it is really meant only for controllers. So what you have to do is to gather your output in the first argument of Manipulate, with a Grid or something: [...] Column[{ Button["Plot", plot = Plot3D[Sin[x + y^0], {x, -3, 3}, {y, -2, ...


3

As @Louis pointed in the comment get this done just by combining Plot3D and SliceContourPlot3D if you are having post 10.2 MMA. fun[x_, y_] := Sin[x + y] Cos[x - y]; Show[Plot3D[fun[x, y], {x, -2, 2}, {y, -2, 3}, Mesh -> None, PlotStyle -> Directive[Opacity[0.75], Specularity[White, 50]], ColorFunction -> "Rainbow", PlotTheme -> ...


3

Following @andre... but don't forget to set the ViewPoint to reveal the overlap of the functions in question: gr00 = Plot3D[x^4, {x, 0, 1}, {y, 0, 1}, MeshFunctions -> {#1 + #2 &}, Mesh -> 40, MeshShading -> {None, {Opacity[0.5], Red}}]; gr01 = Plot3D[0, {x, 0, 1}, {y, 0, 1}, MeshFunctions -> {#1 - #2 &}, MeshShading -> ...


3

You could do this for example : gr00 = Plot3D[x^4, {x, 0, 1}, {y, 0, 1}, MeshFunctions -> {#1 + #2 &}, Mesh -> 30]; gr01 = Plot3D[0, {x, 0, 1}, {y, 0, 1}, MeshFunctions -> {#1 - #2 &}, MeshShading -> {None, Green}]; Show[gr00, gr01] There is a lattice in the zone where the curves are considered as "equals". I don't know ...



Only top voted, non community-wiki answers of a minimum length are eligible