Re: superscripts
- To: mathgroup at smc.vnet.net
- Subject: [mg58647] Re: superscripts
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Tue, 12 Jul 2005 05:21:31 -0400 (EDT)
- Organization: The Open University, Milton Keynes, England
- References: <daiu3u$t43$1@smc.vnet.net> <dal1l7$i80$1@smc.vnet.net> <dataf6$mgs$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Mike wrote:
> Would this work???
>
> Cell[BoxData[RowBox[{"Symbolize",
> "[",TagBox[StyleBox[RowBox[{"a",StyleBox["0",FontSize->8,
> FontVariations->{"CompatibilityType"->"Superscript"}]}]], NotationBoxTag,
> TagStyle->"NotationTemplateStyle"], "]"}]], "Input"]
>
I am afraid not!
In[1]:=
Needs["Utilities`Notation`"]
In[2]:=
Symbolize[NotationBoxTag[
StyleBox[\(a\*StyleBox["0", Rule[FontSize, 8.`],
Rule[FontVariations,
List[Rule["CompatibilityType",
"Superscript"]]]]\)]
]]
In[3]:=
a\[UnderBracket]Superscript\[UnderBracket]0 + a^1
Out[3]=
1 + a
In[4]:=
a\[UnderBracket]Superscript\[UnderBracket]0 = 2
From In[4]:=
\!\(\*
RowBox[{\(Set::"write"\),
":", "\<\"Tag \\!\\(Power\\) in \\!\\(a\\^0\\) is Protected. \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\",
ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::write\\\"]\\)\"\>"}]\)
Out[4]=
2
From In[11]:=
Set::"write":"Tag \!\(Power\) in \!\(a\^0\) is Protected. \
\!\(\*ButtonBox[\"More\[Ellipsis]\", ButtonStyle->\"RefGuideLinkText\", \
ButtonFrame->None, ButtonData:>\"General::write\"]\)"
However, these ones work like a charm:
In[5]:=
Symbolize[NotationBoxTag[\(a\^0\)]]
In[6]:=
a\[UnderBracket]Superscript\[UnderBracket]0 + a^1
Out[6]=
a + a\[UnderBracket]Superscript\[UnderBracket]0
In[7]:=
a\[UnderBracket]Superscript\[UnderBracket]0 = 2
Out[7]=
2
In[8]:=
a\[UnderBracket]Superscript\[UnderBracket]0 + a^1
Out[8]=
2 + a
In[9]:=
Symbolize[NotationBoxTag[\(\[ScriptCapitalA]\^0\)]]
In[10]:=
\[ScriptCapitalA]\[UnderBracket]Superscript\[UnderBracket]0 =
\[ScriptCapitalA]^2
Out[10]=
\[ScriptCapitalA]^2
Best regards,
/J.M.