# Suppressing reduction in fraction box size in multi-level fractions [duplicate]

Mathematica display complex fractions like this,

the second x look smaller, I want it look like this, how can I get it in Mathematica?

• Use Text instead of TraditionalForm – bill s Jul 25 '14 at 2:41

HoldForm[1/(1 + 1/x)] // TraditionalForm


which produces the fraction box in reduced size.

Now open the output cell with Cmnd+Shift+e and add FractionBoxOptions->{AllowScriptLevelChange->False} at the end.

Cell[BoxData[
FormBox[
TagBox[
FractionBox["1",
RowBox[{"1", "+",
FractionBox["1", "x"]}]],
FractionBoxOptions->{AllowScriptLevelChange->False}]


Close close the cell with Cmnd+Shift+e and you will see

Note. I think on Windows it is Ctrl+Shift+e

Another way is to use the Option Inspector. Select the output cell and make the following change in the Option Inspector.

Just an extended comment to the answer of m_goldberg.

Without changing the standard settings in Option Inspector:

fractionStyle = Style[#, DefaultOptions -> {FractionBoxOptions -> {AllowScriptLevelChange -> False}}] &;
HoldForm[1/(1 + 1/x)] // fractionStyle // TraditionalForm


An additional advantage using DefaultOptions is i.e. having a list of fractions, or any other bigger programming construct, fractionStyle is applied only once at the end (like TraditionalForm).