Maple - замена индексов в матрице

[serval]

Помогите, пожалуйста.
Нужно построить в Maple матрицу в которой отличны от нуля лишь элементы $a(I,J):=-1$, где $I=2 \cdot i \cdot j,\ J=i^2-j^2,\ i>j$.
Заранее спасибо.

[maxal]

Сначала задайте нулевую матрицу нужного размера. А потом замените в ней некоторые элементы на -1, согласно вашим формулам.

[serval]

Это можно сделать и без Maple, руками на бумажке.
А мне нужно реализовать это в Maple - чтобы можно было менять размерность матрицы как параметр.

[maxal]

serval
Ну и напишите процедуру в мапле, которая по заданной размерности строит соответствующую матрицу. Первый шаг будет построение нулевой матрицы заданного размера, второй - изменение некоторых ее элементов на -1.