wolfram-mathematica - 如何在 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"}
]