function y=s(A,i,a)
A(i,:)=a*A(i,:);
y=A;