Re: Nonatomic expression ? in Append command
- To: mathgroup at smc.vnet.net
- Subject: [mg32846] Re: [mg32832] Nonatomic expression ? in Append command
- From: BobHanlon at aol.com
- Date: Fri, 15 Feb 2002 02:49:46 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2/14/02 4:09:03 AM, tmakino at spectro.ujf-grenoble.fr writes:
>I would like
> to perform the loop calculation by writing the following code in
> Mathematica. Then, the result of calculation should be stored in some
> lists, assuming the name of list is "omegaAlist". If one performs that
> code, the error message will be output. The contents of which is the
> following:
>
> (1)ÅuAppend::"normal": "Nonatomic expression expected at position 1
> in Append[omegaAlist, 0.007]."Åv
>
> (2)Åu$RecursionLimit::"reclim": "Recursion depth of \!\(256
> \) exceeded."Åv
>
> I do not know how to work around this problem. Please help me to
> eliminate this obstacle, if there are experts who are familiar with
> these kinds of things.!!!
>
> ------------------------------------------------
>
> Clear[et1,omegaAlist]
> For[r =0, r <= 1, r++
>
> et1 = 3.444 + r*0.001
>
> omegaAlist = Append[omegaAlist, N[et1]];
> ]
> omegaAlist = Delete[omegaAlist, 1];
>
Clear[et1,omegaAlist];
Since you cleared omegaAlist, it is just a Symbol (atomic)
and not a List to which elements can be appended.
You need to initialize it to an empty list.
For[omegaAlist={}; r=0, r<=3, r++ ,
et1=3.444+r*0.001;
omegaAlist=Append[omegaAlist, et1]];
omegaAlist=Delete[omegaAlist, 1]
{3.445, 3.446, 3.447}
Another approach would be
omegaAlist=Table[3.444+r*0.001, {r, 3}]
{3.445, 3.446, 3.447}
Bob Hanlon
Chantilly, VA USA