5

I am trying to put labels that look like the following,

enter image description here

enter image description here

I use

Graphics[{Text[
   Style[ToExpression["a+\\bm{v}_i", TeXForm, HoldForm], 
    FontSize -> 14, FontFamily -> "Times New Roman"], {0, 0}], 
  Text[Style[ToExpression["b+\\cal{L}(\\bm{v}_i)", TeXForm, HoldForm],
     FontSize -> 14, FontFamily -> "Times New Roman"], {0, .2}]}]

enter image description here

enter image description here

but do not get result as expected. Is there any way to solve this? Thank you!

Tony
  • 1,020
  • 6
  • 17

1 Answers1

4

Perhaps this will work for you.

Graphics[
  {Text[
     Style[
       a + Subscript[Style[v, Bold, SingleLetterItalics -> False], i], 
       "TR", 14], 
     {0, 0}, {-1, 0}], 
   Text[
     Style[
        b + \[ScriptCapitalL][Subscript[Style[v, Bold, SingleLetterItalics -> False], i]], 
        "TR", 14], 
     {0, -.1}, {-1, 0}]}]

result

m_goldberg
  • 107,779
  • 16
  • 103
  • 257