function scaled_image_box = boxscale(padded_image,x_scale,y_scale)

% Creacion del Filtro de Caja (Box Filter)
box = ones(y_scale,x_scale);    %Filtro de Caja listo para Convolucion

% Se realiza el filtrado de Caja (Box)
scaled_image_box = conv2(padded_image,box);

% Se retiran los bordes negros de la imagen.
scaled_image_box(size(scaled_image_box,1),:) = [];
scaled_image_box(:,size(scaled_image_box,2)) = [];

for i=1:y_scale-1
    scaled_image_box(1,:) = [];    
end

for j=1:x_scale-1
    scaled_image_box(:,1) = [];
end

end