% *** ---------------------------------------------------------------------------------------- *** %
% ***| Funcion que devuelve la Matriz de la funcion de la Magnitud del Gradiente             | *** %
% *** ---------------------------------------------------------------------------------------- *** %

function matriz_fg = grad_mag(imag)


[Gx,Gy] = gradient(imag);         % Funcion que calcula el gradiente de una matriz

G = sqrt(Gx.^2 + Gy.^2) + eps;


% Se asociaran costes bajos a magnitudes de gradiente grandes, ya que estas indican cambios
% muy significativos de intensidad, lo que se traduce en la presencia de fronteras

matriz_fg = 1- G/max(max(G));              % fg = [0 , ~1]




       
