如何在Mathematica中创建带圆圈的符号？

Question

我知道这Framed用于显示符号周围的框架,如何在符号周围显示圆圈？

Answer 1

如果您不介意必须对对齐参数进行微观管理,则可以将空圆圈字符覆盖在符号上:

TraditionalForm @ Style[
  Overlay[{x, Style[\[EmptyCircle], 24]}, Alignment -> {0.075, 0.16}]
, "DisplayFormula"
]

展出的字体大小和定位参数的工作我的机器上的字体,但你可能需要调整它们在屏幕上的好成绩.并再次调整它们以获得合适的打印效果.以下内容Manipulate可以帮助完成该过程:

Manipulate[
  TraditionalForm @ Style[
    Overlay[
      {Style[x, xSize], Style[\[EmptyCircle], circleSize]}
    , Alignment -> {xAlign, yAlign}
    ]
  , "DisplayFormula"
  ]
, {{xSize, 12}, 8, 40, 1, Appearance -> "Labeled"}
, {{circleSize, 24}, 8, 40, 1, Appearance -> "Labeled"}
, {{xAlign, 0.075}, -1, 1, Appearance -> "Labeled"}
, {{yAlign, 0.016}, -1, 1, Appearance -> "Labeled"}
]

Answer 2

这是尝试创建一个圈出任意表达式的函数.它相当笨拙,但我现在想不出更好的方法.

circled =
    With[{m = Max@Rasterize[#,"RasterSize"]},
       Framed[
         Pane[#, {m, m}, Alignment -> Center],
         RoundingRadius -> 1*^6]
    ] &;


circled[1/x + y + z]

Answer 3

Framed可以选择RoundingRadius.

Framed[expr, RoundingRadius -> radius]

在radius框架的角落的较小值处仅略微圆化,但是在较大的值处,框架变为椭圆形或圆形.