       Re: solve and simplify. force left hand side to be 0==

• To: mathgroup at smc.vnet.net
• Subject: [mg51179] Re: [mg51152] solve and simplify. force left hand side to be 0==
• From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
• Date: Thu, 7 Oct 2004 05:26:07 -0400 (EDT)
• References: <200410060834.EAA24236@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```On 6 Oct 2004, at 17:34, sean kim wrote:

> *This message was transferred with a trial version of CommuniGate(tm)
> Pro*
>
> consider a system such as,
>
> sde = {
> 0==v1-d1 e+k2 es-k1 e s,
> 0==-k2 es-k3 es+k1 e s,
> 0==k3 es-d3 p,
> 0==v2+k2 es-d2 s-k1 e s};
>
> sv = {e,es,p,s};
>
> Solve[sde[], e]
>
> sde1= sde/.%
>
> %//Simplify
>
> shows once I simplify the solution, the structure of
> 0== stuff... is lost.
>
> is there anyway to force Simplify to keep the
> structure so that left hand side is always 0== stuff?
>
> thanks in advance  for any insights.
>
>
> sean
>

You can just Map Simplify onto the third level of your expression:

Map[Simplify, sde1, {3}]

{{True, 0 == (-k2)*es - k3*es + (k1*(v1 + k2*es)*s)/(d1 +
k1*s), 0 == k3*es - d3*p,
0 == v2 + k2*es - d2*s - (k1*(v1 + k2*es)*s)/(d1 +
k1*s)}}

The first equation turned into 0===0 and hence you got True. But the
rest is as you wanted.

Andrzej Kozlowski
Chiba, Japan
http://www.akikoz.net/~andrzej/
http://www.mimuw.edu.pl/~akoz/

```

• Prev by Date: Re: Re: Undo capabilities
• Next by Date: Re: solve and simplify. force left hand side to be 0==
• Previous by thread: solve and simplify. force left hand side to be 0==
• Next by thread: Re: solve and simplify. force left hand side to be 0==