I need to find positive values satisfying the following three inequalities. How can use Mathematica to do this? Thanks.
Last edited by bkarpuz; October 5th 2008 at 05:37 AM.
Follow Math Help Forum on Facebook and Google+
Code: In[59]:= FindInstance[{4*e + 2*d <= 81/128 && e + d <= 1/6 && 2*e + 4*d > 81/128}, {e, d}] Out[59]= {{e -> 5/384, d -> 59/384}}
In[59]:= FindInstance[{4*e + 2*d <= 81/128 && e + d <= 1/6 && 2*e + 4*d > 81/128}, {e, d}] Out[59]= {{e -> 5/384, d -> 59/384}}
View Tag Cloud