0
$\begingroup$

I'm having trouble emulating the following (extra long) vertical bar format in a text cell:

enter image description here

The closest I could get to in a text cell is:

enter image description here

which doesn't look great; it's underlying code is

 Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["e", 
     RowBox[{
      RowBox[{"-", "s"}], " ", "t"}]], 
    RowBox[{"f", "(", "t", ")"}]}], 
   SubsuperscriptBox["\[VerticalSeparator]", "0", "N"]}], 
  TraditionalForm]],
 FormatType->TraditionalForm]], "Text"]

I can't figure out how to stretch the vertical bar so it looks how you would appear in a textbook. Somehow I need the vertical bar to strectch vertically more than it defaults to. This is standard format for a textbook, so it would seem it must be possible in Mathematica. I tried the limitsposition option, does not seem to help with what I'm trying to do.

Any ideas?

$\endgroup$
2

1 Answer 1

1
$\begingroup$

Using Carl Woll's code:

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["e", 
     RowBox[{
      RowBox[{"-", "s"}], " ", "t"}]], 
    RowBox[{"f", "(", "t", ")"}]}], 
   SubsuperscriptBox[StyleBox["\[VerticalSeparator]","EB Garamond",FontSize->25],AdjustmentBox["\[Placeholder]",BoxBaselineShift->1.28],AdjustmentBox["\[Placeholder]",BoxBaselineShift->-1.44]]}], TraditionalForm]]]], "Text"]

It now looks like

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.