Mathematica, maksimum z listy

Mathematica, Matlab, Statistica, LaTeX i wszelkiego rodzaju oprogramowanie przydatne matematykowi w pracy. Miejsca w sieci poświęcone zagadnieniu.
Trandar
Użytkownik
Użytkownik
Posty: 1
Rejestracja: 17 paź 2019, o 20:25
Płeć: Mężczyzna

Mathematica, maksimum z listy

Post autor: Trandar » 17 paź 2019, o 20:28

Mam za zadanie napisać program, który wyświetla maksimum z zadanej listy. Bez używania max[]. Moja próba:

Kod: Zaznacz cały

maksimum[u_] := Module[{a = u, maks = u[[0]]},
   For[i = 0, i < Length[a], i++,
    If[a[[i]] > m, maks = a[[i]]]];
   Print[maks]];

Kod: Zaznacz cały

In: maksimum[{-5, 2, 1}]
Out: List
Czemu zwraca mi jakąś listę?
Rekrutacja Instytut Matematyczny, Uniwersytet Wrocławski (gif)

lacek
Użytkownik
Użytkownik
Posty: 17
Rejestracja: 25 lip 2011, o 13:38
Płeć: Mężczyzna
Lokalizacja: Kraków
Pomógł: 1 raz

Re: Mathematica, maksimum z listy

Post autor: lacek » 20 lut 2020, o 08:20

w Mathematice listy są numerowane od 1.

jesli
tab={1,2,3}

To tab[[0]] to to samo co Head[tab] czyli List

Poza tym ostatnim elementem modułu powinna być zwracana wartość, a nie Print[maks]. Tzn samo maks powinno być.

ODPOWIEDZ