RE: How to make a progress bar?
- To: mathgroup at smc.vnet.net
- Subject: [mg70000] RE: [mg69964] How to make a progress bar?
- From: "David Annetts" <davidannetts at aapt.net.au>
- Date: Sat, 30 Sep 2006 05:12:21 -0400 (EDT)
Hi Andrey,
> Does anybody know how to force Mathematica to put symbols in one
> continuous line by repeatedly call the operator (say Print[]). If we
> call Print["a"] twice - we get two lines, and I want one line "a,a"
> It is common question when I do something like
>
> Do[
> MyFunction; (*Complicated and Very long*) Print["."] (*printed dot
> makes me know that an iteration has done*) ,{imax}]
>
> I get many lines with dot and I want ONE progress bar line growing,
> like .........
Print[] puts its output on a separate line so the only way this will work
through a loop, is to print your line with increasing numbers of dots.
(
Print[StringJoin["." & /@ Range[#]]]
) & /@ Range[10];
Perhaps a better way might make use of the status bar. There's a detailed
post by Paul Abbot from a few years ago
(http://forums.wolfram.com/mathgroup/archive/1999/Feb/msg00351.html), and
another by Jens-Peer Kuska
(http://forums.wolfram.com/mathgroup/archive/2000/Nov/msg00056.html) that
will help.
Regards,
Dave