Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Plotting being aborted with RegionBoundary

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123242] Plotting being aborted with RegionBoundary
  • From: Chris Young <cy56 at comcast.net>
  • Date: Mon, 28 Nov 2011 05:55:04 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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




  • Prev by Date: Re: Multiple operations in a "Do" expression
  • Next by Date: Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
  • Previous by thread: Re: import data problem
  • Next by thread: Re: Plotting being aborted with RegionBoundary