Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Plotting being aborted with RegionBoundary

• To: mathgroup at smc.vnet.net
• Subject: [mg123262] Re: Plotting being aborted with RegionBoundary
• From: DrMajorBob <btreat1 at austin.rr.com>
• Date: Tue, 29 Nov 2011 07:06:30 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201111281055.FAA19813@smc.vnet.net>
• Reply-to: drmajorbob at yahoo.com

Where's the "torus" function? It's a very dull plot without it.

Bobby

On Mon, 28 Nov 2011 04:55:04 -0600, Chris Young <cy56 at comcast.net> wrote:

> If I try to use more than 125 PlotPoints or so, the plotting is being
> aborted here.
>
>
> Manipulate[
>  ParametricPlot3D[
>   torus[c, a, u, v], {u, 0, 2 Ã?â?¬}, {v, 0, 2 Ã?â?¬},
>   MeshFunctions -> {{x, y, z, Ã?¸, Ã?â? } âŠâ?? z + Tan[tilt] x},
>   RegionFunction -> ({x, y, z, Ã?¸, Ã?â? } âŠâ?? z <= -Tan[tilt] x),
>   Mesh -> mesh,
>   MeshStyle -> {Lighter[Yellow], Tube[tubeR]},
>   (*BoundaryStyle ->{Lighter[Red],Tube[tubeR]},*)
>  BoundaryStyle -> {Lighter[Red], Thick},
>   PlotStyle -> {Orange, Opacity[opac]},
>   PlotPoints -> plotPts,
>   Axes -> True,
>   AxesLabel -> {"x", "y", "z"},
>   PlotRange -> {{-4, 4}, {-4, 4}, {-3, 3}},
>   BoxRatios -> {8, 8, 6},
>   ViewPoint ->
>    {
>     viewR Cos[view�¸] Sin[view��],
>     viewR Sin[view�¸] Sin[view��],
>     viewR Cos[viewÃ?â? ]
>     },
>   PerformanceGoal -> "Quality"
>   ],
> {{c, 3}, 0, 4},
>  {{a, 1}, 0, 3},
>  {{sphereR, 0.1}, 0, 0.5},
>  {{tubeR, 0.05}, 0, 0.5},
>  {{opac, 0.5}, 0, 1},
>  {{mesh, 1}, 0, 16, 1},
>  {{tilt, N[ArcSin[a/c]]}, 0, Ã?â?¬/2, Ã?â?¬/36},
>  {{plotPts, 50}, 0, 200, 5},
>  {{viewR, 100}, 0, 100, 5},
>  {{view�¸, ��/2}, 0, 2 ��, ��/36},
>  {{viewÃ?â? , Ã?â?¬/2}, 0, Ã?â?¬, Ã?â?¬/36}
>  ]
>
>


-- 
DrMajorBob at yahoo.com

• References:
  • Plotting being aborted with RegionBoundary
    • From: Chris Young <cy56@comcast.net>