Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Re: //N bug, but WHY?
  • Next by Date: Re: //N bug, but WHY?
  • Previous by thread: Re: superscripts
  • Next by thread: Don't understand behaviour of Solve[]