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

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