Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: Plotting being aborted with RegionBoundary
    • From: DrMajorBob <btreat1@austin.rr.com>