Código en scilab: