Я нахожусь в следующей ситуации:
S = QQ [x_0..x_n];
для i от 0 до n сделать для j от i до n сделать d_ {i, j} = x_i * x_j;
Теперь я хотел бы построить вектор, элементы которого
D_ {0,0} = x_0 ^ 2, D_ {0,1} = x_0 * x_1, ..., D_ {0, п} = x_0 * x_n, D_ {1,1} = x_1 ^ 2 , D_ {1,2} = x_1 * x_2, ..., D_ {п, п} = x_n ^ 2
Как я могу сделать это в MacAulay2? Большое спасибо.