MathGroup Archive 1993

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

Search the Archive

Re: matrices


If your expressions are symbolic then the following modification to  
Dot will do the trick.

janus> math -noinit
Mathematica 2.1 for NeXT
Copyright 1988-92 Wolfram Research, Inc.

In[1]:= Unprotect[Dot];

In[2]:= Dot[A___, h_?NumberQ B_, C___] := h Dot[A, B, C]

In[3]:= eps /: NumberQ[eps] = True;

In[4]:= Distribute[(A + eps B).(A + eps B)]

                                           2
Out[4]= A . A + eps A . B + eps B . A + eps  B . B

In[5]:= Collect[%, eps]

                                         2
Out[5]= A . A + eps (A . B + B . A) + eps  B . B


Regards,
Frank Zizza
Willamette University
zizza at willamette.edu





  • Prev by Date: NonlinearFit
  • Next by Date: Fonts
  • Previous by thread: NonlinearFit
  • Next by thread: Fonts