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

MathGroup Archive 2011

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

Search the Archive

Re: 3D surface plots - non deletion of data inside undesirable Range

  • To: mathgroup at smc.vnet.net
  • Subject: [mg116373] Re: 3D surface plots - non deletion of data inside undesirable Range
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Sat, 12 Feb 2011 05:19:28 -0500 (EST)
  • References: <ij2uvf$7u3$1@smc.vnet.net>

Just add an exclusion to the second graph and you're set:

GL2 = ParametricPlot3D[gl, {th, -Pi/3, Pi/3}, {ph, -Pi/3, Pi/3},
  PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}},
  Exclusions -> Cos[ph + th] == 0]

The problem here is the division by zero in places where Cos[ph + th]
== 0.

Cheers -- Sjoerd


On Feb 11, 10:19 am, Narasimham <mathm... at hotmail.com> wrote:
> a=2;b=1;c=3;gl={a Cos[ph-th],b Sin[ph-th],c Sin[ph+th]}/Cos[ph+th=
];
> GL1=ParametricPlot3D[gl,{th,-Pi/4,Pi/4},{ph,-Pi/4,Pi/4},PlotRange->{{-3,3},{-3,3},{-3,3}}]
>
> GL2=ParametricPlot3D[gl,{th,-Pi/3,Pi/3},{ph,-Pi/3,Pi/3},PlotRange->{{-3,3},{-3,3},{-3,3}}]
>
> Show[GL1,GL2]
>
> Extended plot limits in GL2 beyond those of GL1 result in 3D plot that
> fail to delete undesired spurious tracing/tracking data between points
> not lying on the required surface.Like 'pen up' data in earlier
> graphing s/w. It is OK may be to plot an enclosed solid, but not for a
> surface. The difficulty also appeared in earlier Mathematica versions.
> Is there then, no work around possible?
>
> Best Regards
> Narasimham



  • Prev by Date: Re: 3D surface plots - non deletion of data inside
  • Next by Date: Re: k-permutations enumeration
  • Previous by thread: Re: 3D surface plots - non deletion of data inside undesirable
  • Next by thread: new Graph function + combinatorica: various problems