MathGroup Archive 2013

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

Search the Archive

Re: problem with append

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129540] Re: problem with append
  • From: <bar at robox.ii.up.krakow.pl>
  • Date: Mon, 21 Jan 2013 00:10:22 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <kdg2kv$hf8$1@smc.vnet.net>

Paolo cachecho <paolocach at gmail.com> wrote:
> hello i am new to mathmatica.i have the following problem if anyone could help.
> 
> For[a = 2, a < 6, a++,
>        For[b = 2, b < 6, b++,
>  Appendto[rr = {}, a^b]]]
> rr
> 
> but rr remains empty. how can i solve this
> thank you
> 
Try this:
r = {};
For[a = 2, a < 6, a++,
 For[b = 2, b < 6, b++,
  AppendTo[rr, a^b]]]
rr

or 
Table[
 Table[a^b, {b, 2, 5}], {a, 2, 5}]


Table[a^b, {a, 2, 5}, {b, 2, 5}]


but it is not the same, I'm not sure what You mean



remember : Table is faster then For , AppendTo is extremally slow
see
http://blog.wolfram.com/2011/12/07/10-tips-for-writing-fast-mathematica-code/

Try examples:
n = 200;
rr = {};
Timing@For[a = 2, a < n, a++,
  For[b = 2, b < n, b++,
   AppendTo[rr, a + b]]]
{18.4572, Null}

and

Timing[rr = Table[a + b, {a, 2, n - 1}, {b, 2, n - 1}];]
{0.104007, Null}


(I changed a^b -> a+b )  


Olaf, 



  • Prev by Date: Re: Solid State Disk to boost Mathematica performance
  • Next by Date: Re: Saving mov in v9
  • Previous by thread: Re: problem with append
  • Next by thread: Re: problem with append