Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: Problem with Manipulate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83130] Re: Problem with Manipulate
  • From: Jon McLoone <jonm at wolfram.co.uk>
  • Date: Mon, 12 Nov 2007 05:15:08 -0500 (EST)
  • References: <fh3qkm$ln$1@smc.vnet.net><fh6dbg$4nl$1@smc.vnet.net>

On Nov 11, 8:09 am, "Steve Luttrell"
<steve at _removemefirst_luttrell.org.uk> wrote:
> Use a larger value of PlotPoints inside Plot3D, such as this:
>
> Manipulate[Plot3D[V[\[Beta],x,z],{x,-L,L},{z,-L,L},PlotPoints->30,PlotRange->{0,20},PlotStyle->Opacity[0.8]],{\[Beta],0,0.99}]
>
> --
> Steve Luttrell
> West Malvern, UK
>
> "Kevin J. McCann" <Kevin.McC... at umbc.edu> wrote in messagenews:fh3qkm$ln$1 at smc.vnet.net...
>
> > The following code produces a 3d plot as a function of beta; however,
> > when I play the "movie", the plots are incomplete until I stop it. Any
> > ideas?
>
> > Kevin
>
> > \[Beta] =.
> > x =.
> > z =.
> > V[\[Beta]_, x_, z_] :=
> >  1/Sqrt[x^2 + z^2] 1/Sqrt[1 - \[Beta]^2 x^2/(x^2 + z^2)]
> > cntrs = Table[c, {c, 0, 10, 1}];
> > L = 1;
> > Manipulate[
> >  Plot3D[V[\[Beta], x, z], {x, -L, L}, {z, -L, L}, PlotPoints -> 10,
> >   PlotRange -> {0, 20}, PlotStyle -> Opacity[0.8]], {\[Beta], 0,
> >   0.99}]
>
> > --
>
> > Kevin J. McCann
> > Research Associate Professor
> > JCET/Physics
> > Physics Building
> > University of Maryland, Baltimore County
> > 1000 Hilltop Circle
> > Baltimore, MD 21250

You are being affected by the option PerformanceGoal

In[32]:= OwnValues[$PerformanceGoal]

Out[32]= {HoldPattern[$PerformanceGoal] :>
  If[$ControlActiveSetting, "Speed", "Quality"]}

Overide this with
PerformanceGoal -> "Accuracy"

But Opacity is expensive for animation so try also adding
PlotStyle -> ControlActive[Automatic, Opacity[0.8]]

ie
\[Beta] =.
x =.
z =.
V[\[Beta]_, x_, z_] :=
 1/Sqrt[x^2 + z^2] 1/Sqrt[1 - \[Beta]^2 x^2/(x^2 + z^2)]
cntrs = Table[c, {c, 0, 10, 1}];
L = 1;
Manipulate[
 Plot3D[V[\[Beta], x, z], {x, -L, L}, {z, -L, L}, PlotPoints -> 10,
  PlotRange -> {0, 20}, PerformanceGoal -> "Accuracy",
  PlotStyle -> ControlActive[Automatic, Opacity[0.8]]], {\[Beta], 0,
  0.99}]






  • Prev by Date: Re: WeightingFunction and Showing Graphs with wieghts as Edge Lable
  • Next by Date: Re: greetings and a question!
  • Previous by thread: Re: Problem with Manipulate
  • Next by thread: Editing one's own default StyleSheet?