如何强迫Mathematica用我指定的分母显示理性？

Question

我想编写一个函数来强制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

Answer 1

您可以使用带有DisplayForm的FractionBox:

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