Re: Subscripts in Text
- Subject: [mg3258] Re: [mg3218] Subscripts in Text
- From: jpk at apex.mpe.FTA-Berlin.de (Jens-Peer Kuska)
- Date: 21 Feb 1996 10:20:57 -0600
- Approved: usenet@wri.com
- Distribution: local
- Newsgroups: wri.mathgroup
- Organization: Wolfram Research, Inc.
- Sender: daemon at wri.com
> Hello,
>
> is there any way to get subscripts in Text? I need that for labeling a
> Graph with "H_2O_2". "_" denotes a subscript.
>
> Thanks in advance,
> Tobias
Hi Tobias,
here is one solution
In[1]:=
Format[SuperOxide]:=
SequenceForm[H,Subscript[2],
O,Subscript[2]]
In[2]:=SuperOxide
Out[2]=
H O
2 2
(* it will work with the graphics Text-primitive also *)
In[3]:=
Show[
Graphics[
Text[
SuperOxide,{0,0}]
]
];
Hope that helps
Jens