KORISNE FUNKCIJE KOJE SE KORISTE ZA RAD S LISTAMA

Neka je zadata lista elemenata :

lista = {1, 5, 2, 8, a, 15, m, 22, 52, 28, s, t, m}

{1, 5, 2, 8, a, 15, m, 22, 52, 28, s, t, m}

-Prvi element zadate liste dobijamo pomocu naredbe

First[lista]

1

-Element koji je na zadnjem mjestu u listi dobijamo pomocu funkcije

Last[lista]

t

-Element koji se nalazi na n - toj poziciji  od pocetka/kraja liste dobijamo pomocu  funkcije   Part[lista, n] / Part[lista, -n]

Pronadjimo npr . element koji se nalazi na cetvrtom mjestu od pocetka liste

Part[lista, 4]

8

te element koji se nalazi na devetom mjestu od kraja liste

Part[lista, -9]

8

-Listu elemenata na pozicijama n_1, n_2, ... dobijamo naredbom Part[lista, {n_1, n_2, ...}]

Napravimo novu listu elemenata koja se sastoji od drugog, treceg, petog i osmog elementa iz zadate liste .

Part[lista, {2, 3, 5, 8}]

{5, 2, a, 22}

- Prvih/zadnjih n elemenata iz liste dobijamo naredbom Take[lista, n]/ Take[lista, -n]

Npr . izdvojimo listu od prvih/zadnjih 7 clanova zadate liste

Take[lista, 7]

{1, 5, 2, 8, a, 15, m}

Take[lista, -7]

{15, m, 22, 52, 28, s, t}

- Listu elemenata koji se nalaze izmedju m - tog i n - tog elementa u listu ukljucujuci i m - ti i n - ti elementdobijamo naredbom Take[lista, {m, n}]

Npr . Napravi listu od treceg do desetog elementa iz zadate liste

Take[lista, {3, 10}]

{2, 8, a, 15, m, 22, 52, 28}

-Listu elemenata bez prvog/zadnjeg elementa iz zadate liste dobijamo naredbama Rest[lista] / Most[lista]

Rest[lista]

{5, 2, 8, a, 15, m, 22, 52, 28, s, t}

Most[lista]

{1, 5, 2, 8, a, 15, m, 22, 52, 28, s}

-Listu elemenata bez prvih/zadnjih n elemenata date liste dobijamo naredbom Drop[lista, n]/Drop[lista, -n]

Npr . izdvojimo listu bez prvih/zadnjih 6 elemenata

Drop[lista, 6]

{m, 22, 52, 28, s, t}

Drop[lista, -6]

{1, 5, 2, 8, a, 15}

-Listu bez elemenata izmedju m - te i n - te pozicije ukljucujuci i elemente na m - toj i n - toj poziciji dobijamo pomocu naredbe Drop[lista, {m, n}]

Npr . napravi listu elemenata koja ne sadrzi elemente zadate liste od trece do pete pozicije

Drop[lista, {3, 5}]

{1, 5, 15, m, 22, 52, 28, s, t}

Poziciju nekog proizvoljnog elementa A u listi odredjujemo pomocu naredbe Position[lista, A]

Npr .   na kojem se mjestu u listi nalazi element "m"

Position[lista, 2]

{{3}}

Naravno, ako se element A ponavlja vise puta u zadatoj listi funkcijom Position dobijamo sve pozicije elementa A .

Position[lista, m]

{{7}, {13}}

Koliko se puta neki proizvoljni element A pojavljuje u zadatoj listi mozemo odrediti pomocu funkcije Count[lista, A]

Npr .

Count[lista, 9]

0

- Ako zelimo da ispitamo da li se neki proizvoljni element A nalazi u zadatoj listi koristimo funkciju

MemberQ[list, A]

Npr .

MemberQ[lista, 6]

False

MemberQ[lista, 2]

True

Dakle, element 6 se ne nalazi u zadatoj listi, a element 2 je element zadate liste .

RowBox[{, RowBox[{StyleBox[RowBox[{Zadatak, , 1.}], FontSize -> 16., FontSlant -> Ita ... praviti listu ciji su elementi elementi glavne dijagonale PROIZVOLJNE matrice . (testirati !) }]}]

p = Table[B[[i, i]], {i, 1, Min[Length[B], Length[Transpose[B]]]}]

B = {{1, 2, 3, 4}, {m, 6, t, 3}, {9, 1, t, a}}

{{1, 2, 3, 4}, {m, 6, t, 3}, {9, 1, t, a}}

p

{1, 6, t}

Clear[q]



RowBox[{StyleBox[RowBox[{Zadatak, , 2.}], FontSize -> 16., FontSlant -> Italic], }] Napraviti listu ciji su elementi elementi sporedne dijagonale PROIZVOLJNE matrice . (testirati !)

q = Table[ 0, {Min[Length[T], Length[Transpose[T]]]}] ; j = Length[Transpose[T]] ; i = 1 ; While[i<=Min[Length[T], Length[Transpose[T]]], {q[[i]] = q[[i]] + T[[i, j]], j --, i ++}]

T = {{1, 2, 3, 4}, {m, 6, t, 3}, {9, 1, u, a}, {3, 5, 6, 8}, {0, 2, 3, 4}}

{{1, 2, 3, 4}, {m, 6, t, 3}, {9, 1, u, a}, {3, 5, 6, 8}, {0, 2, 3, 4}}

q

{4, t, 1, 3}

Clear[L]

RowBox[{StyleBox[RowBox[{Zadatak, , 3.}], FontSize -> 16., FontSlant -> Italic], }] Izlistati sve parne brojeve iz proizvoljne liste L

L = {1, 4, 32, 7, 98, 5, 6, 14, 20, 6, 11}

{1, 4, 32, 7, 98, 5, 6, 14, 20, 6, 11}

For[i = 1, i≤Length[L], i ++, If[Mod[L[[i]], 2] 0, Print[L[[i]]], Break]]

4

32

98

6

14

20

6

Created by Mathematica  (November 7, 2007)