Страница 1 из 1

Организация цикла с матрицей

Добавлено: Вт авг 31, 2010 11:35 pm
artem12
Needs["GraphUtilities`"];
Needs["Combinatorica`"];
a = ({
{0, 1, 0, 0},
{1, 0, 1, 0},
{0, 1, 0, 0},
{0, 0, 0, 0}
});
For[i = 1, i < Part[Dimensions[a, 1], 1], i++,
Print[ReplacePart[а, {{i, -1}, {-1, i}} -> 1]] // MatrixForm]

результат
{{0,1,0,1},{1,0,1,0},{0,1,0,0},{1,0,0,0}}
{{0,1,0,0},{1,0,1,1},{0,1,0,0},{0,1,0,0}}
{{0,1,0,0},{1,0,1,0},{0,1,0,1},{0,0,1,0}}
Как сделать чтобы результатом был список матриц?
Надо что-то вставить в место принт или может другая конструкция посоветуйте пожалуйста?