Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Interactive settings for ParamPlot3D. Mesh not quite working.

• To: mathgroup at smc.vnet.net
• Subject: [mg121511] Re: Interactive settings for ParamPlot3D. Mesh not quite working.
• From: Christopher Young <cy56 at comcast.net>
• Date: Sun, 18 Sep 2011 04:10:23 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201109160950.FAA12506@smc.vnet.net> <1400F504-509C-453D-9976-F191966570B8@gmail.com>

Thanks very much, that looks like a better, quicker way to do it.

On Sep 17, 2011, at 4:11 AM, Heike Gramberg wrote:

> Instead of changing the Mesh specifications, you could change the MeshFunctions
> to indicate which mesh lines you want, e.g.
>
> saddleParamPlot3[opacity_, xBnds_, yBnds_, zBnds_, drawXMesh_,
>  drawYMesh_, drawZMesh_] :=
> Module[{
>   meshf = Pick[{#1 &, #2 &, #3 &}, {drawXMesh, drawYMesh, drawZMesh}, True],
>   meshSpecs = {Range[-xBnds, xBnds], Range[-yBnds, yBnds], Range[-zBnds, zBnds]}},
>
>   ParametricPlot3D[
>    Flatten[{{u}, {v}, {u v}}], {u, -xBnds, xBnds}, {v, -xBnds, xBnds},
>    PlotRange -> {{-xBnds, xBnds}, {-yBnds, yBnds}, {-zBnds, zBnds}},
>    BoxRatios -> {xBnds, yBnds, zBnds},
>    SphericalRegion -> True,
>    FaceGrids -> {{{1, 0, 0}, {Range[-xBnds, xBnds],
>        Range[-zBnds, zBnds]}}, {{0, 1, 0}, {Range[-yBnds, yBnds],
>        Range[-zBnds, zBnds]}}, {{0, 0, 1}, {Range[-xBnds, xBnds],
>        Range[-yBnds, yBnds]}}},
>    MeshFunctions -> meshf,
>    Mesh -> meshSpecs, BoundaryStyle -> Gray,
>    AxesLabel -> {"x", "y", "z"}, PlotStyle -> Opacity[opacity],
>    ColorFunctionScaling -> False,
>    ColorFunction -> (Hue[0.35 (#3 + 4)/8] &)] /.
>   Line[pts_, opts___] :> {Gray, Tube[pts, 0.03, opts]}]
>
> Heike

Chris Young
cy56 at comcast.net

• References:
  • Interactive settings for ParamPlot3D. Mesh not quite working.
    • From: "Christopher O. Young" <cy56@comcast.net>