Сортировка списка по убыванию

Форум пользователей пакета Maple

Модератор: Admin

launcher
Сообщения: 66
Зарегистрирован: Ср дек 10, 2003 7:22 pm

Сортировка списка по убыванию

Сообщение launcher » Сб сен 19, 2009 10:19 pm

Прошу подсказать средство Maple для этого.
Например, для списка T := [135, 345, 543, 412, 684, 764, 256, 574, 346], выбрать Tmax := и Tmin :=

А в списке вида
[ [1, 34, T[1]],
[2, 64, T[2]],
[3, 12, T[3]],
[4, 43, T[4]], ...]

отсортировать по второму параметру. Т. е. так поменять местами элементы, чтоб элемент с большим вторым параметром был сверху, а дальше по убыванию. (Проранжировать.) Надо ли здесь писать процедуру? Подскажите пожалуйста, как её написать правильно.
:oops:

Kitonum
Сообщения: 2084
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Сортировка списка по убыванию

Сообщение Kitonum » Вс сен 20, 2009 12:08 am

launcher писал(а):Прошу подсказать средство Maple для этого.
Например, для списка T := [135, 345, 543, 412, 684, 764, 256, 574, 346], выбрать Tmax := и Tmin :=

А в списке вида
[ [1, 34, T[1]],
[2, 64, T[2]],
[3, 12, T[3]],
[4, 43, T[4]], ...]

отсортировать по второму параметру. Т. е. так поменять местами элементы, чтоб элемент с большим вторым параметром был сверху, а дальше по убыванию. (Проранжировать.) Надо ли здесь писать процедуру? Подскажите пожалуйста, как её написать правильно.
:oops:

T:=[135,345,543,412,684,764,256,574,346]: max(T),min(T);
764, 135

F:=proc(a,b)
if a[2]>=b[2] then true else false: fi: end proc:
sort([[1, 34, T[1]],[2, 64, T[2]],[3, 12, T[3]],[4, 43, T[4]]],F);


[[2, 64, T[2]], [4, 43, T[4]], [1, 34, T[1]], [3, 12, T[3]]]

launcher
Сообщения: 66
Зарегистрирован: Ср дек 10, 2003 7:22 pm

Сообщение launcher » Вс сен 20, 2009 12:15 am

Да :)

bazibo

xyz
Сообщения: 202
Зарегистрирован: Чт мар 24, 2005 3:42 pm

Сообщение xyz » Ср сен 30, 2009 10:51 am

Эта и много других полезных задач решается средствами известной б-ки Аладьева, которая обсуждается даже на известном форуме разработчиков MaplePrimes.

xyz
Сообщения: 202
Зарегистрирован: Чт мар 24, 2005 3:42 pm

Сообщение xyz » Пт окт 02, 2009 10:55 am

Прошу извинитьЁ забыл указать адрес ссылки

http://www.mapleprimes.com/search/node/Aladjev