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>
- Interactive settings for ParamPlot3D. Mesh not quite working.