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] // N

Out[6]=