       problem while solving equations

• To: mathgroup at smc.vnet.net
• Subject: [mg122238] problem while solving equations
• From: Maria Davis <arbiadr at gmail.com>
• Date: Sat, 22 Oct 2011 06:05:38 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```Hi

I want to solve a system of equations for the variable "system".
Here is the content of the file containing equations to solve:

system ->(l * h) / (l + h)
a -> (x * g) / (x + g)
c -> (y * e) / (y + e)
e->(prod*q)/(prod+q)
g->(prod*q)/(prod+q)
h->(cons * c * a)/(cons + c + a)
q -> (n * o) / (n + o)
o ->1
n -> 1
l -> 1

Mathematica code source that I use is:
eqns = ToExpression[StringReplace[#, "." -> "\[Bullet]"]] & /@
rules = Flatten[{eqns, Min[x_ + y_, x_ + z_] -> x + Min[y, z], Max[x_
+ y_, x_ + z_] -> x + Max[y, z],
Min[x_, x_ + z_] -> x + Min[0, z], Max[x_, x_ + z_] -> x + z ,
Max[x_, 0] -> x , Min[x_, infinity] -> x}];
system -> (system //. rules)

I obtained the expression of system using the other variables. In
order to have the numeric value of "system". I write this code:

props = ToExpression[StringReplace[#, "." -> "\[Bullet]"]] & /@
system //. props

the file values contains:
c-> 1.5
p-> 2
y->3
x-> 2.6

But I don't obtain any result.