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]:=
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]:=
Divide @@@ Subsequences[denominations, {2}]Out[2]=
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]:=
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]Out[3]=
Zerlegeb Sie einen Betrag in Bahama-Dollars in die verfügbaren Banknotenwerte.
In[4]:=
NumberDecompose[598.50, denominations]Out[4]=
Stellen Sie den Originalbetrag mit NumberCompose wieder her.
In[5]:=
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]Out[5]=
Die ist der Geldbetrag, den man mit einer Banknoten jeden Wertes erhält.
In[6]:=
NumberCompose[Table[1, Length@denominations], denominations] // NOut[6]=
