Re: Raise lists of a list to powers
- To: mathgroup at smc.vnet.net
- Subject: [mg27084] Re: [mg27079] Raise lists of a list to powers
- From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
- Date: Sun, 4 Feb 2001 02:58:12 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Here are two (equivalent) ways:
In[1]:=
ls = {{a, b, c}, {d, e, f}, {g, h, i}};
In[2]:=
powers = {r, s, t};
In[3]:=
Transpose[Power[Transpose[ls], powers]]
Out[3]=
r s t r s t r s t
{{a , b , c }, {d , e , f }, {g , h , i }}
or
In[4]:=
Thread[Power[Thread[ls], powers]]
Out[4]=
r s t r s t r s t
{{a , b , c }, {d , e , f }, {g , h , i }}
plus a few other variations on this theme...
on 01.2.3 6:59 PM, Matthias.Bode at oppenheim.de at Matthias.Bode at oppenheim.de
wrote:
> 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
>
>
>
>
--
Andrzej Kozlowski
Toyama International University
JAPAN
http://platon.c.u-tokyo.ac.jp/andrzej/
http://sigma.tuins.ac.jp/