RE: Raise lists of a list to powers

*To*: mathgroup at smc.vnet.net*Subject*: [mg27119] RE: [mg27079] Raise lists of a list to powers*From*: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.de>*Date*: Sun, 4 Feb 2001 02:58:54 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

-----Original Message----- From: Matthias.Bode at oppenheim.de [mailto:Matthias.Bode at oppenheim.de] To: mathgroup at smc.vnet.net Subject: [mg27119] [mg27079] Raise lists of a list to powers Dear Colleagues, I have a list of lists {{a, b, c}, {d, e, f}, {g, h, i}, ...}. 1. To each value 1 has to be added. (I can do that.) 2. The new values (a+1, b+1, ...) have to be raised to a series of powers: a, d, g have to be raised to r; b, e, h have to be raised to s and c, f, i to t. There is no function governing the exponents r, s, t; they are just a list of values like -(1/256) or -(1/12). Map, Thread, Apply &c. so far knew to thwart my efforts most effectively. Thank you very much for your help. Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Koenigsberger Strasse 29 D-60487 Frankfurt am Main GERMANY Tel.: +49(0)69 71 34 53 80 Mobile: +49(0)172 6 74 95 77 Fax: +49(0)69 71 34 6380 E-mail: matthias.bode at oppenheim.de Internet: http://www.oppenheim.de Dear Matthias, try In[1]:= MapThread[Power, {Transpose[{{a, b, c}, {d, e, f}, {g, h, i}}], {r, s, t}}] Out[1]= {{a^r, d^r, g^r}, {b^s, e^s, h^s}, {c^t, f^t, i^t}} or else In[3]:= Thread[Power[Transpose[{{a, b, c}, {d, e, f}, {g, h, i}}], {r, s, t}]] Out[3]= {{a^r, b^s, c^t}, {d^r, e^s, f^t}, {g^r, h^s, i^t}} -- Hartmut Wolf