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 ]] }]