       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:= OwnValues[\$PerformanceGoal]

Out= {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?