(Maple) процедура vweight

[longstreet]

vweight(G) выдаёт table, а не массив. Пример вывода:

table(sparse, [a = 2, b = 5, c = 7])

где a, b, c $-$ вершины графа $G$.

Как просуммировать автоматически эти значения (чтобы выдавал сумму 14)? Просто у меня вершин очень много в графе...

[Andrew Gubarev]

С «дискретной математикой» в СКА Maple я не возился, но заглянув в help, увидел, что там все подробно описано.
Если веса имеют численные значения, то используем add
Пример (Maple 15)

> with(networks):
> new(G):
> addvertex([a,b,c], weights=[1,2,3],G):
> T:= vweight(G);
         T:= table(sparse, [b=2, a=1, c=3])
> add(T[i], i in vertices(G));
             6 

[longstreet]

Класс!!! Спасибо огромное! Прямо то, что нужно!

-- 26.07.2012, 16:48 --

Правда, я не понял как Вы в хелпе вышли на эту конструкцию

add(T[i], i in vertices(G))

-- 26.07.2012, 16:55 --

Как суммировать эти значения $-$ теперь понятно. Не могли бы Вы, пожалуйста, подсказать ещё как среди них автоматически можно найти максимальное?

max()

не получается...

[Andrew Gubarev]

Под рукой нет справки, поэтому как это сделать грамотно в networks не скажу.
Я просто напишу, как это можно сделать с таблицей, т.е. пусть имеется таблица
T:= table(sparse, [a=1, b=2, c=3]):
И нужно найти максимальное значение. Максимум из списка можно найти при помощи функции max. При помощи вызова entries(T, 'nolist') можно получить последовательность выходов (опция 'nolist' есть в Maple 12; когда она была добавлена не помню). Так мы приходим к

> max([entries(T, 'nolist')]);
              3

[longstreet]

Вау!!! Работает, всё получилось! Вы просто бог мейпла! Спасибо большое!