wolfram-mathematica - 如何用我指定的分母强制Mathematica显示有理数？

我想编写一个函数来强制Mathematica在我指定的分母中显示有理数。例如，具有指定分母6的有理数2/3应该变为4/6。

我尝试使用HoldForm[]或Unevaluated[]，但没有成功。

In[1]:= setDenominator[x_, d_] := Unevaluated[Rational[x*d, d]];

In[2]:= setDenominator[2/3, 6]

        2
Out[2]= -
        3

最佳答案

您可以将FractionBox与DisplayForm结合使用：

setDenominator[x_, d_] := DisplayForm[FractionBox[x*d, d]]