Thank you very much Alexey. All perfect. It's a bit difficult to know everything.
Thank you all,but the parentheses do not grow enough in the case of square brackets.
According to this answer, you should specify SpanMaxSize -> Infinity styling directive:
SpanMaxSize -> Infinity
wrapInSquareBrackets[expr_] := DisplayForm@StyleBox[RowBox[{"[", expr, "]"}], SpanMaxSize -> Infinity]
I would do it this way:
wrapInRoundParentheses[expr_] := DisplayForm@RowBox[{"(", expr, ")"}]; wrapInSquareBrackets[expr_] := DisplayForm@RowBox[{"[", expr, "]"}];
Just remove or move TraditionalForm inside of the parentheses:
TraditionalForm
dExP[expr_] := Style[""[TraditionalForm@expr]]; dExP[x^x^x]
This works with double parentheses
