Groups > comp.soft-sys.math.mathematica > #3528

Re: Symbolic replacement of scalar products

From	DrMajorBob <btreat1@austin.rr.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Symbolic replacement of scalar products
Date	2011-07-07 11:32 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<iv45g2$evm$1@smc.vnet.net> (permalink)
References	<201107060940.FAA29437@smc.vnet.net>

Show all headers | View raw

This might do it:

Simplify[#, {a1*b1 + a2*b2 + a3*b3 == pAB}] & /@ {a1*b1 + a2*b2 +
    a3*b3, -a1*b1 - a2*b2 - a3*b3, 2 a1*b1 + 2 a2*b2 + 2 a3*b3}

{pAB, -pAB, 2 pAB}

Bobby

On Wed, 06 Jul 2011 04:40:38 -0500, Giuseppe <juseppe78@gmail.com> wrote:

> Hello,
>
> I have very complicated expressions containing scalar products like
>
> a1*b1 + a2*b2 + a3*b3
>
> In order to reduce the complexity, I would like to establish a set of  
> rules like
>
> rule={a1*b1 + a2*b2 + a3*b3 -> pAB, ...}
>
> in order to replace each time the scalar product by an appropriate new  
> symbol (pAB in the example).
> The problem is that, apparently, Mathematica does not perform the  
> substitution if in the expression the scalar products appear together  
> with some multiplying factor; for example Mathematica fails to apply the  
> previous rule if the expression is
>
> -a1*b1 - a2*b2 - a3*b3
>
> or
>
> 2a1*b1 + 2a2*b2 + 2a3*b3
>
> How could solve this problem?
>


-- 
DrMajorBob@yahoo.com

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Symbolic replacement of scalar products DrMajorBob <btreat1@austin.rr.com> - 2011-07-07 11:32 +0000

csiph-web