MathGroup Archive 2011

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

Search the Archive

Re: ProgressIndicator and ParallelTable problem :(

  • To: mathgroup at smc.vnet.net
  • Subject: [mg117999] Re: ProgressIndicator and ParallelTable problem :(
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Fri, 8 Apr 2011 04:13:19 -0400 (EDT)

It takes 9.7 seconds to pause one second 18 times. Not too bad.

Clear[j]
j = 1; SetSharedVariable[j];
ProgressIndicator[Dynamic[j], {1, 18}]
ParallelTable[Pause[1]; j++; f[i], {i, 1, 18},
   DistributedContexts -> Automatic] // AbsoluteTiming

{9.725959, {f[1], f[2], f[3], f[4], f[5], f[6], f[7], f[8], f[9],
   f[10], f[11], f[12], f[13], f[14], f[15], f[16], f[17], f[18]}}

Bobby

On Thu, 07 Apr 2011 07:04:48 -0500, psycho_dad <s.nesseris at gmail.com>  
wrote:

> Hi,
> I have just solved the problem. The following piece of code does
> exactly what I want it to do, ie update the ProgressIndicator after
> every parallel kernel has finished its job, before moving to the next
> one. The key is the SetSharedVariable function:
>
> Clear[j]
> j=1;SetSharedVariable[j];
> ProgressIndicator[Dynamic[j],{1,18}]
> ParallelTable[Pause[1];j++;f[i],{i,1,18},DistributedContexts-
>> Automatic]//AbsoluteTiming
>
> Thanks for all your help Albert and Eric.
>
> Cheers
>


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Something that FullSimplify knows but Reduce does not ?
  • Next by Date: Re: Nasti jitter in plotsize
  • Previous by thread: Re: ProgressIndicator and ParallelTable problem :(
  • Next by thread: writing own package: cannot read it in..