for ii=1:size(a,1)  %p31m1.m
 for jj=1:size(a,2)
    if a(ii,jj) > 10 a(ii,jj)=a(ii,jj)/10;
    end
 end
end
