function f = funcion_A_lineaxy(x,a,b,c,A)
  [n,m]=size(x);
  f = zeros(n,m);
  intervalo_1 = find(x >= a & x <b);
  intervalo_2 = find(x >= b & x <=c);
  f(intervalo_1) = A;
  f(intervalo_2) = -(A/(c-b))*x(intervalo_2)+A;
endfunction