MAT.M

clear F
%programa de suma de signos
R=input(' mete reglones');
C=input('mete columnas');
for r=1:R
    for c=1:C
        x=sprintf('Mat(%d,%d)=',r,c);
      F(r,c)=input(x);
  end
end
disp(F)

disp('Calculo de renglones')
 for r=1:R
      
      Suma=0;
      for c=1:C
       
          ValorActual = F(r,c) ;
          if ValorActual>0| ValorActual < 0
                Suma = Suma + F(r,c)/abs(F(r,c));
          end
      end
      x=sprintf('Suma del renglon %d=%d',r,Suma);
       disp(x)
   end

disp ('Calculo de columnas');
   for c=1:C
      
      Suma=0;
      for r=1:R
       
          ValorActual = F(r,c) ;
          if ValorActual>0| ValorActual < 0
                Suma = Suma + F(r,c)/abs(F(r,c));
          end
      end
      x=sprintf('Suma de la columna %d=%d',c,Suma);
       disp(x)
   end