[Mathematica] Listy złożone

leiswatch
Użytkownik
Użytkownik
Posty: 9
Rejestracja: 11 wrz 2010, o 14:58
Płeć: Mężczyzna
Lokalizacja: Gdańsk

[Mathematica] Listy złożone

Post autor: leiswatch »

Witam, mam takie zadanie:
Zdefiniować "pure function" , która dla argumentu n wykona następujące czynności :
a) utworzy listę złożoną z n podlist o trzech elementach : kolejne potęgi \(\displaystyle{ \lbrace2^i, 3^i, 4^i\rbrace}\),
np. dla\(\displaystyle{ n = 4}\) dostaniemy listę \(\displaystyle{ \lbrace \lbrace2, 3, 4\rbrace, \lbrace4, 9, 16\rbrace, \lbrace8, 27, 64\rbrace, \lbrace16, 81, 256\rbrace \rbrace}\) ;
b) na podstawie powyższej listy utworzy
nową listę złożoną z trzech podlist o \(\displaystyle{ n}\) elementach
(elementy nowej pierwszej podlisty to elementy stojace na pierwszym miejscu każdej
podlisty listy wyjściowej, itd., np. dla powyższej listy
dostaniemy : \(\displaystyle{ \lbrace \lbrace2, 4, 8, 16 \rbrace, \lbrace 3, 9, 27, 81 \rbrace, \lbrace 4, 16, 64, 256 \rbrace \rbrace}\))

Chodzi mi dokładnie o podpunkt b), nie wiem jakiej funkcji użyć, żeby stworzyć taką listę złożoną jak w przykładzie.
Awatar użytkownika
JakimPL
Użytkownik
Użytkownik
Posty: 2401
Rejestracja: 25 mar 2010, o 12:15
Płeć: Mężczyzna
Lokalizacja: Katowice
Podziękował: 43 razy
Pomógł: 459 razy

[Mathematica] Listy złożone

Post autor: JakimPL »

Moja propozycja z wykorzystaniem All:

Kod: Zaznacz cały

p := Table[Table[i^k, {i, 2, 4}], {k, 1, #}] &
q := Table[p[#][[All, i]], {i, 1, 3}] &
Pozdrawiam.
ODPOWIEDZ