Empiezo a escribir la funcion para calcular las constantes de warren.