Zerlegung von Zahlen
NumberDecompose drückt eine Zahl in unterschiedlichen Einheiten aus, wie zum Beispiel Währungen.
Der Bahama-Dollar (BSD), Währung der Bahamas, verwendet die folgenden Banknoten.
In[1]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_14.png)
denominations = {100, 50, 20, 10, 5, 3, 2, 1, 1/2};
BSD-Beträge können aufgrund des Vorhandenseins eines 3-Dollar-Scheines in mehr Kombinationen aus Banknoten zerlegt werden als andere Währungen. Dies sind die Quotienten aufeinanderfolgender Banknotenwerte.
In[2]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_15.png)
Divide @@@ Subsequences[denominations, {2}]
Out[2]=
![](assets.de/decomposition-of-numbers/O_14.png)
In den meisten Währungssystemen gibt es nur die Quotienten 2 und 5/2, aber in diesem Fall gibt es auch 5/3 und 3/2.
In[3]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_16.png)
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]
Out[3]=
![](assets.de/decomposition-of-numbers/O_15.png)
Zerlegeb Sie einen Betrag in Bahama-Dollars in die verfügbaren Banknotenwerte.
In[4]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_17.png)
NumberDecompose[598.50, denominations]
Out[4]=
![](assets.de/decomposition-of-numbers/O_16.png)
Stellen Sie den Originalbetrag mit NumberCompose wieder her.
In[5]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_18.png)
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]
Out[5]=
![](assets.de/decomposition-of-numbers/O_17.png)
Die ist der Geldbetrag, den man mit einer Banknoten jeden Wertes erhält.
In[6]:=
![Click for copyable input](assets.de/decomposition-of-numbers/In_19.png)
NumberCompose[Table[1, Length@denominations], denominations] // N
Out[6]=
![](assets.de/decomposition-of-numbers/O_18.png)