Código en Scilab: