Descomposición de números
NumberDecompose expresa un número en múltiplos de unidades, tales como denominaciones monetarias.
La moneda de Bahamas (BSD) utiliza las siguientes denominaciones de billetes.
In[1]:=
denominations = {100, 50, 20, 10, 5, 3, 2, 1, 1/2};BSD permite más formas posibles de romper una cantidad dada en las facturas relativas a otras monedas debido a la presencia de la nota 3 BSD. Éstos son los cocientes entre las denominaciones consecutivas.
In[2]:=
Divide @@@ Subsequences[denominations, {2}]Out[2]=
En la mayoría de sistemas monetarios, sólo cocientes 2 y 5/2 están presentes, pero en este caso también hay 5/3 y 3/2.
In[3]:=
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]Out[3]=
Descomponga una cantidad de dólares de Bahamas en las denominaciones de billetes disponibles.
In[4]:=
NumberDecompose[598.50, denominations]Out[4]=
Recupere el monto inicial usando NumberCompose.
In[5]:=
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]Out[5]=
Este es el monto de dinero obtenido con un billete de cada denominación.
In[6]:=
NumberCompose[Table[1, Length@denominations], denominations] // NOut[6]=
