Линейная алгебра. Теоремы и алгоритмы. Яцкин Н.И. - 543 стр.

Прил. 1                   Коды Maple-процедур   543

# Заготовка для массива
# приращений итерированных дефектов
# (длин строк в столбчатой диаграмме).

# Натуральное число p[i][k]
# имеет смысл размерности
# прямого дополнения C[i][k]
# к (k-1)-му ядру N[i][k-1]
# в k-м ядре N[i][k].
p:=array(1..s):

# Заполнение и печать массива p.

for i from 1 to s do
  for k from 1 to l[i] do
    p[i][k]:=d[i][k]-d[i][k-1]:
    print(evaln(p[i][k])=p[i][k]);
  od:
  print(str);
od:

print(str);

#   Заготовка для массива
#   абсолютных вторых приращений
#   итерированных дефектов
#   (длин ступенек в столбчатой диаграмме).

# Неотрицательное целое число q[i][k]
# имеет смысл размерности
# прямого дополнения D[i][k]
# в подпространстве C[i][k]
# к образу B[i](C[i][k+1])
# подпространства C[i][k+1]
# при отображении, заданном матрицей B[i].
q:=array(1..s):

# Заполнение массива q.

for i from 1 to s do
  # Длина верхней ступеньки,
  # т. е. dim(D[i][l[i]]).
  q[i][l[i]]:=p[i][l[i]]:

    # Длины остальных ступенек.
    # т. е. dim(D[i][k]), где 1<=k