Wolfram Language

Algebra und Zahlentheorie

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
clock = ClockGauge[{10, 10, 30}, TicksStyle -> ColorData[40, 2], GaugeMarkers -> "FlatProfileNeedle"]
Out[1]=
In[2]:=
Click for copyable input
clock /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[2]=

In einem Winkelmesser.

In[3]:=
Click for copyable input
AngularGauge[ Quantity[714, "RomanOunces"], {Quantity[0, "RomanOunces"], Quantity[1000, "RomanOunces"]}, GaugeLabels -> "Unit", PlotTheme -> "Monochrome"] /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[3]=

Verwandte Beispiele

en es fr ja ko pt-br ru zh