로마 숫자

임의의 출력식으로 정수를 로마 숫자로 변환합니다.

시계 게이지를 실행합니다.

In[1]:=

clock = ClockGauge[{10, 10, 30}, TicksStyle -> ColorData[40, 2], GaugeMarkers -> "FlatProfileNeedle"]

Out[1]=

In[2]:=

clock /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]

Out[2]=

각도 게이지에서 실행합니다.

In[3]:=

AngularGauge[ Quantity[714, "RomanOunces"], {Quantity[0, "RomanOunces"], Quantity[1000, "RomanOunces"]}, GaugeLabels -> "Unit", PlotTheme -> "Monochrome"] /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]

Out[3]=