Hot answers tagged

8

You can plot the surface and the vector fields separately and then combine them together. Here is an example. Consider the spherical radius r can be written as function $r(\theta,\phi)$: mysurface[θ_, ϕ_] = FullSimplify[Re[SphericalHarmonicY[3, 2, θ, ϕ]], Assumptions -> {θ ∈ Reals, ϕ ∈ Reals}] (* 1/4 Sqrt[105/(2 π)] Cos[θ] Cos[2 ϕ] Sin[θ]^2 *) ...


7

From Version 10.2 upwards we can now use SliceContourPlot3D and SliceDensityPlot3D to achieve this: SliceContourPlot3D[x + Sin[5 z] + y^2, "CenterCutBox", {x, -0.5, 0.5}, {y, -0.5, 0.5}, {z, -0.5, 0.5}, Boxed -> False, Axes -> False, Contours -> 20, ColorFunction -> Hue] You can increase Contours to 10 or higher to ...


4

You need to define subDiv. Then the intersection of the red lines is the point {yde[s1*T], xde2[s2*T-w]} subDiv = 1; gr = Graphics[{ Line[{{0, 1}, {2, 1}}], Line[{{subDiv, 0}, {subDiv, 2 subDiv}}], Dashed, Line[{{0, subDiv/2}, {2 subDiv, subDiv/2}}], Line[{{0, 3*subDiv/2}, {2 subDiv, 3*subDiv/2}}], Line[{{subDiv/2, 0}, {subDiv/2, ...


3

Tweak the plot domain so that it's not symmetric: ContourPlot3D[..., {α1, 0 + 0.1 + 0.0001, 90 - 0.1}, (* slight offset *) {α2, 0 + 0.1, 90 - 0.1}, {ψ, 0.2, 180 - 0.2}, ...]



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