|
|
Re: Timing progress bar
Posted:
Jul 29, 2011 3:53 AM
|
|
Thanks Oliver!
I also found the progress.m package:
http://www.physics.ohio-state.edu/~jeremy/mathematica/progress/
Is this compatible with Mathematica 8?
Regards
Berthold
--
Berthold Hamburger - Cellist/Spain
http://www.artinso.com | http://www.astronomy.artinso.com |
http://www.artemis.artinso.com
http://www.facebook.com/berthold.hamburger
-----Original Message-----
From: Oliver Ruebenkoenig [mailto:ruebenko@wolfram.com]
Sent: jueves, 28 de julio de 2011 13:34
To: Berthold Hamburger
Cc: mathgroup@smc.vnet.net
Subject: Re: Timing progress bar
On Thu, 28 Jul 2011, Berthold Hamburger wrote:
> Hi,
>
> Is there any possibility to get visible feedback about the progress of
> a calculation via the Timing function? Something like a progress bar
> or "% completed".
>
> Thanks
>
> Berthold
>
>
Berthold,
here are two examples with NDSolve:
tEnd = 100;
ProgressIndicator[Dynamic[currentTime], {0, tEnd}] currentTime = 0;
NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0,
u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, tEnd}, {x, 0, 5},
EvaluationMonitor :> (currentTime = t;)]
showStatus[status_] :=
LinkWrite[$ParentLink,
SetNotebookStatusLine[FrontEnd`EvaluationNotebook[],
ToString[status]]];
clearStatus[] := showStatus[""];
clearStatus[]
(* look in the lower left of the FrontEnd *)
NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0,
u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, 10}, {x, 0, 5},
EvaluationMonitor :> showStatus["t = " <> ToString[CForm[t]]]]
Oliver
|
|
