       Re: question about format

• To: mathgroup at smc.vnet.net
• Subject: [mg9050] Re: question about format
• From: Paul Abbott <paul at physics.uwa.edu.au>
• Date: Thu, 9 Oct 1997 01:42:29 -0400
• Organization: University of Western Australia
• Sender: owner-wri-mathgroup at wolfram.com

```Vanessa Portioli Rolnik wrote:

> For example, if I have the second ordem wave equation, it will be
> write by:
>
> u^(0,2)+a*u^(2,0)=0 ,
>
> where, u=u(x,t)
>
> I would like to replace this notation by a more usual notation
>
> @^2 u     @^2 u
> -----  + ------  =0
> @ t^2     @ x^2
>
>  where @ = 'del'
>
> Does someone know if exist any package that do this formatation or have
> any idea how I can do this?

Try using Mathematica's TraditionalForm notation which does pretty much
what you want automatically.  I have attached a 3.0 Notebook below with
an illustrative example. If you select a cell in any format (say
StandardForm) and under the Cell menu do a ConvertTo TraditionalForm you
should see what I mean.

Cheers,
Paul

____________________________________________________________________
Paul Abbott                                   Phone: +61-8-9380-2734
Department of Physics                           Fax: +61-8-9380-1014
The University of Western Australia
Nedlands WA  6907                     mailto:paul at physics.uwa.edu.au
AUSTRALIA                             http://www.pd.uwa.edu.au/~paul

God IS a weakly left-handed dice player
____________________________________________________________________

Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
\`\[PartialD]\_\(x, x\)u[x, t] + a \[PartialD]\_\(t, t\)u[x, t]\)],
"Input"],

Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"a", " ",
RowBox[{
SuperscriptBox["u",
TagBox[\((0, 2)\),
Derivative],
MultilineFunction->None], "(", \(x, t\), ")"}]}], "+",
RowBox[{
SuperscriptBox["u",
TagBox[\((2, 0)\),
Derivative],
MultilineFunction->None], "(", \(x, t\), ")"}]}],
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"a", " ",

FractionBox[\(\[PartialD]\^2\( u(x, t)\)\),
\(\[PartialD]t\[ThinSpace]\[PartialD]t\),
MultilineFunction->None]}], "+",
FractionBox[\(\[PartialD]\^2\( u(x, t)\)\),
\(\[PartialD]x\[ThinSpace]\[PartialD]x\),

Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"a", " ",
RowBox[{
SuperscriptBox["u",
TagBox[\((0, 2)\),
Derivative],
MultilineFunction->None], "(", \(x, t\), ")"}]}], "+",
RowBox[{
SuperscriptBox["u",
TagBox[\((2, 0)\),
Derivative],
MultilineFunction->None], "(", \(x, t\), ")"}]}],