MathGroup Archive 2009

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

Search the Archive

Bug associated with Graphics3D???


Can anyone explain why the disk that corresponds to x = 5.1 (see the  
last line of the code below) isn't red---like the others?

-------------------------

Rho[Psi_] = 2/(1 - Cos[Psi]);

Para = ParametricPlot3D[
    Rho[Psi] {Cos[Psi], Sin[Psi] Cos[Theta], Sin[Psi] Sin[Theta]},
    {Psi, Pi/3, Pi}, {Theta, 0, 2 Pi},
     PlotStyle -> {Specularity[0.9], Opacity[0.3]}, Mesh -> None,
     Axes -> None, PlotRange -> {{-1.3, 6.7}, {-3.5, 3.5}, {-3.5,  
3.5}}];

Focus = Graphics3D[{PointSize[0.015], Point[{0, 0, 0}]}];

Bloid = Show[Para, Focus];

Pla[x_] := ParametricPlot3D[
    x Sec[Psi] { Cos[Psi], Sin[Psi] Cos[Theta], Sin[Psi] Sin[Theta]},
    {Theta, 0, 2 Pi}, {Psi, 0, ArcTan[(2 Sqrt[3])/x]}, Mesh -> None,
    Axes -> None, PlotStyle -> {Red, Opacity[0.6]}];

Do[Print[Show[Bloid, Pla[x]]], {x, 4.8, 5.4, 0.1}];

---------------------------

It also happens when x = 3.5, but for no other values of x generated  
by {x, 3.0, 6.5, 0.1}.


--Lou Talman
   Department of Mathematical and Computer Sciences
   Metropolitan State College of Denver

  <http://clem.mscd.edu/%7Etalmanl>




  • Prev by Date: Mathematica and LabelME
  • Next by Date: Re: compositions with the restricted set of integers
  • Previous by thread: Mathematica and LabelME
  • Next by thread: Re: Bug associated with Graphics3D???