Re: disable canceling
- To: mathgroup at smc.vnet.net
- Subject: [mg106495] Re: [mg106465] disable canceling
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Thu, 14 Jan 2010 05:50:41 -0500 (EST)
- Reply-to: hanlonr at cox.net
prod[x_, y_, sym_: s] := HoldForm[Evaluate[
Numerator[x]*Numerator[y]]]/
HoldForm[Evaluate[
Denominator[x]*Denominator[y]]] /.
(n_ + sym) :> (sym + n);
g[s_] = s (s + 1)/(s + 2);
c[s_] = 1/(s (s + 1));
l[s_] = prod[g[s], c[s], s];
l[s]
s (s+1)/s (s+1) (s+2)
l[s] // ReleaseHold
1/(s+2)
Bob Hanlon
---- Petr Martinec <petr.martinec at gmail.com> wrote:
=============
Hi all,
is here posibility to prevent canceling in Mathematica? I need it to
work with transfer and contreller functions (dynamic system theory). I
would like to input like this
g[s] = s (s + 1)/((s + 1) (s + 2));
and after evaluation get same expression. Another situation is:
input:
g[s] = s (s + 1)/(s + 2);
c[s] =1/(s(s + 1));
l[s] = g[s] c[s]
output:
l[s] = s(s + 1)/(s(s + 1)(s + 2))
It is possible to get this result?
thanks for your answers.