Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Making your own Definitions using Operators without

• To: mathgroup at smc.vnet.net
• Subject: [mg102393] Re: [mg102379] Re: Making your own Definitions using Operators without
• From: Murray Eisenberg <murray at math.umass.edu>
• Date: Sat, 8 Aug 2009 04:35:49 -0400 (EDT)
• Organization: Mathematics & Statistics, Univ. of Mass./Amherst
• References: <200908070931.FAA15128@smc.vnet.net>
• Reply-to: murray at math.umass.edu

Del dot means divergence, not curl, so in the code Curl should be Div. 
And the button should be changed to display a center dot after the del:

CreatePalette@
  Button["\[Del]\[CenterDot]\[SelectionPlaceholder]",
   NotebookApply[InputNotebook[],
    TemplateBox[{"\[SelectionPlaceholder]"}, "Div",
     DisplayFunction -> (RowBox[{"\[Del]", "\[CenterDot]", #}] &)]]]

Of course a corresponding button can now be made so that Del cross gives 
curl.

cca at gregosetroianos.mat.br wrote:
> Jerry,
> 
>>> Del CenterDot f_:=Div[f], .....then I get an error message that Del
>>> cannot be followed by CenterDot f
> 
> There are many ways to achieve this in Mathematica. Here goes one quick one
> (for V 6.0.2 and above). Unfortunately, I don't have time to explain (nor
> refine) the code now, but it works. (Use Tab to move through the slot.)
> 
> CreatePalette@
>  Button["\[Del]\[SelectionPlaceholder]",
>   NotebookApply[InputNotebook[],
>    TemplateBox[{"\[SelectionPlaceholder]"}, "Curl",
>     DisplayFunction -> (RowBox[{"\[Del]", "\[CenterDot]", #}] &)]]]

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

• References:
  • Re: Making your own Definitions using Operators without built in
    • From: cca@gregosetroianos.mat.br