Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

Re: troubles with lists

  • To: mathgroup at smc.vnet.net
  • Subject: [mg35662] Re: [mg35653] troubles with lists
  • From: BobHanlon at aol.com
  • Date: Thu, 25 Jul 2002 04:45:48 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 7/24/02 2:48:14 AM, e9426270 at stud4.tuwien.ac.at writes:

>I need to create the following list:
>
>{{equation1, equation2,...equation_n},{x1,x1_0},{x2,x2_0},...{xn,xn_0}}
>
>
>In[48]:= Append[{{equation1, equation2}}, List[{x1, x1_0}, {x2, x2_0}]]
>Out[48]= {{equation1, equation2}, {{x1, 0}, {x2, 0}}}
>
>doesn't give the desired result which is
>
>Out[]= {{equation1, equation2}, {x1, x1_0}, {x2, x2_0}}
>without the brackets.
>
>Has somebody an elegant solution for this problem?
>

n=3; 

{Table[ToExpression["equation"<>ToString[k]], {k,n}],
  Sequence@@Table[{ToExpression["x"<>ToString[k]],
        "x"<>ToString[k]<>"_0"}, {k,n}]}

{{equation1,equation2,equation3},{x1,x1_0},{x2,x2_0},{x3,x3_0}}


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: troubles with lists
  • Next by Date: Re: Beginners Question - Series list problem
  • Previous by thread: Re: troubles with lists
  • Next by thread: Re: troubles with lists