Как я могу изменить значение массива в цикле в Mathematica?

Question

Я написал код в Matlab, как показано ниже:

T= ((1-(-1)) * rand([4,4],'double') + (-1) * ones(4,4));
for i=1:4
for j=1:i
T(j,i)=TT(i,j);
end
T(i,i)=0;
end

Теперь я хочу написать этот код в Mathematica, как показано ниже:

T = RandomReal[{-1, 1}, {4, 4}];
For[i = 1, i < 5, i++,
For[ j = 1, j < i, j++,
T[[j, i]] = T[[i, j]]]
T[[i, i]] = 0];

Но это не работает!Не могли бы вы рассказать мне о моих ошибках?Спасибо.

Answer 1

SeedRandom[1234];
t = u = RandomReal[{-1, 1}, {4, 4}];
t // MatrixForm

Если необходимо использовать For

For[i = 1, i < 5, i++,
  For[j = 1, j < i, j++, t[[j, i]] = t[[i, j]]]; t[[i, i]] = 0];

Он мутирует t

t // MatrixForm

Один из способов сделать это функционально

(l = LowerTriangularize[u, -1]) + Transpose[l]