Re: Quick help needed very much!!!!
- To: mathgroup at smc.vnet.net
- Subject: [mg94025] Re: Quick help needed very much!!!!
- From: Raffy <raffy at mac.com>
- Date: Tue, 2 Dec 2008 00:42:47 -0500 (EST)
- References: <200811290929.EAA14420@smc.vnet.net> <200811301201.HAA07727@smc.vnet.net>
On Dec 1, 7:01 am, Artur <gra... at csl.pl> wrote:
> Dear Mathematica Gurus,
>
> I was run 2 days ago procedure
> aa = {}; bb = {}; Do[
> If[(Sqrt[n! + 1] /. Sqrt[_] -> 1) > 1, Print[n]; AppendTo[aa, n];
> AppendTo[bb, Sqrt[n! + 1] /. Sqrt[_] -> 1]], {n, 1, 10000000}]; aa
>
> Who know how interrupt these with possibility received information about
> value last n checked or received recent value n without interrupting.
>
> If you know answer on my question send copy email answer also on my
> private email, please!
>
> Best wishes
> Artur
Use Dynamic[] to get updates; for example:
nn="Unknown";
PrintTemporary[Dynamic[nn]];
Do[ nn = n, {n, 1, 100} ];