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]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_14.png)
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]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_15.png)
Divide @@@ Subsequences[denominations, {2}]
Out[2]=
![](assets.es/decomposition-of-numbers/O_14.png)
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]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_16.png)
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]
Out[3]=
![](assets.es/decomposition-of-numbers/O_15.png)
Descomponga una cantidad de dólares de Bahamas en las denominaciones de billetes disponibles.
In[4]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_17.png)
NumberDecompose[598.50, denominations]
Out[4]=
![](assets.es/decomposition-of-numbers/O_16.png)
Recupere el monto inicial usando NumberCompose.
In[5]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_18.png)
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]
Out[5]=
![](assets.es/decomposition-of-numbers/O_17.png)
Este es el monto de dinero obtenido con un billete de cada denominación.
In[6]:=
![Click for copyable input](assets.es/decomposition-of-numbers/In_19.png)
NumberCompose[Table[1, Length@denominations], denominations] // N
Out[6]=
![](assets.es/decomposition-of-numbers/O_18.png)