Maxima. Операции над матрицами 2

В продолжение начатой ранее темы:

перестановка строк в матрице:
swaprows (M, i1, i2) := block( for j:1 thru n do block(_tmp:M[i1][j], M[i1][j]:M[i2][j], M[i2][j]:_tmp), M);

перестановка столбцов:
swapcols (M, j1, j2) := block( for i:1 thru n do block(_tmp:M[i][j1], M[i][j1]:M[i][j2], M[i][j2]:_tmp), M);