Найден 1 результат

artem12
Вт авг 31, 2010 11:35 pm
Форум: Mathematica
Тема: Организация цикла с матрицей
Ответы: 0
Просмотры: 1717

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

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}} {{...