Römische Zahlen
Drücken Sie in einem Output ganze Zahlen als römische Zahlen aus.
Auf einem Ziffernblatt.
In[1]:=
![Click for copyable input](assets.de/roman-numerals/In_33.png)
clock = ClockGauge[{10, 10, 30},
TicksStyle -> ColorData[40, 2], GaugeMarkers -> "FlatProfileNeedle"]
Out[1]=
![](assets.de/roman-numerals/O_28.png)
In[2]:=
![Click for copyable input](assets.de/roman-numerals/In_34.png)
clock /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[2]=
![](assets.de/roman-numerals/O_29.png)
In einem Winkelmesser.
In[3]:=
![Click for copyable input](assets.de/roman-numerals/In_35.png)
AngularGauge[
Quantity[714, "RomanOunces"], {Quantity[0, "RomanOunces"],
Quantity[1000, "RomanOunces"]}, GaugeLabels -> "Unit",
PlotTheme -> "Monochrome"] /.
Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[3]=
![](assets.de/roman-numerals/O_30.png)