Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

When I write something like this:

(Subscript[x, 0], f(Subscript[x, 0])) 

I get some undesirable whitespace after each of the Subscript[x, 0]. The whitespace disappears or is at least significantly reduced, if I write e.g. Subscript[x, i] instead.

This is a screen shot of the problem:

Screen shot

I have looked around the object inspector for a solution, but I haven't found one. It appears to be a font specific problem: If I use Times - the problem goes away, but for most other fonts - it is there (I use Georgia).

The raw cell looks like this:

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["x", "0"], ",", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "0"], ")"}]}], ")"}], TraditionalForm]],
 FormatType->"TraditionalForm"]], "Text",
 CellChangeTimes->{{3.590903299361623*^9, 3.590903306745799*^9}}]
share|improve this question
    
Can you post a screen grab so we can see this whitespace. –  Mike Honeychurch Oct 16 '13 at 8:41
1  
I think we need more information. I think it would be useful if you were to edit your question to show what the raw cell looks like. That is, please use cmd-shift+E on the cell with the offending expression and then copy and paste what that displays into your question, –  m_goldberg Oct 16 '13 at 8:45
add comment

1 Answer

up vote 1 down vote accepted

In these sorts of cases you could either introduce a \[NegativeVeryThinSpace] or \[NegativeThinSpace] (For the latter Esc - space bar space bar Esc)

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["x", "0"], 
    "\[NegativeThinSpace]", ",", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "0"], ")"}]}], ")"}], 
  TraditionalForm]]]], "Text"
  ]

enter image description here

Alternatively you could nudge characters to the right or left as needed. For example highlight the comma and from the main menu go to Insert > Typesetting > Nudge Left. This introduces an adjustment box:

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["x", "i"], 
    AdjustmentBox[",",
     BoxMargins->{{-0.14058209774848984`, 
      0.14058209774848984`}, {0., 0.}}], 
    RowBox[{"f", "(", 
     SubscriptBox["x", "i"], ")"}]}], ")"}], 
  TraditionalForm]]]], "Text"]

enter image description here

share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

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