MathGroup Archive 2011

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

Search the Archive

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




  • Prev by Date: hatched regions, shading, and fills
  • Next by Date: Re: Timing progress bar
  • Previous by thread: Timing progress bar
  • Next by thread: Re: Timing progress bar