Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Timing progress bar

• To: mathgroup at smc.vnet.net
• Subject: [mg120563] Re: Timing progress bar
• From: "Berthold Hamburger" <b-hamburger at artinso.com>
• Date: Fri, 29 Jul 2011 04:42:39 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201107281155.HAA04128@smc.vnet.net> <Pine.LNX.4.63.1107280631410.23644@wopr.wolfram.com>

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 at wolfram.com] 
Sent: jueves, 28 de julio de 2011 13:34
To: Berthold Hamburger
Cc: mathgroup at smc.vnet.net
Subject: [mg120563] 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

• References:
  • Timing progress bar
    • From: "Berthold Hamburger" <b-hamburger@artinso.com>