MathGroup Archive 2009

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

Search the Archive

Re: Interactive .nb works, but converted .nbp fails

  • To: mathgroup at smc.vnet.net
  • Subject: [mg101726] Re: Interactive .nb works, but converted .nbp fails
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Wed, 15 Jul 2009 07:10:59 -0400 (EDT)
  • References: <h3hoc1$4mc$1@smc.vnet.net>

The code you posted doesn't work in Mathematica as it is. Only after
removing the ControlBlock stuff does it run OK.

In that case, the nbp-converted file runs OK as well.

Cheers -- Sjoerd

On Jul 14, 12:58 pm, Porscha Louise McRobbie <pmcro... at umich.edu>
wrote:
> Dear Group,
>
> I have an animated contour plot inside of a Manipulate command
> (below), which seems to work fine inside my .nb file (v.6.0.2.1, Mac
> OSX x86).  I then copy/paste the interactive part into a new .nb, and
> convert it to .nbp (using Wolfram Online Conversion). When the .nbp
> file is opened with Mathematica Player 7, I see a pink box and MANY
> errors such as Transpose::nmtx, Set::shape, Sort::normal,
> First::normal, MapThread::mptd, MapThread::list, etc.
>
> How is it possible for the .nb to work fine, but the .nbp to have so
> many errors? I've converted many other similar animations/interactive
> notebooks and opened them inside Player with no problems.
>
> Does the use of so many delayed assignments in the code cause problems
> for the conversion?
>
> Thanks for any help,
> Porscha
> -----------------------------------------------------
>
> DynamicModule[{w, A0, a, A, dx, xt, pt, Psi, anima, x0, p0, tf,wig, x, p,=
t},
>
>   w = 1; a = w/2; tf = 30;
>   A[t_, A0_] :=
>    a ((A0 Cos[w t] + I a Sin[w t])/(I A0 Sin[w t] + a Cos[w t]));
>   xt[t_, x0_, p0_] := x0 Cos[w t] + p0/w Sin[w t];
>   pt[t_, x0_, p0_] := p0 Cos[w t] - w x0 Sin[w t];
>   wig[x_, p_, x0_, p0_, A0_, t_] :=
>    1./Pi Exp[-(2 Abs[A[t, A0]]^2 (x - xt[t, x0, p0])^2 + (p -
>             pt[t, x0, p0])^2 +
>          2 Im[A[t, A0]] (x - xt[t, x0, p0]) (p - pt[t, x0, p0])=
)/
>       Re[A[t, A0]]];
>
>   anima[x_, p_, x0_, p0_, A0_] :=
>    Animate[
>     ContourPlot[wig[x, p, x0, p0, a A0 , t], {x, -4, 4}, {p, -4, 4},
>      PlotRange -> {0, .35}, Mesh -> False, ColorFunction -> "Rainbo=
w",
>      PerformanceGoal -> "Quality"],
>
>     {{t, .0001, Style["Time", Bold, 14]}, 0.0001, tf},
>     AnimationRunning -> False, RefreshRate -> 4,
>     AnimationRate -> .75];
>
>   Manipulate[anima[x, p, x0, p0, A0],
>     Experimental`ControlBlock[
>     Style["Initial wavepacket width", Bold, 14],
>     {A0, 0.5, 2., Appearance -> "Labeled", ImageSize -> Small}],
>
>      Experimental`ControlBlock[Style["Initial Conditions", Bold, 14=
],
>      {x0, -1, 2, Appearance -> "Labeled",
>      ImageSize -> Small}, {p0, -.5, 2.5, Appearance -> "Labeled",
>      ImageSize -> Small} ],
>
>    ControlPlacement -> Left, SaveDefinitions -> True]]



  • Prev by Date: Re: Copy Greek text as Unicode?
  • Next by Date: Re: Re: NDSolve problem
  • Previous by thread: Re: Interactive .nb works, but converted .nbp fails
  • Next by thread: Horizon profile from binary array