Raw start (if without wqstools)

> restart;with(linalg):with(plots):with(plottools):
eye:=n->diag(1$n):

> emat:=proc(i,j,k,n) local tmp;
tmp:=eye(n);tmp[i,j]:=k;op(tmp);end:

> multrow:=(mat,row,k)->
evalm(emat(row,row,k,rowdim(mat))&*mat):

> multcol:=(mat,col,k)->
evalm(mat&*emat(col,col,k,coldim(mat))):

Warning, new definition for norm

Warning, new definition for trace