New answers tagged

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 ...


0

I will post the solution gradually in try myselft until the really answer to solve it testg4 = ConvexHullMesh[pts] // RegionBoundary; NMinimize[ RegionUnion[testg4, TransformedRegion[ TransformedRegion[testg4, RotationTransform[rad, dir, p]], TranslationTransform[x]]] // MeshPrimitives[#, 0] & // Level[#, {2}] & // ...


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 ...


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]


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}], ...


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, ...



Top 50 recent answers are included