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

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[
    \(TraditionalForm
    \`\[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\), ")"}]}], 
      TraditionalForm]], "Output"]
}, 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\),
          MultilineFunction->None]}], TraditionalForm]], "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\), ")"}]}], 
      TraditionalForm]], "Output"]
}, Open  ]]
}]