Re: How can I handle Operator Algebra ?
- To: mathgroup at smc.vnet.net
- Subject: [mg6505] Re: [mg6482] How can I handle Operator Algebra ?
- From: penny at suu.edu (Des Penny)
- Date: Thu, 27 Mar 1997 02:42:54 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hi:
The following is not very elegant but will work:
Needs["Calculus`VectorAnalysis`"];
dv={D[#,x]&,D[#,y]&,D[#,z]&};
r={x,y,z};
l=CrossProduct[r,dv];
The next few lines will convert l to a usable operator:
s=Map[ToString,l];
s=StringReplace[s,"&"->""];
s=Map[("("<>#<>")&")&,s];
opl=ToExpression[s];
opl will now perform as expected
rl=Sqrt[ DotProduct[r,r] ];
rl//opl[[1]]
opl[[3]][x^2]
Output: 0
-2xy
Hope this helps.
Cheers,
Des Penny
-------------------------------
Des Penny
Physical Science Dept.
Southern Utah University
Cedar City, UT 84720
VOICE: (Office): (801) 586-7708
(Home) : (801) 586-2286
FAX: (801) 865-8051
e-mail: penny at suu.edu
-------------------------------